标题: 超过了脚本运行的最长时间 [打印本页] 作者: .｀D.D`地` 时间: 2010-1-20 02:19 标题: 超过了脚本运行的最长时间 <!--#include file="include\conn.asp"-->
<!--头信息-->
<%
response.expires= -1
response.addheader "pragma","no-cache"
response.AddHeader "cache-control","no-store"
response.Write Server.ScriptTimeout
%>
<!--titile标题-->
<%
a=request("FormId")
'response.Write request("formId")
if a<1 then
a=1
end if
On error Resume Next
set Formid=server.createobj("adodb.recordset")
sql="select * from Form where Formid="&a
Formid.open sql,conn,3,1
if err then
response.Write(err.description)
end if
'------------分页显示数据s-------------------------
dim page
'IsEmpty(varname)
'返回一个布尔值指明变量是否已经初始化了
'IsNumeric(expression)
'expression 参数可以是任意表达式。
'返回 Boolean 值指明表达式的值是否为数字
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
'Int(number)
'返回一个整数(负数只舍不入)
'Abs(number)
'返回绝对值
Page=Int(Abs(Request("page")))' 获取页码的原始信息
End if
rs.pagesize=10'设置或返回显示一页中的记录数（缺省为每页10条记录）
totalrs=rs.RecordCount ' 记录总数
totalpage=rs.pageCount'返回页面的数目
mypagesize=rs.pagesize
rs.absolutepage=page'设置当前页