f4.asp
来自「聊天室源码呵呵你好用~~~~~~2.0版本」· ASP 代码 · 共 77 行
ASP
77 行
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
username=Session("a_c_user_name")
if username="" or Session("a_c_user_outchat")=1 then
Response.Redirect "close.asp"
end if
songzj=Request.Form("songzj")
song=Request.Form("song")
loopok=Request.Form("loopok")
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & sername & Left(scrname,(len(scrname)-6)) & "mid/" & songzj & "/" & song%><html>
<head>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<title>聊吧功能菜单</title>
<style type='text/css'>
<!--
body {line-height:130%;font-size : 12pt;}
.p12{font-family:"宋体";font-size:12pt;line-height:130%;}
.p9{font-family:"宋体";font-size:9pt;line-height:130%;}
td{font-family:"宋体";font-size:12pt;}
A:link{font-family:"宋体";color:#000000;text-decoration:none}
A:visited{font-family:"宋体";color:#000000;text-decoration:none}
A:hover{color:#FF0000;text-decoration:none;}
A:Active{color:#000000;}
-->
</style>
</head>
<body bgcolor=008888 background="read/bg.gif">
<table border="0" cellpadding="0" height="140" width="115">
<tr valign="middle" align="right">
<td>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#E0E0E0" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="90">
<tr>
<td class="p9">
<div align="center"><a href="f3.asp" onMouseOver="window.status='立即刷新在线名单，默认为每100秒刷新一次。';return true" onMouseOut="window.status='';return true" target='f3' title="立即刷新在线名单">名单</a> <a href="song.asp" target="f3" onMouseOver="window.status='可以自己来欣赏音乐，轻松片刻，也可以为朋友点歌祝福。';return true" onMouseOut="window.status='';return true" title="给自己或朋友点歌">点歌</a></div>
</td>
</tr>
<tr>
<td>
<div align="center" class="p9"><a href="usersave.asp" target="f3" onMouseOver="window.status='立即保存经验值，并将开始统计时间改为当前时刻。';return true" onMouseOut="window.status='';return true" title="保存经验值">存点</a><a href="f3.asp" onMouseOver="window.status='立即刷新在线名单，默认为每100秒刷新一次。';return true" onMouseOut="window.status='';return true" target='f3'></a> <a href="#" onclick="javascript:window.open('send.asp','dxjhqticqsend','Status=no,scrollbars=no,resizable=no,width=240,height=210')" onMouseOver="window.status='给在线聊友发送短消息，唤起对方的注意。';return true" onMouseOut="window.status='';return true" title="给在线聊友发送短消息">呼叫</a></div>
</td>
</tr>
<tr>
<td class="p9">
<div align="center"><a href="f1.asp" onMouseOver="window.status='立即刷新对话区内容，默认为每13秒刷新一次。';return true" onMouseOut="window.status='';return true" target='f1' title="立即刷新对话区">对话</a> <a href="filter.asp" target="f3" onMouseOver="window.status='如果你觉得某人的谈话不适合你，可以将其屏蔽掉。';return true" onMouseOut="window.status='';return true" title="眼不见为净">屏蔽</a></div>
</td>
</tr>
<tr>
<td class="p9">
<div align="center"><a href="speak.asp?page=1" onMouseOver="window.status='如果有什么事，请在留言簿中留言。';return true" onMouseOut="window.status='';return true" target="_blank" title="聊天室留言簿">留言</a> <a href="manage.asp" onMouseOver="window.status='根据你的等级显示你所能使用的管理功能。';return true" onMouseOut="window.status='';return true" title="管理聊天室" target=_blank>管理</a></div>
</td>
</tr>
<tr>
<td class="p9">
<div align="center"><a href="exitchat.asp" onMouseOver="window.status='从在线名单中删除并且关闭窗口，离开聊天室。';return true" onMouseOut="window.status='';return true" title="其实不想走" target=_top>离开聊天室</a></div>
</td>
</tr>
</table>
</td>
</tr>
</table><%if Request.Form("play")="播放" then
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
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
Session("a_c_user_lasttime")=sj%><bgsound src="<%=linkurl%>" loop="<%=loopok%>"><%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?