请问哪位大哥大姐能帮我找出这个程序中的问题 <% On Error Resume Next set rs=server.createobject("adodb.recordset") set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("newsxp.asa") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath %> <% Dim curpage, pagesize,numpages pagesize=10 if Request.Querystring("page")<>"" then curpage=CInt(request.Querystring("page")) else curpage=1 end if rs.ActiveConnection =conn; rs.Source = "SELECT * FROM jxgldc"; rs.CursorType = 0; rs.CursorLocation = 2; rs.LockType = 1; rs.Open(); rs.pagesize=pagesize numpages=rs.pagecount if curpage>numpages then curpage=numpages rs.Absolutepage=curpage

Dim strtable strtable=rs.GetString(adClipString,pageSize,"</td><td>","</td></tr><tr><td>") strtable=left(strtable,len(strtable)-8) response.write "<table border=1><tr><td>"&strtable&"</td></tr></table><hr>" if curpage>1 then response.write "<a href=""ckjxgldc.asp?page="&(curpage-1) response.write """>上一页</a><br>" end if if curpage<numpages then response.Write "<a href=""ckjxgldc.asp?page="&(curpage+1) response.write """>下一页</a><br>" end if rs.close conn.close set rs=nothing set conn=nothing

%> 谢谢！

出错的地方在那里啊？？

<% On Error Resume Next set rs=server.createobject("adodb.recordset") set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("newsxp.asa") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath %> <% Dim curpage, pagesize,numpages pagesize=10 if Request.Querystring("page")<>"" then curpage=CInt(request.Querystring("page")) else curpage=1 end if rs.ActiveConnection =conn; rs.Source = "SELECT * FROM jxgldc"; rs.CursorType = 0; rs.CursorLocation = 2; rs.LockType = 1; rs.Open(); rs.pagesize=pagesize numpages=rs.pagecount if curpage>numpages then curpage=numpages rs.Absolutepage=curpage end if

Dim strtable strtable=rs.GetString(adClipString,pageSize,"</td><td>","</td></tr><tr><td>") strtable=left(strtable,len(strtable)-8) response.write "<table border=1><tr><td>"&strtable&"</td></tr></table><hr>" if curpage>1 then response.write "<a href=""ckjxgldc.asp?page="&(curpage-1) response.write """>上一页</a><br>" end if if curpage<numpages then response.Write "<a href=""ckjxgldc.asp?page="&(curpage+1) response.write """>下一页</a><br>" end if rs.close conn.close set rs=nothing set conn=nothing

%>

谢谢斑竹 错误还是存在啊

Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

/xgc/v.asp，行14

rs.ActiveConnection =conn；------------------------^

把程序稍微改了一下 最后如下： <% set rs=server.createobject("adodb.recordset") set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("newsxp.asa") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath %> <% Dim page, pagesize,numpages pagesize=10 if Request.Querystring("page")<>"" then page=Cint(request.Querystring("page")) else page=1 end if rs.ActiveConnection =conn rs.Source = "SELECT * FROM jxgldc" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs.pagesize=pagesize numpages=rs.pagecount if page>numpages then page=numpages rs.Absolutepage=page end if Dim strtable strtable=rs.GetString(adClipString,pageSize,"</td><td>","</td></tr><tr><td>") strtable=left(strtable,len(strtable)-8) response.write "<table border=1><tr><td>"&strtable&"</td></tr></table><hr>" if page>1 then response.write "<a href=""v.asp?page="&(page-1) response.write """>上一页</a><br>" end if if page<numpages then response.Write "<a href=""v.asp?page="&(page+1) response.write """>下一页</a><br>" end if rs.close conn.close set rs=nothing set conn=nothing

%>

—————————————————————————————— 现在出现了如下错误：

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/xgc/v.asp，行25