login.asp
来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 264 行
ASP
264 行
<!--#include File ="data/include.inc"-->
<html>
<head>
<title>SkyBoard v1.2</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="data/grape.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="562" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="600" border="1" cellspacing="0" cellpadding="0" height="62" bordercolor="#000000">
<tr>
<td>
<p align="center"><font size="6" face="华文彩云">BBS论坛系统</font></td>
</tr>
</table>
</td>
</tr>
</table>
<% If Request.Form("Submit") = "" AND Request.Form("Submit2") = "" AND Request.Form("submit3") = "" then %>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <br>
<table width="600" border="1" cellspacing="0" cellpadding="1" bgcolor="#999999" bordercolor="#000000">
<tr>
<td height="16" width="594">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">登录 &
注册</font></td>
</tr>
<tr>
<td height="89" valign="top" bgcolor="#CCCCCC">
<form name="form1" method="post" action="">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">用户名:</font>
<input type="text" name="txtUsername" value="">
<input type="submit" name="Submit" value="登录">
<input type="submit" name="Submit4" value="忘了密码？">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">密 码: </font><input type="password" name="txtPassword">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font>
<input type="submit" name="Submit2" value="注册">
</form>
</td>
</tr>
</table>
<% End If %>
</td>
</tr>
</table>
<% If Request.FOrm("Submit2") <> "" then %>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <br>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000">
<tr>
<td bgcolor="#999999">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">用户注册</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<br>
</font>
<form name="form2" method="post" action="">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">用户名: </font>
<input type="text" name="username">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">姓 名: </font>
<input type="text" name="name">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">密 码: </font>
<input type="password" name="password"> <br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">签 名: </font>
<input type="text" name="signature" value=" ">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">Email:</font>
<input type="text" name="email">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">兴趣爱好:</font> <input type="text" name="hobby" value=" ">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">OICQ:</font>
<input type="text" name="icq" value=" ">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">国 籍:</font>
<input type="text" name="country" value=" ">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">个人照片:</font>
<input type="text" name="url">
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">生 日:</font> <input type="text" name="birthday" value="1/1/05" size="20">
<br>
<br>
<input type="submit" name="Submit3" value="提交">
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% End IF %>
<% IF request.form("submit3") <> "" Then %>
<br>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000">
<tr>
<td bgcolor="#999999"><font face="Verdana" size="1">注册</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><font face=verdana Size=1>
<%
strName = Request.Form("Name")
strEmail = Request.Form("Email")
strUsername = Request.Form("Username")
strPassword = Request.Form("Password")
strSignature = Request.Form("Signature")
strBirthday = Request.ForM("Birthday")
strICQ = Request.ForM("ICQ")
strHobby = Request.Form("Hobby")
strURL = Request.Form("URL")
strCountry = Request.Form("Country")
If strName = "" Then
Response.Write "Type in you name."
Response.End
Elseif strEmail = "" Then
Response.Write "Type in your emailaddress."
Response.End
ElseIf strUsername = "" Then
Response.Write "Type in your username."
Response.End
ElseIf strPassword = "" Then
Response.Write "Type in your password."
Response.End
ElseIf Len(strUsername) < 4 Then
Response.Write "Your username has to be 3 letters or longer."
Response.End
ElseIf Len(strPassword) < 4 Then
Response.Write "Your password has to be 3 letters or longer."
Response.End
ElseIf InStr(1,strPassword,"'") > 0 Then
Response.Write "Your password may not content any '"
Response.End
ElseIf InStr(1,strEmail,"@") = 0 Then
Response.Write "Type in your emailaddress."
Response.End
ElseIf strBirthday = "" then
Response.Write "Type in your birthday."
Response.End
End if
strUsername = Replace(strUsername,"'","")
strSignature = Replace(strSignature,"'","''")
strEmail = Replace(strEmail,"'","")
strPassword = Replace(strPassword,"'","")
strName = Replace(strName,"'","''")
strBirthday = Replace(strBirthday, "'", "''")
strICQ = Replace(strICQ, "'", "''")
strHobby = Replace(strHobby, "'","''")
strURL = Replace(strURL, "'", "''")
strCountry = Replace(strCountry, "'", "''")
strCountry = strCountry & "."
strURL = strURL & "."
strHobby = strHobby & "."
strICQ = strICQ & "."
Set rsQuery = Con.Execute("SELECT Username FROM UserDB WHERE Username='" & strUsername & "'")
If Not rsQuery.Eof Then
Response.Write "Unfortunatly this Username has already been registered."
Response.End
End if
Con.Execute "INSERT INTO UserDB([Name], [Username], [Password], Email, Signature, IP, Age, ICQ, Hobby, Photo, Country ) Values('" & strName & "', '" & strUsername & "', '" & strPassword & "', '" & strEmail & "', '" & strSignature & "', '" & Request.ServerVariables("REMOTE_ADDR") & "', '" & strBirthday & "', '" & strICQ & "', '" & strHobby & "', '" & strURL & "', '" & strCountry & "')"
Response.Write "姓名: " & strName & "<br>"
Response.Write "用户名: " & strUsername & "<br>"
Response.Write "密码: " & strPassword & "<br>"
Response.Write "Email: " & strEmail & "<br>"
Response.Write "签名: " & strSignature & "<br>"
Response.Write "EtC<br>"
Response.Write "欢迎注册, 单击 <a href='./Login.asp'>here</a> 登录."
Else
%>
</font>
</td>
</tr>
</table>
<% End IF%>
<% IF Request.FOrm("Submit") <> "" then %>
<br>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#999999"><font face="Verdana" size="1">登录</font> </td>
</tr>
<tr>
<td>
<%
Set rsQuery = Con.Execute("SELECT Password,Admin,Username,ID FROM UserDB WHERE Username='" & Request.Form("txtUsername") & "'")
If rsQuery.EOF Then
Response.Write "<font face=Verdana Size=1>Invalid Username.</font>"
Else
If Request.Form("txtPassword") = rsQuery("Password").Value Then
Session("Username") = "[" & rsQuery("Username").Value & "]"
Session("Admin") = rsQuery("Admin").Value
Session("USERID") = rsQuery("ID").Value
Response.Write "<font face=Verdana Size=1>OK! Click <a href='./Default.asp'>here</a> to proceed.</font>"
Else
Response.Write "<font face=Verdana Size=1>Invalid Password.</font>"
End If
End If
End If %>
</td>
</tr>
</table>
<% If Request.Form("Submit4") <> "" then %>
<br>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#999999">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
获取密码 </font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">输入用户名，密码将会被发送到你的信箱！！！</font>
<form name="form3" method="post" action="">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">用户名:</font>
<input type="text" name="mail">
<input type="submit" name="B10" value="Retrieve">
</form>
</td>
</tr>
</table>
<% End IF %>
<% If Request.Form("mail") <> "" then %>
<%
Set rsquery = Con.Execute("SELECT * FROM UserDB WHERE USERNAME='" & Request.Form("mail") & "'")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "SkyBoard"
objMail.To = rsQuery("Email")
objMail.Subject = "Your account information"
objMail.Body = "Hi," & chr(13) & "This is the SkyBoard v1.2 brought to you by Guo Xu." & chr(13) & "Your password is:" & rsQuery("Password")
objMail.Send
Set objMail = Nothing
%>
<br>
<table width="600" border="1" cellspacing="0" cellpadding="1" bgcolor="#CCCCCC" bordercolor="#000000">
<tr>
<td align="center">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
你的密码被发送到你的信箱.</font></td>
</tr>
</table>
<% End IF %>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?