⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 playsong.asp

📁 基于ASP开发的聊天室源码
💻 ASP
字号:
🔍 
<%if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"%>
<!--#INCLUDE FILE="function.asp" -->
<%
if Request("how")<>"self" then
 songurl="song/" & Request.Form("songkind") & "/" & Request.Form("typelist") & "/" & Request.Form("namelist")
else
 songurl=Request("songurl")
end if
songurl=Replace(songurl,"'","")
songurl=Replace(songurl,chr(34),"")
songurl=Replace(songurl,"script","")
if Request("who")="my" then
  myloop=Request("myloop")
 %>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>聊天室在线点歌</title>
</head>
<body topmargin="0" leftmargin="0" style="border: 1px double buttonface">
<%if Request.Form("who")<>"" then
if Request.Form("how")<>"self" then%>
<script>
parent.hang=parent.hang+1
parent.l3.allsay.hang.value=parent.hang;
parent.r1.songs.B1.disabled=1;
if(parent.fpmode==1)
{parent.l4.document.write("[下载]开始下载音乐文件<font color=#ff6600>“<%=Request.Form("namelist")%>”</font>......<font style='font-size: 8pt' color='#808080'>("+parent.timev+")</font><br>");}
else
{parent.l2.document.write("[下载]开始下载音乐文件<font color=#ff6600>“<%=Request.Form("namelist")%>”</font>......<font style='font-size: 8pt' color='#808080'>("+parent.timev+")</font><br>");}
</script>
<%else%>
<script>
parent.hang=parent.hang+1
parent.l3.allsay.hang.value=parent.hang;
parent.r1.songs.B1.disabled=1;
if(parent.fpmode==1)
{parent.l4.document.write("[下载]正在从以下位置下载音乐文件<font color=#ff6600>“<%=songurl%>”</font>......<font style='font-size: 8pt' color='#808080'>("+parent.timev+")</font><br>");}
else
{parent.l2.document.write("[下载]正在从以下位置下载音乐文件<font color=#ff6600>“<%=songurl%>”</font>......<font style='font-size: 8pt' color='#808080'>("+parent.timev+")</font><br>");}
</script>
<%end if
end if%>
<object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" id="MediaPlayer1" width="160" height="40" border="0">
  <param name="AudioStream" value="-1">
  <param name="AutoSize" value="0">
  <param name="AutoStart" value="-1">
  <param name="AnimationAtStart" value="-1">
  <param name="AllowScan" value="-1">
  <param name="AllowChangeDisplaySize" value="-1">
  <param name="AutoRewind" value="0">
  <param name="Balance" value="0">
  <param name="BaseURL" value>
  <param name="BufferingTime" value="5">
  <param name="CaptioningID" value>
  <param name="ClickToPlay" value="-1">
  <param name="CursorType" value="0">
  <param name="CurrentPosition" value="-1">
  <param name="CurrentMarker" value="0">
  <param name="DefaultFrame" value>
  <param name="DisplayBackColor" value="0">
  <param name="DisplayForeColor" value="16777215">
  <param name="DisplayMode" value="0">
  <param name="DisplaySize" value="-1">
  <param name="Enabled" value="-1">
  <param name="EnableContextMenu" value="-1">
  <param name="EnablePositionControls" value="-1">
  <param name="EnableFullScreenControls" value="0">
  <param name="EnableTracker" value="-1">
  <param name="FileName" value="<%=songurl%>">
  <param name="InvokeURLs" value="-1">
  <param name="Language" value="-1">
  <param name="Mute" value="0">
  <param name="PlayCount" value="<%=myloop%>">
  <param name="PreviewMode" value="0">
  <param name="Rate" value="1">
  <param name="SAMILang" value>
  <param name="SAMIStyle" value>
  <param name="SAMIFileName" value>
  <param name="SelectionStart" value="-1">
  <param name="SelectionEnd" value="-1">
  <param name="SendOpenStateChangeEvents" value="-1">
  <param name="SendWarningEvents" value="-1">
  <param name="SendErrorEvents" value="-1">
  <param name="SendKeyboardEvents" value="0">
  <param name="SendMouseClickEvents" value="0">
  <param name="SendMouseMoveEvents" value="0">
  <param name="SendPlayStateChangeEvents" value="-1">
  <param name="ShowCaptioning" value="0">
  <param name="ShowControls" value="-1">
  <param name="ShowAudioControls" value="-1">
  <param name="ShowDisplay" value="0">
  <param name="ShowGotoBar" value="0">
  <param name="ShowPositionControls" value="0">
  <param name="ShowStatusBar" value="0">
  <param name="ShowTracker" value="-1">
  <param name="TransparentAtStart" value="0">
  <param name="VideoBorderWidth" value="0">
  <param name="VideoBorderColor" value="0">
  <param name="VideoBorder3D" value="0">
  <param name="Volume" value="0">
  <param name="WindowlessVideo" value="0">
