📄 insertnewuser.asp

📁 大家好

💻 ASP

字号:

<%@ language="vbscript" %>
<%if request("username")="" or request("password")="" or request("verpsw")="" or request("email")="" or request("city")=""  then
response.write "带*的必须填！<a href='default.htm'>返回</a>"
response.end
elseif trim(request("password"))<>trim(request("verpsw")) then
response.write "密码不对！<a href='default.htm'>返回</a>"
response.end
else

regtime=now
signs=Server.htmlencode(replace(request("signs"),"'","''"))
  DbPath = SERVER.MapPath("db1.mdb")
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
if request("born")="" 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"))&"','"&cdate(regtime)&"','"&cdate(regtime)&"','"&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"))&"','"&cdate(request("born"))&"','"&trim(request("homepage"))&"','"&trim(request("city"))&"','"&trim(request("phone"))&"','"&cdate(regtime)&"','"&cdate(regtime)&"','"&signs&"','"&trim(request("sex"))&"')"
end if
  conn.execute sql
conn.close  
set conn=nothing
response.write "注册成功！<a href='default.asp'>返回登录页</a>"
end if
%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -