📄 flashchannel.asp
字号:
End If
rsClass.Close: Set rsClass = Nothing
End If
maxperpage = CInt(Newasp.HtmlSetting(1))
If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
Response.Write ("错误的系统参数!请输入整数")
Response.End
End If
If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
CurrentPage = CInt(Request("page"))
Else
CurrentPage = 1
End If
If CInt(CurrentPage) = 0 Then CurrentPage = 1
Set Rs = CreateObject("ADODB.Recordset")
SQL = "SELECT TOP " & SearchMaxPageList & " A.flashid,A.ClassID,A.title,A.ColorMode,A.FontMode,A.Introduce,A.[filesize],A.Author,A.star,A.miniature,A.UserName,A.addTime,A.AllHits,A.grade,A.IsTop,A.HtmlFileDate,A.isBest,C.ClassName,C.HtmlFileDir,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.ChannelID=" & ChannelID & " And A.isAccept > 0 And " & findword & " ORDER BY A.addTime DESC ,A.flashid DESC"
Rs.Open SQL, Conn, 1, 1
If Rs.BOF And Rs.EOF Then
'如果没有找到相关内容,清除掉无用的标签代码
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", strNoResult, 1, 1, 1)
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", "")
HtmlContent = Replace(HtmlContent, "{$totalrec}", 0)
HtmlContent = Replace(HtmlContent, Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1), "")
Else
TotalNumber = Rs.RecordCount
If (TotalNumber Mod maxperpage) = 0 Then
TotalPageNum = TotalNumber \ maxperpage
Else
TotalPageNum = TotalNumber \ maxperpage + 1
End If
If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
If CurrentPage < 1 Then CurrentPage = 1
HtmlContent = Replace(HtmlContent, "{$totalrec}", TotalNumber)
'获取模板标签[ShowRepetend][/ReadFlashList]中的字符串
TempListContent = Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1)
Call LoadSearchList
End If
Rs.Close: Set Rs = Nothing
Else
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", "")
HtmlContent = Replace(HtmlContent, "{$totalrec}", 0)
HtmlContent = Replace(HtmlContent, Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1), "")
If s = 1 Then
Call isWeb_Query()
Exit Sub
End If
Response.Write HtmlContent & SearchObj
Exit Sub
End If
Response.Write HtmlContent
Exit Sub
End Sub
'================================================
'过程名：LoadSearchList
'作 用：装载软件搜索列表
'================================================
Private Sub LoadSearchList()
If IsNull(TempListContent) Then Exit Sub
i = 0
If TotalPageNum > 1 Then Rs.Move (CurrentPage - 1) * maxperpage
ListContent = ""
j = (CurrentPage - 1) * maxperpage + 1
Do While Not Rs.EOF And i < CInt(maxperpage)
If Not Response.IsClientConnected Then Response.End
Call SearchResult
Rs.MoveNext
i = i + 1
j = j + 1
If i >= maxperpage Then Exit Do
Loop
Dim strPagination
strPagination = ShowListPage(CurrentPage, TotalPageNum, TotalNumber, maxperpage, ASPCurrentPage(PageType), "搜索结果")
HtmlContent = Replace(HtmlContent, TempListContent, ListContent)
HtmlContent = Replace(HtmlContent, "[ShowRepetend]", "")
HtmlContent = Replace(HtmlContent, "[/ShowRepetend]", "")
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", strPagination)
End Sub
'================================================
'过程名：SearchResult
'作 用：装载搜索列表细节
'================================================
Private Sub SearchResult()
Dim sTitle, sTopic, title, ListStyle, TitleWord
Dim FlashUrl, addTime, sClassName, FlashImage, FlashIntro
Dim miniatureUrl,miniature,strminiature
ListContent = ListContent & TempListContent
If (i Mod 2) = 0 Then
ListStyle = 1
Else
ListStyle = 2
End If
TitleWord = Replace(Rs("title"), keyword, "<font color=red>" & keyword & "</font>")
sTitle = Newasp.ReadFontMode(TitleWord, Rs("ColorMode"), Rs("FontMode"))
If CInt(CreateHtml) <> 0 Then
FlashUrl = ChannelRootDir & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.HtmlPath) & ReadPagination(0)
sClassName = ChannelRootDir & Rs("HtmlFileDir")
Else
FlashUrl = ChannelRootDir & "show.asp?id=" & Rs("flashid")
sClassName = ChannelRootDir & "list.asp?classid=" & Rs("ClassID")
End If
sClassName = "<a href=""" & sClassName & """ title=""" & Rs("ClassName") & """ target=""_blank""><span style=""color:" & Newasp.MainSetting(3) & """>" & Rs("ClassName") & "</span></a>"
title = "<a href='" & FlashUrl & "' title='" & Rs("title") & "' class=""showtopic"" target=""_blank"">" & sTitle & "</a>"
FlashIntro = Newasp.CutString(Rs("Introduce"), CInt(Newasp.HtmlSetting(3)))
FlashIntro = Replace(FlashIntro, keyword, "<font color=red>" & keyword & "</font>")
If Not IsNull(Rs("miniature")) Then
strminiature = Rs("miniature")
End If
miniatureUrl = Newasp.GetImageUrl(strminiature, Newasp.ChannelDir)
miniature = Newasp.GetFlashAndPic(miniatureUrl, CInt(Newasp.HtmlSetting(11)), CInt(Newasp.HtmlSetting(12)))
miniature = "<a href='" & FlashUrl & "' title='" & Rs("title") & "'>" & miniature & "</a>"
addTime = Newasp.ShowDateTime(Rs("addTime"), CInt(Newasp.HtmlSetting(2)))
ListContent = Replace(ListContent, "{$KeyWord}", keyword)
ListContent = Replace(ListContent, "{$totalrec}", TotalNumber)
ListContent = Replace(ListContent, "{$ClassifyName}", sClassName)
ListContent = Replace(ListContent, "{$FlashTitle}", title)
ListContent = Replace(ListContent, "{$FlashTopic}", sTitle)
ListContent = Replace(ListContent, "{$FlashUrl}", FlashUrl)
ListContent = Replace(ListContent, "{$Miniature}", miniature)
ListContent = Replace(ListContent, "{$Star}", Rs("star"))
ListContent = Replace(ListContent, "{$FlashHits}", Rs("AllHits"))
ListContent = Replace(ListContent, "{$UserName}", Rs("username"))
ListContent = Replace(ListContent, "{$DateAndTime}", addTime)
ListContent = Replace(ListContent, "{$Introduce}", FlashIntro)
ListContent = Replace(ListContent, "{$ListStyle}", ListStyle)
ListContent = Replace(ListContent, "{$FlashSize}", ReadFilesize(Rs("filesize")))
ListContent = Replace(ListContent, "{$Author}", Newasp.ChkNull(Rs("Author")))
ListContent = Replace(ListContent, "{$FlashID}", Rs("flashid"))
ListContent = Replace(ListContent, "{$Order}", j)
End Sub
'//--搜索结束
'================================================
'函数名：FlashComment
'作 用：FLASH评论
'================================================
Private Function FlashComment(flashid)
Dim rsComment, SQL, strContent, strComment
Dim i, Resize, strRearrange
Dim ArrayTemp()
On Error Resume Next
Set rsComment = Newasp.Execute("SELECT TOP " & CInt(Newasp.HtmlSetting(5)) & " content,Grade,username,postime,postip FROM NC_Comment WHERE ChannelID=" & ChannelID & " And postid = " & flashid & " ORDER BY postime DESC,CommentID DESC")
If Not (rsComment.EOF And rsComment.BOF) Then
i = 0
Resize = 0
Do While Not rsComment.EOF
ReDim Preserve ArrayTemp(i + Resize)
strContent = ArrayTemp(i) & Newasp.HtmlSetting(7)
strComment = Newasp.CutString(rsComment("content"), CInt(Newasp.HtmlSetting(6)))
strContent = Replace(strContent, "{$Comment}", Newasp.HTMLEncode(strComment))
strContent = Replace(strContent, "{$UserName}", Newasp.HTMLEncode(rsComment("username")))
strContent = Replace(strContent, "{$UserGrade}", rsComment("Grade"))
strContent = Replace(strContent, "{$postime}", rsComment("postime"))
strContent = Replace(strContent, "{$postip}", rsComment("postip"))
ArrayTemp(i) = strContent
rsComment.MoveNext
i = i + 1
Loop
End If
rsComment.Close
strRearrange = Join(ArrayTemp, vbCrLf)
Set rsComment = Nothing
FlashComment = strRearrange
End Function
'================================================
'过程名：BuildFlashComment
'作 用：显示FLASH评论
'================================================
Public Sub BuildFlashComment()
Dim title, HtmlFileUrl, HtmlFileName
Dim AverageGrade, TotalComment, TempListContent
Dim strComment, strCheckBox, strAdminComment
Newasp.PreventInfuse
strCheckBox = ""
strAdminComment = ""
On Error Resume Next
flashid = Newasp.ChkNumeric(Request("flashid"))
If flashid = 0 Then
Response.Write "<Br><Br><Br>Sorry！错误的系统参数,请选择正确的连接方式。"
Response.End
End If
skinid = CLng(Newasp.ChannelSkin)
Newasp.LoadTemplates ChannelID, 8, skinid
HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", ChannelRootDir)
HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
HtmlContent = Replace(HtmlContent, "{$ModuleName}", Newasp.ModuleName)
HtmlContent = Replace(HtmlContent, "{$FlashIndex}", strIndexName)
HtmlContent = Replace(HtmlContent, "{$IndexTitle}", strIndexName)
HtmlContent = Replace(HtmlContent, "{$PageTitle}", Newasp.ModuleName & "评论")
HtmlContent = Replace(HtmlContent, "{$flashid}", flashid)
HtmlContent = Replace(HtmlContent, "{$FlashID}", flashid)
'获得软件标题
SQL = "SELECT TOP 1 A.flashid,A.ClassID,A.title,A.HtmlFileDate,A.ForbidEssay,C.HtmlFileDir,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.ChannelID=" & ChannelID & " And A.isAccept > 0 And A.flashid = " & flashid
Set Rs = Newasp.Execute(SQL)
If Rs.EOF And Rs.BOF Then
Response.Write "已经没有了"
Set Rs = Nothing
Exit Sub
Else
If CreateHtml <> 0 Then
HtmlFileUrl = ChannelRootDir & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.HtmlPath)
HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("flashid"), Newasp.HtmlExtName, Newasp.HtmlPrefix, Newasp.HtmlForm, "")
title = "<a href=" & HtmlFileUrl & HtmlFileName & ">" & Rs("title") & "</a>"
Else
title = "<a href=show.asp?id=" & Rs("flashid") & ">" & Rs("title") & "</a>"
End If
ForbidEssay = Rs("ForbidEssay")
End If
Rs.Close
Set Rs = CreateObject("adodb.recordset")
SQL = "SELECT COUNT(CommentID) As TotalComment,AVG(Grade) As avgGrade FROM NC_Comment WHERE ChannelID=" & ChannelID & " And postid = " & flashid
Set Rs = Newasp.Execute(SQL)
TotalComment = Rs("TotalComment")
AverageGrade = Round(Rs("avgGrade"))
If IsNull(AverageGrade) Then AverageGrade = 0
Rs.Close: Set Rs = Nothing
HtmlContent = Replace(HtmlContent, "{$FlashTitle}", title)
HtmlContent = Replace(HtmlContent, "{$TotalComment}", TotalComment)
HtmlContent = Replace(HtmlContent, "{$AverageGrade}", AverageGrade)
If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
Response.Write ("错误的系统参数!请输入整数")
Response.End
End If
If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
CurrentPage = CInt(Request("page"))
Else
CurrentPage = 1
End If
If CInt(CurrentPage) = 0 Then CurrentPage = 1
'每页显示评论数
maxperpage = CInt(Newasp.PaginalNum)
'记录总数
TotalNumber = TotalComment
TotalPageNum = CInt(TotalNumber / maxperpage) '得到总页数
If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
Set Rs = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_Comment WHERE ChannelID=" & ChannelID & " And postid = " & flashid & " ORDER BY postime DESC,CommentID DESC"
If isSqlDataBase = 1 Then
Set Rs = Newasp.Execute(SQL)
Else
Rs.Open SQL, Conn, 1, 1
End If
If Rs.BOF And Rs.EOF Then
'如果没有找到相关内容,清除掉无用的标签代码
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", "暂时无人参加评论", 1, 1, 1)
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", "")
HtmlContent = Replace(HtmlContent, Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1), "")
Else
Rs.MoveFirst
i = 0
If TotalPageNum > 1 Then Rs.Move (CurrentPage - 1) * maxperpage
ListContent = ""
'获取模板标签[ShowRepetend][/ReadArticleList]中的字符串
TempListContent = Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1)
Do While Not Rs.EOF And i < CInt(maxperpage)
If Not Response.IsClientConnected Then Response.End
ListContent = ListContent & TempListContent
strComment = Newasp.HTMLEncode(Rs("Content"))
ListContent = Replace(ListContent, "{$CommentContent}", strComment)
ListContent = Replace(ListContent, "{$UserName}", Newasp.HTMLEncode(Rs("username")))
ListContent = Replace(ListContent, "{$CommentGrade}", Rs("Grade"))
ListContent = Replace(ListContent, "{$PostTime}", Rs("postime"))
ListContent = Replace(ListContent, "{$PostIP}", Rs("postip"))
If Session("AdminName") <> "" Or Newasp.membergrade = "999" Then
strCheckBox = "<input type='checkbox' name='selCommentID' value='" & Rs("CommentID") & "'>"
End If
ListContent = Replace(ListContent, "{$SelCheckBox}", strCheckBox)
Rs.MoveNext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
End If
Rs.Close: Set Rs = Nothing
HtmlContent = Replace(HtmlContent, TempListContent, ListContent)
HtmlContent = Replace(HtmlContent, "[ShowRepetend]", "")
HtmlContent = Replace(HtmlContent, "[/ShowRepetend]", "")
If Session("AdminName") <> "" Or Newasp.membergrade = "999" Then
strAdminComment = "<input class=Button type=button name=chkall value='全选' onClick=""CheckAll(this.form)""><input class=Button type=button name=chksel value='反选' onClick=""ContraSel(this.form)"">" & vbNewLine
strAdminComment = strAdminComment & "<input type=hidden name=fla⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -