userlog.asp

asp网站原代码绝对教材 asp网站原代码绝对教材

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #FF0000;
}
a:active {
	text-decoration: none;
}
a {
	font-size: 12px;
}
-->
</style>
<%
work=Request("work")
name=Trim(Request("name"))
pass=Trim(Request("pass"))
IF work="login" Then
 set rs=server.createobject("adodb.recordset") 
 sql="select * from HN_member where ME_name='"&name&"'"
 rs.open sql,conn,3,3
 IF rs.eof or rs.bof Then
  Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
  Response.Write "alert('对不起！登陆未成功！有可能是：\n1、无此用户！\n2、密码错误!\n3、你输入错误。\n4、大小写状态错误.');"
  Response.Write "</SCRIPT>"
 Else
  IF RS("ME_pass")=pass Then
   RS("ME_dlcs")=RS("ME_dlcs")+1
   RS.update
   Session("ME_name")=RS("ME_name")
   Session("ME_id")=RS("ME_id")
   id=RS("ME_id")
  Else
   Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
   Response.Write "alert('对不起！登陆未成功！有可能是：\n1、无此用户！\n2、密码错误!\n3、你输入错误。\n4、大小写状态错误.');"
   Response.Write "</SCRIPT>"
  End IF
End IF
 rs.close
 set rs=nothing
Elseif work="logout" then
 Session("ME_name")=""
End If
%>
<%IF Session("ME_name")="" Then%>
<table  border="0" align="center" cellpadding="0" cellspacing="0">
 <form name=form1 action="?work=login" method=post>
  <tr>
    <td><img src="images/IN_08.jpg" width="202" height="25" alt="" /></td>
  </tr>
  <tr>
    <td background="images/IN_10.jpg">
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><table width="100%"  border="0" cellspacing="3" cellpadding="0">
            <tr>
              <td><div align="right">用户帐号： </div></td>
              <td><input id="name" 
                  style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 90px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" 
                  name="name" /></td>
            </tr>
            <tr>
              <td><div align="right">帐号密码： </div></td>
              <td><input id="pass" 
                  style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT: 12px Verdana,Geneva,sans-serif; BORDER-LEFT: #ffffff 1px groove; WIDTH: 90px; COLOR: #000000; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9" 
                  type="password" name="pass" /></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td><div align="center"><img src="images/IN_16.jpg" width="178" height="6" alt="" /></div></td>
        </tr>
        <tr>
          <td><div align="center">&nbsp;
            <input type="image" name="imageField" src="images/IN_18.jpg" />
            &nbsp;<a href="reg_add.asp"><img src="images/IN_21.jpg" alt="" width="82" height="27" border="0" /></a></div></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td><img src="images/IN_25.jpg" width="202" height="9" alt="" /></td>
  </tr>
</form>
</table>
<%ELSE%>
<table  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/IN_08.jpg" width="202" height="25" alt="" /></td>
  </tr>
  <tr>
    <td background="images/IN_10.jpg"><table width="170" border="0" align="center" cellpadding="3" cellspacing="0">
      <tr>
        <td>&nbsp;欢迎您：<%=Session("ME_name")%></td>
      </tr>
      <tr>
        <td align="center" valign="middle"><a href="user_edit_add.asp" target="_blank">个人资料维护</a></td>
      </tr>
      <tr>
        <td align="center" valign="middle"><a href="send.asp" target="_blank">站内短信管理</a></td>
      </tr>
      <tr>
        <td align="center"><input name="button" type="button" onclick="window.location='?work=logout'" value="退出登陆" /></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><img src="images/IN_25.jpg" width="202" height="9" alt="" /></td>
  </tr>
</table>
<%end if%>