?? login.asp
字號:
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="background.asp"-->
<!--#INCLUDE FILE="md5.asp"-->
<% dim rs , exec %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用戶登錄</title>
<link href="1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<HR SIZE=1 WIDTH=100% NOSHADE COLOR=#C0C0C0>
<table border=0 width=100% align=center>
<tr>
<td width="3%" align=lift><font color="#FF0000"> <img src="images/home.gif" border=0></font></td>
<td width="8%" align=lift><a href="<%if session("list")=0 then%>default.asp<%else%>default1.asp<%end if%>">留言首頁</a></td>
<td width="89%" align=right>
<!--#INCLUDE FILE="link.asp"-->
</td>
</table>
<form name="form" method="post">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#0098c8" >
<tr class="table003">
<td colspan="2" bordercolorlight="#000000" bordercolordark="#C0C0C0">
<p align="center"><strong>用戶登錄</strong> </td>
</tr>
<%
main()
sub main()
dim backInput, homeInput
backInput=backInput&"<br><br><input type=button value=返回前頁 onClick=history.back() class=input2 name=button ><br>"
backInput=backInput&"</d>"
backInput=backInput&"</tr>"
homeInput="<br><br><input type=button value=進入留言板首頁 onClick=""location.href='default.asp"&"' "" class=input2><br>"
homeInput=homeInput&"</d>"
homeInput=homeInput&"</tr>"
if request.form="" then
%>
<tr class="table001">
<td width="302" align="center"><div align="left"><strong>請輸入用戶名：<br>
</strong></div></td>
<td width="664" height="28" align="center"><div align="left"><font color="#00FF00">
<input type="text" name="name" size="30" class="input1" value="" maxlength="20">
</font></div></td>
</tr>
<tr class="table001">
<td width="302" align="center"><div align="left"><strong>請輸入密碼：</strong></div></td>
<td height="28" align="center"><div align="left"><font color="#FFFFFF">
<input type="password" name="pass" size="34" class="input1" value="" maxlength="20" >
</font></div></td>
</tr>
<tr class="table001">
<td width="302" align="center"><div align="left"><strong>登錄保留：<br>
</strong> 請選擇登錄保留時間，下次訪問時狀態可為已登錄。</div></td>
<td height="28" align="center"><div align="left">
<input type=radio name="expTime" value="" checked>
不保存，關閉瀏覽器就失效<br>
<input type=radio name="expTime" value="<%=dateAdd("d",1,now)%>">
保存一天
<br>
<input type=radio name="expTime" value="<%=dateAdd("ww",1,now)%>">
保存一周
<br>
<input type=radio name="expTime" value="<%=dateAdd("m",1,now)%>">
保存一月
<br>
<input type=radio name="expTime" value="<%=dateAdd("yyyy",1,now)%>">
保存一年
</div></td>
</tr>
<tr class="table001">
<td height="28" colspan="2" align="center"> <input type="submit" value=" 登 陸 " class="input2" name="Submit" >
<input name="clear" type="reset" class="input2" id="clear" value=" 清 除 " >
<%
else
dim name, pass, expTime
name=request.form("name")
pass=request.form("pass")
name=replace(name,"'","")
name=replace(name,"""","")
name=replace(name,"=","")
pass=replace(pass,"'","")
pass=replace(pass,"""","")
pass=replace(pass,"=","")
expTime=request.form("expTime")
if name="" or pass="" then
response.Write("<tr class='table001' align='center'>")
response.Write("<td>")
response.write "<font color=red>發生錯誤</font><br><br>請輸入用戶名和密碼！"
response.write backInput
exit sub
end if
exec="Select * From register where username='"&name&"' and password1='"&md5(pass)&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if rs.eof then
response.Write("<tr class='table001' align='center'>")
response.Write("<td>")
response.write "<font color=red>發生錯誤</font><br><br>用戶名不存在或密碼錯誤！"
response.write backInput
exit sub
end if
response.Write("<tr class='table001' align='center'>")
response.Write("<td>")
response.write "<font color=red>登陸成功！</font>"
response.write homeInput
cookiePath=request.servervariables("path_info")
cookiePath=left(cookiePath,instrRev(cookiePath,"/"))
response.cookies("ly").Path=cookiePath
response.cookies("ly")("useridname")=name
response.cookies("ly")("useridpassword")=pass
if rs("level1")="管理員" then response.cookies("ly")("admin")=1 else if rs("level1")="版主" then response.cookies("ly")("admin")=2 else response.cookies("ly")("admin")=0
if expTime<>"" then
expTime=Cdate(expTime)
response.cookies("ly").expires=expTime
end if
end if
end sub %>
</td>
</tr>
</table>
</form>
<HR SIZE=1 WIDTH=100% NOSHADE COLOR=#C0C0C0>
<!--#include file="bottom.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -