?? user_dl.asp
字號:
<%Response.Expires=0%>
<%
on error resume next
response.expiresabsolute=dateadd("s",1,now())
if session("siteid")="" or isempty(session("siteid")) then
session.abandon
response.write("<script language='javascript'>")
response.write("alert(""對不起,您已經過期,請重新打開快狗!"");")
response.write("parent.close();")
response.write("</script>")
response.end
end if
yhm=trim(request.form("yhm"))
mm=trim(request.form("mm"))
faceid=request("faceid")
if yhm<>"" and mm<>"" then
%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from userinfo where id="&Replace(session("siteid"),"'",""),conn,1,1
if rs.recordcount>0 then
if rs("yhm")<>yhm then
rs.close
conn.close
response.write("<script language='javascript'>")
response.write("alert('用戶名錯誤!');")
response.write("history.go(-1);")
response.write("</script>")
else if rs("mm")<>mm then
rs.close
conn.close
set conn=nothing
response.write("<script language='javascript'>")
response.write("alert('密碼錯誤!');")
response.write("history.go(-1);")
response.write("</script>")
else
session("manager")="1"
sitelc=trim(rs("lc"))
if sitelc="" then
sitelc="名稱為空"
end if
if find_online_manager(session.sessionID)=0 then
call write_online_manager(rs("mc1"),rs("url1"),sitelc,faceid)
if find_online_user(session("siteid"))=0 then
session("username")=sitelc
call write_online_user(session("siteid"),faceid)
else
application.lock
onlineuser=application("onlineuser"&session("siteid"))
dimsums=ubound(onlineuser)
for i=0 to dimsums
if instr(onlineuser(i),session.sessionID&"$")>0 then
infostr=split(onlineuser(i),"$")
infostr(1)=sitelc
infostr(2)="1"
onlineuser(i)=infostr(0)&"$"&infostr(1)&"$"&infostr(2)&"$"&infostr(3)&"$"&infostr(4)&"$"&infostr(5)
exit for
end if
next
application("onlineuser"&session("siteid"))=onlineuser
application.unlock
end if
session("username")=sitelc
end if
response.write("<script language='javascript'>")
Response.Write("parent.username.value="&chr(34)&sitelc&chr(34)&";")
Response.Write("parent.refflag.value="&chr(34)&"1"&chr(34)&";")
Response.Write("parent.pageflag.value="&chr(34)&"1"&chr(34)&";")
Response.Write("document.location.href="&chr(34)&"disp_online_user.asp?sitenumber="&chr(34)&"+parent.sitenumber.value;")
response.write("</script>")
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.end
end if
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="web,26 Feb 1960 08:21:57 GMT">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>站長登錄</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function check_form(thisForm)
{
if (thisForm.yhm.value=="")
{
alert("請輸入用戶名!");
thisForm.yhm.focus();
return(false);
}
if (thisForm.yhm.value.length>10)
{
alert("用戶名太長!");
thisForm.yhm.focus();
return(false);
}
if (thisForm.mm.value=="")
{
alert("請輸入密碼!");
thisForm.mm.focus();
return(false);
}
if (thisForm.mm.value.length>16)
{
alert("密碼太長!");
thisForm.mm.focus();
return(false);
}
return(true);
}
</script>
</head>
<body leftmargin="1" topmargin="1" bgcolor="#8482c6">
<form method="post" action="user_dl.asp?faceid=<%=faceid%>" onsubmit="return check_form(this)">
<br>
<center>站長登錄</center>
<br>
用戶名:
<br>
<input name="yhm" size="13" maxlength="10" style="FONT-FAMILY: 宋體; FONT-SIZE: 9pt; HEIGHT: 20px">
<br>
密 碼:
<br>
<input type="password" name="mm" size="13" maxlength="16" style="FONT-FAMILY: 宋體; FONT-SIZE: 9pt; HEIGHT: 20px">
<br>
<p align="right"><input type="submit" value="登錄" name="B1" style="FONT-FAMILY: 宋體; FONT-SIZE: 9pt; HEIGHT: 20px">
</form></P>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -