www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > photo.asp
<!-- #include file="conn.asp" -->
<!--#include file="include.asp"-->
<!-- #include file="inc/function.asp" -->
<!--#include file="inc/asppage.asp"-->
<%
Dim categoryStr,cid
cid=RequestQueryNum("cid")
Set rs=conn.Execute("Select top 7 * From photocategory order by cindex asc, id asc")
Do While Not rs.eof
categoryStr=categoryStr&"<a href='?cid="& rs("id") &"'class=""STYLE2"">"
If cid=rs("id") Then
categoryStr=categoryStr&"<strong class=""white"">"
End If
categoryStr=categoryStr&rs("category")
If cid=rs("id") Then
categoryStr=categoryStr&"</strong>"
End If
categoryStr=categoryStr&"</a> "
rs.MoveNext
Loop
%>
<!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 rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
<script src="js/prototype.js" type="text/javascript"></script>
<script src="js/scriptaculous.js?load=effects" type="text/javascript"></script>
<script src="js/lightbox.js" type="text/javascript"></script>
<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;
}
.STYLE2 {color: #CCCCCC}
.STYLE3 {color: #999999}
-->
</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="82%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="3%"><img src="images/photo_r1_c2.jpg" width="17" height="286"></td>
<td width="93%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top">
<table width="100%" border="0"><tr>
<td width="152"><img src="images/photo_r2_c3.jpg" width="152" height="43"></td>
<td align="right"><span class="STYLE2"><%=categoryStr%> </span></td>
</tr></table>
</td>
</tr>
<tr>
<td valign="top" width="541" height="193">
<!-- start-->
<table align="left" cellspacing="6" cellpadding="0" border="0"><tr>
<%
If cid<>0 Then
Set rs=conn.Execute("Select id,password from photocategory where id="& cid &"")
If rs.bof And rs.eof Then
Response.Write "<td>没有此相册</td>"
ok=False
Else
sql="Select * From photo Where categoryid="& cid &" order by top desc,id desc"
ok=true
End If
Else
sql="Select * From photo order by top desc,id desc"
ok=True
End If
If ok=True then
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=sql
mypage.pagesize=24 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize
If rs.eof Then
Response.Write "<td height=""54"" width=""54""> </td>"
Exit for
End If
posttime=rs("posttime")
%>
<td align="center" valign="center" height="54" width="54" bgcolor="#2B2B2B">
<a href="<%=rs("path")%>" rel="lightbox[plants]">
<img src="<%=rs("pathsmall")%>" border="0" width="48" height="48" alt="<%=rs("title")%>"/></a></td>
<%
If i Mod 8 = 0 then%>
</tr> <tr>
<%
End If
rs.MoveNext
Next
Else
Response.Write str
End If
%>
</tr></table>
<!-- start-->
</td>
</tr>
<tr>
<td align="right" height="30" valign="center"><span class="STYLE3"><%If ok=True Then mypage.showpage() End If %></span></td>
</tr>
</table></td>
<td width="4%"><img src="images/photo_r1_c7.jpg" width="17" height="286"></td>
</tr>
</table></td>
<td width="38%"><img src="images/photo_r3_c9.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/photo_r6_c1.jpg" width="292" height="143" border="0" usemap="#Map2"></td>
<td width="33%" rowspan="2"><img src="images/photo_r6_c5.jpg" width="145" height="256" border="0" usemap="#Map3"></td>
</tr>
<tr>
<td><img src="images/photo_r7_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="#Map"></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>
<%
If cid=0 Then
cid=1
End If
%>
<map name="Map"><area shape="rect" coords="15,20,82,48" href="aboutme.asp">
<area shape="rect" coords="85,21,144,49" href="Article.asp">
<area shape="rect" coords="150,21,224,46" href="Multimedia.asp">
<area shape="rect" coords="234,22,291,47" href="photo.asp">
<area shape="rect" coords="297,29,377,52" href="tool.asp">
<area shape="rect" coords="395,24,460,50" href="book.asp">
</map>
<map name="Map2"><area shape="rect" coords="228,3,316,18" href="photoclass.asp?cid=<%=cid%>"></map>
<map name="Map3"><area shape="rect" coords="-1,3,39,19" href="photoclass.asp?cid=<%=cid%>"></map></body>
</html>