| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 934 人关注过本帖
标题:分页显示出现问题 说ODBC不支持,有时是HTTP 500内部服务器出现错误
只看楼主 加入收藏
lasynow
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-4-29
收藏
 问题点数:0 回复次数:5 
分页显示出现问题 说ODBC不支持,有时是HTTP 500内部服务器出现错误

<!--#include file="conn.asp"--> ('set rs=Server.CreateObject("ADODB.Recordset")已经定义过)
<%
id=request("id")
sq1="select * from type where lb_id="&id
rs.Open sq1,conn,1
lb_lb=rs("lb_lb")
rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=lb_lb%></title>
<link href="css/css1.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle"><table width="770" border="0" cellspacing="0"

cellpadding="0">
<tr>
<td align="center" valign="top"><table width="770" height="60" border="0"

cellpadding="0" cellspacing="0" bgcolor="#105ce7">
<tr bgcolor="#0948a7">
<td><font size="4"><img src="IMAGES/logo.gif" width="770"

height="60"></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="770" height="25"><table width="770" height="25" border="0" cellpadding="0"

cellspacing="0">
<tr>
<%'生成菜单
sql="select * from type order by lb_id"
rs.Open sql,conn,1
do until rs.eof
%>
<td align="center" valign="middle" bgcolor="#f9ffec" ><a

href="index1.asp?id=<%=rs("lb_id")%>" class="black9"><%=rs("lb_lb")%></a>&nbsp;<font

color="#000000">|</font> </td>
<%
rs.Movenext
loop
%>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="top"><table width="770" border="0" cellpadding="0"

cellspacing="1" bgcolor="#006633" >
<tr align="center" valign="middle" bgcolor="#009933">
<td width="200" height="20" class="white105">协会推荐信息</td>
<td width="550" height="20" class="white105"> 【<%=lb_lb%>】 欢迎您的光临!!!

&nbsp;</td>
</tr>
<tr>
<td width="200" align="left" valign="top" bgcolor="#f9ffec"><table width="198"

border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="198" height="5" align="center" valign="middle"

class="blue105">&nbsp;</td>
</tr>
<tr>
<td width="198" height="25" align="left" valign="middle">
<%'热点新闻
rs.close
sq2="select * from news where nw_tuijian='1' order by nw_id DESC"
rs.Open sq2,conn,1
For i=1 to 5
If not rs.EOF Then
%>
·<a href="read.asp?id=<%=rs("nw_id")%>" target="_blank"

class="blue9"><%=rs("nw_biaoti")%></a><br>
<%
rs.Movenext
End If
Next
rs.close
%> </td>
</tr>
</table></td>
<td width="550" align="center" valign="top" bgcolor="#FFFFFF"><table width="550"

border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="550" align="right" valign="top">&nbsp;</td>
</tr>
<tr>
<td width="550" align="center" valign="middle"><table width="550"

border="0" cellpadding="0" cellspacing="1" bgcolor="#f5f5f5">
<tr bgcolor="#CCE6CD">
<td width="400" height="20" align="center" valign="middle"

class="black9">标题</td>
<td width="148" height="20" align="center" valign="middle"

class="black9">加入时间</td>
</tr>
<%
sq1="select * from news where lb_id="&id&" order by nw_id DESC"
rs.Open sq1,conn,1

page=cint(request("page"))
rs.Pagesize=20

if page="" or page=0 then page=1

If page>rs.Pagecount Then Page=rs.Pagecount

'当内容为空也可正常显示,不加此则报错
if not rs.eof then
rs.Absolutepage=page
end if


For i=1 to rs.pagesize
If not rs.EOF Then
%>
<tr bgcolor="#f9ffec">
<td width="400" height="20" align="left" valign="middle"

bgcolor="#f9ffec"><font color=#0000FF size="2">◆</font><a href="read.asp?id=<%=rs("nw_id")%>"

target="_blank" class="black9"><%=rs("nw_biaoti")%></a></td>
<td width="148" height="20" align="center" valign="middle"

class="black9"><%=rs("nw_shijian")%></td>
</tr>
<%
rs.Movenext
End If
Next
%>
</table></td>
</tr>
<tr>
<td align="center" valign="middle"><table width="98%" border="0"

cellspacing="0" cellpadding="0">
<tr>
<form action="#" method="post" name="form1" >
<td height="30" align="center" valign="middle" class="blue9"> 共

<%=rs.recordcount%>篇文章 <%=rs.pagesize%>篇/每页 共<%=rs.pagecount%>页
当前第<%=page%>页


<input name="page" type="text" class="form1" id="page"

value="<%=page%>" size="3" maxlength="5">
<input name="Submit" type="submit" class="form1" value="Goto">
</td>
</form>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" align="center" valign="bottom" bgcolor="#009933" ><a href="index.asp"

class="white105">[返回首页]</a></td>
</tr>
<tr>
<td width="770" height="20" align="center" valign="middle">
<hr align="center">
<span class="black9"><font size="2" class="unnamed1" color="#000000"> 江门市女企业家

协会</font></span></td>
</tr>
<tr>
<td height="20" align="center" valign="middle">&nbsp;</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>

搜索更多相关主题的帖子: ODBC 服务器 HTTP 
2006-04-29 17:41
water123456
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:3208
专家分:5
注 册:2006-2-21
收藏
得分:0 
你可以把你的游标类型改一改,你的原来是1,1,你试一试改成3,1

让我们风风火火的过一生,别平平淡淡过一年。
2006-04-29 17:44
lasynow
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-4-29
收藏
得分:0 
先感谢斑竹回复

斑竹说的可是把里面所有的rs.Open sq1,conn,1

改成rs.Open sq1,conn,3,1

是不是呢?

出现错误时就是点击 第一页 上一页 下一页 以及 直接输入 文本框里数字

点 提交 按纽 就报错

2006-04-29 18:01
donggy
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-4-16
收藏
得分:0 

我也碰到过这样的问题,我改了游标类型又说需要一个可更新的查询,到现在也没解决这样的问题 高手赶紧指教呀

2006-04-29 19:47
xjepnge
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-5-1
收藏
得分:0 
<%
sq1="select * from news where lb_id="&id&" order by nw_id DESC"
rs.Open sq1,conn,1

page=cint(request("page"))
rs.Pagesize=20

if page="" or page=0 then page=1

If page>rs.Pagecount Then Page=rs.Pagecount

'当内容为空也可正常显示,不加此则报错
if not rs.eof then
rs.Absolutepage=page
end if


For i=1 to rs.pagesize
If not rs.EOF Then
%>



这个有什么用啊:where lb_id="&id&"


id 这个变量在你转页后就为空了!!当然报错!!!QQ5622103

2006-05-01 11:12
lasynow
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-4-29
收藏
得分:0 

楼上地兄台 ,这个该怎么改呢?

2006-05-01 12:24
快速回复:分页显示出现问题 说ODBC不支持,有时是HTTP 500内部服务器出现错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.069124 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved