此书中有几个常用实例系统 <% Dim Rs1__MMColParam Rs1__MMColParam = "False" If (Request("MM_EmptyValue") "") Then Rs1__MMColParam = Request("MM_EmptyValue") End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variabl
部分源代码： 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
个人收支管理 vb GoTo jump showerror: MsgBox Err.Descr iption With dbs If .State = adStateOpen Then .Close End If .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = App.Path & "\mymoney.mdb" .Open End With With rst If .State = adStateOpen Then .Clos
Private Sub Form_Load() Timer1.Interval = 300 End Sub Private Sub Timer1_Timer() Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rst As New ADODB.Recordset Dim Sqlser_time cnn.ConnectionString = "driver={SQL Server};" & _ "server=se
rivate Sub cmdAdd_Click() Dim str1 As String Dim cnn As New ADODB.Connection '数据库连接 If cmdAdd.Caption = "新增" Then '按钮为“新增”状态 cmdAdd.Caption = "保存" '修改按钮标题为“保存”，提示用户保存数据 cmdCancel.Visible = True '显示“取消”按钮 lstbus.Enabled = False '禁止用户操作列表框 LockControl
<% Rem 首页页面设置 Const CachePage=false '是否做页面缓存 Const CacheTime=60 '缓存失效时间 Dim XMLDom,page,TopicMode,Cmd If Request("w") = "1" Then Passport_Main() Response.End End If If (Not Response.IsClientConnected) and Dvbbs.userid=0 Then Session(Dvbbs.Cach
