小弟我做了个简单的asp新闻翻页系统，翻页有关问题，
日期：2014-05-17 浏览次数：20886 次
我做了个简单的asp新闻翻页系统，翻页问题，在线等啊！急急急
我做了个简单的asp新闻系统，就4个文件，谁能帮我看看问题处在那儿了啊？什么都不显示 news.asp， turnpage.asp，show.asp，conn.asp 还有个news.mdb，其中，news.mdb数据库的表名字也是news，数据库没有问题，因为，我的show.asp能正确的读出数据库中的新闻。现在是，那个翻页过程调用出问题了，或者news.asp页面出问题了！我折腾了2天都没折腾出来
conn.asp 文件
<%
dim conn ,connstr,rs_news
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
%>
---------------
news.asp内容
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
' <%
'Set rs_news="sever.createobjet("adodb.recodset")
'rs_news.open "slect *form news" conn 1, 3
'%>
<%
set rs=server.CreateObject("adodb.recordset") '创建rs记录集
sql="select * from news" '读取数据库的SQL语句串
rs.open sql,conn,1,3 '打开记录集
%>
<HTML>
<HEAD>
<TITLE> 风雨亭新闻系统 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<p align ="center" ><h1>风雨亭新闻系统 </h1> </p>
<BR><BR><BR><BR><BR><BR>
<!--#include="turnpage.asp" -->
<br>
' 调用公共翻页
<%
Dim rowcount,rs_news
rowcount=6 ' 定义每页显示新闻条目数
Call turnpage(rs_news , rowcount) '调用公共翻页结束
%>
<%
If Not rs_news.eof Do While Not rs_news.eof And rowcount>0
%>
<table whdth=100%>
<tr>
<td> 标题: </td>
<td> 内容 : </td>
<td> 时间 :</td>
</tr>
<tr>
<td><%=rs_news("title")%> </td>
<td> <%=rs_news"content")%> </td>
<td> <%=rs_news("addtime")%> </td>
</tr>
</table>
<%
rowcount= rowcount - 1
rs_news.movenext
Loop
End if
%>
</BODY>
</HTML>
-----------------------
turnpage.asp翻页过程页面
<%
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Dim Rs_tmp 'Rs_tmp 记录集
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If
'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页<
我做了个简单的asp新闻系统，就4个文件，谁能帮我看看问题处在那儿了啊？什么都不显示 news.asp， turnpage.asp，show.asp，conn.asp 还有个news.mdb，其中，news.mdb数据库的表名字也是news，数据库没有问题，因为，我的show.asp能正确的读出数据库中的新闻。现在是，那个翻页过程调用出问题了，或者news.asp页面出问题了！我折腾了2天都没折腾出来
conn.asp 文件
<%
dim conn ,connstr,rs_news
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
%>
---------------
news.asp内容
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
' <%
'Set rs_news="sever.createobjet("adodb.recodset")
'rs_news.open "slect *form news" conn 1, 3
'%>
<%
set rs=server.CreateObject("adodb.recordset") '创建rs记录集
sql="select * from news" '读取数据库的SQL语句串
rs.open sql,conn,1,3 '打开记录集
%>
<HTML>
<HEAD>
<TITLE> 风雨亭新闻系统 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<p align ="center" ><h1>风雨亭新闻系统 </h1> </p>
<BR><BR><BR><BR><BR><BR>
<!--#include="turnpage.asp" -->
<br>
' 调用公共翻页
<%
Dim rowcount,rs_news
rowcount=6 ' 定义每页显示新闻条目数
Call turnpage(rs_news , rowcount) '调用公共翻页结束
%>
<%
If Not rs_news.eof Do While Not rs_news.eof And rowcount>0
%>
<table whdth=100%>
<tr>
<td> 标题: </td>
<td> 内容 : </td>
<td> 时间 :</td>
</tr>
<tr>
<td><%=rs_news("title")%> </td>
<td> <%=rs_news"content")%> </td>
<td> <%=rs_news("addtime")%> </td>
</tr>
</table>
<%
rowcount= rowcount - 1
rs_news.movenext
Loop
End if
%>
</BODY>
</HTML>
-----------------------
turnpage.asp翻页过程页面
<%
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Dim Rs_tmp 'Rs_tmp 记录集
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If
'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页<
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
