哪位高手帮忙看一下，调用代码的问题！ - 编程论坛

#2

dhdhzzw2008-07-11 11:09

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

#3

孤独冷雨2008-07-11 11:15

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

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))

#4

sfgn1302008-07-11 11:37

谢谢，我先试一下，

#5

sfgn1302008-07-14 10:56

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

#6

hanwuwei2008-10-27 09:47

我刚刚解决了给你发下以后大家多多探讨

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