'=================================================
'过程名：ShowPrevNews
'作  用：显示上一篇新闻
'参  数：TitleLen   ----标题最多字符数，一个汉字=两个英文字符
'=================================================
sub ShowPrevNews(TitleLen)
    dim rsPrev,sqlPrev
    sqlPrev="Select Top 1 * From News Where BigClassName='"&BigClass&"' and ID<" & rsnews("ID")& " order by ID DESC"
    Set rsPrev= Server.CreateObject("ADODB.Recordset")
    rsPrev.open sqlPrev,conn,1,1
    if TitleLen<0 or TitleLen>255 then TitleLen=50
    if rsPrev.Eof then
          response.write "没有了"
    else
        response.write "<a href='Shownews.asp?ID=" & rsPrev("ID")& "&BigClass="&BigClass&"' title='新闻标题：" & rsPrev("Title") & vbcrlf & "作    者：" & rsPrev("User") & vbcrlf & "更新时间：" & rsPrev("AddDate") & vbcrlf & "点击次数：" & rsPrev("Hits") &"'>" &gotTopic(rsPrev("Title"),TitleLen)  &"</a>"
    end if
    rsPrev.close
    set rsPrev=nothing
end sub







调用新闻时，前面明明有新闻，但是总是显示“没有了”!

谢谢，我先试一下，

还是不行，以上两种我都试过了，可是没有作用！
我的输出是<% call ShowPrevNews(200) %>