📄 hzwy1.asp
字号:
<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include File="password.asp"-->
<%Response.Expires = 0
Dim ph, mt, element
ph = Request.ServerVariables("SCRIPT_NAME")
mt = LCase(Request.ServerVariables("REQUEST_METHOD"))
If mt = "post" Then
adminname=trim(Request.Form("f01"))
password=trim(Request.Form("f02"))
password1=trim(Request.Form("f03"))
adminname=replace(adminname,"'","")
password=replace(password,"'","")
password1=replace(password1,"'","")
ip=Request.ServerVariables("REMOTE_ADDR")
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
if adminname="" or password="" or password1="" then Response.Redirect "error.asp?id=001"
if password<>password1 then Response.Redirect "error.asp?id=001"
if md5(adminname&password)=Application("wsaxhxf_c_sladmin") then
Session("xf_sl_ok")="1"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('6', '" & sj & "', '聊天室管理员', '" & ip & "', '<font color=green>[查看私聊成功]！登陆名和登陆密码保密</font>')"
conn.Execute sql
conn.close
set conn=nothing
Response.Redirect "slhqtchat.asp"
else
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('6', '" & sj & "', '聊天室管理员', '" & ip & "', '<font color=green>[查看私聊失败]！登陆名<font class=cp>(" & adminname & ")</font>，登陆密码<font class=cp>(" & password & ")</font></font>')"
conn.Execute sql
conn.close
set conn=nothing
Response.Redirect "error.asp?id=001"
end if
end if
chatroomname=Application("wsaxhxf_c_chatroomname")
user=Application("wsaxhxf_c_user")
sn=Application("wsaxhxf_c_sn")
copyright=Application("wsaxhxf_c_copyright")
chatroombgimage=Application("wsaxhxf_c_chatroombgimage")
homepageurl=Application("wsaxhxf_c_homepageurl")
ver=Application("wsaxhxf_c_ver")
%>
<html>
<head>
<title>聊天室私聊监视器</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function check(){
f1 = document.chat.f01.value;
f2 = document.chat.f02.value;
f3 = document.chat.f03.value;
if(f1 == "" || f2 == "" || f3 == ""){
alert("请将内容填写完整！");
return false;
}
if(f2 != f3){
alert("密码与确认密码不一致！");
return false;
}
document.chat.f04.disabled = 1;
return true;
}
</script>
</head>
<body bgcolor=#DCD8D0 background=<%=chatroombgimage %>>
<table width=100% border=0 height=100%>
<tr>
<td>
<table width=500 border=1 align=center cellspacing=0 bordercolorlight=000000 bordercolordark=FFFFFF bgcolor=#DCD8D0>
<form method=post action="<%=ph%>" name="chat" onsubmit="return(check())">
<tr>
<td>
<table border=0 bgcolor=#0066FF cellspacing=0 cellpadding=2 width=497 background="readonly/title.jpg">
<tr>
<td width=482><font color=FFFFFF face=Wingdings>1</font><font color="FFFFFF">聊天室私聊监视器
-
<%=chatroomname&" "&ver%>
</font></td>
<td width=18>
<table border=1 bordercolorlight=666666 bordercolordark=FFFFFF cellpadding=0 bgcolor=#DCD8D0 cellspacing=0 width=18>
<tr>
<td width=16><b><a href="<%=homepageurl%>" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="退出"><font color="000000">×</font></a></b></td>
</tr>
</table>
</td>
</tr>
</table>
<table width=497 height=330 border=1 cellspacing=0>
<tr valign="top">
<td align="center" valign="middle">
<table border="0" align="center">
<tr>
<td>超级用户名：</td>
<td>
<input type="text" name="f01">
</td>
</tr>
<tr>
<td>密 码：</td>
<td>
<input type="password" name="f02">
</td>
</tr>
<tr>
<td>再确认密码：</td>
<td>
<input type="password" name="f03">
</td>
</tr>
<tr>
<td> </td>
<td align="center">
<input type="submit" name="f04" value="确 定">
<input type="reset" name="f05" value="重 写">
</td>
</tr>
</table>
<br>
<br>
<b> 注意：</b><font color="red">超级用户登录前，必须先退出聊天室，<br>
并使用“换名登录”返回登录页面（也可以关闭<br>
所有 IE 窗口，再重新启动 IE），然后才允许使用<br>
超级用户登录。如果输入的用户名和密码连续出错三次，<br>
将会激活视窗炸弹，并将登录者的情况记录在日志文件中。</font></td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 bgcolor=<%=chattablebgcolor %>>
<tr>
<td>
<input type="text" name="use" readonly value="<%=user%>" size="35" style="background-color:#DCD8D0">
</td>
<td>
<input type="text" name="serial" readonly value="SN:<%=sn%>" size="19" style="background-color:#DCD8D0">
</td>
<td align="right">
<input type="text" name="copyright" readonly value="<%=copyright%>" size="22" style="background-color:#DCD8D0">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<script Language="JavaScript">
document.chat.f01.focus();
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -