UC知道请高手来帮我检查一下asp代码啊！
来源：百度知道 编辑：UC知道 时间：2024/07/02 08:15:37
我写了一个ASP的和数据库连接的代码，代码如下：
<%
Dim strSQL,objRS
strSQL = "SELECT * FROM bbs order by time desc"
Set objRS=server.CreateObject("adodb.recordset")
objRS.open strSQL,Conn,1,1
dim pages,allpages,page
pages = 5 objRS.pagesize = pages
allpages = objRS.pagecount
page = Request.QueryString("page") if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
objRS.AbsolutePage = page
if objRS.eof then
response.Write("没有心情日记哦~~")
else
Do while not objRS.eof and pages > 0
response.Write("<table background='images/1_06.jpg' width=593 height=31><tr><td width=50>"&_
"</td><td width=100 align=left>"&objRS("id")&"</t
<%
Dim strSQL,objRS
strSQL = "SELECT * FROM bbs order by time desc"
Set objRS=server.CreateObject("adodb.recordset")
objRS.open strSQL,Conn,1,1
dim pages,allpages,page
pages = 5 objRS.pagesize = pages
allpages = objRS.pagecount
page = Request.QueryString("page") if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
objRS.AbsolutePage = page
if objRS.eof then
response.Write("没有心情日记哦~~")
else
Do while not objRS.eof and pages > 0
response.Write("<table background='images/1_06.jpg' width=593 height=31><tr><td width=50>"&_
"</td><td width=100 align=left>"&objRS("id")&"</t
不知你要提什么问题
把错误贴出来呀，谁有空帮你仔细找错误,晕..
可能没有记录集,把objRS.AbsolutePage = page 放到检测rs.eof 里面看看还出错不.最好把错误贴出来看看.