现在好好的，我觉得颜色表格都不好，我想调一下，结果总是乱码。这个是别人做的，可能有很多不对的地方帮忙清除一些垃圾，不胜感激！


<%@ LANGUAGE="VBSCRIPT" %>



<%
bm=request("class")
CurrPage=request("CurrPage")
DbPath = SERVER.MapPath("bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql = "Select * From book Where childclass='"& bm &"' order by bookbm"
'rs.open sql,conn,1,1
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if rs.RecordCount<=0 then
response.write "Êý¾Ý¿âûÓзûºÏÌõ¼þµÄÊý¾Ý"
response.end
else
i=0
rs.PageSize=15
end if

PageCount=clng(rs.PageCount)
if CurrPage>PageCount then
CurrPage=PageCount
end if

if CurrPage<=0 or CurrPage="" then
CurrPage=1
end if

BookNum=rs.RecordCount
rs.absolutePage = CurrPage
%>












<% LinePage=10
for i=0 to PageCount\LinePage-1 %>

<% for j=1 to LinePage %>

<% next %>

<% next
EndPage=PageCount mod LinePage %>

<% for j=1 to EndPage %>

<% next %>

²²

²úÆ·Áбí

ÆÚ[<% =i*LinePage+j %>]Á³

ÆÚ[<% =i*LinePage+j %>]Á³

ridincal:为了不影响代码阅读，帮你把笑脸禁用了