ASP修改数据问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 01:28:41
表A 为ID A1 A2 A3 A4 A5
1 c c c c 0
2 b b b b 0

我现在要修改表A里A5的一个数据，在提交后修改A5的数据为1，条件是ID,请付详细代码谢谢，程序为ASP
Id是数字型的，不用写数据库链接语句，我上面已经调用了

<%
Dim Conn
Dim Rs,Sql
Dim ID
ID = Request("id")
'ID要过滤一下，如果ID字段是数值型的，就加上：
If Not IsNumeric(ID) Then
Response.End
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库相对路径")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From [A] Where ID="&ID,Conn,1,3
'如果ID字段的数据类型是字符型的，就要改一下：
'Rs.Open "Select * From [A] Where ID='"&ID&"'",Conn,1,3
Rs("A5")=1
Rs.Update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

<%
Dim Conn
Dim ID
ID = Request("id")
If Not IsNumeric(ID) Then
ID=cint(ID)
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;D