head_index.asp

来自「我的小网站个人利用业余时间设计的」· ASP 代码 · 共 71 行

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<table width="97%" height="300" border="0" cellpadding="0" cellspacing="0" align="center" class="lrtd" bgcolor="#FFFFFF">
  <tr>
    <td width="158" class="rtd">&nbsp;</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="default.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='default.asp'>点击返回主页</a>"
		 End IF
		 Set memLogin=Nothing
	End IF%>
      <table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
          <tr>
            <td height="24" align="center" class="header"><%=Login_Title%></td>
          </tr>
          <tr>
            <td height="88" align="center" valign="middle" bgcolor="#FFFFFF" class="htd"><%=Login_Message%></td>
          </tr>
      </table>
      <%Else%><table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC"><form name="Login" method="post" action="logging.asp?action=login">
      <tr>
        <td height="24" colspan="2" align="center" class="header">用户登陆</td>
      </tr>
      <tr>
        <td align="right" bgcolor="#FFFFFF">用户：</td>
        <td bgcolor="#FFFFFF">          <input name="username" type="text" id="username" size="24" maxlength="24">        </td>
      </tr>
      <tr>
        <td align="right" bgcolor="#FFFFFF">密码：</td>
        <td bgcolor="#FFFFFF"><input name="password" type="password" id="password" size="16" maxlength="16">
          &nbsp;</td>
      </tr>
      <tr>
        <td colspan="2" align="center" bgcolor="#FFFFFF"><input name="Login" type="submit" id="agree" value=" 登 陆 ">
&nbsp;    <input name="Register" type="button" id="Register" onclick="javascript:document.location.href='register.asp';" value=" 注 册 ">
	</td>
      </tr></form>
    </table>
      <%End IF%>
    <br></td>
  </tr>
</table>
<!--#include file="footer.asp" -->