📄 cat.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%
if session("admin")="" then
objconn.close
set objconn=nothing
response.redirect "../default.asp"
end if
%>
<!--#include file="dbpath.asp"-->
<!--#include file="../confirm.asp"-->
<%dim catid,catname
set objrs2=server.createobject("adodb.recordset")
catid=Request.QueryString("catid")
sql="select * from cat where catid="&catid
objrs2.open sql,objconn,1,1
catname=objrs2("catname")
objrs2.close
Set objrs= Server.CreateObject("ADODB.Recordset")%>
<html>
<head>
<title></title><link rel="stylesheet" type="text/css" href="../links.css">
</head>
<body marginwidth="0" leftmargin="0" topmargin="0" marginheight="0" >
<div align="center"><br>
<table width="630" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="left"></div>
<a href="main.asp">管理主页面</a>::<%=catname%> </td>
</tr>
</table>
<%If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
sql= "SELECT * FROM gallery WHERE catid="&catid&" order by dateandtime desc"
objrs.open sql,objconn,1,1
if not objrs.eof then
objRS.PageSize=objrs1("number")
Dim TotalPages
TotalPages = objRS.PageCount
If CurPage>objRS.Pagecount Then
CurPage=objRS.Pagecount
end if
objRS.AbsolutePage=CurPage
objrs.CacheSize = objRS.PageSize
Dim Totalcount
Totalcount =INT(objRS.recordcount)
%>
</div>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="89%"><b> 此分类中共<font color="red"><%=Totalcount%> </font>张图片：</b></td>
<td nowrap width="11%">
<div align="center"><b><a href="addimage.asp?catid=<%=catid%>&catname=<%=catname%>">增加图片</a></b></div>
</td>
</tr>
</table>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#FFD8B0">
<td>
<div align="center">编号</div>
</td>
<td>
<div align="center">名称</div>
</td>
<td>
<div align="center">图片</div>
</td>
<td>
<div align="center">缩图</div>
</td>
<td>
<div align="center">大小</div>
</td>
<td>
<div align="center">尺寸</div>
</td>
<td>
<div align="center">评论数</div>
</td>
<td width="30">
<div align="center">修改</div>
</td>
<td width="50">
<div align="center">删除</div>
</td>
</tr>
<%do while (Not objRS.Eof) and (II<objRS.PageSize)%>
<tr>
<td>
<div align="center"><%=objrs("id")%> </div>
</td>
<td>
<div align="center"><%=objrs("imagename")%></div>
</td>
<td>
<div align="center"><a href="<%=objrs1("url")%>/pictures/<%=objrs("image")%>" target="_blank"><%=objrs("image")%></a></div>
</td>
<td>
<div align="center"><a href="<%=objrs1("url")%>/thumb/<%=objrs("thumb")%>" target="_blank"><%=objrs("thumb")%></a></div>
</td>
<td>
<div align="center"><%=objrs("size")%>kb</div>
</td>
<td>
<div align="center"><%=objrs("width")%>×<%=objrs("height")%></div>
</td>
<td>
<div align="center"><%=objrs("reviewcount")%></div>
</td>
<td width="30">
<div align="center"><a href="edit.asp?id=<%=objrs("id")%>">修改</a></div>
</td>
<td width="50">
<div align="center"><a href="delete.asp?id=<%=objrs("id")%>">删除</a></div>
</td>
</tr>
<tr>
<td colspan="9">
<hr size="1" width="100%">
</td>
</tr>
<%objrs.movenext
II=II+1
loop%>
</table>
<%StartPageNum=1
do while StartPageNum+4<=CurPage
StartPageNum=StartPageNum+4
Loop
EndPageNum=StartPageNum+4-1
If EndPageNum>objRS.Pagecount then EndPageNum=objRS.Pagecount%>
<table width="630" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>共<%=CurPage%> 页 第<%=TotalPages%>页</td>
<td align="right" nowrap>
<%response.write"页面：<a href=cat.asp?catid="&catid&"&CurPage="&StartPageNum-1&"> << </a>"
For I=StartPageNum to EndPageNum
if I<>CurPage then
response.write"<a href=cat.asp?catid="&catid&"&CurPage="&I&">["&I&"]</a>"
else
response.write"<font color=#FF0000><b>"&I&"</b></font>"
end if
Next
if EndPageNum<objRS.Pagecount then
response.write"<a href=cat.asp?catid="&catid&"&CurPage="&EndPageNum+1&">>></a>"
end if%>
</td>
</tr>
</table>
<%else%>
<div align="center">分类中还没有图片！<b><a href="addimage.asp?catid=<%=catid%>&catname=<%=catname%>">点击这里在此分类中添加图片！</a></b>
<%end if%>
</div>
<P align=center>制作：<a href="http://www.huamed.com/gallery">Galleryit Pro 3.0.0</a></p>
<P align=center>来源：<a href="http://bbs.5iasp.com">http://bbs.5iasp.com</a></p>
<P align=center>汉化：<a href="http://www.youilove.com">ORPIN</a></p>
</body></html>
<%
objrs1.close
set objrs1=nothing
objconn.close
set objconn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -