asp搜索出现500错误

0 0

asp搜索出现500错误10

<%const ChannelID=2
Const ShowRunTime="Yes"

SkinID=0
PageTitle="分类页面"

dim WebPageSize,PageDis,Dis,page,i,rs_news
WebPageSize=27
ClassID=request("ClassID")
textfield= trim(request.form("textfield"))
set rs_news=server.CreateObject("adodb.recordset")
sql="SELECT a.*,c.ClassName from Article a inner join ArticleClass c on a.classid=c.classid where a.passed=true "
if ClassID<>"" then
sql = sql&"and c.classid="&ClassID&""
end if
if textfield<>"" then
sql = sql&"and a.Title like '%"&textfield&"%'"
end if
sql = sql&"order by UpdateTime desc"
rs_news.open sql,conn,1,1
'if rs_news.bof and rs_news.eof then
'response.write""
'else
if not rs_news.eof then
ClassName=rs_news("ClassName")
end if
'----------分页语句------------
page=cInt(request("page"))
If isempty(page) then
page=1
end if
rs_news.PageSize=webPageSize
If rs_news.recordcount>0 then
If page<1 or (page-1)*rs_news.pagesize>=rs_news.recordcount then
page=1
End If
rs_news.absolutepage=cint(page)
end If
'--------分页语句结束----------

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=classname%></title>
<style type="text/css">

</style>
<link href="image/style.css" rel="stylesheet" type="text/css">
<script src="../js/day.js" type="text/javascript"></script>
</head>

<body>

<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="250" valign="top">
    
    </td>
    <td width="5"></td>
    <td valign="top">
    <div class="wizard">
        <div class="title"><a href="index.asp">首页</a> > <%=classname%></div>
            <div class="box">
            <div class="biaoti"><%=classname%></div>
            <div class="info">
                <ul>
                            <%'--------显示记录内容----------
If rs_news.Eof or rs_news.Bof Then
response.write"<font color='#ff0000'>资料整理中…</font>"
Else

do while not rs_news.eof and i<WebPageSize
%>

                <li>
                        <span class="txt">
<a href="admin/article_show.asp?articleid=<%=rs_news("articleID")%>" title="文章标题：<%=rs_news("Title")%> <%=vbcrlf%>作者：<%=rs_news("Author")%> <%=vbcrlf%>时间: <%=rs_news("UpdateTime")%> <%=vbcrlf%>点击：<%=rs_news("Hits")%>" target="_blank"><%=rs_news("Title")%></a><%if rs_news("classname")="表格下载" and rs_news("DefaultPicUrl")<>"" then%> <a href="admin/<%=rs_news("DefaultPicUrl")%>">[点击下载]<img src="images/down.gif" border="0"></a><%end if%>
                            </span>
                            <span class="timeMore"><%call bawei(formatdatetime(rs_news("UpdateTime"),2))%></span>
                        </li>
                            <%
i=i+1
rs_news.movenext
loop
end if

'-------显示的分页信息--------
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&page&"'>刷新</a> "
If rs_news.Pagecount = 0 then
PageDis = PageDis & "首页上一页下一页末页页次0/0页"
ElseIf rs_news.Pagecount = 1 then
PageDis = PageDis & "首页上一页下一页末页页次1/1页"
ElseIf Page = 1 then
PageDis = PageDis & "首页 "
PageDis = PageDis & "上一页 "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&Page+1&"'>下一页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&rs_news.PageCount&"'>末页</a> "
PageDis = PageDis & "页次"&Page&"/"&rs_news.PageCount&"页"
ElseIf rs_news.pageCount=cint(page) then
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page=1'>首页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&Page-1&"'>上一页</a> "
PageDis = PageDis & "下一页 "
PageDis = PageDis & "末页 "
PageDis = PageDis & "页次"&Page&"/"&rs_news.PageCount&"页"
Else
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page=1'>首页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&page="&Page-1&"'>上一页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&page="&Page+1&"'>下一页</a> "
PageDis = PageDis & "<a href='?ClassID="&ClassID&"&Page="&rs_news.PageCount&"'>末页</a> "
PageDis = PageDis & "页次"&Page&"/"&rs_news.PageCount&"页"
End If
PageDis = PageDis & " 共 "&rs_news.RecordCount&" 条记录 "
PageDis=PageDis & " 转到：<select name='page' size='1' onchange=""javascript:window.location='?classid="&classid&""&"&"&"page=" & "'+this.options[this.selectedIndex].value;"">"
    for i = 1 to rs_news.PageCount
    PageDis=PageDis & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then PageDis=PageDis & " selected "
PageDis=PageDis & ">第" & i & "页</option>"
    next'--------分页信息结束-----------
'--------分页信息结束-----------%>
</ul>
                </div>
                <div class="page">
                <%Response.write Dis
                        Response.write PageDis%>
                </div>
            </div>
        </div>

    </td>
</tr>
</table>


</body>
</html>
不知道错在哪里

问题补充：

AngelAndAngel 写道

报什么错啊

500的错误