高手都来看看......到底是怎么回事......急呀......

gezhou 2003-07-28 10:01:49
<!-- #include file="conn.asp" -->
<%
sql="select * from news order by news_id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
page=CLng(request("txtpage"))
rs.pageSize=3
n=rs.pagesize
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
rs.absolutePage=page
end if
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="660" id="AutoNumber2">
<tr>
<form action="fen.asp" method="post">
<td><font size="2">共<%=rs.RecordCount%>条记录</font></td>
<td><font size="2">共<%=rs.Pagecount%>页</font></td>
<td>
<font size="2">目前第<%=page%>/<%=rs.Pagecount%>页</font></td>
<td><font size="2">跳到第<input type="text" name="txtpage" size="4">页 <br></font></td>
<td width=348>
<%
if page<>1 then
response.write "  <a href=fen.asp?txtpage=1><font size=2>第一页</font></a>"
response.write "  <a href=fen.asp?txtpage="&(page-1)&"><font size=2>上一页</font></a>"
end if
if page<>rs.pagecount then
response.write "  <a href=fen.asp?txtpage="&(page+1)&"><font size=2>下一页</font></a>"
response.write "  <a href=fen.asp?txtpage="&rs.pagecount&"><font size=2>最后一页</font></a>"
end if
%>
</td>
</form>
</tr>
</table>
</center>
</div>
<table width="760" border="1" bgcolor="eeeeee">
<form method="get" action="fen.asp">
<%
do while not (rs is nothing)
rowcount=n
do while not rs.eof and rowcount>0
%>
<tr>
<td>
<% =rs("news_title")%>
</td>
</tr>
<%
rowcount=rowcount-1
rs.movenext
loop
set rs=rs.nextrecordset
loop
set rs=nothing
%>
</Form>
</table>
总是在翻页是无法显示下一页的内容
但是也显示到了第几也
...全文
47 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
gezhou 2003-07-30
  • 打赏
  • 举报
 回复
LonelyStark(LonelyStark) 请 transform.asp 文件里是什么东西
../css/css.css 里又是什么 兄弟是菜鸟请多包涵
LonelyStark 2003-07-30
  • 打赏
  • 举报
 回复
对了
至于数据库的结构
你根据偶程序里提到的字段就可以知道了
总之大概有名字啊时间啊楼层啊内容啊什么的
偶写的只是一个显示所有发言的页面
如果你需要完整的留言板程序
发短信给偶就是
LonelyStark 2003-07-30
  • 打赏
  • 举报
 回复
偶这个留言板是支持UBB代码转换的
transform.asp就是转换程序
你不要就是了
然后把程序里的transform(...)直接写成rs(...)什么的就行了
至于css是表格的样式
你也可以直接删掉就是
偶没有省掉这些
抱歉料
呵呵
ronanlin 2003-07-28
  • 打赏
  • 举报
 回复
<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="StyleSheet.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
db="test.mdb"
set testConn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(db)
testConn.Open connstr
'页面开始运行
bt = timer()
%>
<%
'分页参数设置
maxperpage = 10
navStr = ""
tblHead = "<tr bgcolor='#d0d0d0'><td width='80'><strong>ID</strong></td><td><strong>标题</strong></td><td width='60'><strong>日期</strong></td><td width='80'><strong>点击次数</strong></td></tr>"
tblBody = ""
set rst_main = Server.CreateObject("adodb.recordset")
strsql = "select id,a,b,c from test order by id desc"

rst_main.Open strsql,testConn,1,1
recordcnt = rst_main.RecordCount
'rst_main.PageSize =10
pagecnt = rst_main.PageCount
if pagecnt = 0 then
tblBody="<tr><td>没有纪录</td></tr>"
else

page = CInt(Request.QueryString("page"))'页 码
if Request.QueryString("page") = "" then page = 1
if Request.Form("page") <> "" then
page = CInt(Request.Form("page"))
end if
if page > pagecnt then page = pagecnt

fontclass = "NormalText"
linkclass = "NormalLinkText"
fontclass1 = "NoLinkText"
boxclass = "box"

if page > 1 then
navStr = navStr & "<a href=?page=1 class='" & linkclass & _
"'>[首页]</a> " & _
"<a href=?page=" & (page-1) & _
" class='" & linkclass & "'>[上一页]</a> "
else
navStr = navStr & "<font class='" & fontclass1 & _
"'>[首页]</font> <font class='" & fontclass1 & _
"'>[上一页]</font> "
end if
if page < pagecnt then
navStr = navStr & "<a href=?page=" & (page+1) & _
" class='" & linkclass & "'>[下一页]</a> " & _
"<a href=?page=" & pagecnt & _
" class='" & linkclass & "'>[尾页]</a>"
else
navStr = navStr & "<font class='" & fontclass1 & _
"'>[下一页]</font> <font class='" & fontclass1 & _
"'>[尾页]</font>"
end if

filename = Request.ServerVariables("SCRIPT_NAME")
navStr = "<table width='100%' align='center' class='" & fontclass & "'>" & _
"<form name='form1' method='post' action='" & filename &"'>" & _
"<tr><td align='center'>" & navStr & _
" 共有:" & page & "/" & pagecnt & "页" & _
" 共有:" & recordcnt & "条记录" & _
" <input type='text' name='page' size='4' class='" & boxclass & _
"' value='" & page & "'>" & _
" <input type='submit' name='submit' class='" & boxclass & _
"' value='GOTO'>" & _
"</td></tr>" & _
"</form>" & _
"</table>"
if page <> pagecnt then
maxthispage = maxperpage
else
maxthispage = recordcnt - maxperpage * (page - 1)
end if

rst_main.AbsolutePage = page

for tmpcnt=1 to maxthispage step 1
tblBody = tblBody & "<tr bgcolor='#f0f0f0'>"
tblBody = tblBody & "<td>" & rst_main("id") & "</td>"
tblBody = tblBody & "<td>" & rst_main("a") & "</td>"
tblBody = tblBody & "<td>" & rst_main("b") & "</td>"
tblBody = tblBody & "<td>" & rst_main("c") & "</td>"
tblBody = tblBody & "</tr>"
rst_main.MoveNext
next
'for tmpcnt = 1 to maxthispage step 1
' tblBody = tblBody & "<td align='center'>" & rst_main("b") & "</td>"
' if tmpcnt mod 3 =0 then
' tblBody = tblBody & "</tr>"
' end if
' rst_main.MoveNext
'next
end if
rst_main.Close
testConn.Close
%>

<%
Response.Write "<table border='0' cellpadding='3' cellspacing='1' width='100%' align='center'>"
Response.Write tblHead
Response.Write tblBody
Response.Write "</table>"
Response.Write "<table border='0' cellpadding='3' cellspacing='1' width='100%' align='center'><tr><td>"
Response.Write navStr
Response.Write "</td></tr></table>"

'页面运行结束
et = timer()
response.write "页面执行时间："&FormatNumber((et-bt)*1000,0)&"毫秒"
Response.End
%>
</body>
</html>
liujnfn 2003-07-28
  • 打赏
  • 举报
 回复
up
LonelyStark 2003-07-28
  • 打赏
  • 举报
 回复
懒得看
偶直接给你一个偶写的留言板的代码
肯定通过的
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/transform.asp"-->
<%response.Buffer=true
set rs=server.CreateObject("ADODB.RecordSet")
rs.CacheSize=20
rs.pagesize=20
rs.Open "Select * from view_data order by send_time desc",MyCon,1,1
num=rs.RecordCount
page=rs.PageCount%>
<HTML><HEAD><title>留言板</title>
<script language=vbs>
sub btnGo_onclick()
if isnumeric(txtpageno.value) then
window.location.href="view.asp?page_id="&txtpageno.value
else
msgbox "请填入页数",0+48
end if
end sub
</script>
<link rel=StyleSheet href="../css/css.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<body bgcolor=black link=black vlink=black alink=black><center>
<iframe name="I1" width="800" height="119" src="../bbs/banner.asp" border="0" frameborder="0" marginwidth="25" marginheight="1" scrolling="no" align="top">
浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe>
<table border="0" cellspacing="1" style="border-collapse: collapse; font-size:9pt; position:relative; top:-7" width="750" id="AutoNumber3" background="../Pic/bg.gif" height="101">
<tr>
<td width="740" colspan="3" height="5">　</td>
</tr>
<tr>
<td width="9" height="49">　</td>
<td width="725" bgcolor=white height="49" valign="top" align="center">
<br>
<b><font face="华文新魏" style="font-size: 15pt"><font color="#000080">留 言 板</font><br>
</font>共<%=num%>条留言 
<%page_id=request.QueryString("page_id")
if page_id="" or page_id=0 then page_id=1
if not rs.EOF then
rs.AbsolutePage=page_id
response.Write "共"&page&"页 当前第"&page_id&"页"
end if%>  
<%if clng(page_id)<=1 then%>
第一页 上一页
<%else%>
<a href="view.asp?page_id=1">第一页</a> <a href="view.asp?page_id=<%=clng(rs.AbsolutePage)-1%>">上一页 </a>
<%end if%>
<%if clng(page_id)>=clng(page) then%>下一页 最后一页 <%else%><a href="view.asp?page_id=<%=clng(rs.AbsolutePage)+1%>">下一页</a> <a href="view.asp?page_id=<%=Page%>">最后一页</a><%end if%></font>
到第</b><!--webbot bot="Validation" s-data-type="Integer" s-number-separators="x" --><input type="text" name="txtpageno" size="3" style="border-style: solid; border-width: 1"><b>页</b>
<input type="button" value=" GO " name="btnGo" style="border-style: solid; border-width: 1; background-color: #C4EDFF"><br>
<%for n=1 to rs.pagesize
if rs.EOF then exit for%>
<table border="1" cellpadding="0" cellspacing="0" width="80%" id="AutoNumber1" height="66" style="border-width:1; border-style:solid; font-size:9pt; border-collapse:collapse" bordercolor=black>
<tr>
<td width="100%" height="28" background="../pic/headerbg.gif" align="left">
<table border="0" cellpadding="0" cellspacing="0" width="98%" id="AutoNumber2" height="22" style="font-size: 9pt; border-collapse: collapse">
<tr>
<td width="28%" height="22" align="middle"><font color=white><b>第<%=rs("lou")%>楼</b></font></td>
<td width="34%" height="22" align="middle"><font color=white><b><%=server.htmlencode(rs("user_name"))%></b></font></td>
<td width="28%" height="22" align="middle"><font color=white><b><%=rs("send_time")%></b></font></td>
<td width="10%" height="22" align="middle"><b>
<%if request.cookies("authority")("view_authority")="OP" then%><font color=white style="CURSOR:hand" onclick="window.location.href='delete.asp?user_name=<%=rs("user_name")%>&send_time=<%=rs("send_time")%>'">删除</font></b></td><%end if%>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="34" style="padding:5" align="left" valign="top">
<%=transform(rs("content"),"1","0")%>
</td>
</tr>
</table><br>
<%rs.MoveNext
next
MyCon.close
set MyCon=nothing%>
</td>
<td width="8" height="49"></td>
</tr>
<tr><td width="740" colspan="3" height="10"></td></tr></table>
gezhou 2003-07-28
  • 打赏
  • 举报
 回复
如果不想分析代码 给一段能实现翻页的分页代码也行呀 救救我吧
gezhou 2003-07-28
  • 打赏
  • 举报
 回复
如果不想分析代码 给一段能实现翻页的分页代码也行呀 救救我吧
最新Python-web开发视频教程从入门到精通.pdf
别急，先看看 Python web 开发视频教 程。 千锋 Python 基础教程：http://pan.baidu.com/s/1qYTZiNE Python 课程教学高手晋级视频总目录： http://pan.baidu.com/s/1hrXwY8k Python 课程 windows 知识点：...
计算机表格文件打不开,我的电脑表格文件都打不开了怎么回事，请高手支个招，谢谢！...
我的电脑表格文件都打不开了怎么回事，请高手支个招，谢谢！以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！我的电脑表格文件都打不开了怎么回事，请...
【Request.QueryString 获取参数值为 null】急，在线等！高手给看看啊
protected void show_lib() 　{ 　string cid = Request.QueryString["cid"]; 　string strconn = ConfigurationSettings.AppSettings["strconn"]; 　SqlConne...
[VB.NET]关于gridview的问题，急，高手们过来看看........
关于gridview的问题，急，高手们过来看看........ 页面上有两个dropdownlist控件，一个是“省份”，一个是“县市” 如果我选择的是“省份” 那gridview查询出来是省份中一个总的交易记录 如： 省份 记录数 广州 ...
没法上网 请问这是啥原因(为什么自动获取ip地址为169.254.*.*)IP地址:169.254.*.*解决方法...
最近电脑不能上校园网显示 ip地址为 169.254.180.169，宿舍我电脑用其他任何一个端口都上不了网，其他人却用我的端口能上网， 本人电脑没问题 你的电脑没有获取到校园网的IP地址。 我认为是你个人电脑的操作系统...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章