📄 songsendok.asp
字号:
<%@ LANGUAGE=VBScript.Encode%>
<!--#include file="../config/config.asp"-->
<%Response.Expires=0
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=s & ":" & f & ":" & m
sj2=n & "-" & y & "-" & r & " " & sj
if DateDiff("s",Session("hxf_u_lasttime"),sj2)<60 then
Response.Write "<script language=JavaScript>{alert('送出去的歌还没听完呢，请等待1分钟再发！');(location.href = 'javascript:history.back()')}</script>"
Response.End
end if
Session("hxf_u_lasttime")=sj2
useronlinename=Application("hxf_c_useronlinename")
nickname=Session("hxf_u_nickname")
if nickname="" or Session("hxf_u_inthechat")<>"1" or Instr(useronlinename," "&nickname&" ")=0 then Response.Redirect "chaterr.asp?id=001"
towho=Trim(Request.Form("towho"))
if Instr(useronlinename," "&towho&" ")=0 then Response.Redirect "error.asp?id=410&name=" & server.URLEncode(towho)
songzj=Request.Form("songzj")
song=Request.Form("song")
info=Left(Trim(Request.Form("info")),100)
info=Server.HTMLEncode(Replace(info,"%%",left(song,len(song)-4)))
linkurl="mid/" & songzj & "/" & song
linkurl2="mid/" & songzj & "/" & Server.URLEncode(song)
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("hxf_u_lasttime")=sj
wbq=Application("hxf_c_webicq")
wbqub=UBound(wbq)
if wbqub>0 then
Dim wbqnew()
j=1
for i=1 to wbqub step 4
if DateDiff("n",wbq(i),sj)<=10 then
Redim Preserve wbqnew(j),wbqnew(j+1),wbqnew(j+2),wbqnew(j+3)
wbqnew(j)=wbq(i)
wbqnew(j+1)=wbq(i+1)
wbqnew(j+2)=wbq(i+2)
wbqnew(j+3)=wbq(i+3)
j=j+4
end if
next
if j>=4 then
wbq=wbqnew
else
Dim wbqnull(0)
wbq=wbqnull
end if
wbqub=UBound(wbq)
end if
Redim Preserve wbq(wbqub+1),wbq(wbqub+2),wbq(wbqub+3),wbq(wbqub+4)
wbq(wbqub+1)=sj
wbq(wbqub+2)=towho
wbq(wbqub+3)=nickname
wbq(wbqub+4)="<div align=center><a href=" & linkurl & ">[IE4]收听</a> <a href=" & linkurl2 & ">[IE5]收听</a></div>" & info
wbqub=wbqub+4
webicqname=""
for i=1 to wbqub step 4
webicqname=webicqname & " " & wbq(i+1)
next
webicqname=webicqname&" "
Application.Lock
Application("hxf_c_webicq")=wbq
Application("hxf_c_webicqname")=webicqname
Application.UnLock
%><html>
<head>
<title>好歌赠好友</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<script language="javaScript">
function gozj(){url="songsend.asp?zj="+document.forms[0].songzj.options[document.forms[0].songzj.selectedIndex].value;window.location.href=url;}
</script>
<link rel="stylesheet" href="readonly/style.css">
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="<%=chatimage%>" bgproperties="fixed" text="#FFFFFF">
<div align="center"><font color="#FFFF00" style="font-size:12pt">发送完毕</font></div>
<hr size=1 color=FFFF00><br>
<table border="0" width="100%">
<form>
<tr>
<td>
<p>已经将：</p><p><font color=FFFF00><%=left(song,len(song)-4)%></font></p><p>发送给：</p><p><font color=FFFF00><%=towho%></font></p>
<p>祝福话语：</p><p><font color=FFFF00><%=info%></font></p>
<table border="0">
<tr>
<td>
<input type="button" name="abort" value="返回" onClick="javascript:history.go(-2)">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -