📄 index.asp
字号:
<!--#include file="global.asp"-->
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%if Application("wsaxhxf_c_chatroomname")="" then Response.Redirect "error.asp?id=000"
if Session("hxf_u_counted")<>"1" then
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT value FROM system WHERE name='visitor'"
rs.open sql,conn,1,3
rs("value")=rs("value")+1
Application.Lock
Application("wsaxhxf_c_visitor")=rs("value")
Application.UnLock
rs.update
rs.close
conn.close
Set rs=nothing
Set conn=nothing
Session("hxf_u_counted")="1"
end if
visitor=Application("wsaxhxf_c_visitor")
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")
opendate=Application("wsaxhxf_c_opendate")
chatroombgcolor=Application("wsaxhxf_c_chatroombgcolor")
logo=Application("wsaxhxf_c_logo")
ver=Application("wsaxhxf_c_ver")
useronlinename=Application("wsaxhxf_c_useronlinename")
onliners=Application("wsaxhxf_c_chatrs")
online=Split(Trim(useronlinename)," ",-1)
x=UBound(online)%><html>
<head>
<title><%=chatroomname&" "&ver%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function check(){
var ckv = document.chat.ck.value;
var ff00 = document.chat.nickname.value;
var ff01 = document.chat.password.value;
var ff06 = document.chat.newpass.value;
var ff07 = document.chat.killpass.value;
if(ff00==""){
alert("用户名不能为空！");
return false;
}
if(ff01==""){
alert("密码不能为空！");
return false;
}
if(ff01.length<4){
alert("密码太短，不能小于 4 位！");
return false;
}
if(ff00==ff01){
alert("密码不能和用户名相同！");
return false;
}
if(escape(ff01) != ff01){
alert("密码只能使用字母和数字！");
return false;
}
if(ff01=="1111" || ff01=="11111111111111111111" || ff01=="1234" || ff01=="123123" || ff01=="123456"){
alert("密码太简单！");
return false;
}
if(ckv==2){
if(ff06==""){
alert("请输入新密码！");
return false;
}
if(escape(ff06) != ff06){
alert("新密码只能使用字母和数字！");
return false;
}
if(ff06==ff01){
alert("新密码不能与原来的密码相同！");
return false;
}
if(ff06==ff00){
alert("新密码不能与用户名相同！");
return false;
}
if(ff06.length<4){
alert("新密码太短，不能小于 4 位！");
return false;
}
if(ff06=="1111" || ff06=="11111111111111111111" || ff06=="1234" || ff06=="123123" || ff06=="123456"){
alert("新密码太简单！");
return false;
}
if(confirm("是否真的要将密码修改为：" + ff06 + "？")){
return true;
}
else{
return false;
}
}
if(ckv==3){
if(ff07==""){
alert("请输入确认密码！");
return false;
}
if(ff07!=ff01){
alert("确认密码与原密码不一致！");
return false;
}
if(confirm("是否真的要删除这个用户名？")){
return true;
}
else{
return false;
}
}
}
</script>
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor=<%=chatroombgcolor%> background=j09.jpg>
<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=check.asp name=chat onsubmit=return(check())>
<tr>
<td>
<table border=0 bgcolor=#A5C2E0 cellspacing=0 cellpadding=2 width=497>
<tr>
<td width=482 bgcolor=#0066FF background="readonly/title.jpg"><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 bgcolor="FFFFFF">
<tr valign="top">
<td>
<table width="100%" border="0" cellpadding="3">
<tr>
<td align="center" bgcolor="#000000" width="16%"><font color=white>登录窗口</font></td>
<td width="16%" align="center" bgcolor="#DCD8D0"><a href=loginsm.asp><font color="black">改版说明</font></a></td>
<td width="16%" align="center" bgcolor="#DCD8D0"><a href=logingb.asp><font color=black>请您留言</font></a></td>
<td bgcolor="#DEDBD6" width="16%">
<div align="center"><a href=<%=Application("wsaxhxf_c_bbsurl")%> target="_blank"><font color="red">配套论坛</font></a>
</div>
</td>
<td bgcolor="#FFFFFF"> </td>
</tr>
</table>
<table width="100%" border="1" height="312" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="DCD8D0" cellpadding="5">
<tr valign="middle">
<td>
<table width="100%" border="0">
<tr>
<td align="center">
<p><img src="<%=logo%>"></p>
<p><font color="#FF0000">最佳效果</font></p>
<p> IE4.0以上<br>
800 * 600<br>
小 字 体<br>
16bit彩色</p>
<p>不能关闭浏览器<br>
的 Cookie 功能</p>
<p><font color="#0000FF">首次登录<br>
自动注册<br>
记牢密码</font></p>
</td>
<td align="center">
<table border="0" align="center" cellpadding="5">
<tr align="center">
<td><font color=red><%=opendate%></font> 起第 <font color="#FF0000"><%=visitor%></font>
位访客<br>
来访时间：<font color="#009900"><%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
Response.Write n & "年" & y & "月" & r & "日" & " " & weekdayname(weekday(date())) & " " & s & ":" & f & ":" & m%></font></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="3">
<tr align="center" bgcolor="#009900">
<td colspan="3"><font color="#FFFFFF">登录（称谓可选）</font></td>
</tr>
<tr>
<td>用 户 名:</td>
<td>
<input type="text" name="nickname" maxlength="10" size="12" tabindex="1" style="background-color:EEEEEE">
</td>
<input type="hidden" name="ck">
<td>
<input type="submit" name="enter" value="进 入" tabindex="6">
</td>
</tr>
<tr>
<td>密 码:</td>
<td>
<input type="password" name="password" maxlength="20" size="12" tabindex="2" style="background-color:EEEEEE">
</td>
<td>
<input type="reset" value="重 写" name="reset" tabindex="6">
</td>
</tr>
<tr>
<td>称 谓:</td>
<td>
<select name="select" onchange="javascript:document.forms[0].gender.value=this.value;document.forms[0].gender.focus();" tabindex="3" style="background-color:EEEEEE">
<option value="" selected>自填</option>
<option value="Boy">ＧＧ</option>
<option value="Girl">ＭＭ</option>
</select><input type="text" name="gender" maxlength="4" size="4" tabindex="4" style="background-color:EEEEEE">
</td>
<td>(可选)</td>
</tr>
</table>
<br>
<table border="0" cellpadding="3" cellspacing="0">
<tr align="center" bgcolor="#FF9900">
<td colspan="3"><font color="#FFFFFF">修 改 密 码</font></td>
</tr>
<tr>
<td>新 密 码:</td>
<td>
<input type="password" name="newpass" maxlength="20" size="12" tabindex="7" style="background-color:EEEEEE">
</td>
<td>
<input type="submit" name="enter" value="修 改" tabindex="8">
</td>
</tr>
</table>
<br>
<table border="0" cellpadding="3" cellspacing="0">
<tr align="center" bgcolor="#9999FF">
<td colspan="3"><font color="#FFFFFF">删 除 帐 号</font></td>
</tr>
<tr>
<td>确认密码:</td>
<td>
<input type="password" name="killpass" maxlength="20" size="12" tabindex="9" style="background-color:EEEEEE">
</td>
<td>
<input type="submit" name="enter" value="自 杀" tabindex="10">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width=100% border=0 cellspacing=0>
<tr>
<td>
<input type="text" name="user" readonly value="<%=user%>" size="35" style="background-color:DCD8D0">
</td>
<td>
<input type="text" name="sn" 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.nickname.focus();
</script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -