'=================================================
'过程名：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







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

sqlPrev="Select Top 1 * From News Where BigClassName='"&BigClass&"' and ID<" & rsnews("ID")& " order by ID DESC"
输出看看有没有值

给你一个参考，这样试一下

sub ShowPrevNews(BigClass,ID)
    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(BigClass（如：1）,id(100))

谢谢，我先试一下，

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

'=================================================
'过程名：ShowPrevNews
'作  用：显示上一篇新闻
'参  数：TitleLen   ----标题最多字符数，一个汉字=两个英文字符
'=================================================
sub ShowPrevNews(TitleLen)
    dim rsPrev,sqlPrev
    sqlPrev="Select Top 1 * From News Where BigClassName='"&rsnews("BigClassName")&"' 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="&rsnews("BigClassName")&"' 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

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