📄 msg.asp
字号:
<!-- 聊天文字显示区。 -->
<!-- bug是：每次登陆后都提示xx离开聊天室，不知道怎么改， -->
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="conn.asp"-->
<%
response.expires=0
if session("user")<>"" and application("killname")=session("user") then
if application("iskillip")="yes" then
application("killip")=session("ip")
response.cookies("killtime")=now
response.cookies("killtime").expires= date + 30
application("iskillip")=""
end if %>
<html>
<head>
<title>错误</title>
</head>
<body>
<Script LANGUAGE="JavaScript">
<!--
setTimeout('window.parent.close();',3000);
-->
</script>
<br><br><br><center><strong>你被踢出聊天室！三十分钟后再进来!</strong></center>
</body>
</html>
<% response.end
end if
if application("user"&session("id"))<>session("user") then
' response.write application("user"&i)&"<br>"
' response.write session("id")&"<br>"
' response.write session("user")&"<br>" %>
<html>
<head>
<title>错误</title>
</head>
<body>
<br><br><br><center><strong>由于聊天室无法验证您的身份，请按刷新进行再次验证!</strong></center>
</body>
</html>
<% response.end
end if %>
<html>
<head>
<title>聊天室显示区</title>
</head>
<meta http-equiv=refresh content='10;url=msg.asp<%if r_refresh="down" then%>#dian<%end if%>'>
<style type="text/css">
<!--
body { font-size: 10.4pt ; line-height:16pt ; background-color: #CCFFCC}
A:link { text-decoration: none ; color: #0000ff}
A:visited { text-decoration: none ; color: #0000ff}
A:active { text-decoration: underline ; color: #0088ff}
A:hover { text-decoration: underline ; color: #0088ff}
-->
</style>
<script language="JavaScript">
<!--
function selectwho(list)
{
parent.frm_input.document.forms[0].towho.text=list;
parent.frm_input.document.forms[0].towho.value=list;
parent.frm_input.document.forms[0].saystemp.focus();
parent.overselectenable=false;
}
//-->
</script>
</head>
<body topmargin="20">
<%
if trim(request("says"))<>"" and session("user")<>"" then
if session("userlevel")<7 then
inpm=Server.HTMLEncode(trim(request("says")))
else
inpm=trim(request("says"))
end if
if trim(request("fs"))<>"" and session("userlevel")>4 then zixiao=trim(request("fs"))
if trim(request("addsign"))<>"" and session("userlevel")>1 then tuan=Server.HTMLEncode(trim(request("addsign")))
if trim(request("addpic"))<>"" and session("userlevel")>2 then tietu=Server.HTMLEncode(trim(request("addpic")))
if left(inpm,2)="//" and replace(inpm," ","")=inpm and len(inpm)<10 then
set rs=server.createobject("adodb.recordset")
sql="select * from "&dbtable_function&" where "&dbfield_function_cmd&"='"&inpm&"'"
set rs=my_conn.execute(sql)
if not rs.eof then
inpm=rs(dbfield_function_xiang)
systemsay="function"
end if
rs.close
set rs=nothing
my_conn.close
set my_conn=nothing
end if
'addsing=trim(request("addsign")) '##图案
'addsays=trim(request("addsays")) '##表情
'addpic=trim(request("addpic")) '##贴图
'fs=trim(request("fs")) '##字效
'addwordcolor=trim(request("addwordcolor")) '##颜色
'towhoway=trim(request("towhoway")) '##私聊
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("page" & i) = application("page" & i+1)
application("saytime" & i) = application("saytime" & i+1)
next
if systemsay="function" then
application("systemsay" & 40) = "function"
else
application("systemsay" & 40) = ""
end if
systemsay=""
application("me" & 40) = session("user")
application("sexsay" & 40) = session("sex")
application("color" & 40) = Server.HTMLEncode(trim(request("addwordcolor")))
application("showip" & 40) = session("ip")
application("mood" & 40) = Server.HTMLEncode(trim(request("addsays")))
application("to" & 40) = Server.HTMLEncode(trim(request("towho")))
application("siliao" & 40) = trim(request("towhoway"))
application("page" & 40) = inpm
application("saytime" & 40) = time
application.unlock
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -