📄 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -