答案:2 悬赏:30 手机版

解决时间 2021-05-13 21:16

提问者网友：我是女神我骄傲
2021-05-13 13:40

<%
page = ReplaceBadWord(Request.QueryString("page"))
If page ="" Then
page = 1
Else
page = Cint(ReplaceBadWord(Request.QueryString("page")))
End If
%>
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<title><%=SiteTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gbk" />
<meta name="keywords" content="<%=Sitekeywords%>" />
<meta name="description" content="<%=Sitedescription%>" />
<link href="css.css" rel="stylesheet" type="text/css" />

<body>
<table width="1004" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
<tr>
<td></td>
</tr>

<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="9"> </td>
<td width="988"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><table width="100%" border="0" cellspacing="3" cellpadding="0">
<%
Set Rs1 = Conn.Execute("Select * From [FYBlog_photo] Where [class_id] = 0 Order By [num] Asc")
Set Rs = Conn.Execute("Select Count([id]) From [FYBlog_photo] Where [class_id] = 0")
If Not Rs1.Eof Then
For i = 1 to 4
Response.Write("<tr>")
For a = 1 to 5
If Rs1.Eof Then
Response.Write("<td width=""25%"" ></td>")
Else
If Rs1("img") <> "" Then
img = Rs1("img")
Else
img = "Image/nophoto.gif"
End If
If Rs1("lock") <> True Then
action = "<img src=""Image/open.gif"" width=""14"" height=""14"" title=""公开访问"" align=""absbottom""/>"
Else
action = "<img src=""Image/close.gif"" width=""14"" height=""14"" title=""需要访问密码"" align=""absbottom""/>"
img = "Image/keyphoto.gif"
End If
Response.Write("<td width=""140"" height=""170"" background=""Image/bg_2.gif"" background-repeat: no-repeat;""><table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" border:1px solid #ccc;padding:0px; padding-top:5px; padding-bottom:5px;""><tr><td align=""center""><a href=""Album.Asp?id="& Rs1("id") &""" title="""& Rs1("name") &"""><img src="""& img &""" width=""120"" height=""120"" /></a></td></tr><tr><td height=""25"" align=""center"" valign=""bottom""><a href=""Album.Asp?id="& Rs1("id") &""" title="""& Rs1("name") &""" class=""font_class_3""> "& Title_String(Rs1("name"),8,True) &"</a></td></tr></table></td>")
Rs1.Movenext
End If
Next
Response.Write("<tr><td colspan=""4"" height=""30""></td></tr>")
Next
Rs.Close
Set Rs = Nothing
Else
%>
<tr>
<td height="20" align="center" bgcolor="#2C012E"><font size="2">- 暂无相册分类 -</font></td>
</tr>
<%
End If
Rs1.Close
Set Rs1 = Nothing
%>
</table></td>
</tr>
</table></td>
<td width="17"> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td></td>
</tr>
</table>
</body>
</html>

最佳答案

五星知识达人网友：我住北渡口
2021-05-13 14:10

<%
dim page
page=request.QueryString("page")
if page="" then
page=1
end if
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("date.db1")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from user", conn,1,1
rs.pagesize=2
if not rs.eof then
rs.absolutepage=int(page)
end if
%>
<table width="237" height="80" border="1" align="center">
<%
for n=1 to rs.pagesize
if not rs.eof then
%>
<tr>
<td><%=rs.fields("user")%></td>
<td><%=rs.fields("sex")%></td>
<td><%=rs.fields("qq")%></td>
</tr>
<%
else
exit for
end if
rs.movenext
next
%>
<tr>
<td><% if int(page)<>1 then %><a herf="fenye.asp?page=1">第一页</a><%end if%></td>
<td><% if int(page)<>rs.pagecount then %><a herf="fenye.asp?page=<%page+1%>">下一页</a><%end if%></td>
<td><% if int(page)<>1 then %><a herf="fenye.asp?page=<%page-1%>">上一页</a><%end if%></td>
</tr>
</table>
</body>

全部回答

1楼网友：鱼忧
2021-05-13 14:46

很简单的啊

首页就是连接到你要的首页上啊

下一页也是一样

（跟你举个例子：如果有图片1~2~3 如果你是在第二页上连接到首页就可以在你当前的页面当中编辑首页两个字在把他连接到你要到的首页也就是图片1中就可以了

依次类推）如果还是不懂请加我Q： 8 9 2 4 2 4 9 3 6

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

怎么加首页，上一页，下一页，尾页的链接