📄 powereasy.photo.asp
字号:
Set rsInfoList = Nothing
GetPhotoList = strInfoList
Exit Function
End If
If UsePage = True And ShowType < 5 Then
totalPut = rsInfoList.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
iMod = 0
If CurrentPage > UpdatePages Then
iMod = totalPut Mod MaxPerPage
If iMod <> 0 Then iMod = MaxPerPage - iMod
End If
rsInfoList.Move (CurrentPage - 1) * MaxPerPage - iMod
Else
CurrentPage = 1
End If
End If
End If
CssName = CssName1
If ShowType = 5 Then Set XMLDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
If ShowType = 2 Or Cols > 1 Then
strInfoList = "<table width=""100%"" cellpadding=""0"" cellspacing=""0""><tr>"
Else
strInfoList = ""
End If
Do While Not rsInfoList.EOF
If iChannelID = 0 Then
If rsInfoList("ChannelID") <> PrevChannelID Then
Call GetChannel(rsInfoList("ChannelID"))
PrevChannelID = rsInfoList("ChannelID")
End If
End If
If UsePage = True Then
iNumber = (CurrentPage - 1) * MaxPerPage + iCount + 1
Else
iNumber = iCount + 1
End If
ChannelUrl = UrlPrefix(UrlType, ChannelUrl) & ChannelUrl
ChannelUrl_ASPFile = UrlPrefix(UrlType, ChannelUrl_ASPFile) & ChannelUrl_ASPFile
InfoUrl = GetPhotoUrl(rsInfoList("ParentDir"), rsInfoList("ClassDir"), rsInfoList("UpdateTime"), rsInfoList("PhotoID"), rsInfoList("ClassPurview"), rsInfoList("InfoPurview"), rsInfoList("InfoPoint"))
strTitle = GetInfoList_GetStrTitle(rsInfoList("PhotoName"), TitleLen, 0, "")
If ShowType < 5 Then
strProperty = GetInfoList_GetStrProperty(ShowPropertyType, rsInfoList("OnTop"), rsInfoList("Elite"), iNumber, strCommon, strTop, strElite)
strHotSign = GetInfoList_GetStrHotSign(ShowHotSign, rsInfoList("Hits"), strHot)
strNewSign = GetInfoList_GetStrNewSign(ShowNewSign, rsInfoList("UpdateTime"), strNew)
strAuthor = GetSubStr(rsInfoList("Author"), AuthorInfoLen, True)
strUpdateTime = GetInfoList_GetStrUpdateTime(rsInfoList("UpdateTime"), ShowDateType)
strHits = rsInfoList("Hits")
If ShowType = 3 Or ShowType = 4 Then
strAuthor = GetInfoList_GetStrAuthor_Xml(ShowAuthor, strAuthor)
strUpdateTime = GetInfoList_GetStrUpdateTime_Xml(ShowDateType, strUpdateTime)
strHits = GetInfoList_GetStrHits_Xml(ShowHits, strHits)
End If
strLink = ""
If ShowClassName = True Then
strLink = strLink & GetInfoList_GetStrClassLink(Character_Class, CssNameA, rsInfoList("ClassID"), rsInfoList("ClassName"), GetClassUrl(rsInfoList("ParentDir"), rsInfoList("ClassDir"), rsInfoList("ClassID"), rsInfoList("ClassPurview")))
End If
strLink = strLink & GetInfoList_GetStrInfoLink(strList_Title, ShowTips, OpenType, CssNameA, strTitle, InfoUrl, rsInfoList("PhotoName"), rsInfoList("Author"), rsInfoList("UpdateTime"))
strContent = ""
Select Case PE_CLng(ShowType)
Case 1, 3, 4
If ContentLen > 0 Then
strContent = strContent & "<div " & strList_Content_Div & ">"
strContent = strContent & GetInfoList_GetStrContent(ContentLen, rsInfoList("PhotoIntro"), "")
strContent = strContent & "</div>"
End If
Case 2
If ContentLen > 0 Then
strContent = strContent & "<tr><td colspan=""10"" class=""" & CssName & """>"
strContent = strContent & GetInfoList_GetStrContent(ContentLen, rsInfoList("PhotoIntro"), "")
strContent = strContent & "</td></tr>"
End If
End Select
ElseIf ShowType = 5 Then
strTitle = xml_nohtml(strTitle)
strLink = InfoUrl
If ContentLen > 0 Then
strContent = Left(Replace(Replace(xml_nohtml(rsInfoList("PhotoIntro")), ">", ">"), "<", "<"), ContentLen)
End If
strAuthor = GetInfoList_GetStrAuthor_RSS(Author)
If ShowClassName = True And rsInfoList("ClassID") <> -1 Then
strClassName = xml_nohtml(rsInfoList("ClassName"))
Else
strClassName = ""
End If
strUpdateTime = GetInfoList_GetStrUpdateTime(rsInfoList("UpdateTime"), ShowDateType)
End If
Select Case PE_CLng(ShowType)
Case 1
If Cols > 1 Then
strInfoList = strInfoList & "<td valign=""top"" class=""" & CssName & """>"
End If
strInfoList = strInfoList & strProperty & " " & strLink
strInfoList = strInfoList & GetInfoList_GetStrAuthorDateHits(ShowAuthor, ShowDateType, ShowHits, rsInfoList("Author"), strUpdateTime, strHits, rsInfoList("ChannelID"))
strInfoList = strInfoList & strHotSign & strNewSign & strContent
strInfoList = strInfoList & "<br />"
iCount = iCount + 1
If Cols > 1 Then
strInfoList = strInfoList & "</td>"
If iCount Mod Cols = 0 Then
strInfoList = strInfoList & "</tr><tr>"
If iCount Mod 2 = 0 Then
CssName = CssName1
Else
CssName = CssName2
End If
End If
End If
Case 2
If strProperty <> "" Then
strInfoList = strInfoList & "<td width=""10"" valign=""top"" class=""" & CssName & """>" & strProperty & "</td>"
End If
strInfoList = strInfoList & "<td class=""" & CssName & """>" & strLink & strHotSign & strNewSign & "</td>"
If ShowAuthor = True Then
strInfoList = strInfoList & "<td align=""center"" class=""" & CssName & """ width=""" & TDWidth_Author & """>" & strAuthor & "</td>"
End If
If ShowDateType > 0 Then
strInfoList = strInfoList & "<td align=""right"" class=""" & CssName & """ width=""" & TdWidth_Date & """>" & strUpdateTime & "</td>"
End If
If ShowHits = True Then
strInfoList = strInfoList & "<td align=""center"" class=""" & CssName & """ width=""40"">" & strHits & "</td>"
End If
iCount = iCount + 1
If (iCount Mod Cols = 0) Or ContentLen > 0 Then
strInfoList = strInfoList & "</tr>"
strInfoList = strInfoList & strContent
strInfoList = strInfoList & "<tr>"
If iCount Mod (Cols * 2) = 0 Then
CssName = CssName1
Else
CssName = CssName2
End If
End If
Case 3
If Cols > 1 Then
strInfoList = strInfoList & "<td valign=""top"" class=""" & CssName & """>"
End If
strInfoList = strInfoList & strProperty & " " & strLink
strInfoList = strInfoList & strAuthor & strUpdateTime & strHits
strInfoList = strInfoList & strHotSign & strNewSign & strContent
strInfoList = strInfoList & "<br />"
iCount = iCount + 1
If Cols > 1 Then
strInfoList = strInfoList & "</td>"
If iCount Mod Cols = 0 Then
strInfoList = strInfoList & "</tr><tr>"
If iCount Mod 2 = 0 Then
CssName = CssName1
Else
CssName = CssName2
End If
End If
End If
Case 4 '输出DIV
strInfoList = strInfoList & "<div class=""" & CssName & """>"
strInfoList = strInfoList & strProperty & " " & strLink
strInfoList = strInfoList & strAuthor & strUpdateTime & strHits
strInfoList = strInfoList & strHotSign & strNewSign & strContent
strInfoList = strInfoList & "</div>"
iCount = iCount + 1
If iCount Mod 2 = 0 Then
CssName = CssName1
Else
CssName = CssName2
End If
Case 5 '输出RSS
strInfoList = strInfoList & GetInfoList_GetStrRSS(strTitle, strLink, strContent, strAuthor, strClassName, strUpdateTime)
iCount = iCount + 1
End Select
rsInfoList.MoveNext
If UsePage = True And iCount >= MaxPerPage Then Exit Do
Loop
If ShowType = 2 Or Cols > 1 Then
strInfoList = strInfoList & "</tr></table>"
End If
rsInfoList.Close
Set rsInfoList = Nothing
If ShowType = 5 And RssCodeType = False Then strInfoList = unicode(strInfoList)
GetPhotoList = strInfoList
End Function
Private Function GetInfoList_GetArrClassID(strClassID, IncludeChild)
Dim trs, arrClassID, SingleClassID
If InStr(strClassID, ",") > 0 Then
arrClassID = strClassID
Else
SingleClassID = PE_CLng(strClassID)
If IncludeChild = True Then
Set trs = Conn.Execute("select arrChildID from PE_Class where ClassID=" & SingleClassID & "")
If trs.BOF And trs.EOF Then
arrClassID = "0"
Else
If IsNull(trs(0)) Or Trim(trs(0)) = "" Then
arrClassID = "0"
Else
arrClassID = trs(0)
End If
End If
Set trs = Nothing
Else
arrClassID = SingleClassID
End If
End If
GetInfoList_GetArrClassID = arrClassID
End Function
'=================================================
'函数名：GetPicPhoto
'作 用：显示图片图片
'参 数：
'0 iChannelID ---- 频道ID
'1 arrClassID ---- 栏目ID数组，0为所有栏目
'2 IncludeChild ---- 是否包含子栏目，仅当arrClassID为单个栏目ID时才有效，True----包含子栏目，False----不包含
'3 iSpecialID ---- 专题ID，0为所有图片（含非专题图片），如果为大于0，则只显示相应专题的图片
'4 PhotoNum ---- 最多显示多少个图片
'5 IsHot ---- 是否是热门图片
'6 IsElite ---- 是否是推荐图片
'7 DateNum ---- 日期范围，如果大于0，则只显示最近几天内更新的图片
'8 OrderType ---- 排序方式，1--按图片ID降序，2--按图片ID升序，3--按更新时间降序，4--按更新时间升序，5--按点击数降序，6--按点击数升序，7--按评论数降序，8--按评论数升序
'9 ShowType ---- 显示方式。1为图片+标题+内容简介：上下排列；2为（图片+标题：上下排列）+内容简介：左右排列，3为图片+（标题+内容简介：上下排列）：左右排列，4为输出DIV格式，5为输出RSS格式
'10 ImgWidth ---- 图片宽度
'11 ImgHeight ---- 图片高度
'12 TitleLen ---- 标题最多字符数，一个汉字=两个英文字符。若为0，则不显示标题；若为-1，则显示完整标题
'13 ContentLen ---- 内容最多字符数，一个汉字=两个英文字符。若为0，则不显示内容简介
'14 ShowTips ---- 是否显示作者、更新时间、点击数等提示信息，True为显示，False为不显示
'15 Cols ---- 每行的列数。超过此列数就换行。
'16 UrlType ---- 链接地址类型，0为相对路径，1为带网址的绝对路径。
'=================================================
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -