📄 logging.asp
字号:
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<body>
<table width="97%" height="300" border="0" cellpadding="0" cellspacing="0" align="center" class="lrtd" bgcolor="#FFFFFF" background="image/back.gif">
<tr>
<td width="158" class="rtd"> </td>
<td width="590"><br>
<%IF Request.QueryString("action")="logout" Then
Response.Cookies(CookieName)("memName")=""
Response.Cookies(CookieName)("memPassword")=""
Response.Cookies(CookieName)("memStatus")=""%><table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="24" align="center" class="header">退出成功</td>
</tr>
<tr>
<td height="88" align="center" valign="middle" bgcolor="#FFFFFF" class="htd"><a href="index.asp">点击进入主页</a></td>
</tr>
</table>
<%ElseIF Request.QueryString("action")="login" Then
Dim Login_Title,Login_Message
IF Request.Form("UserName")=Empty OR Request.Form("Password")=Empty Then
Login_Title="错误信息"
Login_Message="请将信息输入完整<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
Else
Dim memLogin
Set memLogin=Conn.Execute("SELECT mem_Name,mem_Password,mem_Status FROM blog_member WHERE mem_Name='"&CheckStr(Request.Form("Username"))&"' AND mem_Password='"&md5(CheckStr(Request.Form("Password")))&"'")
IF memLogin.EOF AND memLogin.BOF Then
Login_Title="错误信息"
Login_Message="用户名与密码错误<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
Else
Response.Cookies(CookieName)("memName")=memLogin("mem_Name")
Response.Cookies(CookieName)("memPassword")=memLogin("mem_Password")
Response.Cookies(CookieName)("memStatus")=memLogin("mem_Status")
Login_Title="登陆成功"
Login_Message="<a href='index.asp'>点击进入主页</a>"
End IF
Set memLogin=Nothing
End IF%>
<div id="Layer3" style="position:absolute; left:5px; top:130px; width:780px; height:100px; z-index:3">
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#5C599D">
<tr>
<td height="24" align="center" class="header"><%=Login_Title%></td>
</tr>
<tr>
<td height="60" align="center" valign="middle" bgcolor="#FFFFFF" class="htd"><%=Login_Message%></td>
</tr>
</table>
</div>
<%Else%>
<div id="Layer1" style="position:absolute; left:5px; top:130px; width:780px; height:100px; z-index:1">
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#5C599D"><form name="Login" method="post" action="logging.asp?action=login">
<tr align="center">
<td height="24" colspan="2" class="header" colspan=2 nowrap>用户登陆</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">用户：
<input name="username" type="text" id="username" size="16" maxlength="24"></td>
<td align="center" bgcolor="#FFFFFF">密码：
<input name="password" type="password" id="password" size="16" maxlength="16">
</td>
</tr>
<tr>
<td colspan="2" align="center" bgcolor="#FFFFFF" colspan=2><input name="Login" type="submit" id="agree" value=" 登 陆 ">
<input name="Register" type="button" id="Register" onclick="javascript:document.location.href='register.asp';" value=" 注 册 ">
</td>
</tr></form>
</table>
</div>
<%End IF%>
<br></td>
</tr>
</table>
<div id="Layer2" align="center" style="position:absolute; top:240px; width:780px; height:100px; z-index:2">
<!--#include file="foot.asp"-->
</div>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -