save.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
insertnum=0
sql="insert into huiyuan(username,pw,name,sex,zip,phone,email,address,pays,SouJi,inputtime) values('"& request("username") &"','"& request("pw") &"','"& request("name") &"','"& request("sex") &"','"& request("yb") &"','"& request("phone") &"','"& request("email") &"','"& request("dz") &"', '"& request("pays") &"', '"& request("SouJi") &"',now)"
conn.execute sql,insertnum
if insertnum=1 then
  response.redirect "success.asp"
  conn.close
  response.end
else
  response.redirect "fail.asp"
  conn.close
  response.end
end if
%>