asp生成静态类别列表出错 - 编程论坛

在网上找了一个生成静态类别列表的代码，修改了几个地方。
只要一修改第15行的Rs.pagesize的值就会出现：
Microsoft JET Database Engine 错误 '80040e14'
语法错误 (操作符丢失) 在查询表达式 'ClassID=' 中。
/officeadmin/HtmlClass.asp，行 11
后来我试了一下，发现只能生成一页分类列表，只要一修改Rs.pagesize的值，让分类列表在2页以上就会出现上述错误！
请高人给指点一下！
谢谢！

下面是我的代码：

程序代码：

<%
Classid=Request.QueryString("id")
If(Request.QueryString("Page")="") Then
    Page=1
Else
    Page=Request.QueryString("Page")
End If
SQL="Select id,Title,AddTime,Hits,filepath,filename From News where ClassID="&Classid'这里是第11行，从上页传递id参数过来，应该没有问题。
Set Rs = Server.CreateObject("Adodb.RecordSet")
    Rs.Open SQL,Conn,1,1
        If(Rs.EOF) Then
            strList="没有内容"
        Else
            Rs.pagesize=27'这里是第15行，就是这里出现错误！
        Rs.AbsolutePage=Page
        TotalPage=Rs.PageCount
        For i=0 To rs.pagesize-1
        If Rs.eof Then Exit For
        filepath="../"&Classid&"/"&rs("filename")
        strList = strList & "<ul><li><a href='"&filepath&"' target='_blank' title='"&rs("title")&"'>"&left(rs("Title"),16)&"</a></li></ul>"
    Rs.movenext
    Next
        If(Int(Page)=1) Then
            PageFirst="[首页"
        Else
            PageFirst="[<a href=""Class_1.html"">首页</a>"
        End If
        If(Int(Page)=1)Then
            PageBack=" 上一页 "
        Else
            PageBack=" <a href=""Class_"&Page-1&".html"">上一页</a> "
        End If
        If(Int(Page)=TotalPage)Then
            PageNext=" 下一页 "
        Else
            PageNext=" <a href=""Class_"&Page+1&".html"">下一页</a> "
        End If
        If(Int(Page)=TotalPage)Then
            PageLast="尾页]"
        Else
            PageLast="<a href=""Class_"&TotalPage&".html"">尾页</a>]"
        End If
    AbsPage="第<select onchange=""window.location='"&Classid&"_'+this.options[this.selectedIndex].value+'.html'"">"
    For j=1 To TotalPage
        AbsPage=AbsPage&"<option value="&j
        If(Cstr(j)=Cstr(Page))Then
            AbsPage=AbsPage&" selected"
        End If
        AbsPage=AbsPage&">"&j&"</option>"
    Next
        AbsPage=AbsPage&"</select>页"
        PageNav=PageFirst&PageBack&PageNext&PageLast&AbsPage
    End If

    Content=Conn.Execute("Select Content From Template Where ID=2")(0)
    Content=replace(Content,"$ArticleList$",strList)
    Content=replace(Content,"$PageNav$",PageNav)

    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    filepath="..\Html\"&Classid&"\"
    If not fso.FolderExists(Server.MapPath(filepath)) then
    fso.CreateFolder(Server.MapPath(filepath))
    End if
    Set Fout = FSO.CreateTextFile(Server.MapPath(filepath&Classid&"_"&Page&".html"))
    Fout.Write Content
    Fout.Close
If(Int(Page)<Int(TotalPage))Then
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Untitled Document</title>
<meta http-equiv="refresh" content="0;url=?Page=<%=Page+1%>">
</head>
<body>
第<font color=red><b><%=Page%></b></font>页生成完毕！
</body>
</html>
<%Else%>
生成文章分类完毕，共生成<font color=red><b><%=TotalPage%></b></font>页
<%End If%>

[ 本帖最后由 towering 于 2010-6-30 20:26 编辑 ]