📄 newhouse_sp.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<%OpenDataConn
Hid=RtnReplaceInt(Trim(request("hId")),0)
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open"select * from newhouse where HID="&HID&"",conn,1,1
housename= Trim(Rs("HouseName"))
movieurl=LCase(Trim(Rs("lpsp")))
if Instr(movieurl,"tv/movie.asp?id=")>0 then
Response.Redirect movieurl
else
%>
<HTML>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=100 cellSpacing=0 cellPadding=0 width=710 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=100%>
<TABLE cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=10 cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD></TD></TR>
<TR>
<TD align="center"><!--spstar--><%if movieurl<>"" then%><%GetMoviePlayType(movieurl)%><%
else%><img src="../img/nosp.jpg" border="0" alt=<%=housename%>无视频文件><%
end if
sub GetMoviePlayType(sMovieUrl)
Dim sFileExt
if IsNull(sMovieUrl) or sMovieUrl="" then Exit sub
if Instr(sMovieUrl,".")>0 then
sMovieUrl=Split(sMovieUrl,".")
sFileExt = sMovieUrl(Ubound(sMovieUrl))
else
sFileExt = sMovieUrl
end if
Select Case Lcase(Trim(sFileExt))
Case "avi", "wav", "asf", "asx", "wpl", "wm", "wmx", "wmd", "wmz", "wma", "wax", "wmv", "wvx", "cda", "mpeg", "mpg", "mpe", "mp2", "mpv2", "mp2v", "mpa", "mp3", "m3u", "mid", "midi", "rmi", "aif", "aifc", "aiff"
%><OBJECT id=MediaPlayer codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=Loading type=application/x-oleobject height=300 width=320 classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT>
<PARAM NAME="URL" value="<%=movieurl%>">
<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="4">
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="-1">
<param name="EnablePositionControls" value="0">
<param name="EnableFullScreenControls" value="0">
<param name="EnableTracker" value="-1">
<param name="InvokeURLs" value="-1">
<param name="Language" value="-1">
<param name="Mute" value="0">
<param name="PlayCount" value="100">
<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="-1">
<param name="ShowStatusBar" value="-1">
<param name="ShowTracker" value="-1">
<param name="TransparentAtStart" value="-1">
<param name="VideoBorderWidth" value="0">
<param name="VideoBorderColor" value="0">
<param name="VideoBorder3D" value="0">
<param name="Volume" value="70">
<param name="WindowlessVideo" value="0">
</OBJECT>
<%
Case "swf"
%><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="337" height="241">
<param name="movie" value="<%=movieurl%>">
<param name="quality" value="high">
<embed src="{%playurl%}" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="337" height="241"></embed>
</object><%
Case Else
%><object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="300" height="220">
<param name="CONTROLS" value="ImageWindow">
<param name="CONSOLE" value="Clip1">
<param name="AUTOSTART" value="-1">
<param name="src" value="<%=movieurl%>">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<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">
</object>
<br>
<object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="300" height="60">
<param name="CONTROLS" value="ControlPanel,StatusBar">
<param name="CONSOLE" value="Clip1">
<param name="AUTOSTART" value="0">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<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">
</object><%
End Select
End sub
%><!--spend-->
</TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
end if%>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -