flashchannel.asp
来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 1,498 行 · 第 1/5 页
ASP
1,498 行
ListContent = Replace(ListContent, "{$FlashID}", Rs("flashid"))
ListContent = Replace(ListContent, "{$FlashHits}", Rs("AllHits"))
ListContent = Replace(ListContent, "{$Star}", Rs("star")&"")
ListContent = Replace(ListContent, "{$FlashDateTime}", FlashTime)
ListContent = Replace(ListContent, "{$Introduce}", Introduce)
ListContent = Replace(ListContent, "{$ListStyle}", ListStyle)
ListContent = Replace(ListContent, "{$Author}", Newasp.ChkNull(Rs("Author")))
ListContent = Replace(ListContent, "{$UserName}", Rs("UserName")&"")
ListContent = Replace(ListContent, "{$grade}", Rs("grade")&"")
ListContent = Replace(ListContent, "{$IsTop}", Rs("IsTop"))
ListContent = Replace(ListContent, "{$FileSize}", ReadFilesize(Rs("filesize")))
ListContent = Replace(ListContent, "{$IsBest}", Rs("IsBest"))
ListContent = Replace(ListContent, "{$Order}", j)
End Sub
'///---FLASH列表结束
'///---FLASH列表开始,如:最新,推荐,热门FLASH
'-- 最新FLASH列表
Public Sub BuildNewFlash()
CurrentPage = Newasp.ChkNumeric(Request("page"))
If CurrentPage = 0 Then CurrentPage = 1
Response.Write LoadOtherFlshList(0)
End Sub
'-- 热门FLASH列表
Public Sub BuildHotFlash()
CurrentPage = Newasp.ChkNumeric(Request("page"))
If CurrentPage = 0 Then CurrentPage = 1
Response.Write LoadOtherFlshList(3)
End Sub
'-- 推荐FLASH列表
Public Sub BuildBestFlash()
CurrentPage = Newasp.ChkNumeric(Request("page"))
If CurrentPage = 0 Then CurrentPage = 1
Response.Write LoadOtherFlshList(1)
End Sub
'=================================================
'过程名：LoadOtherFlshList
'作 用：载入其它FLASH列表
'=================================================
Public Function LoadOtherFlshList(t)
Dim HtmlFileName, SQL1, SQL2
skinid = Newasp.ChkNumeric(Newasp.ChannelSkin)
Newasp.LoadTemplates ChannelID, 5, skinid
HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", ChannelRootDir)
HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
HtmlContent = Replace(HtmlContent,"{$ArticleID}", rs("flashid"))
HtmlContent = Replace(HtmlContent, "{$ModuleName}", Newasp.ModuleName)
HtmlContent = Replace(HtmlContent, "{$FlashIndex}", strIndexName)
HtmlContent = Replace(HtmlContent, "{$IndexTitle}", strIndexName)
PageType = 3
If CInt(t) = 1 Then
strClassName = Newasp.HtmlSetting(10)
SQL1 = "And IsBest>0"
SQL2 = "And A.IsBest>0 ORDER BY A.addTime DESC,A.flashid DESC"
m_strCurrPageName = "best"
ElseIf CInt(t) = 3 Then
strClassName = Newasp.HtmlSetting(11)
SQL1 = ""
SQL2 = "ORDER BY A.AllHits DESC,A.addTime DESC,A.flashid DESC"
m_strCurrPageName = "hot"
Else
strClassName = Newasp.HtmlSetting(12)
SQL1 = ""
SQL2 = "ORDER BY A.addTime DESC ,A.flashid DESC"
m_strCurrPageName = "new"
t = 0
End If
'--获取HTML文件路径
If CreateHtml <> 0 Then
HtmlFileName = Newasp.ReadDestination(Newasp.MoreDestination, Newasp.ChannelDir, "",m_strCurrPageName & "/",t,t,1,m_strCurrPageName)
HtmlFilePath = Newasp.HtmlFilesPath
Newasp.CreatPathEx (strBasicPath & HtmlFilePath)
End If
HtmlContent = Replace(HtmlContent, "{$PageTitle}", strClassName)
Call ReplaceString
maxperpage = CLng(Newasp.HtmlSetting(1))
If CLng(CurrentPage) = 0 Then CurrentPage = 1
'记录总数
TotalNumber = Newasp.Execute("SELECT COUNT(flashid) FROM NC_FlashList WHERE ChannelID = " & ChannelID & " And isAccept>0 " & SQL1 & "")(0)
If TotalNumber >= CLng(Newasp.HtmlSetting(5)) Then TotalNumber = CLng(Newasp.HtmlSetting(5))
TotalPageNum = CLng(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 TOP " & CLng(Newasp.HtmlSetting(5)) & " 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.HtmlFileDate,A.isBest,A.IsTop,C.ClassName,C.ParentID,C.ParentStr,C.skinid,C.HtmlFileDir,C.ChildStr,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.ChannelID=" & ChannelID & " And A.isAccept>0 " & SQL2
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}", "还没有找到任何" & Newasp.ModuleName & "")
HtmlContent = Replace(HtmlContent, Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1), "")
If CreateHtml <> 0 Then
Newasp.CreatedTextFile strBasicPath & HtmlFileName, HtmlContent
If IsShowFlush = 1 Then
Response.Write "<li style=""font-size: 12px;"">生成" & Newasp.ModuleName & "列表HTML完成... <a href=" & HtmlFileName & " target=_blank>" & HtmlFileName & "</a></li>" & vbNewLine
Response.Flush
End If
End If
Else
TempListContent = Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1)
If CreateHtml <> 0 Then
Call LoadOtherListHtml(t)
Else
Call LoadFlashAspList
End If
End If
Rs.Close: Set Rs = Nothing
If CreateHtml = 0 Then LoadOtherFlshList = HtmlContent
End Function
'================================================
'过程名：LoadOtherListHtml
'作 用：装载其它列表并生成HTML
'================================================
Private Sub LoadOtherListHtml(t)
Dim HtmlFileName, sulCurrentPage
Dim Perownum,ii,w
If IsNull(TempListContent) Then Exit Sub
Perownum = Newasp.ChkNumeric(Newasp.HtmlSetting(4))
Newasp.CreatPathEx (strBasicPath & HtmlFilePath)
For CurrentPage = 1 To TotalPageNum
Rs.MoveFirst
i = 0
If TotalPageNum > 1 Then Rs.Move (CurrentPage - 1) * maxperpage
ListContent = ""
j = (CurrentPage - 1) * maxperpage + 1
If Perownum > 1 Then
ListContent = Newasp.HtmlSetting(6)
w = FormatPercent(100 / Perownum / 100,0)
End If
Do While Not Rs.EOF And i < CInt(maxperpage)
If Not Response.IsClientConnected Then Response.end
If Perownum > 1 Then
ListContent = ListContent & "<tr valign=""top"">" & vbCrLf
For ii = 1 To Perownum
ListContent = ListContent & "<td width=""" & w & """class=""Flashlistrow"">"
If Not Rs.EOF Then
Call LoadListDetail
Rs.movenext
i = i + 1
j = j + 1
End If
ListContent = ListContent & "</td>" & vbCrLf
Next
ListContent = ListContent & "</tr>" & vbCrLf
Else
Call LoadListDetail
Rs.MoveNext
i = i + 1
j = j + 1
End If
If i >= maxperpage Then Exit Do
Loop
Dim strHtmlPage
HtmlFileName = Newasp.ReadDestination(Newasp.MoreDestination, Newasp.ChannelDir, "",m_strCurrPageName & "/",t,t,CurrentPage,m_strCurrPageName)
strHtmlPage = showhtmlpage(CurrentPage, TotalPageNum, TotalNumber, maxperpage, Newasp.HtmlFilesName, strClassName)
HtmlTemplate = HtmlContent
HtmlTemplate = Replace(HtmlTemplate, TempListContent, ListContent)
HtmlTemplate = Replace(HtmlTemplate, "{$ReadListPage}", strHtmlPage)
HtmlTemplate = Replace(HtmlTemplate, "[ShowRepetend]", "")
HtmlTemplate = Replace(HtmlTemplate, "[/ShowRepetend]", "")
'开始生成子分类的HTML页
Newasp.CreatedTextFile strBasicPath & HtmlFileName, HtmlTemplate
If IsShowFlush = 1 Then
Response.Write "<li style=""font-size: 12px;"">生成" & Newasp.ModuleName & "列表HTML完成... <a href=" & HtmlFileName & " target=_blank>" & HtmlFileName & "</a></li>" & vbNewLine
Response.Flush
End If
Next
End Sub
'#############################\\执行专题软件开始//#############################
Public Sub BuildFlashSpecial()
If CreateHtml <> 0 Then
Response.Redirect (ChannelRootDir & "index" & Newasp.HtmlExtName)
Exit Sub
Else
Newasp.PreventInfuse
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 = CLng(Request("page"))
Else
CurrentPage = 1
End If
SpecialID = Newasp.ChkNumeric(Request("sid"))
Response.Write LoadFlashSpecial(SpecialID, 1)
End If
End Sub
'=================================================
'过程名：LoadFlashSpecial
'作 用：载入其它FLASH专题列表
'=================================================
Public Function LoadFlashSpecial(sid,n)
Dim rsPecial
Dim HtmlFileName
m_strCurrPageName = "special"
PageType = 2
If Not IsNumeric(SpecialID) Then Exit Function
Set rsPecial = Newasp.Execute("SELECT SpecialID,SpecialName,SpecialDir FROM [NC_Special] WHERE ChannelID = " & ChannelID & " And SpecialID=" & sid)
If rsPecial.BOF And rsPecial.EOF Then
Response.Write ("错误的系统参数!")
Set rsPecial = Nothing
Exit Function
Else
SpecialName = rsPecial("SpecialName")
SpecialID = rsPecial("SpecialID")
SpecialDir = rsPecial("SpecialDir")
skinid = Newasp.ChkNumeric(Newasp.ChannelSkin)
End If
rsPecial.Close: Set rsPecial = Nothing
strClassName = SpecialName
m_strCurrPageName = SpecialDir
Newasp.LoadTemplates ChannelID, 4, skinid
If CreateHtml <> 0 Then
HtmlFileName = Newasp.ReadDestination(Newasp.MoreDestination, Newasp.ChannelDir, "",SpecialDir & "/",SpecialID,SpecialID,1,m_strCurrPageName)
HtmlFilePath = Newasp.HtmlFilesPath
Newasp.CreatPathEx (strBasicPath & HtmlFilePath)
End If
HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", ChannelRootDir)
HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
HtmlContent = Replace(HtmlContent,"{$ArticleID}", rs("flashid"))
HtmlContent = Replace(HtmlContent, "{$ModuleName}", Newasp.ModuleName)
HtmlContent = Replace(HtmlContent, "{$SpecialID}", SpecialID)
HtmlContent = Replace(HtmlContent, "{$PageTitle}", SpecialName)
HtmlContent = Replace(HtmlContent, "{$SoftIndex}", strIndexName)
HtmlContent = Replace(HtmlContent, "{$SpecialName}", SpecialName)
Call ReplaceString
maxperpage = CInt(Newasp.HtmlSetting(1))
If CLng(CurrentPage) = 0 Then CurrentPage = 1
'记录总数
TotalNumber = Newasp.Execute("SELECT COUNT(FlashID) from NC_FlashList WHERE ChannelID = " & ChannelID & " And isAccept > 0 And SpecialID = " & SpecialID)(0)
TotalPageNum = CLng(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 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.ParentID,C.ParentStr,C.skinid,C.HtmlFileDir,C.ChildStr,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.SpecialID = " & SpecialID & " ORDER BY A.isTop DESC, A.addTime DESC ,A.FlashID 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}", "还没有找到任何专题" & Newasp.ModuleName & "")
HtmlContent = Replace(HtmlContent, Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1), "")
'如果是生成HTML,执行下面的语句
If CreateHtml <> 0 Then
Newasp.CreatedTextFile strBasicPath & HtmlFileName, HtmlContent
If IsShowFlush = 1 Then
Response.Write "<li style=""font-size: 12px;"">生成" & strClassName & "HTML完成... <a href=" & HtmlFileName & " target=_blank>" & HtmlFileName & "</a></li>" & vbNewLine
Response.Flush
End If
End If
Else
'获取模板标签[ShowRepetend][/ReadSoftList]中的字符串
TempListContent = Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1)
If CreateHtml <> 0 Then
Call LoadFlashListHtml(n)
Else
Call LoadFlashAspList
End If
End If
Rs.Close: Set Rs = Nothing
If CreateHtml = 0 Then LoadFlashSpecial = HtmlContent
End Function
'================================================
'过程名：LoadFlashListHtml
'作 用：装载FLASH专题列表并生成HTML
'================================================
Private Sub LoadFlashListHtml(n)
Dim HtmlFileName
If IsNull(TempListContent) Then Exit Sub
For CurrentPage = n To TotalPageNum
Rs.MoveFirst
i = 0
If TotalPageNum > 1 Then Rs.Move (CurrentPage - 1) * maxperpage
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?