谁能帮我看看这段代码有什么问题?点击下一页时就出现“应用程序DEFAULT WEB SITE中的服务器错误” 10
Functionnew_8()ifrequest("id")<>""thenid=trim(request("id"))sql="select*from[news]whe...
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 展开
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 展开
展开全部
应用程序错误的原因和解决方法
内存条坏了--更换内存条
双内存不兼容--使用同品牌的内存或只用一条内存
散热问题--加强机箱内部的散热
驱动问题--重装驱动。如果是新系统,要先安装主板驱动
软件损坏--重装软件 软件有BUG--打补丁或用最新的版本。
软件和系统不兼容--给软件打上补丁或者试试系统的兼容模式
软件和软件之间有冲突--如果最近安装了什么新软件,卸载了试试 软件要使用到其它相关的软件有问题--重装相关软件。
病毒问题--杀毒软件与系统或软件冲突--由于杀毒软件是进入底层监控系统的,可能与一些软件冲突,卸载了换用兼容性好的杀毒软件(比如金山金山毒霸2011版sp6)。
这个问题,经常出现在windows2000和XP系统上,Windows 2000/XP对硬件的要求是很苛刻的,一旦遇到资源死锁、溢出或者类似Windows 98里的非法操作,系统为保持稳定,就会出现上述情况。
内存条坏了--更换内存条
双内存不兼容--使用同品牌的内存或只用一条内存
散热问题--加强机箱内部的散热
驱动问题--重装驱动。如果是新系统,要先安装主板驱动
软件损坏--重装软件 软件有BUG--打补丁或用最新的版本。
软件和系统不兼容--给软件打上补丁或者试试系统的兼容模式
软件和软件之间有冲突--如果最近安装了什么新软件,卸载了试试 软件要使用到其它相关的软件有问题--重装相关软件。
病毒问题--杀毒软件与系统或软件冲突--由于杀毒软件是进入底层监控系统的,可能与一些软件冲突,卸载了换用兼容性好的杀毒软件(比如金山金山毒霸2011版sp6)。
这个问题,经常出现在windows2000和XP系统上,Windows 2000/XP对硬件的要求是很苛刻的,一旦遇到资源死锁、溢出或者类似Windows 98里的非法操作,系统为保持稳定,就会出现上述情况。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |