UC知道怎么显示成倒序
来源：百度知道 编辑：UC知道 时间：2024/05/28 03:19:40
Dim rsPro,sqlPro, i, Content, Prosimg, TmpLink, W, H, Pic, totalPut
Set Pic = New ImgWHInfo
i = 1
If Cpage = 0 Then Cpage = 1
sqlPro = "Select * from Pro,ProClass where Pro.CLassid=ProClass.ClassID "
If ProType <> 0 Then '指定分类
sqlPro = sqlPro & " and (ProClass.ClassId="&ProType&" or ProClass.ParentId = "& ProType &")"
End If
If OnTop <> 0 Then '需要审核
sqlPro = sqlPro & " and OnTop = True"
End If
sqlPro = sqlPro & " order by ProductID,Serid asc"
If LinkTar = 0 Then
LinkTar = "_self"
Else
LinkTar = "_blank"
End If
Set rsPro = Server.CreateObject("ADODB.Recordset")
rsPro.Open sqlPro, conn, 1, 3
totalPut = rsPro.recordcount '总数量
If (Cpage -1) * ProNum<totalPut Then
rsPro.Move (Cpage -1) * ProNum
Else
Cpage = 1
End If
可改了还是没变化，
Set Pic = New ImgWHInfo
i = 1
If Cpage = 0 Then Cpage = 1
sqlPro = "Select * from Pro,ProClass where Pro.CLassid=ProClass.ClassID "
If ProType <> 0 Then '指定分类
sqlPro = sqlPro & " and (ProClass.ClassId="&ProType&" or ProClass.ParentId = "& ProType &")"
End If
If OnTop <> 0 Then '需要审核
sqlPro = sqlPro & " and OnTop = True"
End If
sqlPro = sqlPro & " order by ProductID,Serid asc"
If LinkTar = 0 Then
LinkTar = "_self"
Else
LinkTar = "_blank"
End If
Set rsPro = Server.CreateObject("ADODB.Recordset")
rsPro.Open sqlPro, conn, 1, 3
totalPut = rsPro.recordcount '总数量
If (Cpage -1) * ProNum<totalPut Then
rsPro.Move (Cpage -1) * ProNum
Else
Cpage = 1
End If
可改了还是没变化，
sqlPro = sqlPro & " order by ProductID,Serid desc"
唉~~我总是慢一拍
你是根据什么排序,ID的话是
sqlPro = sqlPro & " order by ProductID desc"
后面一个就不要了
或者这样试试看
sqlPro = sqlPro & " order by ProductID desc ,Serid desc"
sqlPro = sqlPro & " order by ProductID,Serid asc"
改成
sqlPro = sqlPro & " order by ProductID,Serid desc"
呵,二楼再接再励!!!!