</object>
</body></html>
<%
else
If DateDiff("s",info(9),now) < 3 Then
  info(9)=now
  Session("info")=info
  Response.Write "<script language='javascript'>alert('服务器忙！请3秒钟后重新进行操作！');</script>"
  Response.End
End If
info(9)=now
 he_name=Trim(Request.Form("hename"))
 he_name=Replace(he_name,"|","")
 he_name=Replace(he_name,"'","")
 he_name=Replace(he_name,chr(34),"")
 he_name=Replace(he_name," ","")
 If he_name=info(0) Then 
 Response.Write "<Script Language='JavaScript'>alert('不能为自己点歌！');</Script>"
 Response.End
 End If
 If InStr(Application("zzbird_name_" & info(7)),"," & he_name & ",")=0 Then
 Response.Write "<Script Language='JavaScript'>alert('您所点歌的对象不在本房间或不在聊天室内，无法对其点歌。');</Script>"
 Response.End
 End If
 w1=info(0)
if Request.Form("how")<>"self" then
 a_typelist = Request.Form("typelist")
 a_typelist = Replace(a_typelist,"|","")
 a_typelist = Replace(a_typelist,"'","")
 a_typelist = Replace(a_typelist,chr(34),"")
 a_namelist = Request.Form("namelist")
 a_namelist = Replace(a_namelist,"|","")
 a_namelist = Replace(a_namelist,"'","")
 a_namelist = Replace(a_namelist,chr(34),"")
 w2=he_name & "|" & a_typelist & "|" & a_namelist & "|" & CStr(time)
 w3="selesong"
else
 w2=he_name & "|" & CStr(time)
 w3="selfsong"
end if
 w4=songurl
 w5=info(6)
saveword w1,w2,w3,w4,w5
newsay=Application("zzbird_words")
nowline=info(8)
dim show()
Redim Preserve show(0)
j=1
newline=0
for i=1 to 240 step 6
 newline=newsay(i)
 if newline>nowline and newline>0 and not (newsay(i+3)="onlysay" and newsay(i+2)<>info(0) and newsay(i+1)<>info(0) or newsay(i+3)="callyou" and instr(newsay(i+2),info(0)&"|")<>1) then
  Redim Preserve show(j+4)
  show(j)=newsay(i+1)
  show(j+1)=newsay(i+2)
  show(j+2)=newsay(i+3)
  show(j+3)=newsay(i+4)
  show(j+4)=newsay(i+5)
  j=j+5
 end if
next
Response.Write "<script Language=JavaScript>"
for i=1 to UBound(show) step 5
Response.Write "parent.w(" & chr(34) & show(i) & chr(34) & "," & chr(34) & show(i+1) & chr(34) & "," & chr(34) & show(i+2) & chr(34) & "," & chr(34) & show(i+3) & chr(34) & "," & chr(34) & show(i+4) & chr(34) & ");" & chr(13) & chr(10)
next
Response.Write "</script>"
if newline>nowline then info(8)=newline
Session("info")=info%>
<script language="javascript">parent.r1.songs.B1.disabled=1;</script>
<%
end if
%>

⌨️ 快捷键说明

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