Question

谁能帮我看看这段代码有什么问题？点击下一页时就出现“应用程序DEFAULT WEB SITE中的服务器错误”

Function new_8()

if request("id")<>"" then
id=trim(request("id"))

sql="select * from [news] where (menu1="& id & ") order by ontop desc,id desc "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof then
page=1
rs.PageSize = 17
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
End if
TotalPages = rs.PageCount
response.write "<tr><td height=79 valign=top class=g24><ul>"
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if

title=rs("title")
if len(title)>40 then
title= mid(title,1,40)&"..."
else
title=rs("title")
end if
response.write "<li><span>... ["&format_time(rs("time"),2)&"]</span><a href=info.asp?id="&rs("id")&" target=_blank>"&title&"</a></li>"
rs.movenext
next
response.write "</ul></td></tr>"
response.write "<tr><td height=25 colspan=2 align=center valign=top class=xian wei3>共<span class=red>"&rs.recordcount& "</span> 条记录  第<span class=red>"& page &"</span>页/共"&TotalPages&"页   "
If page > 1 Then
response.write "<a href=news.asp?page="&(page-1)&"&id="&id&" class=cBlue2>上一页</a>|"
End If
If page <> TotalPages Then
response.write "<a href=news.asp?page="&(page+1)&"&id="&id&" class=cBlue2>下一页</a>"
End If
rs.close
response.write "</td></tr>"
set rs = nothing
end if
end if

End Function

Answer 1

应用程序错误的原因和解决方法
内存条坏了－－更换内存条
双内存不兼容－－使用同品牌的内存或只用一条内存
散热问题－－加强机箱内部的散热
驱动问题－－重装驱动。如果是新系统，要先安装主板驱动
软件损坏－－重装软件 软件有BUG－－打补丁或用最新的版本。
软件和系统不兼容－－给软件打上补丁或者试试系统的兼容模式
软件和软件之间有冲突－－如果最近安装了什么新软件，卸载了试试 软件要使用到其它相关的软件有问题－－重装相关软件。
病毒问题－－杀毒软件与系统或软件冲突－－由于杀毒软件是进入底层监控系统的，可能与一些软件冲突，卸载了换用兼容性好的杀毒软件(比如金山金山毒霸2011版sp6)。
这个问题，经常出现在windows2000和XP系统上，Windows 2000/XP对硬件的要求是很苛刻的,一旦遇到资源死锁、溢出或者类似Windows 98里的非法操作，系统为保持稳定，就会出现上述情况。

Answer 2

楼上的白痴。。。这是代码问题，被他放大到了电脑问题。。。 、

rs.movenext
next

都没循环结束。
怎么分页？
rs.movenext
if rs.eof then exit for
next