3.1-下载中的“图片”三合一功能(2)_风讯Cms教程

Dim PicDownListObj,PicDownListSql,i,AllClassID,PicSQL,Opentype
If CSSStyle<>"" then CSSStyle=" Class="&CSSStyle
TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
CompatPicStr =GetCompatPicStr(CompatPicStr,"","",RowNumberStr)
If PicWidth="" then PicWidth=60
If PicHeight="" then PicHeight=60
If NewNumberStr="" then NewNumberStr=1
If RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
If ClassListStr="" or ClassListStr="ThisClass" then
If RefreshType="Class" then
AllClassID = "''" & RefreshID & "''" & ChildClassIDList(RefreshID)
AllClassID = Replace(AllClassID,"''","'")
AllClassID = " and ClassID in ( "& AllClassID &" )"
Else
AllClassID = ""
End If
Else
Dim TempRsHotDownListObj
Set TempRsHotDownListObj = Conn.Execute("FS_ReFunSoonClass '" & ClassListStr & "'")
if Not TempRsHotDownListObj.Eof then
AllClassID = "''" & TempRsHotDownListObj("ClassID") & "''" & ChildClassIDList(TempRsHotDownListObj("ClassID"))
AllClassID = Replace(AllClassID,"''","'")
AllClassID = " and ClassID in ( "& AllClassID &" )"
else
LastDownList = ""
Set TempRsHotDownListObj = Nothing
Exit Function
end if
Set TempRsHotDownListObj = Nothing
End if

Select Case SelectTypeStr
Case "1" '最新
SelectTypeStr = " order by Addtime Desc"
Case "2" '推荐
SelectTypeStr = " and RecTF=1 order by Addtime Desc"
Case "3" '热门
SelectTypeStr = " order by Clicknum Desc"
End Select
Dim RsPic
PicSQL = "Select top "& NewNumberStr &" name,Pic,DownLoadID From FS_DownLoad Where AuditTF=1 " &AllClassID & SelectTypeStr
Set RsPic=Server.CreateObject("Adodb.RecordSet")
RsPic.Open PicSQL,conn,1,1
If not RsPic.eof then
Downpic_Kimli = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & Chr(13) & Chr(10)
do while Not RsPic.Eof
Downpic_Kimli = Downpic_Kimli & "<tr>" & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
Downpic_Kimli = Downpic_Kimli & "<td " & RowHeightStr & " align=center><a href="&GetOneDownLoadLinkURL(RsPic("DownLoadID")) & OpenTypeStr &"><Img Border=0 Src='" &RsPic("Pic")& "' height="&PicHeight&" Width="&PicWidth&"></a>"
If Showtitlestr="1" then
Downpic_Kimli = Downpic_Kimli & "<br><a href="&GetOneDownLoadLinkURL(RsPic("DownLoadID")) & OpenTypeStr & CSSStyle &">"& RsPic("name") &"</a></td>" & Chr(13) & Chr(10)
Else
Downpic_Kimli = Downpic_Kimli & "</td>" & Chr(13) & Chr(10)
End if
RsPic.MoveNext
If RsPic.Eof then
Exit For
End if
Next
Downpic_Kimli = Downpic_Kimli & "</tr>" & Chr(13) & Chr(10) & CompatPicStr & Chr(13) & Chr(10)

查看更多 风讯cms教程  风讯cms模板