📄 ss.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本
💻 ASP
字号:
<%@ 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
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
towho=Server.HTMLEncode(Trim(Request.Form("towho")))
songzj=Request.Form("songzj")
song=Request.Form("song")
info=Request.Form("info")
info=Server.HTMLEncode(Replace(info,"%%",left(song,len(song)-4)))
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & sername & Left(scrname,(len(scrname)-6)) & "mid/" & songzj & "/" & song
linkurl2="http://" & sername & Left(scrname,(len(scrname)-6)) & "mid/" & songzj & "/" & Server.URLEncode(song)
zx=0
online=Application("a_c_user_online")
for i=1 to Application("a_c_user_inthechat")*4 step 4
 if towho=online(i) then
  zx=1
  exit for
 end if
next
if zx=0 then towho=""
if towho<>"" then
Application.Lock
icqdata=Application("a_c_icq_data")
icqline=Application("a_c_icq_line")
Dim newdata()
Redim Preserve newdata(1),newdata(2),newdata(3),newdata(4)
newdata(1)=towho
newdata(2)=username
newdata(3)=sj
newdata(4)="<div align=center><a href=" & linkurl & ">[IE4]收听</a>　<a href=" & linkurl2 & ">[IE5]收听</a></div>" & info
Application("a_c_icq_line")=Application("a_c_icq_line")+4
for i=1 to icqline step 4
 Redim Preserve newdata(i+4),newdata(i+5),newdata(i+6),newdata(i+7)
 newdata(i+4)=icqdata(i)
 newdata(i+5)=icqdata(i+1)
 newdata(i+6)=icqdata(i+2)
 newdata(i+7)=icqdata(i+3)
next
Application("a_c_icq_data")=newdata
Application.Unlock
end if%><html>
<head>
<title>好歌赠好友</title>
<meta http-equiv="refresh" content="100;URL=f3.asp">
<style type='text/css'>
<!--
body {line-height:150%;font-size:12pt;}
td {line-height:150%;font-size:9pt;}
.p9 {line-height:150%;font-size:9pt;}
A {color:white;text-decoration:none;}
A:Hover {color:black;text-decoration:none;}
A:Active {color:black}
-->
</style>
</head>
<body bgcolor="008888" background="read/bg.gif" bgproperties="fixed" style="margin-left: 10px; margin-right: 5px; margin-top: 10px" text="#FFFFFF">
<div align="center"><font color="#FFFFFF" style="font-size:10.5pt"><%=Application("a_c_chatroom_name")%></font></div>
<center>
<hr size=1 color=FFFF00>
<font color="#FFFF00">好歌赠好友</font>
<form method="post" action="ss.asp" name="">
<table border="0" width="100%">
<tr> 
<td>
<%if zx=1 then%><p>您刚才选择的歌曲已经发送给您的朋友了！但愿他(她)能喜欢你的礼物！</p>
<%else%><p>您的朋友现在不在线，无法将歌曲发给出，请等他(她)回来时再发！</p><%end if%>
<p><span class="p9">
<input type="button" name="abort" value="返回" style="font-size:9pt" onclick="javascript:history.go(-1)">
</span></p>
</td>
</tr>
</table>
</form>
<br>
</center>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -