📄 songsend.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
chatbgcolor=Application("wsaxhxf_c_chatbgcolor")
chatimage=Application("wsaxhxf_c_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
Sub Msg(v)
 Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><body bgcolor=" & chatbgcolor & " text=#000000 background=" & chatimage & ">"
 Response.Write "<script Language=JavaScript>"
 Response.Write "alert('" & v & "');history.go(-1);"
 Response.Write "</script>"
 Response.End
End Sub
hb=Int(Session("hxf_u_hb"))
dghb=Int(Application("wsaxhxf_c_dg"))
useronlinename=Application("wsaxhxf_c_useronlinename")
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" or Session("hxf_u_inthechat")<>"1" or Instr(useronlinename," "&nickname&" ")=0 then Msg "不在聊天室内不能点歌"
if hb < dghb then Msg "您的货币为 " & hb &"￥ 不足 " & dghb & "￥，不能点歌"
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")
songzj = Trim(Request.Form("songzj"))
song = Trim(Request.Form("song"))
online=Split(Trim(useronlinename)," ",-1)
x=UBound(online)
%><html>
<head>
<title>好歌赠好友</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<link rel="stylesheet" href="readonly/style.css">
<script language="JavaScript">
var songzj = "<%=songzj%>";
var song = "<%=song%>";
var songname = song.substring(0, song.length - 4);
function check(){
 if(document.sendsong.songzj.value == "" || document.sendsong.song.value == ""){
  alert("请选择所需曲目。");
  return false;
 }
 if(document.sendsong.towho.value == ""){
  alert("请指定发送对象。");
  return false;
 }
 if(document.sendsong.towho.value == myn){
  alert("不需要给自己点歌。");
  return false;
 }
 if(document.sendsong.zc.value == ""){
  alert("祝词不能为空。");
  return false;
 }
 if(document.sendsong.zc.value.length > 300){
  alert("祝词不能超过 300 个字符。");
  return false;
 }
document.sendsong.send.disabled = 1;
}
</script>
</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 name=songsend method="post" action="songsendok.asp" onsubmit='return(check());'>
<tr> 
<td>
<input type="hidden" name="songzj" value="<%=songzj%>">
<input type="hidden" name="song" value="<%=song%>">
<p><font color="#FFFF00">选择曲目：</font><br>
曲目：<br>
<script>
document.write("<input type=text name=qm size=14 value=" + songname + " readonly>");
</script>
</p>
<p><font color="#FFFF00">选择好友：</font><br>
<select name="towho" style="font-size:9pt"><%for i=0 to x%>
<option value="<%=online(i)%>"<%if CStr(online(i))=CStr(nickname) then response.write " selected"%>><%=online(i)%></option>
<%next%></select>
</p>
<p> <font color="#FFFF00">祝福话语：</font><br>
<script>
document.write("<textarea name=zc cols=13 rows=8>谨以《" + songname + "》来表达我对你的祝福</textarea>");
</script>
<p>注：%%代表歌名
<br>
点歌需要花费 <%=Application("wsaxhxf_c_dg")%>￥
</p>
<table border="0">
<tr>
<td>
<input type="submit" name="send" value="发送">
<input type="button" name="abort" value="放弃" onClick="javascript:history.go(-1)">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</body>
</html>
⌨️ 快捷键说明

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