asp修改写入access超简单 但我不会

[jmxb123]

access数据库中只有一个表aaa,表中有两个字段,name pass
通过IE提交name 和pass中的值 如 http://ip/readpass?name=xiaohei&pass=21232.242rws 修改数据库中pass字段
如果数据库中name字段不存在指定值如xiaohei 则添加相应的记录

刚才已经发了个读取记录的贴子(已结) 与此问题类似
http://topic.csdn.net/u/20080408/13/e5362e5b-f2a0-4946-bf64-96df21c137b5.html

[hookee]

<%
name = Request.QueryString("name")
name = Replace(name,"'","''")
pass = Request.QueryString("pass")
pass = Replace(pass,"'","''")

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("db.mdb")
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
sql = "SELECT [name], pass FROM aaa WHERE [name]='" & name & "'"
rs.Open sql, conn, 1, 1
If Not(rs.BOF And rs.EOF) Then
conn.execute "UPDATE aaa SET pass='" & pass & "' WHERE [name]='" & name & "'"
Else
conn.execute "INSERT INTO aaa([name], pass) VALUES('" & name & "','" & pass & "')"
End If
If rs.State <>0 Then rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

[Go 旅城通票]

resetpas.asp

name = Request.QueryString("name") 
name = Replace(name,"'","''") 
pass=Request.QueryString("pass") 
sConn="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&Server.MapPath("db.mdb") 
Set conn = CreateObject("ADODB.Connection") 
conn.Open sConn 
Set rs = CreateObject("ADODB.RecordSet") 
sql = "SELECT pass FROM aaa WHERE [name]='" & name & "'" 
rs.Open sql, conn, 1,3
If Not(rs.BOF And rs.EOF) Then 
   rs(0)=pass
   rs.update
Else 
   Response.Write "无记录" 
End If 
If rs.State <>0 Then rs.Close 
Set rs = Nothing 
conn.Close 
Set conn = Nothing 

[一把编程的菜刀]

readpass.asp

Set rs = CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM aaa WHERE [name]='" & name & "'"
rs.Open sql, conn, 1,3
If Not(rs.BOF And rs.EOF) Then
rs(0)=pass
rs.update
Else
Response.Write "无记录"
End If
rs.close
Set rs = Nothing