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>