我想把 图片内容页的上一张 / 下一张图片 改为 小箭头的图标来显示， 可是 源程序代码 不会改，请教高手来看看，我找到了那一段语句！！



  '函数名：ReplacePrevNext

  '作  用：上一篇、下一篇

  '参  数：NowID 现在ID,Tid 目录ID,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" else SqlStr=SqlStr & " desc"

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

    If RS.EOF And RS.BOF Then

     GetPrevNextURL = "#" : Title = "没有了"

    Else

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

&#160; &#160;&#160;&#160;GetPrevNextURL = LinkUrl : Title= "<a href=""" & LinkUrl & """ title=""" & RS(1) & """> " & RS(1) & " </a>"

&#160; &#160; End If

&#160; &#160; RS.Close:Set RS = Nothing

&#160;&#160;End Function



红色的部分我直接改成是图片，结果是箭头的方向不对啊？



&#160;&#160;Function GetPrevNextURL(ChannelID,NowID, Tid, TypeStr,ByRef Title)

&#160; &#160;&#160; &#160; Dim SqlStr,LinkUrl

&#160; &#160;&#160; &#160; 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&#160;&#160;DelTF=0 Order By ID"

&#160; &#160; If TypeStr=">" Then SqlStr=SqlStr & " asc"

&#160; &#160; Dim RS:Set RS=Conn.Execute(SqlStr)

&#160; &#160; If RS.EOF And RS.BOF Then

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

&#160; &#160; Else

&#160; &#160;&#160;&#160;LinkUrl = KS.GetItemURL(ChannelID,RS(2),RS(0),RS(3))

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

&#160; &#160;&#160;&#160;End If

&#160; &#160; RS.Close:Set RS = Nothing



改成这样后显示的效果如下

箭头都跑到一个方向上去了！！！ 我知道里面少了判断，可以不会写，请大家指点指点！！

需要判断 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

呵呵啊！