flashchannel.asp
来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 1,498 行 · 第 1/5 页
ASP
1,498 行
Newasp.LoadTemplates ChannelID, 2, skinid
m_strFilePath = Newasp.ReadDestination(Newasp.SortDestination, Newasp.ChannelDir, "",strFileDir,ClassID,0,1,"")
HtmlFilePath = Newasp.HtmlFilesPath
m_strFileDir = strFileDir
HtmlContent = Replace(Newasp.HtmlContent, "|||@@@|||", "")
'-- 新增分类广告代码
HtmlContent = AdsReplace(HtmlContent,AdsCode, stopad)
HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", ChannelRootDir)
HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
HtmlContent = Replace(HtmlContent,"{$ArticleID}", ArticleID)
HtmlContent = Replace(HtmlContent, "{$ModuleName}", Newasp.ModuleName)
HtmlContent = Replace(HtmlContent, "{$ClassID}", ClassID)
HtmlContent = Replace(HtmlContent, "{$FlashIndex}", strIndexName)
HtmlContent = Replace(HtmlContent, "{$IndexTitle}", strIndexName)
HtmlContent = Replace(HtmlContent, "{$strClassName}", strClassName)
HtmlContent = Replace(HtmlContent, "{$ThisClassName}", strClassName)
ReplaceContent
maxparent = Newasp.ChkNumeric(Newasp.HtmlSetting(5))
maxperpage = CInt(Newasp.HtmlSetting(1))
strlen = Newasp.ChkNumeric(Newasp.HtmlSetting(9))
If CLng(CurrentPage) = 0 Then CurrentPage = 1
TotalNumber = Newasp.Execute("SELECT COUNT(flashid) FROM NC_FlashList WHERE ChannelID = " & ChannelID & " And isAccept > 0 And ClassID in (" & ChildStr & ")")(0)
If maxparent > 0 And Child > 0 And TotalNumber > maxparent Then
strMaxParent = " TOP " & maxparent
TotalNumber = maxparent
Else
strMaxParent = ""
End If
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" & strMaxParent & " 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.ClassID in (" & ChildStr & ") 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 Err.Number <> 0 Then Response.Write "SQL 查询错误"
If Rs.BOF And Rs.EOF Then
HtmlContent = Replace(HtmlContent, "{$PageTitle}", strClassName)
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", "还没有找到任何" & Newasp.ModuleName & "")
HtmlContent = Replace(HtmlContent, Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1), "")
If CreateHtml <> 0 Then
Newasp.CreatPathEx (strBasicPath & HtmlFilePath)
HtmlFileName = m_strFilePath
Newasp.CreatedTextFile strBasicPath & HtmlFileName, HtmlContent
If IsShowFlush = 1 Then
Response.Write "<li style=""font-size: 12px;"">生成[<font color=""red"">" & strClassName & "</font>]列表HTML完成... <a href=" & HtmlFileName & " target=_blank>" & HtmlFileName & "</a></li>" & vbNewLine
Response.Flush
End If
MakePageDone = 1
End If
Else
TempListContent = Newasp.CutFixContent(HtmlContent, "[ShowRepetend]", "[/ShowRepetend]", 1)
If CreateHtml <> 0 Then
Call LoadFlashHtmlList(n)
Else
Call LoadFlashAspList
End If
End If
Rs.Close: Set Rs = Nothing
LoadFlashList = HtmlContent
End Function
'================================================
'过程名：ReplaceContent
'作 用：替换模板内容
'================================================
Private Sub ReplaceContent()
HtmlContent = HTML.ReadCurrentStation(HtmlContent, ChannelID, ClassID, strClassName, ParentID, strParent, strFileDir)
HtmlContent = HTML.ReadAnnounceContent(HtmlContent, ChannelID)
HtmlContent = ReadClassMenubar(HtmlContent)
HtmlContent = ReadClassMenu(HtmlContent)
HtmlContent = HTML.ReadNewsPicAndText(HtmlContent)
HtmlContent = HTML.ReadPopularArticle(HtmlContent)
HtmlContent = HTML.ReadFlashList(HtmlContent)
HtmlContent = HTML.ReadFlashPic(HtmlContent)
HtmlContent = HTML.ReadStatistic(HtmlContent)
HtmlContent = HTML.ReadPopularFlash(HtmlContent)
HtmlContent = HTML.ReadArticlePic(HtmlContent)
HtmlContent = HTML.ReadSoftPic(HtmlContent)
HtmlContent = HTML.ReadArticleList(HtmlContent)
HtmlContent = HTML.ReadSoftList(HtmlContent)
HtmlContent = Replace(HtmlContent, "{$CurrentClass}", HTML.CurrentClass)
Dim strPageTitle : strPageTitle = HTML.CurrentClass & Newasp.HtmlSetting(10)
HtmlContent = Replace(HtmlContent, "{$PageTitle}", strPageTitle)
HtmlContent = Replace(HtmlContent, "{$SkinPath}", Newasp.SkinPath)
HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
HtmlContent = Replace(HtmlContent,"{$ArticleID}", ArticleID)
End Sub
'================================================
'过程名：LoadFlashHtmlList
'作 用：装载FLASH列表HTML
'================================================
Private Sub LoadFlashHtmlList(n)
Dim Perownum
Dim PerPageNum,c
Perownum = Newasp.ChkNumeric(Newasp.HtmlSetting(4))
PerPageNum = MakeListNum
If IsNull(TempListContent) Then Exit Sub
If n > TotalPageNum Then
MakePageDone = 1
Exit Sub
End If
'创建分类目录
Newasp.CreatPathEx (strBasicPath & HtmlFilePath)
If MakeHtmlMode = 0 Then
For CurrentPage = n To TotalPageNum
Call CreateListHtml(CurrentPage,Perownum)
Next
Else
c = 1
For CurrentPage = n To TotalPageNum
c = c + 1
If CurrentPage > TotalPageNum Then Exit For
Call CreateListHtml(CurrentPage,Perownum)
If c > PerPageNum Then Exit Sub
Next
MakePageDone = 1
End If
End Sub
Private Sub CreateListHtml(CurrentPage,Perownum)
If CurrentPage > TotalPageNum Then MakePageDone = 1 : Exit Sub
Dim HtmlFileName
Dim ii,w
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 strHtmlFront, strHtmlPage
HtmlFileName = Newasp.ReadDestination(Newasp.SortDestination, Newasp.ChannelDir, "",m_strFileDir,ClassID,0,CurrentPage,"page")
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;"">生成[<font color=""red"">" & strClassName & "</font>]列表HTML完成... <a href=" & HtmlFileName & " target=_blank>" & HtmlFileName & "</a></li>" & vbNewLine
Response.Flush
End If
End Sub
'================================================
'过程名：LoadFlashAspList
'作 用：装载FLASH列表ASP
'================================================
Private Sub LoadFlashAspList()
Dim Perownum,ii,w
If IsNull(TempListContent) Then Exit Sub
Perownum = Newasp.ChkNumeric(Newasp.HtmlSetting(4))
i = 0
Rs.MoveFirst
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
If Perownum > 1 Then ListContent = ListContent & "</table>" & vbCrLf
Dim strPagination
strPagination = ShowListPage(CurrentPage, TotalPageNum, TotalNumber, maxperpage, ASPCurrentPage(PageType), strClassName)
HtmlContent = Replace(HtmlContent, TempListContent, ListContent)
HtmlContent = Replace(HtmlContent, "[ShowRepetend]", "")
HtmlContent = Replace(HtmlContent, "[/ShowRepetend]", "")
HtmlContent = Replace(HtmlContent, "{$ReadListPage}", strPagination)
End Sub
'================================================
'过程名：LoadListDetail
'作 用：装载子级软件列表细节
'================================================
Private Sub LoadListDetail()
Dim sTitle, sTopic, title, ListStyle
Dim FlashUrl, FlashTime, sClassName,strminiature
Dim miniatureUrl, miniature,Introduce
ListContent = ListContent & TempListContent
If (i Mod 2) = 0 Then
ListStyle = 1
Else
ListStyle = 2
End If
If strlen > 0 Then
sTitle = Newasp.GotTopic(Rs("title"),strlen)
Else
sTitle = Rs("title")
End If
If CInt(CreateHtml) <> 0 Then
FlashUrl = Newasp.ReadDestination(Newasp.InfoDestination, Newasp.ChannelDir, Rs("HtmlFileDate"),Rs("HtmlFileDir"),Rs("ClassID"),Rs("flashid"),1,"")
sClassName = Newasp.ReadDestination(Newasp.SortDestination, Newasp.ChannelDir, Rs("HtmlFileDate"),Rs("HtmlFileDir"),Rs("ClassID"),Rs("flashid"),1,"")
Else
If IsURLRewrite Then
FlashUrl = ChannelRootDir & Rs("flashid") & Newasp.HtmlExtName
sClassName = ChannelRootDir & "list_1_" & Rs("ClassID") & Newasp.HtmlExtName
Else
FlashUrl = ChannelRootDir & "show.asp?id=" & Rs("flashid")
sClassName = ChannelRootDir & "list.asp?classid=" & Rs("ClassID")
End If
End If
If Not IsNull(Rs("miniature")) Then
strminiature = Rs("miniature")
End If
url=request.ServerVariables("HTTP_HOST")
miniatureUrl = Newasp.GetImageUrl(strminiature, ChannelRootDir)
miniature = Newasp.GetFlashAndPic(miniatureUrl, CInt(Newasp.HtmlSetting(7)), CInt(Newasp.HtmlSetting(8)))
'bbp="<iframe POSITION: absolute; frameborder=0 scrolling='no' width=95 height=75 src='http://www.4399xiaoyouxi.cc/pic.asp?url=http://"&url&"&HtmlFileDate="&rs("HtmlFileDate")&"'></iframe>"
'miniature = "<a href=""" & FlashUrl & """ title=""" & Rs("title") & """>" & bbp & "</a>"
miniature = "<a href=""" & FlashUrl & """ title=""" & Rs("title") & """>" & miniature & "</a>"
sClassName = "<a href=""" & sClassName & """>" & Rs("ClassName") & "</a>"
title = "<a href=""" & FlashUrl & """" & LoadRemark(Rs("title")) & " class=""flashtopic"">" & sTitle & "</a>"
Introduce = Newasp.CutString(Rs("Introduce"), CInt(Newasp.HtmlSetting(3)))
FlashTime = Newasp.ShowDateTime(Rs("addTime"), CInt(Newasp.HtmlSetting(2)))
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)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?