用ASP编缉数据库记录

<%@# Defining some constants to make my life easier! (Same as Sample 1 & 2)
@# Begin Constant Definition

@# DB Configuration constants
@# Fake const so we can use the MapPath to make it relative.
@# After this, strictly used as if it were a Const.
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DRIVER={Microsoft Aclearcase/" target="_blank" >ccess Driver (*.mdb)};DBQ=" & Server.Mappath
("./db_scratch.mdb") & ";"
@# We don@#t use these, but we could if we neeeded to.
@#Const DB_USERNAME = "username"
@#Const DB_PASSWORD = "password"

@#Now we override the above settings to use our SQL server.
@#Delete the following line to use the sample Access DB.
DB_CONNECTIONSTRING = Application("SQLConnString") & "UID=" & Application("SQLUsername")
& ";PWD=" & Application("SQLPassword") & ";"

@# ADODB Constants
@# You can find these in the adovbs.inc file
@# Do a search for it and it should turn up somewhere on the server
@# If you can@#t find it you can download our copy from here:
@# http://www.asp101.com/samples/download/adovbs.inc
@# It may not be the most recent copy so use it at your own risk.
%>
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
@# End Constant Definition
%>

<%
Dim I @# Standard looping var
Dim iRecordToUpdate @# Id of deleted record

@#We@#re going to keep this as simple as we can.
@# 1. Create a Recordset object
@# 2. Connect the Recordset to the table
@# 3. Find the record to update
@# 4. Update the record
@# 5. Update the table
@# 6. Close the Recordset

@#Step 1:
Dim objRecordset
Set objRecordset = Server.CreateObject("ADODB.Recordset")

@#Step 2:
@# The syntax for the open command is
@# recordset.Open Source, ActiveConnection, CursorType, LockType, Options
objRecordset.Open "scratch", DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, adCmdTable

objRecordset.CacheSize = 15 @# Cuts down on round trips to our SQL Server

@#Step 3:
iRecordToUpdate = CLng(Request.QueryString("id"))

If iRecordToUpdate <> 0 Then
If Not objRecordset.EOF Then
objRecordset.MoveFirst
Do Until objRecordset.Fields("id") = iRecordToUpdate
objRecordset.MoveNext
Loop

@#Step 4:
@#Only update if they@#ve told us to, o/w we never run this

@# String / Text Data Type
objRecordset.Fields("text_field") = CStr(WeekdayName(WeekDay(Date())))

@# Integer Data Type
objRecordset.Fields("integer_field") = CInt(Day(Now()))

@# Date / Time Data Type
objRecordset.Fields("date_time_field") = Now()

@#Step 5:
@#Only update if they@#ve told us to, o/w we never run this
objRecordset.Update
End If
End If


@#Show Table
@# Feel free to skip this area. (Ignore the man behind the curtain!)
@# I@#m just showing the RS so you have something to look at when
@# you view the sample.

Response.Write "<TABLE BORDER=""1"" CELLSPACING=""2"" CELLPADDING=""2"">" & vbCrLf
Response.Write vbTab & "<TR>" & vbCrLf
Response.Write vbTab & vbTab & "<TD>id</TD>" & vbCrLf
Response.Write vbTab & vbTab & "<TD>text_field</TD>" & vbCrLf
Response.Write vbTab & vbTab & "<TD>integer_field</TD>" & vbCrLf
Response.Write vbTab & vbTab & "<TD>date_time_field</TD>" & vbCrLf
Response.Write vbTab & "</TR>" & vbCrLf
If Not objRecordset.EOF Then
objRecordset.MoveFirst
@#Show data
Do While Not objRecordset.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To objRecordset.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><A HREF=""db_update.asp?id=" &
objRecordset.Fields("id") & """>" & objRecordset.Fields(I) & "</TD>" & vbCrLf
Next
Response.Write vbTab & "</TR>" & vbCrLf
objRecordset.MoveNext
Loop
End If
Response.Write "</TABLE>" & vbCrLf

If iRecordToUpdate <> 0 Then Response.Write "Record id " & iRecordToUpdate & " updated!"

@#Now back to our regularly scheduled program!


@#Step 6:
@# Finally we close the recordset and release the memory used by the
@# object variable by setting it to Nothing (a VBScript keyword)
objRecordset.Close
Set objRecordset = Nothing

原文转自：http://www.ltesting.net