📄 insertnewuser.asp
字号:
<%@ language="vbscript" %>
<%
signs=Server.htmlencode(replace(request("signs"),"'","''"))
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
sqltext="select * from user_info where username='"&trim(request("username"))&"'"
set rs1=conn.execute(sqltext)
if rs1.eof and rs1.bof then
if request("yborn")="" and request("mborn")="" and request("dborn")="" then
sql="insert into user_info (username,password,email,homepage,city,phone,regtime,newregtime,signs,sex) values('"&trim(request("username"))&"','"&trim(request("password"))&"','"&trim(request("email"))&"','"&trim(request("homepage"))&"','"&trim(request("city"))&"','"&trim(request("phone"))&"',Now(),Now(),'"&signs&"','"&trim(request("sex"))&"')"
else
sql="insert into user_info (username,password,email,born,homepage,city,phone,regtime,newregtime,signs,sex) values('"&trim(request("username"))&"','"&trim(request("password"))&"','"&trim(request("email"))&"','"&request("yborn")&"-"&request("mborn")&"-"&request("dborn")&"','"&trim(request("homepage"))&"','"&trim(request("city"))&"','"&trim(request("phone"))&"',Now(),Now(),'"&signs&"','"&trim(request("sex"))&"')"
end if
conn.execute sql
conn.close
set conn=nothing
response.write "注册成功！<a href='default.asp'>返回登录页</a>"
else
response.write "该用户名已被他人注册！请您另择他名进行注册！<a href='default.asp'>返回注册页面</a>"
response.end
end if
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -