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

<%@ 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 %>]Á³
  
  

  

      

  
    <%
   do until rs.eof
     IsCheck=""
     If InStr(Session("ProductList"), rs("bookbm")) > 0 Then 
        IsCheck="Checked"
     End If
%> 
    
    <%
        i=i+1
        if i>=rs.PageSize then exit do
        rs.movenext
        loop
        rs.close
        set rs=nothing
        set conn=nothing
 
%> 
    


    
 
      
Ѳ´Ð
      
²úÆ·²·³Æ
      
ïÆÁÐÆúÎÌ
      
²úÆ·ÁÚÆÁ
      
Ï·úú
    
 
      
 
        " <%=IsCheck%>>
      
      

        
<%=rs("bookname")%>
      

        
<%=rs("dw")%>
      

        
<% =rs("size") %>
      

      
" target="_blank">Ï·úú
      
    
 
      
 
        ²²
      
      

        
 
      

        ²²
      
      

        ²²
      
    
  
    
  

把乱码部分删掉

不是只有文字乱码吗