⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_login2fly.asp

📁 2Fly通讯录v1.1,一个不错的系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="check_string.asp" -->
<%
	dim sql
	dim rs
	dim AdminName2fly
	dim AdminPWD2fly
	dim CheckCode
	CheckCode=replace(trim(Request("CheckCode")),"'","")
	if CheckCode<>CStr(session("CheckCode")) then
	session("CheckCode")=""
	Response.Redirect "admin_logout2fly.asp"
	Response.end
	end if
	AdminName2fly=replace(trim(request("AdminName2fly")),"'","")
	AdminPWD2fly=replace(md5(trim(Request("AdminPWD2fly"))),"'","")
if AdminName2fly<>"" and AdminPWD2fly<>"" then 

	set rs=server.createobject("adodb.recordset")
	sql="select * from admin2fly where AdminPWD2fly='"&AdminPWD2fly&"' and AdminName2fly='"&AdminName2fly&"'"
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if AdminPWD2fly=rs("AdminPWD2fly") then

			response.cookies("adminusers")("AdminName2fly")=AdminName2fly
			'response.cookies("adminusers")("AdminPWD2fly")=AdminPWD2fly
			response.cookies("adminusers")("AdminClass2fly")=rs("AdminClass2fly")
			Session("adminopen")=True
			Response.Redirect "list_message2fly.asp"
		
 		end if
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
end if
%>
<title> 管理登录界面</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"><a href="admin.asp" class=black >2Fly 通讯录 管理</a>程式</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="AdminName2fly" type="text" class="editbox1"  id="AdminName2fly"  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="AdminPWD2fly" type="password" class="editbox1"  id="AdminPWD2fly"  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://2fly.cn" target="_blank"><img src="img/power.gif" alt="2Fly工作室 官方网站" width="108" height="24" border="0"></a> </div>
</form>
</body>
</html>

⌨️ 快捷键说明

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