#12004/12/24 22:53:12
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
db="db1.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
conns="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(""&db1.mdb&"")
conn.Open conns
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from xtcx order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write("没有记录")
else
Page=Int(Abs(Request("page")))
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1
rs.pagesize=10 '每页显示记录数
total=rs.RecordCount
mp=rs.pagesize
rs.absolutepage=page
i=0:k=0
do while not rs.eof and mp>0:k=k+1
response.write("显示第"&rs("id")&"条记录")
i=i+1
mp=mp-1
rs.movenext
loop
if page>rs.pagecount then Response.redirect("index.asp?page="&rs.pagecount)
if page>1 then
response.Write("<a href='index.asp?&page=1' title='首页'>首页</a>")
response.Write("<a href='index.asp?page="&page-1&"' title='上一页'>上一页</a>")
end if
response.Write("第"&page&"/"&rs.pagecount&"页 共"&total&"条记录 本页显示第"&(page-1)*rs.pagesize+1&"条到第"&(page-1)*rs.pagesize+k&"条 ")
if page<rs.pagecount then
response.Write("<a href='index.asp?page="&page+1&"' title='下一页'>下一页</a>")
response.Write("<a href='index.asp?page="&rs.pagecount&"' title='尾页'>尾页</a>")
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
我的数据库和地址都在网站跟目录下。名字和表明都没错啊。为什么用iis看,就是出错看不了呀?有谁能告诉我是那里出了问题呢?
编辑历史:[此帖最近一次被 蓝鲸 编辑过(编辑时间:2004-12-25 00:27:49)]