www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/cclist.asp

    <!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="inc/cls_public.asp"-->
<%
Dim HtmlContent,strHtml
Newasp.LoadTemplates 9999, 7, 0

HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent,"{$InstallDir}", Newasp.InstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0)
HtmlContent = Replace(HtmlContent,"{$PageTitle}","视频展区")
HtmlContent = ReadClassMenu(HtmlContent)
HtmlContent = ReadClassMenubar(HtmlContent)
HtmlContent = HTML.ReadAnnounceList(HtmlContent)
HtmlContent = HTML.ReadStatistic(HtmlContent)
HtmlContent = HTML.ReadUserRank(HtmlContent)
If NewAsp.BokeccUnion(5) = "1" And Len(NewAsp.BokeccUnion(1)) > 3 Then
	Dim safeurl
	safeurl="http://show.bokecc.com/showzone/"&Trim(NewAsp.BokeccUnion(1))
	strHtml = "<iframe style=""padding:0px;margin:0px;align:center;overflow-x:hidden;"" src="""&safeurl&"""  frameBorder=""0"" width=""100%"" scrolling=""yes"" height=""1250px"" allowTransparency=""true"" id=""bokecc_frame""></iframe>"
Else
	strHtml = ""
End If
strHtml = Replace(strHtml,"{$SiteName}", Newasp.SiteName)
strHtml = Replace(strHtml,"{$SiteUrl}", Newasp.SiteUrl)
HtmlContent = Replace(HtmlContent,"{$TempContent}", strHtml)
Response.Write HtmlContent
CloseConn
%>