📄 content.asp
字号:
<!--#INCLUDE FILE="inc_config.asp"-->
<!--#INCLUDE FILE="inc_dbconn.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 bgcolor="<%=m_bg2%>" text="<%=m_text2%>">
<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 bgcolor="<%=m_bg2%>" text="<%=m_text2%>">
<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=content.asp<%if r_refresh="down" then%>#dian<%end if%>'>
<style type="text/css">
<!--
body { font-size: 10.4pt ; line-height:16pt ; background-color: <%=m_bg%>}
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,1)="/" and replace(inpm," ","")=inpm and len(inpm)<10 and session("userlevel")>3 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
if tietu<>"" then
tietu="<img src='images/"&tietu&"'>"
else
tietu=""
end if
if zixiao="1" then inpm="<b>"&inpm&"</b>"
if zixiao="2" then inpm="<i>"&inpm&"</i>"
if zixiao="3" then inpm="<font size=-1>"&inpm&"</font>"
if zixiao="4" then inpm="<big><big>"&inpm&"</big></big>"
if zixiao="5" then inpm="<marquee border='0' width='70%'>"&inpm&"</marquee>"
if zixiao="6" then inpm="<marquee direction='right' border='0' width='70%'>"&inpm&"</marquee>"
if zixiao="7" then inpm="<marquee behavior='alternate' border='0' width='70%'>"&inpm&"</marquee>"
if zixiao="8" then inpm="<u>"&inpm&"</u>"
'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("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
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")))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -