set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("database\example3.mdb")
exec="select * from guestbook order by ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If%>
<%
RS.PageSize =5
If Not rs.eof Then
RS.AbsolutePage =page
End if
pagecount=rs.pagecount
%>
<%
function HTMLEncode(fString)
if fString<>"" then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "

")
fString = Replace(fString, CHR(10), "
")
end if
HTMLEncode = fString
end function
%>

<%I=1
Do until rs.EOF or I>RS.PageSize id1=rs("id") %>

















<%rs.MoveNext
I=I+1
Loop %>

	<%=HTMLEncode(rs("tietle").value)%>
	<%=rs("time")%> <%response.write "删除"%>

<% For j=1 to pagecount IF J<>page THEN response.write ""&j&"." End If Next response.write"共"&pagecount&"页" %>在本地调试没有问题IIS5 ACESS2000 传到SERVER就出错 右出现这样错误 Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10' [Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1
我佛山人 职务：版主 等级：4 金币：16.0 发贴：2269 注册：2002/8/7 15:09:27	引用 #22003/6/8 18:21:57 Request("Page")=Empty 有这样的么？
cwlcwr78 职务：普通成员 等级：1 金币：1.0 发贴：149 注册：2002/5/18 9:24:12	引用 #32003/6/8 18:29:15 可是本地为什么没有问题呢？ 传到SERVER就来了
cwlcwr78 职务：普通成员 等级：1 金币：1.0 发贴：149 注册：2002/5/18 9:24:12	引用 #42003/6/9 12:56:27 以上代码在本地没有问题 传SERVER就出问题了呢？
不是高手 职务：普通成员 等级：3 金币：5.0 发贴：1352 注册：2002/8/23 2:27:18	引用 #52003/6/9 13:54:01 是这样啊？ 那是不是环境变量问题？
cwlcwr78 职务：普通成员 等级：1 金币：1.0 发贴：149 注册：2002/5/18 9:24:12	引用 #62003/6/9 17:05:22 上面哪里有环境变量呀
cwlcwr78 职务：普通成员 等级：1 金币：1.0 发贴：149 注册：2002/5/18 9:24:12	引用 #72003/6/10 8:53:51 把原来的数据库文件 传上去覆盖 就没问题了 不知道搞什么鬼