📄 left.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<%
Response.Buffer=true
Response.Expires=0
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
online=Application("onlinelist")
online=split(online," ")
%>
<%
if request("action")="look" then
name=request("name")
set rs=conn.execute("select sex,qq,email,face,admin from [user] where name='"&name&"'")
if rs(4)=True then
leav="管理员"
else
leav="普通会员"
end if
saystr="parent.getmsg('"&session("netname")&"','大家','对','<br>用户等级："&leav&"<br>用 户 名："&name&"<br>性 别："&rs(0)&"<br>QQ 号码："&rs(1)&"<br>E-mail："&rs(2)&"<br>头 像：<img src="&rs(3)&">','0','AA00CC','AA00CC','1','"&time()&"','0','1'); "
rs.close
set rs=nothing
Application.Lock
sd=Application("chat_sd")
line=int(Application("chat_line"))
Application("chat_line")=line+1
Dim newsd(50)
j=1
for i=3 to 50 step 2
newsd(j)=sd(i)
newsd(j+1)=sd(i+1)
j=j+2
next
newsd(49)=line+1
newsd(50)=SayStr
Application("chat_sd")=newsd
Application.UnLock
response.redirect "left.asp"
end if
%>
<meta http-equiv="refresh" content="15">
<script language=javascript>
function no_newwin(){
if((event.ctrlKey)&&(event.keyCode==78)){
event.keyCode=0;
event.returnValue=false;
}
}
function click()
{
return false;
}
document.oncontextmenu=click;
document.onmousemove=click;
document.ondragstart=doDragStart
function doDragStart() {event.returnValue=false}
var winbgcolor = parent.cbg();
var winbgimage = parent.cbi();
document.writeln("<body bgcolor=" + winbgcolor + " background=" + winbgimage + " bgproperties=fixed>");
</script>
<style type="text/css">A:visited{TEXT-DECORATION: none;Color:#000000}A:active{TEXT-DECORATION: none;Color:#000000}A:hover{TEXT-DECORATION: underline;Color:#000000}A:link{text-decoration: none;Color:#000000}BODY{FONT-FAMILY: "宋体"; FONT-SIZE: 12px;}</style>
当前在线( <%=ubound(online)%> )人<br><br>
<a href=javascript:parent.seluser('大家'); target=f2>大家</a><br><br>
<%
for i=lbound(online) to ubound(online)-1
set rs=conn.execute("select admin from [user] where name='"&online(i)&"'")
if rs.eof and rs.bof then
Application.lock
Application("onlinelist")=replace(Application("onlinelist"),online(i)&" ","")
Application.Unlock
elseif rs(0)=True then
%>
<a href="javascript:parent.seluser('<%=online(i)%>');" target="f2" onclick="javascript:window.location='left.asp?action=look&name=<%=online(i)%>';""><font color="#ff0000"><%=online(i)%></font></a><br><br>
<%elseif rs(0)=False then%>
<a href="javascript:parent.seluser('<%=online(i)%>');" target="f2" onclick="javascript:window.location='left.asp?action=look&name=<%=online(i)%>';"><%=online(i)%></a><br><br>
<%
end if
rs.close
set rs=nothing
next
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -