📄 deal_regist.asp
字号:
<!-- #include file="opendb.inc" -->
<html>
<head>
<title>注册处理</title>
</head>
<body>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB) '打开数据库
Sql0="Select * From Customer Where Name='" & Request.Form("Name") & "'"
Set Rs=Conn.Execute(Sql0)
If Rs.Eof Then '记录集为空，没有同名用户
Sql1="Insert Into Customer(Name,Password,Address,City,Region,Postalcode,Country,Phone,Fax,Email) Values('" & Request.Form("Name") & "','" & Request.Form("Password") & "','" & Request.Form("Address") & "','" & Request.Form("City") & "','" & Request.Form("Region") & "','" & Request.Form("Postalcode") & "','" & Request.Form("Country") & "','" & Request.Form("Phone") & "','" & Request.Form("Fax") & "','" & Request.Form("Email") & "')"
Conn.Execute(Sql1) '插入用户注册信息
%>
<p><center><b>注册成功！请进入<a href="logon.htm">登录页面</a>登录。</b></center></p>
<%Else%>
<p><center><b>对不起，用户名已存在！<a href="regist.htm">返回</a></b></center></p>
<%End If%>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -