📄 wangluomeiti.asp
字号:
<!--#include file="abc/As_conn.asp"-->
<!--#include file="abc/x.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网络媒体——〖阿赛〗</title>
<style type="text/css">
<!--
body {
margin:0px; scrollbar-face-color: #FFC4B0;
scrollbar-highlight-color: #FFC4B0;
scrollbar-shadow-color: #FF7142;
scrollbar-3dlight-color: #FF7142;
scrollbar-arrow-color: #FF7142;
scrollbar-darkshadow-color:#FFC4B0;
background-image: url('img/bg3.gif');
background-position:
center 50%;
}
body, td, th {
font-size: 12px;
color: #FF7142;
font-family: 宋体;
}
a {
font-family: 宋体;
font-size: 12px;
}
a:link {
text-decoration: none;
color: #FF7142;
}
a:visited {
text-decoration: none;
color: #FF7142;
}
a:hover {
text-decoration: none;
color: #FFB59D;
}
a:active {
text-decoration: none;
color: #FFB59D;
}
h1, h2, h3, h4, h5, h6 {
font-family: 宋体;
}
-->
</style>
</head>
<body>
<script language="JavaScript" type="text/JavaScript">
function fullscreen()
{
if(!document.rmplay.CanStop())
{
alert("影片未开始播放，无法切换为全屏模式")
}
else
{
document.rmplay.SetFullScreen()
}
}
</script>
<table width="495" height="300" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="495" height="83" align="center" valign="top"><table width="98%" height="196" border="0" cellpadding="0" cellspacing="0">
<tr><td>
<table id="bj" width="486" border="0" cellspacing="0" cellpadding="0" height="200">
<tr><td>
<!--#include file="abc/f.asp"-->
</td>
</tr></table>
<!--#include file="abc/t.asp"-->
</td></tr>
</table>
</td></tr>
<tr><td><p align="center"><!--#include file="abc/m.asp"--></td></tr>
<tr><td><div align="center"></div></td></tr>
<tr><td></td></tr>
<tr><td height="245" valign="top">
<table width="463" border="0" height="74%" align="center" cellpadding="0" cellspacing="0">
<tr><td height='245' valign='top' background="img/bg33.gif">
<%
dim pag,cc,id
id=request("id")
cc=28
pag=request("pag")
if pag="" then pag=0
call ConnectionDatabase
if id <>"" then
set Rs=GrateRs("select * from Asai_ZADG where id="&id,1)
response.write("<a href='WangluoMeiti.asp?id="&id-1&"'>上一个</a> <a href=WangluoMeiti.asp>主目录</a> <a href='WangluoMeiti.asp?id="&id+1&"'>下一个</a><br>")
if Rs.eof then
response.Write("没有该页媒体...")
else
response.Write("<div align=center><a href="&Rs("url")&" title=左键单击下载...>"&Rs("title")&"</a></div><br>")
response.Write("<strong>阿赛点评:</strong><br><br>"&ReplStr(Rs("content"))&"<br><br>")
response.Write("<strong>内容介绍:</strong><br><br><div>"&ReplStr(Rs("Lyric"))&"</div><br>")
%>
<div align=center>
<%
if FoundErr<>True then
if rs("filetype")=0 then%>
<object id=nstv classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6
width=280 height=60
codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=Loading Microsoft? Windows Media? Player components...
type=application/x-oleobject>
<param name=URL value="<%=Rs("url")%>">
<PARAM NAME=UIMode value=full><PARAM NAME=AutoStart value=true>
<PARAM NAME=Enabled value=true>
<PARAM NAME=enableContextMenu value=false>
</object>
<% end if
if rs("filetype")=1 then %>
<object id="video2" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" height="330" width="400" name="rmplay">
<param name="_ExtentX" value="10583">
<param name="_ExtentY" value="8731">
<param name="AUTOSTART" value="0">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="SRC" value="<%=Rs("url")%>">
<param name="CONTROLS" value="ImageWindow">
<param name="CONSOLE" value="Clip2">
<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="4.rpm" width="400" height="330" autostart="false" type="audio/x-pn-realaudio-plugin" console="Clip1" name="rmplay"></embed>
</object>
<object ID="video1" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" HEIGHT="40" WIDTH="400">
<param name="_ExtentX" value="10583">
<param name="_ExtentY" value="1058">
<param name="AUTOSTART" value="0">
<param name="SHUFFLE" value="0">
<param name="PREFETCH" value="0">
<param name="NOLABELS" value="0">
<param name="CONTROLS" value="ControlPanel,StatusBar">
<param name="CONSOLE" value="Clip2">
<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 type="audio/x-pn-realaudio-plugin" CONSOLE="Clip1" CONTROLS="ControlPanel,StatusBar" HEIGHT="50" WIDTH="213" AUTOSTART="false">
</object>
<br><font color="#FFFFFF"><INPUT onclick=javascript:fullscreen() type=button value=全屏播放></font>
<% end if
if rs("filetype")=2 then %>
<object classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" name=WindowsMediaPlayer1 id=WindowsMediaPlayer1 v:shapes="_x0000_s1026" class=shape width=480 height=395>
<param name=URL value="<%=Rs("url")%>">
<param name=rate value=1>
<param name=balance value=0>
<param name=currentPosition value=0>
<param name=defaultFrame value="">
<param name=playCount value=1>
<param name=autoStart value=0>
<param name=currentMarker value=0>
<param name=invokeURLs value=-1>
<param name=baseURL value="">
<param name=volume value=50>
<param name=mute value=0>
<param name=uiMode value=full>
<param name=stretchToFit value=0>
<param name=windowlessVideo value=0>
<param name=enabled value=-1>
<param name=enableContextMenu value=-1>
<param name=fullScreen value=0>
<param name=SAMIStyle value="">
<param name=SAMILang value="">
<param name=SAMIFilename value="">
<param name=captioningID value="">
<param name=enableErrorDialogs value=0>
<param name="_cx" value=6482>
<param name="_cy" value=6350>
</object>
<% end if
if rs("filetype")=3 then%>
<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=480 height=400>
<PARAM NAME=movie VALUE="<%=Rs("url")%>">
<PARAM NAME=quality VALUE=high>
<embed src="<%=Rs("url")%>" quality=high pluginspage='<img align=absmiddle src=images/url.gif border=0>
<a target=_blank href=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' width="723" height="625">http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'</a> type='application/x-shockwave-flash' width=213 height=184><%=Rs("url")%></embed>
</OBJECT>
<a href=<%=Rs("url")%> >[全屏<IMG SRC=images/S/swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>欣赏]</a>
<% end if
else
response.write "<img src='" & rs("url") & "' border=0 width=150 height=113>"
end if%>
</div>
<%
end if
else
response.Write("<div align=center>目 录</div><br>")
set Rs=GrateRs("select * from Asai_ZADG",1)
if not Rs.eof then Rs.movelast
for i = 1 to pag*cc
Rs.moveprevious
if Rs.eof then exit for
next
do while not Rs.bof
if Rs("filetype")=0 then
response.write" 〖音乐推荐〗 "
response.Write(" <a href=WangluoMeiti.asp?id="&Rs("id")&" target='_blank'>"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
else
if Rs("filetype")=1 then
response.write" 【ＲＭ影音】 "
response.Write(" <a href=WangluoMeiti.asp?id="&Rs("id")&" target='_blank'>"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
else
if Rs("filetype")=2 then
response.write" 【Ｗ Ｍ Ａ】 "
response.Write(" <a href=WangluoMeiti.asp?id="&Rs("id")&" target='_blank'>"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
else
response.write" 〖动画欣赏〗 "
response.Write(" <a href=WangluoMeiti.asp?id="&Rs("id")&" target='_blank'>"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
end if
end if
end if
loop
for j = 1 to cc-i
response.Write("<br>")
next
response.write("<div align=right>共"&int(Rs.recordcount/cc)+1&"页,第"&pag+1&"页 ")
response.write("<a href=WangluoMeiti.asp?pag=0>第一页</a> ")
if not pag=0 then
response.write("<a href=WangluoMeiti.asp?pag="&pag-1&">上一页</a> ")
else
response.write("上一页 ")
end if
if not Rs.bof then
response.write("<a href=WangluoMeiti.asp?pag="&pag+1&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write("<a href=WangluoMeiti.asp?pag="&int(Rs.recordcount/cc)&">最后一页</a> </div>")
end if
call DBConnEnd
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="18" align="center">
<script language=javascript src=abc/As_Count.Asp?AsaiTj=2></script><br><!--#include file="abc/zx.asp"-->
</td>
</tr>
<tr>
<td height="33" align="center"><img src="images/X/dyy.gif" width="495" height="50"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -