📄 music.asp
字号:
<!--#include file="conn.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: 宋体;
}
.style2 {color: #ff41b5}
-->
</style>
</head>
<body>
<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 background="pci/music.jpg"><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="480" height="190" align="absmiddle">
<param name="_cx" value="10372">
<param name="_cy" value="2355">
<param name="FlashVars" value="-1">
<param name="Movie" value="fal/2.swf">
<param name="Src" value="fal/2.swf">
<param name="WMode" value="Transparent">
<param name="Play" value="-1">
<param name="Loop" value="-1">
<param name="Quality" value="High">
<param name="SAlign" value>
<param name="Menu" value="0">
<param name="Base" value>
<param name="AllowScriptAccess" value="always">
<param name="Scale" value="exactfit">
<param name="DeviceFont" value="0">
<param name="EmbedMovie" value="0">
<param name="BGColor" value>
<param name="SWRemote" value>
<embed src="fal/2.swf" width="480" height="190" align="absmiddle" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent" menu="false" scale="exactfit"></embed></object></td>
</tr>
</table></td>
</tr>
<tr>
<td> <div align="center">::<a href="index.asp">回到首页</a>::<a href="about.asp">我的介绍</a>::<a href="music.asp">我的音乐</a>::<a href="pic.asp">我的照片</a>::<a href="diary.asp">我的随笔</a>::<a href="book.asp">给我留言</a>::<a href="login.asp">网站管理</a></div></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 yuaner_music where id="&id,1)
response.write("<a href='#' onclick='history.back(-1)'>上页</a> <a href=music.asp>目录</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(" ◇ "&ReplStr(Rs("content"))&"<br><br>")
response.Write(" 歌词:<br><div align=center>"&ReplStr(Rs("Lyric"))&"</div><br>")
%>
<div align=center>
<object
classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=
type=application/x-oleobject width=408 height=209 id=MediaPlayer1
loading viewastext>
<param name="URL" value="<%=Rs("url")%>">
<param name="AudioStream" value="-1">
<param name="AutoSize" value="0">
<param name="AutoStart" value="-1">
<param name="AnimationAtStart" value="0">
<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="1">
<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>
</div>
<%
end if
else
response.Write("<div align=center>目 录</div><br>")
set Rs=GrateRs("select * from yuaner_music",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
response.Write(" <a href=music.asp?id="&Rs("id")&">"&Rs("title")&"</a><br>")
i=i+1
if i=cc then exit do
Rs.moveprevious
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=music.asp?pag=0>第一页</a> ")
if not pag=0 then
response.write("<a href=music.asp?pag="&pag-1&">上一页</a> ")
else
response.write("上一页 ")
end if
if not Rs.bof then
response.write("<a href=music.asp?pag="&pag+1&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write("<a href=music.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="33" align="center"><img src="img/bott3.gif" width="495" height="33"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -