部分源代码: Private Sub Command1_Click() Dim sql As String Dim param As ADODB.Parameter Dim cmd As ADODB.Command Set cmd = New ADODB.Command Set param = New ADODB.Parameter sql = "select * from book where [图书编码]= ? " If Command1.Caption = "添加记录" Then Com
asp论坛系统源代码, 有模板和实例 <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("scr ipt_NAME")) If (Request.QueryString "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort recor