请注意代马中有错误原因!!!
<%
strConn = "driver={MicroSoft Access Driver (*.mdb)};dbq=" & Server.Mappath("mdb.mdb")
Set rs = Server.CreateObject("Adodb.Connection")
SQL1 = "SELECT * FROM game order by id desc"
rs.Open sql1,strconn,3,2
if not rs.eof then '--------------------1处!!!!!!!!!
Response.Write "对不起,数据库中暂时没有记录!"
else
rs.pagesize=20
pages=rs.pagesize
totalreords=rs.recordcount
totalpage=teotalrecords/pages
如果这里不加 END IF 则 1处错误 如果加则2处错误!
if (totalrecords mod pages) <>0 and (totalrecords / pages) > 1 then totalpage=totalpage+1
if (totalrecords/pages)<1 then totalpage=1
page=request.querystring("page")
if page="" then page=1
frs.absolutepage=page
i=0
do while not frs.eof
Response.Write"
"
Response.Write""&rs("name")&" | "
Response.Write""&rs("lei")&" | "
Response.Write""&rs("cd")&" | "
Response.Write""&rs("time")&" | "
Response.Write"
"
rs.movenext
i=i+1
if i>=pages then exit do
loop
end if -------------------------------------2处!!!
%>
<%
Response.Write"