28,404
社区成员
发帖
与我相关
我的任务
分享'取得排序URL
'xfileurl---排序的文件,xid指定的ID
function getOrderUrl(xfileurl, xid)
Dim furl
If(xfileurl = "") Then
xfileurl = filename
End If
If(InStr(xfileurl, "?") > 0) Then
furl = xfileurl & "&of=" & xid & "&ot="
Else
furl = xfileurl & "?of=" & xid & "&ot="
End If
If(request("ot") = "0") Then
furl = furl & "1"
Else
furl = furl & "0"
End If
getOrderUrl = furl
end function
qordertype = getParameter("ot", "bit")
qorderfield = getParameter("of", "int")
Select Case (qorderfield)
Case 1
qorderfield = "PUB_DATETIME"
Case Else
qorderfield = "PUB_DATETIME"
End Select
If(qordertype = 1) Then
qorderfield = qorderfield & " ASC"
Else
qorderfield = qorderfield & " DESC"
End If
SQLstr = SQLstr & qorderfield
<a href="<%=getOrderUrl(filename, 1)%>">发布时间<img src="../images/ico_up-down.gif"></a>