📄 login2fly.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim sql
dim rs
dim Email2fly
dim password2fly
dim CheckCode
CheckCode=replace(trim(Request("CheckCode")),"'","")
if CheckCode<>CStr(session("CheckCode")) then
session("CheckCode")=""
Response.Redirect "logout2fly.asp"
end if
Email2fly=replace(trim(request("Email2fly")),"'","")
' password2fly=replace(trim(Request("password2fly")),"'","")
password2fly=replace(md5(trim(Request("password2fly"))),"'","")
if Email2fly<>"" and password2fly<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from [messagebook] where password2fly='"&password2fly&"' and Email2fly='"&Email2fly&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password2fly=rs("password2fly") then
response.cookies("users")("Email2fly")=Email2fly
response.cookies("users")("userid")=rs("id")
Session("open")=True
Response.Redirect "list_message2fly.asp"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
<title>2Fly音乐联播 用户 管理登录界面</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 >用户名 或者 密码错误 请重新 登陆</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">会员帐号： </td>
<td width="350" bordercolor="#E7E7E7" bgcolor="#E7E7E7"> <input name="Email2fly" type="text" class="editbox1" id="Email2fly" size="20">
<input name="comurl" type="hidden" id="comurl" value="<%=url%>"> </td>
</tr>
<tr>
<td width="216" align="right" bordercolor="F2F2F2" bgcolor="F2F2F2">会员密码： </td>
<td width="350" bordercolor="F2F2F2" bgcolor="F2F2F2"> <input name="password2fly" type="password2fly" class="editbox1" id="password2fly" size="20">
</td>
</tr>
<tr>
<td width="216" align="right" bordercolor="F2F2F2" bgcolor="F2F2F2">输入验证码： </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"> </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>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -