📄 login.asp

📁 用VB+JAVASCRIPT开发的一个仿QQ爱墙软件
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
	dim sql
	dim rs
	dim username
	dim password
	dim CheckCode
	CheckCode=replace(trim(Request("CheckCode")),"'","")
	if CheckCode<>CStr(session("CheckCode")) then
	session("CheckCode")=""
	Response.Redirect "logout.asp"
	end if
	username=replace(trim(request("username")),"'","")
' password=replace(trim(Request("password")),"'","")
	password=replace(md5(trim(Request("password"))),"'","")
	set rs=server.createobject("adodb.recordset")
	sql="select * from admin where password='"&password&"' and username='"&username&"'"
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if password=rs("password") then
			response.cookies("users")("username")=username
			response.cookies("users")("userpass")=password
			Session("open")=True
			
			Response.Redirect "main.asp"
		
 		end if
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
%>
<title>HX33--华夏动漫网 歌曲目录管理登录界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="site.css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<form method="post" onSubmit="return CheckForm();">
  <br>
  <br>
  <br>
  <br>
  <br>
  <table width="350" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td><div align="center">HX33--华夏动漫网 歌曲目录管理程式</div></td>
    </tr>
  </table>
  <br>
  <table width="350" border="1" cellspacing="1" cellpadding="2" align="center" bordercolorlight="7285CF" bordercolordark="7285CF">
    <tr bgcolor="7285CF"> 
      <td colspan="2" valign="bottom"><div align="center"><font color="#FFFFFF">管理员登陆界面</font></div></td>
    </tr>
    <tr> 
      <td width="216" align="right" bordercolor="#E7E7E7" bgcolor="#E7E7E7">管理员帐号：&nbsp;</td>
      <td width="350" bordercolor="#E7E7E7" bgcolor="#E7E7E7"> <input name="username" type="text" class="editbox1"  id="username"  size="20"> 
        <input name="comurl" type="hidden" id="comurl" value="<%=url%>"> </td>
    </tr>
    <tr> 
      <td width="216" align="right" bordercolor="F2F2F2" bgcolor="F2F2F2">管理员密码：&nbsp;</td>
      <td width="350" bordercolor="F2F2F2" bgcolor="F2F2F2"> <input name="password" type="password" class="editbox1"  id="password"  size="20"> 
      </td>
    </tr>
        <tr> 
      <td width="216" align="right" bordercolor="F2F2F2" bgcolor="F2F2F2">输入验证码：&nbsp;</td>
      <td width="300" bordercolor="F2F2F2" bgcolor="F2F2F2"><input name="CheckCode" size="6" maxlength="4" style="width:50px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: FFFFFF" onMouseOver="this.style.background='#ffffff';" onMouseOut="this.style.background='#E7E7E7'" onFocus="this.select(); ">
      <img src="checkcode.asp"></td>
    </tr>
    <tr> 
      <td width="216" bordercolor="#E7E7E7" bgcolor="#E7E7E7">&nbsp;</td>
      <td width="350" bordercolor="#E7E7E7" bgcolor="#E7E7E7"> <input name="Submit" type="submit" class="bottom" value="马上登录"> 
        <input name="Submit2" type="reset" class="bottom" value="重新填写"> </td>
    </tr>
  </table>
  <div align="center"><br>
    <br>
    <a href="http://www.hx33.net" target="_blank"><img src="img/power.gif" alt=" Exobud MP HX33--华夏动漫网" width="108" height="24" border="0"></a>
  </div>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -