📄 allzhuanti.asp

📁 采用ASP+ACCESS+ASPUPJPG组件构成
💻 ASP
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<%@ ENABLESESSIONSTATE = FALSE %>
<!--#include file="mdb/conn.asp" -->
<!--#include file="config.asp" -->
<html>
<head>
<title><%=title%> >> <%=desktoptitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style>
<link href="INDEX.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.asp" -->
<table width="100%"  border="0" cellspacing="0" cellpadding="8">
<tr>
<td  align="center" valign="top" bgcolor="<%=titlecolor%>">
<%
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
sql = "select * from zhuanti order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 32
rs.cachesize = 32
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 "<p align='center'>没有任何相册专题</p>"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
Response.Write"<table width='750' border='0' cellspacing='0' cellpadding='3' class='x'><tr><td>最新更新情况，截止到 "&now()&" 共有 <b>"&rs.RecordCount&" </b> 个相册</td></tr></table>"
do while irecordsshown<32 and NOT rs.EOF
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
Response.Write"<tr align='center'>"

for i=1 to 4

Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<img src='images/01.gif' border='0' width='18' height='18'> <a href='zhuanti.asp?typeid="&rs("id")&"' target='_blank'>"&rs("name")&"</a> </td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

next

Response.Write"</tr>"
loop
end if
rs.Close
set rs=nothing
Response.Write"</table>"

Response.Write"<table width='750' border='0' cellspacing='0' cellpadding='5' class='s' valign='bottom' ><tr><td height='20' align='center'>每页显示 30 个相册 共有 "&ipagecount&" 页 当前为第 "&ipagecurrent&" 页 "
if ipagecurrent=1 then
Response.Write"首页 | "
else
Response.Write"<a href='allzhuanti.ASP?page=1'>首页</a> | "
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='allzhuanti.ASP?page="&ipagecurrent-1&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='allzhuanti.ASP?page="&ipagecurrent+1&"'>下一页</a> "
else
Response.Write"下一页"
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='allzhuanti.ASP?page="&ipagecount&"'>末页</a> "
else
Response.Write"| 末页 "
end if
%></td>
</tr>
</table></td>
</tr>
</table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="foot.asp" -->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -