不好意思，又麻烦大家，我实在没有办法~！我调了半天，老是出错~帮忙看一下这段代码~！

zhyoli 2002-06-13 08:46:42

这是代码
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

<%dim zj,zz1
zfl_idd=request("dl_id")
zfl_id=trim(request("dl_id"))
%>
<%set rs=server.createobject("ADODB.recordset")
rs.open "Select count(*) as total from new where zfl_id='"& zfl_id &"'",con,1,1
set rs1=server.createobject("ADODB.recordset")
rs1.open "Select *from new where zfl_id='"&zfl_id&"' order by new_id desc",con,1,1
set rs3=server.createobject("ADODB.recordset")
rs3.open "select * from zfl where zfl_id="&zfl_id,con,1,1
%>
<HTML><HEAD><TITLE>新高新网络文学<%=rs3("zfl_name")%></TITLE>
<link rel="stylesheet" href="css2.css" type="text/css">
</head>

<BODY text=#000000 bgColor=#ffffff topMargin=0 leftmargin="5">
<table width="713" border="0" cellspacing="1" cellpadding="0" align="center" height="183">
<tr>
<td bgcolor="#FFFFFF" valign="top" height="275">
<table width="750" border="0" cellpadding="0" cellspacing="0" height="198">
<tr>
<td bgcolor="#FFFFFF" height="235" valign="top" width="318"> </td>
<td bgcolor="#FFFFFF" height="294" valign="top" width="300">
<table width="100%" border="0" cellpadding="0" cellspacing="0" height="42" align="center">
<tr bgcolor="#FFFFFF">
<td width="42%" height="21">
<div align="left"><img src="imagewx/line4.jpg" width="183" height="18"></div>
</td>
</tr>
<%if rs1.eof and rs1.bof then
response.write"<td colspan='3' bgcolor='#f3f3f3'> "&rs3("zfl_name")&"下还没有文章呢，等你来投稿呢！^_^</td>"
response.end
else
recordtotal=rs("total")
pagecount=10
pagenum=int(recordtotal/pagecount+0.5)
page=request("page")
k=0
rs1.move pagecount*page
do while not rs1.eof
k=k+1
if k>10 then exit do
%>
<tr bgcolor="#FFFFFF">
<td width="42%" height="18" >
<% if len(trim(rs1("biaoti")))>30 then%>
<img src="imagewx/di.gif" width="12" height="11"><a href="news.asp?new_id=<%=cstr(rs1("new_id"))%>" target="_blank"><%=mid((trim(rs1("biaoti"))),1,30)%></a><a href="news.asp?new_id=<%=cstr(rs1("new_id"))%>" target="_blank">...</a>
<%else%>
<a href="news.asp?new_id=<%=cstr(rs1("new_id"))%>" target="_blank"><img src="imagewx/di.gif" width="12" height="11" border="0"></a>
<a href="news.asp?new_id=<%=cstr(rs1("new_id"))%>" target="_blank"><%=left(trim(rs1("biaoti")),15)%></a>
<% end if
if rs1("img")=1 then
response.write "<img src='images/img.gif' border=0 width=16 height=16 align=middle>"
end if
%>
<%dim two_d
two_d=DateDiff( "d", CDate(rs1("time")), Now)
if two_d<=3 then
%>
<img src="IMAGES/newdd.gif" width="28" height="11">
<%
end if
%>
<a href="aa.htm"> </a></td>
</tr>
<% rs1.movenext
num=num+1
loop
rs1.close
set rs1=nothing
end if%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="23">
<tr>
<td>
<%if pagenum>10 then pagenum=10%>
总页数：
<%for i=0 to pagenum%>
<a href="zfl.asp?page=<%=i%>&zz=<%=zfl_idd%>"><%=i+1%></a>|
<%next%>
</td>
</tr>
</table>
</td>
<td bgcolor="#FFFFFF" height="249" valign="top" width="154">
<table width="99%" border="0" cellspacing="0" cellpadding="0" height="82" align="center">
<tr>
<td valign="top" height="112" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26">
<tr>
<td bgcolor="#FFFFFF" height="15">
<div align="center"><font color=#ffffff><img src="imagewx/link1.jpg" width="136" height="20"></font></div>
</td>
</tr>
</table>
<%set rs10=server.createobject("ADODB.recordset")
rs10.open"select new_id from new where zfl_id='"&request("zfl_id")&"'",con,1,1
function todays()
dim tmprs
tmprs=cn.execute("Select count(new_id) from new Where zfl_id=zfl_id and year(time)=year(date()) and month(time)=month(date()) and day(time)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function

function toweeks()
dim tmprs
tmprs=cn.execute("Select count(new_id) from new Where zfl_id=zfl_id and year(time)=year(date()) and month(time)=month(date())and day(date())-day(time)<=7")
toweeks=tmprs(0)
set tmprs=nothing
if isnull(toweeks) then toweeks=0
end function
%>
<div align="center"><%=rs3("zfl_name")%>文章总数：<font color="#ff0000"><%=rs10.recordcount%></font><br>
<%=rs3("zfl_name")%>今日文章：<font color="#ff0000"><%=todays()%></font><br>
<%=rs3("zfl_name")%>本周文章：<font color="#ff0000"><%=toweeks()%></font></div>
</td>
</tr>
<%rs3.close
set rs3=nothing%>
</table>
</td>
</tr>
</table>
<div align="left"></div>
</td>
</tr>
</table>
<p align="center"><b><font size="2"> </font></b></p>
</BODY></HTML>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这是错误提示~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
在点击分页时出现以下问题~
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
/hotweb1/zfl.asp, 第 11 行
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
主要是分页的问题`！~我也不想把这么长的代码贴出来~！`可就我一个人~！没有办法`！
只有请教各位大哥了~！如果为难~！`请大家指出来`！~
谢谢~

...全文

25 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

nice90 2002-06-13

打赏
举报

你上面的这段代码出错应该是连接数据库出错了的。但是我一时看不出个大概。给你一段分页的代码看看别人怎么写的，可能对你有帮助。
<%@ language=VBScript%>
<%
dim Conn,Rs,strSQL
dim page
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open"filedsn=db1.dsn"
strSQL="SELECT * FROM 表1 order by BookName"
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Source=strSQL
Rs.ActiveConnection=Conn
Rs.CursorType=3
RS.Open
Rs.PageSize=4
if Request("page")="" then
page=1
else
page=CInt(Request("page"))
end if
Rs.AbsolutePage=page
%>
<html>
<head>
<body>
<p>
<table border="0" width="50%">
<tr>
<td width="20%">转到:</td>
<%for i=1 to Rs.PageCount%>
<td width="20%">
<a href="pageshow.asp?page=<%=i%>">第<%=i%>页</a>
</td>
<%Next%>
</tr>
</table>
<hr>
<table width="100%" border="1">
<%
'第一行表示的是字段
%>
<tr>
<%for i=0 to Rs.Fields.Count-1%>
<td align="center">
<b>
<%=Rs(i).Name%>
</b>
</td>
<%Next%>
</tr>
<%
'第二行起表示的是书库中的内容
%>
<%For j=1 to RS.pageSize%>
<tr>
<%for i=0 to Rs.Fields.Count-1%>
<td align="center">
<%if isnull(Rs(i)) then%>

<%else%>
<%=RS(i)%>
<%end if%>
</td>
<%Next%>
</tr>
<%
Rs.MoveNext
If Rs.EOF then
Exit For
End If
Next
%>
</table>
<hr>
<table border="0" width="50%">
<tr>
<td width="50%">
<%if Page>1 then%>
<a href="pageshow.asp?page=<%=(page-1)%>"><<<上一页</a>
<%End if%>
</td>
<td width="50%">
<%if page<Rs.pageCount Then%>
<a href="pageshow.asp?page=<%=(page+1)%>">下一页>>></a>
<%End if%>
</td>
</tr>
</table>
<%
Rs.Close
Conn.Close
%>
</body>
</html>
pageshow.asp循环的调用就可以了.

possible_Y 2002-06-13

打赏
举报

记录集的锁定方式不对，打开记录集是应该为：
set rs=server.createobject("ADODB.recordset")
rs.open "Select count(*) as total from new where zfl_id='"& zfl_id &"'",con,3,3
set rs1=server.createobject("ADODB.recordset")
rs1.open "Select *from new where zfl_id='"&zfl_id&"' order by new_id desc",con,3,3
set rs3=server.createobject("ADODB.recordset")
rs3.open "select * from zfl where zfl_id="&zfl_id,con,3,3

今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎

作者：无名 1.我是一个黑客这几天眼睛要好受些了，因为刚买了一个15’的液晶显示器。也许你会觉得我以前的那个特丽珑的17"的显示器应该很威风才对。呵呵，对一个整天15个小时以上坐在显示器面前，距离不超过30厘米的人来说。那个CRT显示器绝对是一个祸害！眼睛红仲，布满血丝。头发脱落，食欲不振，出门还特别怕光，这些都和那个CRT显示器绝对脱不了关系。分析这个攻击目标已

一个35岁程序员的心理蜕变

[转][小说]我是一名黑客　　这几天眼睛要好受些了，因为刚买了一个15’的液晶显示器。也许你会觉得我以前的那个特丽珑的17"的显示器应该很威风才对。呵呵，对一个整天15个小时以上坐在显示器面前，距离不超过30厘米的人来说。那个CRT显示器绝对是一个祸害！眼睛红仲，布满血丝。头发脱落，食欲不振，出门还特别怕光，这些都和那个CRT显示器绝对脱不了关系。　　分析这个攻击目标已经1个多星期了，

扣个一，我得给你拎出来那张图，看一下啊，在我的，能找得出来吗，来看看看这个薪水，就当老师扫盲了是吧，来吧，一到家立马开机上课，不是应该开课上机吗，学完if能听懂吗，完全没问题，字节跳动，对。出去谈工资一般怎么定位，一般比上家涨个30%到50，我希望大家伙拿到这个薪水啊，这是字节跳动，也就是take talk在美国开的工资，当然人家是个博士，ph d，yes，84万美元，50万的股票。