📄 sendsong.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
sj1=n & "-" & y & "-" & r
sj2=s & ":" & f & ":" & m
sj3=sj1 & " " & sj2
Set fs=CreateObject("Scripting.FileSystemObject")
zjpath=Server.Mappath("mid")
zj=Request.QueryString("zj")
songname=Request.QueryString("songname")
songpath=Server.Mappath("mid/"&zj)
online=Application("a_c_user_online")%><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;}
A {color:white;text-decoration:none;}
A:Hover {color:black;text-decoration:none;}
A:Active {color:black}
-->
</style>
<script language="javaScript">
function gozj()
{url="sendsong.asp?zj="+document.forms[0].songzj.options[document.forms[0].songzj.selectedIndex].value
window.location.href=url
}</script>
</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>
<p>选择专辑：<br>
<select name="songzj" style="font-size:9pt" onchange="gozj()"><%Set f=fs.GetFolder(zjpath)
Set fc=f.SubFolders
sss=0
For Each f1 in fc
fn=f1.name
if zj="" and sss=0 then zj=fn
sss=sss+1%><option value="<%=Server.URLEncode(fn)%>" <%if Server.HTMLEncode(zj)=Server.HTMLEncode(fn) then Response.Write " Selected"%>><%=fn%></option>
<%next%></select>
<br>
选择曲目：<br>
<select name="song" style="font-size:9pt"><%Set f=fs.GetFolder(songpath)
Set fc=f.Files
For Each f1 in fc
fn=f1.name%><option value="<%=fn%>"<%if Server.HTMLEncode(fn)=Server.HTMLEncode(songname) then Response.Write " Selected"%>><%=left(fn,(len(fn)-4))%></option>
<%next%></select>
</p>
<p>选择好友：<br>
<select name="towho" style="font-size:9pt">
<%for i=1 to Application("a_c_user_inthechat")*4 step 4%><option value="<%=online(i)%>"<%if online(i)=username then response.write " selected"%>><%=online(i)%></option>
<%next%></select>
<br>
祝福话语：<br>
<input type="text" name="info" size="16" style="font-size:9pt" maxlength="100" value="谨以《%%》表达我的心意……">
<br>
<font color="#000000">注:%%为所点的曲名 </font></p>
<p>
<input type="submit" name="send" value="发送" style="font-size:9pt">
<input type="button" name="abort" value="放弃" style="font-size:9pt" onclick="javascript:self.location.href='song.asp?zj=<%=Server.URLEncode(zj)%>'">
</p>
</td>
</tr>
</table>
</form>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -