我的程序为什么打不开，没有出错显示，而显示的是网页打开超时，让设置timeout属性?帮帮忙，小弟初学。

iwodgirl 2003-08-22 11:09:44

为什么会这样呢?程序如下:


<%

dim mysql,myrs
dim page_size '定义每页多少条记录数变量
dim page_no '定义当前页的页号
dim page_total '定义总页数

set myrs=server.CreateObject ("ADODB.recordset")
mysql="select * from booktable"
myrs.Open mysql,conn,1

if not myrs.EOF and not myrs.BOF then

page_size=8 '每页显示8条书目信息
if Request.QueryString ("page_no")="" then
page_no=1
else
page_no=Request.QueryString ("page_no")
end if

myrs.PageSize=page_size
page_total=myrs.PageCount
myrs.AbsolutePage = page_no
i=1
%>
<HTML><HEAD>

</HEAD>
<BODY>
<H1 align=center>图书管理</H1>
<P align=center>
<TABLE width="100%" border=1>

<TR>
<TD width="30%">
<P align=left><A href="addbook.asp">添加书目</A> <FONT color=fuchsia>||
</FONT><A href="exit.asp">退出管理</A></P></TD>
<TD width="70%">
<P align=right>请选择页数：
<% for j=1 to page_total %>
<%if j=page_no then%>
<%=j%>
<%else%>

<A href="book_admin1.asp?pageno=<%=j%>"><%=j%></A>
<%end if%>
<%next%>
</P></TD></TR></TABLE></P>
<P align=left>
<TABLE width="100%" border=1>

<TR>
<TD vAlign=center width="7%">编号</TD>
<TD vAlign=center width="12%">书目</TD>
<TD vAlign=center width="12%">作者</TD>
<TD vAlign=center width="13%">出版社</TD>
<TD vAlign=center width="10%">单价</TD>
<TD vAlign=center width="19%">图书内容简介</TD>
<TD vAlign=center width="11%">加入时间</TD>
<TD vAlign=center width="16%" colSpan=2>操作</TD></TR>
<TR>

<%do while not myrs.EOF and i<page_size+1 %>
<TD vAlign=center width="7%">
<P><%=i%></P></TD>
<TD vAlign=center width="12%"><%=myrs("bookname")%>　</TD>
<TD vAlign=center width="12%"><%=myrs("bookauth")%>　</TD>
<TD vAlign=center width="13%"><%=myrs("bookpub")%>　</TD>
<TD vAlign=center width="10%"><%=myrs("bookcash")%>　</TD>
<TD vAlign=center width="19%">
<%
len1=1
do while lenb(myrs("bookcomment"))>=len1+14
Response.Write mid(myrs("bookcomment"),len1,15)
len1=len1+15
loop
Response.Write mid(myrs("bookcomment"),len1,lenb(myrs("bookcomment"))-len1)
%>　</TD>
<TD vAlign=center width="11%"><%=myrs("booktime")%>　</TD>
<TD vAlign=center width="7%"><A href="book_admin1.asp?update=true&id=<%=myrs("id")%>">修改</A></TD>
<TD vAlign=center width="9%"><A href="book_admin1.asp?deledate=true&id=<%=myrs("id")%>">删除</A></TD></TR>

<%loop%>
</TABLE></P>

</BODY></HTML>

<%myrs.colse

%>

<%end if%>

...全文

90 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

iwodgirl 2003-08-22

打赏
举报

回复

谢谢各位了，小弟初学，呵呵。。看了各位的指点，总算明白了，时间太长原来是搞了个死循环，以后再有时间长打不开，我就会向循环语句这边来想了。结帖~~~~~~~~~~~!!!!!!!!!

shengjr 2003-08-22

打赏
举报

回复

<%loop%>
</TABLE>
改为
<%
myrs.movenext
loop
%>
</TABLE>

lions911 2003-08-22

打赏
举报

回复

让你设置你就设置：server.timeout=5000

damboo 2003-08-22

打赏
举报

回复

没有movenext吧

freetaiger 2003-08-22

打赏
举报

回复

在“ <%loop%>
</TABLE></P>

</BODY></HTML>
”前面添加
"myrs.movenext"

shengjr 2003-08-22

打赏
举报

回复

myrs.Open mysql,conn,1
改为
myrs.Open mysql,conn,1,3

Nginxnginx 简介Nginx常用功能nginx 安装nginx 常用的命令和配置文件Nginx 反向代理与负载均衡详解nginx 配置实例-反向代理nginx 配置实例-负载均衡nginx 配置实例-动静分离nginx 原理与优化参数配置搭建 nginx 高可用集群nginx原理 nginx 简介 Nginx (“engine x”) 是一个高性能的 HTTP 和反向代理服务器,特点是占有内存少，并发能力强，事实上 nginx 的并发能力确实在同类型的网页服务器中表现较好，中国大陆使用 nginx网

之前有介绍过，我主要是做数据仓库运维的，业余也会动手写 python 程序，django 应用，vue 的 app，有兴趣可以加我好友一起学习。最近比较让我头疼的是数据仓库的 datastage 作业经常报 911 错误，最终问题得到了解决，在此总结一下，希望能帮到要解决 911 错误的朋友们。先介绍下数据仓库的概念：一个面向主题的、集成的、非易失性的、随时间变化的数据的集合，以用于支持管理...

1 、我创建了⼀个没有select权限的⽤户，执⾏select * from T where k=1 ，报错“select command denied”，并没有报错“unknown column”，是不是可以说明是在打开表之后才判断读取的列不存在？答：这个是⼀个安全⽅⾯的考虑。你想想⼀个⽤户如果没有查看这个表的权限，你是会告诉他字段不对还是没权限？如果告诉他字段不对，其实给的信息太多了，因为没权限的意思还包含了：没权限知道字段是否存在。 2、wait_timeout 是客户端⾮交互式的

今天，我再与你说说另一种很重要的池化技术，即连接池。我先和你说说连接池的结构。连接池一般对外提供获得连接、归还连接的接口给客户端使用，并暴露最小空闲连接数、最大连接数等可配置参数，在内部则实现连接建立、连接心跳保持、连接管理、空闲连接回收、连接可用性检测等功能。连接池的结构示意图，如下所示：业务项目中经常会用到的连接池，主要是数据库连接池、Redis连接池和HTTP连接池。所以，今天我就以这三种连接池为例，和你聊聊使用和配置连接池容易出错的地方。注意鉴别客户端SDK是否基于连接池在使用三方客户端进行网络通信

HKEY_CLASSES_ROOT/CLSID/{0D43FE01-F093-11CF-8940-00A0C9054228},网页代码可以利用他在硬盘里面生成文件HKEY_CLASSES_ROOT/CLSID/{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B},可以生成命令格式,比如格式化硬盘,执行任何程序.

28,390

社区成员

357,060

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章