需要判断 TypeStr







Function GetPrevNextURL(ChannelID,NowID, Tid, TypeStr,ByRef Title)

Dim SqlStr,LinkUrl

SqlStr="SELECT Top 1 ID,Title,Tid,Fname From " & KS.C_S(ChannelID,2) & " Where Tid='" & Tid & "' And ID" & TypeStr & NowID & " And Verific=1 and DelTF=0 Order By ID"

If TypeStr=">" Then SqlStr=SqlStr & " asc"

Dim RS:Set RS=Conn.Execute(SqlStr)

If RS.EOF And RS.BOF Then

GetPrevNextURL = "#" : Title = "<img src=""/images/l-jt.jpg"">"

Else

LinkUrl = KS.GetItemURL(ChannelID,RS(2),RS(0),RS(3))

If TypeStr=">" Then

GetPrevNextURL = LinkUrl : Title= "<a href=""" & LinkUrl & """ title=""" & RS(1) & """> <img src=""/images/r-jt.jpg""></a>"

Else

GetPrevNextURL = LinkUrl : Title= "<a href=""" & LinkUrl & """ title=""" & RS(1) & """> <img src=""/images/l-jt.jpg""></a>"

End If

End If

RS.Close:Set RS = Nothing