www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > multimedia.asp
<!-- #include file="conn.asp" -->
<!--#include file="include.asp"-->
<!-- #include file="inc/function.asp" -->
<!--#include file="inc/asppage.asp"-->
<%
Dim cid,str
cid=RequestQueryNum("cid")
If cid=1 Then
str="音乐"
ElseIf cid=2 then
str="视频"
ElseIf cid=3 Then
str="FLASH"
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>多媒体 <%=siteName%></title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
background-color: #000000;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #FFFFFF;
}
.STYLE1 {
color: #CCCCCC;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><img src="images/aboutme_r1_c6.jpg" width="276" height="55" border="0" usemap="#Map2"><map name="Map2"><area shape="rect" coords="144,26,211,43" href="default.asp"><area shape="rect" coords="212,26,266,42" href="link.asp"></td>
</tr>
<tr>
<td align="right"><table width="100%" height="294" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="76%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="images/Multimedia_r2_c2.jpg" width="576" height="19"></td>
</tr>
<tr>
<td width="2%"><img src="images/Multimedia_r3_c2.jpg" width="13" height="230"></td>
<td width="95%" valign="top">
<table width="100%" height="49" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td height="49" colspan="3" align="left" valign="center">
<a href="multimedia.asp"><img src="images/Multimedia_r3_c4.jpg" width="156" height="49" border="0" align="center"></a>
<%=str%>
</td>
</tr>
<tr>
<td width="36%" valign="top">
<!--start-->
<%
If cid<>0 Then
Call more()
Else
Call show()
End If
%>
<!--start-->
</td>
</tr>
</table></td>
<td width="3%"><img src="images/Multimedia_r3_c10.jpg" width="13" height="230"></td>
</tr>
<tr>
<td colspan="3"><img src="images/Multimedia_r7_c2.jpg" width="576" height="19"></td>
</tr>
</table></td>
<td width="38%"><img src="images/Multimedia_r1_c12.jpg" width="386" height="267"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td height="8"></td></tr>
<tr>
<td width="44%" rowspan="3" valign="bottom"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="67%"><img src="images/Multimedia_r10_c1.jpg" width="292" height="143"></td>
<td width="33%" rowspan="2"><img src="images/Multimedia_r10_c8.jpg" width="145" height="256"></td>
</tr>
<tr>
<td><img src="images/Multimedia_r11_c1.jpg" width="292" height="113"></td>
</tr>
</table></td>
<td width="56%"><img src="images/Articlemuen.jpg" width="563" height="60" border="0" usemap="#Map2"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r1_c1.jpg" width="563" height="93"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r3_c1.jpg" width="563" height="103"></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map2"><area shape="rect" coords="20,25,81,52" href="aboutme.asp">
<area shape="rect" coords="90,19,150,47" href="Article.asp">
<area shape="rect" coords="158,20,229,47" href="Multimedia.asp">
<area shape="rect" coords="239,23,287,49" href="photo.asp">
<area shape="rect" coords="302,30,376,55" href="tool.asp">
<area shape="rect" coords="395,25,466,53" href="book.asp">
</map>
</body>
</html>
<%
Sub more()
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
If cid<>0 Then
sql="Select * From multimedia Where categoryid="& cid
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=sql
mypage.pagesize=14 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize
If rs.eof Then
Response.Write "<td></td>"
Exit for
End If
%>
<td align="left" width="50%" height="21">
<a href="play.asp?id=<%=rs("id")%>" ><%=strtrim(rs("title"),28)%></a> <%=strtrim(rs("singer"),12)%></td>
<td align="left">
<a href="play.asp?id=<%=rs("id")%>" ><img src="images/Multimedia_r5_c5.jpg" width="20" height="17" border="0"></a></td>
<%
If i Mod 2 = 0 Then Response.Write "</tr></tr>"
rs.MoveNext
Next
%>
<tr>
<td align="center" colspan="4"><span class="STYLE3"><%mypage.showpage() %></span></td>
</tr>
<%
End If
%>
</table>
<%
End Sub
%>
<%
Sub show()
%>
<table width="86%" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="83%" height="28" align="left"><span class="STYLE1">音 乐 </span></td>
<td width="17%" align="left"><a href="?cid=1"><img src="images/more.jpg" width="36" height="9" border="0"></a></td>
</tr>
</table>
<table width="84%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set rs=conn.Execute("Select top 8 * From multimedia Where categoryid=1 order by top desc, id desc")
Do While Not rs.eof
%>
<tr>
<td align="left">
<a href="play.asp?id=<%=rs("id")%>" ><%=strtrim(rs("title"),16)%></a> <%=strtrim(rs("singer"),8)%></td>
<td align="left"><a href="play.asp?id=<%=rs("id")%>" ><img src="images/Multimedia_r5_c5.jpg" width="20" height="17" border="0"></a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
</td>
<td width="32%" valign="top">
<table width="86%" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="83%" height="28" align="left"><span class="STYLE1">视 频</span></td>
<td width="17%" align="left"><a href="?cid=2"><img src="images/more.jpg" width="36" height="9" border="0"></a></td>
</tr>
</table>
<table width="84%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set rs=conn.Execute("Select top 8 * From multimedia Where categoryid=2 order by top desc, id desc")
Do While Not rs.eof
%>
<tr>
<td align="left">
<a href="play.asp?id=<%=rs("id")%>" ><%=strtrim(rs("title"),20)%></a></td>
<td align="left"><a href="play.asp?id=<%=rs("id")%>" ><img src="images/Multimedia_r5_c5.jpg" width="20" height="17" border="0"></a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
</td>
<td width="32%" valign="top">
<table width="86%" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="83%" height="28" align="left"><span class="STYLE1">FLASH</span></td>
<td width="17%" align="left"><a href="?cid=3"><img src="images/more.jpg" width="36" height="9" border="0"></a></td>
</tr>
</table>
<table width="84%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set rs=conn.Execute("Select top 8 * From multimedia Where categoryid=3 order by top desc, id desc")
Do While Not rs.eof
%>
<tr>
<td align="left">
<a href="play.asp?id=<%=rs("id")%>" ><%=strtrim(rs("title"),20)%></a></td>
<td align="left"><a href="play.asp?id=<%=rs("id")%>" ><img src="images/Multimedia_r5_c5.jpg" width="20" height="17" border="0"></a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<%
Set rs=nothing
End Sub
%>