📄 chat.asp
字号:
<!--#INCLUDE FILE="inc_config.asp"-->
<!--#INCLUDE FILE="inc_dbconn.asp"-->
<% session("ip")=Request.ServerVariables("REMOTE_ADDR")
if application("killip")=session("ip") then %>
<html>
<head>
<title>错误</title>
</head>
<body bgcolor="<%=m_bg2%>" text="<%=m_text2%>">
<Script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 3000);
//-->
</script>
<br><br><br><center><strong>此IP被禁止上聊天室!</strong></center>
</body>
</html>
<% response.end
end if
if request.cookies("killtime")<>"" then
if datediff("s",cdate(request.cookies("killtime")),now())<1800 then %>
<html>
<head>
<title>错误</title>
</head>
<body bgcolor="<%=m_bg2%>" text="<%=m_text2%>">
<Script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();',3000);
//-->
</script>
<br><br><br><center><strong>此机被禁止上聊天室30分钟，请30分钟后再来!</strong></center>
</body>
</html>
<% response.end
end if
end if
g_username=trim(request("l_username"))
g_password=trim(request("l_password"))
response.cookies("cookiesname")=g_username
response.cookies("cookiesname").expires=date+30
set rs=my_conn.execute("select * from "&dbtable_user&" where "&dbfield_user_username&" ='"&g_username&"'")
if rs.eof then
response.redirect "regsiter.asp?f_username="&g_username
response.end
end if
if rs(dbfield_user_password)<>g_password then %>
<html><head><title>错误</title></head>
<body bgcolor="<%=m_bg2%>" text="<%=m_text2%>"><br><br><br><center><strong>密码错误(注意大小写)，请重新登录!<br><br><a href="mailto:<%=r_masteremail%>">找回密码</a><br><br><a href="javascript:history.go(-1);">返回</a></strong></center>
</body></html>
<% response.end
end if
session("oldrate")=rs(dbfield_user_rate)
session("sex")=rs(dbfield_user_sex)
leve=1
if rs(dbfield_user_rate)>level2rate then leve=2
if rs(dbfield_user_rate)>level3rate then leve=3
if rs(dbfield_user_rate)>level4rate then leve=4
if rs(dbfield_user_rate)>level5rate then leve=5
if rs(dbfield_user_rate)>level6rate then leve=6
if rs(dbfield_user_rate)>level7rate then leve=7
if rs(dbfield_user_manager)=1 then leve=8
if rs(dbfield_user_manager)=2 then leve=9
session("userlevel")=leve
session("user")=""
rs.close
set rs=nothing
for i=1 to 100
if application("user"&i)=g_username then
application("haveuser"&i)=1
' application("intime"&i)=now
' application("last"&i)=now
session("id")=i
session("user")=g_username
l=i
end if
next
if application("haveuser"&l)<>1 then
for i = 1 to 100
if application("user"&i) ="" then
session("id")=i
application("intime"&i)=now
application("last"&i)=now
application("userlevel"&i)=session("userlevel")
application("user"&i)=g_username
if session("sex")="girl" then application("sex"&i)="<font color=red>Girl</font>"
if session("sex")="boy" then application("sex"&i)="<font color=blue>Boy</font>"
exit for
end if
if i=100 then %>
<html><head><title>错误</title><meta http-equiv="Refresh" content="3;url=index.asp"></head>
<body bgcolor="<%=m_bg2%>" text="<%=m_text2%>"><br><br><br><center><strong>对不起，为了确保每位聊友都能快速聊天!<br><br>聊天室最多只能容纳100人！请稍后再来!<br><br>三秒钟后转到登录页面!</strong></center>
</body></html>
<% response.end
end if
next
end if
if session("user")="" then
application.lock
for i =1 to 39
application("systemsay" & i) = application("systemsay" & i+1)
application("sexsay" & i) = application("sexsay" & i+1)
application("me" & i) = application("me" & i+1)
application("color" & i) = application("color" & i+1)
application("showip" & i) = application("showip" & i+1)
application("mood" & i) = application("mood" & i+1)
application("to" & i) = application("to" & i+1)
application("siliao" & i) = application("siliao" & i+1)
application("zixiao" & i) = application("zixiao" & i+1)
application("page" & i) = application("page" & i+1)
application("tuan" & i) = application("tuan" & i+1)
application("tietu" & i) = application("tietu" & i+1)
application("saytime" & i) = application("saytime" & i+1)
next
session("user")=g_username
application("systemsay" & 40)="yes"
application("sexsay" & 40)=session("sex")
application("me" & 40)=session("user")
application("color" & 40)="#FF0000"
application("showip" & 40)=session("ip")
application("mood" & 40)=""
application("to" & 40)=""
application("siliao" & 40)=""
application("zixiao" & 40)=""
application("tuan" & 40)=""
application("tietu" & 40)=""
application("saytime" & 40)=time
if request("l_logintype")="" then
randomize
logintype=CStr(Int((8*Rnd)+1))
else
logintype=request("l_logintype")
end if
if logintype="1" then application("page" & 40)=" 骑着一匹赤兔胭脂马，挥舞着青龙焰月刀直奔而来，来到近前飞身从马上跳下，一声断喝：“各位老兄，我到了！”"
if logintype="2" then application("page" & 40)=" 打开宝马车的车门使劲一甩，随后整了整衣服，昂首挺胸地走了进来：“我来啦！”"
if logintype="3" then application("page" & 40)=" 掀开轿帘，脸红得像熟透的苹果*^o^*：“我来了！”"
if logintype="4" then application("page" & 40)=" 哼着小曲，悠闲地踱着方步走了进来。冲着大家招了招手：“我来了！”"
if logintype="5" then application("page" & 40)=" 脸涨得通红，满是汗珠。一边喘着粗气，一边说：“对不起，对不起，我来晚了！”"
if logintype="6" then application("page" & 40)=" 脚踩祥云，头照金光从天而降，“吾来也！”"
if logintype="7" then application("page" & 40)=" 象一只小乌龟慢慢的爬了进来，有气无力的说“我老不死的来了”"
if logintype="8" then application("page" & 40)=" 东看看，西看看，象一只偷油的老鼠。突然大声地叫道:“同志们，我来啦！”"
application.unlock
end if
my_conn.execute "update "&dbtable_user&" set "&dbfield_user_lasttime&" ='"&now()&"',"&dbfield_user_ip&"='"&session("ip")&"' where "&dbfield_user_username&"='"&session("user")&"'"
my_conn.close
set my_conn=nothing
%>
<html>
<head>
<title><%=r_title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/main.css">
</head>
<frameset framespacing="0" border="false" frameborder="0" cols="*,160">
<frameset framespacing="0" border="false" frameborder="0" rows="30,*,90">
<frame name="frm_ad" src="ad.asp" frameborder="0" scrolling="no" noresize>
<frame name="frm_content" src="content.asp<%if r_refresh="down" then%>#dian<%end if%>">
<frame name="frm_input" scrolling="no" src="input.asp" target="frm_content" noresize>
</frameset>
<frameset framespacing="0" border="false" frameborder="0" rows="*,140">
<frame name ="frm_onlineuser" src="onlineuser.asp">
<frame name ="frm_can" src="can.asp">
</frameset>
</frameset>
<noframes>
<body bgcolor="#FFFFFF">
<center>你的浏览器不支持FRAME!</center>
</body>
</noframes>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -