📄 register.asp
字号:
<%
CONST HomePage="/default.asp"
'检查注册信息是否完整
IF Request.Form("UserName")=""
OR Request.Form("UserPass")=""
OR Request.Form("UserPhone")=""
THEN
%>
<HTML>
<HEAD>
<TITLE>Registration Page</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<H2>Please complete all of the following information:</H2>
<FORM METHOD="POST"
ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<TABLE>
<TR>
<TD ALIGN=RIGHT>User Name:</TD>
<TD><INPUT NAME="UserName" TYPE="TEXT"
VALUE="<%=Request.FORM("UserName")%>"></TD>
</TR><TR>
<TD ALIGN=RIGHT>Password:</TD>
<TD><INPUT NAME="UserPass" TYPE="PASSWORD"
VALUE="<%=Request.FORM("UserPass")%>"></TD>
</TR><TR>
<TD ALIGN=RIGHT>Phone Number:</TD>
<TD><INPUT NAME="UserPhone" TYPE="TEXT"
VALUE="<%=Request.FORM("UserPhone")%>"></TD>
</TR><TR>
<TD ALIGN=RIGHT COLSPAN=2>
<INPUT TYPE="SUBMIT" VALUE="Continue">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
<%
ELSE
'创建ADO
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "FILEDSN=d:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn"
'把注册信息加入到webusers表中
MySQL="INSERT WebUsers (UserName,UserPass,UserPhone) VALUES ("
MySQL=MySQL&"'"&Request.FORM("UserName")&"'"
MySQL=MySQL&",'"&Request.FORM("UserPass")&"'"
MySQL=MySQL&",'"&Request.FORM("UserPhone")&"')"
Conn.Execute MySQL
Conn.Close
'创建Session变量
Session("UserName")=Request.FORM("UserName")
Session("UserPass")=Request.FORM("UserPass")
'重定向到正确页面
IF Session("GoBack")=""
THEN Session("GoBack")=HomePage
Response.Redirect Session("GoBack")
END IF
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -