📄 sql server开发技巧-13.htm

📁 微软数据库开发梦工场多媒体教学-sql server篇.rar,是多媒体教学的
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#000000" text="#FFFFFF">
<font color="#009900">Database Update - 用ASP编缉数据库记录 </font> 
<p>'Step 2:<br>
  ' The syntax for the open command is<br>
  ' recordset.Open Source, ActiveConnection, CursorType, LockType, Options <br>
  objRecordset.Open &quot;scratch&quot;, DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, 
  adCmdTable</p>
<p>objRecordset.CacheSize = 15 ' Cuts down on round trips to our SQL Server</p>
<p>'Step 3: <br>
  iRecordToUpdate = CLng(Request.QueryString(&quot;id&quot;))</p>
<p>If iRecordToUpdate &lt;&gt; 0 Then<br>
  If Not objRecordset.EOF Then<br>
  objRecordset.MoveFirst<br>
  Do Until objRecordset.Fields(&quot;id&quot;) = iRecordToUpdate<br>
  objRecordset.MoveNext<br>
  Loop</p>
<p>'Step 4:<br>
  'Only update if they've told us to, o/w we never run this</p>
<p>' String / Text Data Type<br>
  objRecordset.Fields(&quot;text_field&quot;) = CStr(WeekdayName(WeekDay(Date())))</p>
<p>' Integer Data Type<br>
  objRecordset.Fields(&quot;integer_field&quot;) = CInt(Day(Now()))</p>
<p>' Date / Time Data Type<br>
  objRecordset.Fields(&quot;date_time_field&quot;) = Now()</p>
<p>'Step 5:<br>
  'Only update if they've told us to, o/w we never run this<br>
  objRecordset.Update<br>
  End If<br>
  End If</p>
<p><br>
  'Show Table<br>
  ' Feel free to skip this area. (Ignore the man behind the curtain!)<br>
  ' I'm just showing the RS so you have something to look at when<br>
  ' you view the sample.</p>
<p>Response.Write &quot;&lt;TABLE BORDER=&quot;&quot;1&quot;&quot; CELLSPACING=&quot;&quot;2&quot;&quot; 
  CELLPADDING=&quot;&quot;2&quot;&quot;&gt;&quot; &amp; vbCrLf<br>
  Response.Write vbTab &amp; &quot;&lt;TR&gt;&quot; &amp; vbCrLf<br>
  Response.Write vbTab &amp; vbTab &amp; &quot;&lt;TD&gt;&lt;B&gt;id&lt;/B&gt;&lt;/TD&gt;&quot; 
  &amp; vbCrLf<br>
  Response.Write vbTab &amp; vbTab &amp; &quot;&lt;TD&gt;&lt;B&gt;text_field&lt;/B&gt;&lt;/TD&gt;&quot; 
  &amp; vbCrLf<br>
  Response.Write vbTab &amp; vbTab &amp; &quot;&lt;TD&gt;&lt;B&gt;integer_field&lt;/B&gt;&lt;/TD&gt;&quot; 
  &amp; vbCrLf<br>
  Response.Write vbTab &amp; vbTab &amp; &quot;&lt;TD&gt;&lt;B&gt;date_time_field&lt;/B&gt;&lt;/TD&gt;&quot; 
  &amp; vbCrLf<br>
  Response.Write vbTab &amp; &quot;&lt;/TR&gt;&quot; &amp; vbCrLf<br>
  If Not objRecordset.EOF Then<br>
  objRecordset.MoveFirst<br>
  'Show data<br>
  Do While Not objRecordset.EOF<br>
  Response.Write vbTab &amp; &quot;&lt;TR&gt;&quot; &amp; vbCrLf<br>
  For I = 0 To objRecordset.Fields.Count - 1<br>
  Response.Write vbTab &amp; vbTab &amp; &quot;&lt;TD&gt;&lt;A HREF=&quot;&quot;db_update.asp?id=&quot; 
  &amp; <br>
  objRecordset.Fields(&quot;id&quot;) &amp; &quot;&quot;&quot;&gt;&quot; &amp; 
  objRecordset.Fields(I) &amp; &quot;&lt;/A&gt;&lt;/TD&gt;&quot; &amp; vbCrLf<br>
  Next<br>
  Response.Write vbTab &amp; &quot;&lt;/TR&gt;&quot; &amp; vbCrLf<br>
  objRecordset.MoveNext<br>
  Loop<br>
  End If<br>
  Response.Write &quot;&lt;/TABLE&gt;&quot; &amp; vbCrLf</p>
<p>If iRecordToUpdate &lt;&gt; 0 Then Response.Write &quot;Record id &quot; &amp; 
  iRecordToUpdate &amp; &quot; updated!&quot;</p>
<p>'Now back to our regularly scheduled program! </p>
<p><br>
  'Step 6:<br>
  ' Finally we close the recordset and release the memory used by the<br>
  ' object variable by setting it to Nothing (a VBScript keyword)<br>
  objRecordset.Close<br>
  Set objRecordset = Nothing<br>
  %&gt;<br>
</p>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -