update.asp

大家好

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="..\ADOVBS.INC"-->
<%
DbPath = SERVER.MapPath("..\bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="update huiyuan set pw='"&request("pw")&"',name='"&request("name")&"',sex='"&request("sex")&"',zip='"&request("yb")&"',phone='"&request("phone")&"',pays='"&request("pays")&"',email='"&request("email")&"',address='"&request("dz")&"',SouJi='"&request("SouJi")&"',username='"&request("username")&"',inputtime=now where UserID="&request("Id")&" "
'response.write sql
conn.execute sql
response.redirect "xgsuccess.asp"
conn.close
response.end

%>