📄 music_disp.asp
字号:
<!--#include file=INC/skin.asp-->
<%
'on error resume next
dim const_txl_HomeUrl
const_txl_HomeUrl=""
Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
Private Function bytes2BSTR(vIn)
Dim i, ThischrCode, NextchrCode,strReturn
strReturn = ""
For i = 1 To LenB(vIn)
ThischrCode = AscB(MidB(vIn, i, 1))
If ThischrCode < &H80 Then
strReturn = strReturn & Chr(ThischrCode)
Else
NextchrCode = AscB(MidB(vIn, i + 1, 1))
strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function GetURL(url)
dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
GetURL = bytes2BSTR(.Responsebody)
End With
Set Retrieval = Nothing
End Function
Dim singer,id,key,no,size,gs,xy,sd,Url,wzdir,basefilename
singer=Request("singer")
id=Request("id")
key=Request("key")
no=Request("no")
size=Request("size")
gs=Request("gs")
xy=Request("xy")
sd=Request("sd")
Url=url&"&no="&Request("no")&"&key="&Request("key")
wzdir="http://search.sogua.com/search/"
basefilename="view.asp?action=like_search&no="&no&"&key="&key&"&id="&id
response.flush
if Not Response.isClientConnected then
response.end
end if
dim fname,alltext,web_start,url_start,url_end,url_url,Sourcecode
fname=wzdir&basefilename&id
alltext=getURL(fname)
web_start=inStr(1,alltext,"images/view/top.gif")
url_start=inStr(web_start,alltext,"><a href=")
url_end=inStr(web_start,alltext,"><b><font")
url_url=mid(alltext,url_start+10,url_end-url_start-11)
Sourcecode=url_url
response.flush
%>
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=gb2312" charset=gb2312>
<title>歌曲《<%=id%>》试听及下载</title>
<STYLE type=text/css>BODY{FONT-SIZE: 9pt }TR{FONT-SIZE: 9pt }TD{FONT-SIZE: 9pt }A:link{COLOR: #000000; TEXT-DECORATION: none }A:visited{COLOR: #000000; TEXT-DECORATION: none }A:active{COLOR: #000000; TEXT-DECORATION: none }A:hover{COLOR: #000000; TEXT-DECORATION: underline }</STYLE>
</head>
<body topmargin=0 leftmargin=0>
<table border="0" width="471" cellspacing="0" cellpadding="0">
<tr>
<td width="471" colspan="3" align="center"><br>
歌曲名字：<%=id%> 歌手：<%=singer%><br>
<br>
下载地址：<a href="<%=sourcecode%>" target="_blank"><%=sourcecode%></a><br>
<br>
<br>
</td>
</tr>
<tr>
<td width="75" align="center"> </td>
<td width="320">
<%if gs="rm" or gs="ram" then%>
<object id=video1 classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" height=68 width=100% >
<param name="controls" value="StatusBar,ControlPanel">
<param name="console" value="Clip1">
<param name="autostart" value="-1">
<param name="src" value="<%=sourcecode%>">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="-1">
<param name="NOLABELS" value="0">
<param name="LOOP" value="0">
<param name="NUMLOOP" value="0">
<param name="CENTER" value="0">
<param name="MAINTAINASPECT" value="0">
<param name="BACKGROUNDCOLOR" value="#000000">
<embed src="<%=sourcecode%>" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar" height=68 width=100% autostart=true>
</embed></object>
<%else%>
<object id="Player2" type="application/x-oleobject" height="68" standby="Loading Windows Media Player components..." width="100%" border="0" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" name="Player">
<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="10">
<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.023381">
<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="4">
<param NAME="Enabled" VALUE="-1">
<param NAME="EnableContextMenu" VALUE="0">
<param NAME="EnablePositionControls" VALUE="-1">
<param NAME="EnableFullScreenControls" VALUE="0">
<param NAME="EnableTracker" VALUE="-1">
<param NAME="Filename" VALUE="<%=sourcecode%>">
<param NAME="InvokeURLs" VALUE="-1">
<param NAME="Language" VALUE="-1">
<param NAME="Mute" VALUE="0">
<param NAME="PlayCount" VALUE="0">
<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="0">
<param NAME="SelectionEnd" VALUE="261.302">
<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="-1">
<param NAME="ShowStatusBar" VALUE="-1">
<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">
<embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/default.asp" Name="Player" width="300" height="66" border="0" SHOWSTATUSBAR="-1" SHOWCONTROLS="0" SHOWGOTOBAR="0" SHOWDISPLAY="-1" INVOKEURLS="-1" AUTOSTART="1" CLICKTOPLAY="0" DisplayForeColor="12945678"></embed>
</object>
<% end if%>
</td>
<td width="76"> </td>
</tr>
</table>
<br>
<br>
<br>
<%
call web_end2
function web_end2
Response.Write "<a name=bottom></a>"&vbcrlf
Response.Write "<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center' bgcolor='#ffffff'>"&vbcrlf
Response.Write " <tr>"&vbcrlf
Response.Write " <td height=8 background='"&const_txl_HomeUrl&"images/nevb.gif'></td>"&vbcrlf
Response.Write " </tr>"&vbcrlf
Response.Write " <tr>"&vbcrlf
Response.Write " <td style='border:#e6e6e6 1px solid;font-size:12px;text-align:center;line-height:1.8;'>"&vbcrlf
Response.Write const_copyright&vbcrlf
Response.Write "<br>"&vbcrlf
Response.Write " Copyright ©2003 <a href='http://www.81238.net' target='_blank'><font face=Verdana, Arial, Helvetica, sans-serif style=font-size:10px><b>葛洲坝高级中学<font color=#CC0000>2003届2班</font></b></font></a> Powered by ：<a href=http://www.81238.net/class2 target=_blank title='Wap影音'><font color=gray style='text-DECORATION: none'> V2.0</font></a>"&vbcrlf
Response.Write " 页面执行时间:" & fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)) & "ms"&vbcrlf
Response.Write " </td>"&vbcrlf
Response.Write " </tr>"&vbcrlf
Response.Write "</table>"&vbcrlf
Response.Write "</BODY>"&vbcrlf
Response.Write "</HTML>"&vbcrlf
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -