qq_25282485 2015-01-13 02:05 采纳率: 0%
浏览 1632

ASP网站出错 求好心人帮忙

报错内容:
Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\ces\AppCode\Pager.asp, line 51

Host by NetBox Version 2.8 Build 4128

Pager.asp,源代码如下

 <%
'--------------------------------------------------------------------
'名称:ASP分页类 v2009
'
'作者:zhengbi
'
'仅供参考,
'仅供参考。
'--------------------------------------------------------------------
Class TurnPage
    Dim sPageNo,sPageSize,sPageCount,sRecordCount,sAbsoluteRecord

    Private Sub Class_Initialize()
        sPageNo=Trim(Request.QueryString("PageNo"))
        If sPageNo<>"" Then
            sPageNo = Cdbl(sPageNo)
            Else
                sPageNo = 1
        End If
        sAbsoluteRecord = 1
    End Sub

    Public Sub GetRs(ByRef Conn,ByRef Rs,ByVal Sql,ByVal PageSize)
        Rs.Open Sql,Conn,1,1
        Rs.PageSize     = PageSize
        sPageSize       = Rs.PageSize
        sPageCount      = Rs.PageCount
        sRecordCount    = Rs.RecordCount
        If Not Rs.Eof Then Rs.AbsolutePage = sPageNo
    End Sub

    Public Function Eof()
        If sAbsoluteRecord<=sPageSize Then
            'sAbsoluteRecord = sAbsoluteRecord + 1
            Eof = False
            Else
                Eof = True
        End If
    End Function

    Public Sub MoveNext()
        sAbsoluteRecord = sAbsoluteRecord + 1
    End Sub

    Public Sub GetPageList()
        Dim sURL,sTmp,sQUERY_STRING,p,n,i,a,b
        sURL = Request.ServerVariables("URL")
        sURL = "" '特殊
        sQUERY_STRING = Request.ServerVariables("QUERY_STRING")

        //sTmp = Split(sURL,"/")
        //sURL = sTmp(Ubound(sTmp))
        If sQUERY_STRING <> "" Then sQUERY_STRING=Replace(sQUERY_STRING,"PageNo=" & sPageNo,"")
        If sQUERY_STRING = "" Then
               sURL = sURL & "?"
            Else
               sURL = sURL & "?" & sQUERY_STRING & "&"
        End If
        sURL = Replace(sURL,"&&","&")
        p = sPageNo-1
        n = sPageNo+1
        If p<1 Then p = 1
        If n>sPageCount Then n = sPageCount

        a = sPageNo-3
        b = sPageNo+3
        If a<1 Then a = 1
        If b>sPageCount Then b = sPageCount

        strListNewsPage =  "<div style='width:auto;float:center;font-size:12px;text-align:center;height:30px;line-height:30px;'>"
        If sPageNo > 1 Then
            strListNewsPage = strListNewsPage & ("<a href='" & sURL & "PageNo=1'  style='color:#595a79'>首&nbsp;页</a>" & VbCrLf)
            strListNewsPage = strListNewsPage & (" <a href='" & sURL & "PageNo=" & sPageNo - 1 & "'   style='color:#595a79'>上&nbsp;页</a>" & VbCrLf)
        Else
            strListNewsPage = strListNewsPage & (" 首&nbsp;页" & VbCrLf)
            strListNewsPage = strListNewsPage & (" 上一页" & VbCrLf)
        End If

        If sPageNo < sPageCount Then
            strListNewsPage = strListNewsPage & (" <a href='" & sURL & "PageNo=" & sPageNo + 1 & "'   style='color:#595a79'>下&nbsp;页</a>  " & VbCrLf)
            strListNewsPage = strListNewsPage & (" <a href='" & sURL & "PageNo="&sPageCount&"'   style='color:#595a79'>尾&nbsp;页</a>" & VbCrLf)
        Else
            strListNewsPage = strListNewsPage & (" 下一页" & VbCrLf)
            strListNewsPage = strListNewsPage & (" 尾&nbsp;页" & VbCrLf)
        End If

        strListNewsPage  = strListNewsPage &  (" 页次(页): <font color=red>" & sPageNo & "</font>/<font color=red>"&sPageCount&"</font> 记录(条):<font color=red> " & sRecordCount & "</font>")

        strListNewsPage = strListNewsPage & "&nbsp;&nbsp;转到&nbsp;<input type='input' name='page' size='2' maxlength='6' value='" & sPageNo & "' class=smallInput>&nbsp;页"
        strListNewsPage = strListNewsPage & "&nbsp;<img  src="&Application(SiteID & "_HK_SitePath")&"images/go.gif  align=absmiddle style='cursor:hand' onClick=""JavaScript:self.location.href='" & sURL & "PageNo=' + page.value ;"">" & VbCrLf 
        strListNewsPage = strListNewsPage & "</div>"
        response.write strListNewsPage
    End Sub

    Public Sub GetPageHtmlList(BaseURL)     
        Dim p,n,i,a,b

        p = sPageNo-1
        n = sPageNo+1
        If p<1 Then p = 1
        If n>sPageCount Then n = sPageCount

        a = sPageNo-3
        b = sPageNo+3
        If a<1 Then a = 1
        If b>sPageCount Then b = sPageCount

        Response.Write("<div class=""page_nav"">")

        'If sPageNo>1 Then
            If p=1 Then
                Url = BaseURL
                Else
                    Url = BaseURL & "_" & p
            End If
            Response.Write("<a href=""" & BaseURL & ".html"">首页</a> <a href=""" & Url & ".html"">上页</a>")
        'End If

        For i=a To b
            If i=1 Then
                Url = BaseURL
                Else
                    Url = BaseURL & "_" & i
            End If
            Response.Write(" <a href=""" & Url & ".html""")
            If i = sPageNo Then Response.Write(" style=""font-weight:bold; color:#FF0000;""")
            Response.Write(">" & i & "</a>")
        Next
        'If sPageNo < sPageCount Then 
            If n=1 Then
                Url = BaseURL
                Else
                    Url = BaseURL & "_" & n
            End If
            If sPageCount=1 Then
                Url2 = BaseURL
                Else
                    Url2 = BaseURL & "_" & sPageCount
            End If
            Response.Write(" <a href=""" & Url & ".html"">下页</a> <a href=""" & Url2 & ".html"">末页</a>")
        'End If

        Response.Write("</div>")
    End Sub
End Class
%>
  • 写回答

2条回答 默认 最新

  • Go 旅城通票 2015-01-13 02:27
    关注

    vbs的注释符号是单引号,不是双斜杠

    
            //sTmp = Split(sURL,"/")
            //sURL = sTmp(Ubound(sTmp))
    
    
                ==>>
    
    
            'sTmp = Split(sURL,"/")
            'sURL = sTmp(Ubound(sTmp))
    
    评论

报告相同问题?

悬赏问题

  • ¥15 MATLAB怎么通过柱坐标变换画开口是圆形的旋转抛物面?
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题
  • ¥15 Visual Studio问题
  • ¥20 求一个html代码,有偿