|
主题:[已答复]如何将上一张/下一张 图片改为 箭头图标 来显示?高手来看看!! [收藏主题] | 转到: |
需要判断 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 |
|
我爱世界杯,我爱KesionCMS. | |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |