📄 create_newarticle.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
字号:
<!--#include file="setup.asp"-->
<%
Response.Buffer = True
Set NC_Admin = New Check
NC_Admin.AdminChk = "36"
NC_Admin.Check
DownsysClass.admin_header
If Not(DownsysClass.IsObjectFSO(DownsysClass.Script_FSO) And CInt(DownsysClass.Setting(5)) = 0 ) Then
	NC_Admin.Error_Msg ("<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)或你后台没有选择为html方式</font></b>")
	DownsysClass.admin_footer
	Response.End
End If
NewArticleInfo
DownsysClass.admin_footer
NothingObject
CloseConn

Private Sub NewArticleInfo()
	Dim i, j
	Dim stype, DownloadClass_Ads
	Dim Style_CSS, HtmlTempStr, ArticleTypeSrt
	Dim NowStats, HtmlTitle
	Dim InfoTime, title, ClassName
	Dim FSO,Fout,CreateHtml
	ArticleType = Split(DownsysClass.Setting(36), ",")
	On Error Resume Next
	Server.ScriptTimeOut = 99999
	Set DownloadClass_Ads = New Adcolumn_Cls
	For j = -1 to UBound(ArticleType)
		If j=-1 then
			stype = ""

		Else
			stype = Replace(Trim(ArticleType(j)),"'", "''")
		End if
	DownsysClass.LoadTemplates ("article")
	Style_CSS = Replace(Replace(DownsysClass.Style_CSS, "{$SetupDir}", DownsysClass.SetupDir), "{$PicUrl}", DownsysClass.TempDir)
	HtmlTempStr = DownsysClass.TempHtml(0)
	HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", DownsysClass.ClassMenu)
	HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
	Set Rs = Server.CreateObject("adodb.recordset")
	If stype <> "" Then
		SQL = "select top " & CInt(DownsysClass.TempSet(12)) & " * from NC_Article where isLock=0 and ArticleType='" & stype & "' order by InfoTime desc,ID desc"
		ArticleTypeSrt = stype
	Else
		SQL = "select top " & CInt(DownsysClass.TempSet(12)) & " * from NC_Article where isLock=0 order by InfoTime desc,ID desc"
		ArticleTypeSrt = "最近更新文章"
	End If
	NowStats = ArticleTypeSrt
	HtmlTitle = ArticleTypeSrt
	HtmlTempStr = HtmlTempStr & DownsysClass.temphtml(4)
	HtmlTempStr = Replace(HtmlTempStr, "{$NewAllName}", "NewArticle.html")
	Dim ArticleType, NewFileName
	For i = 0 To UBound(ArticleType)
		HtmlTempStr = HtmlTempStr & DownsysClass.temphtml(5)
		NewFileName = "NewArticle_" & i & ".html"
		If Trim(ArticleType(i)) = stype Then HtmlTempStr = Replace(HtmlTempStr, "{$Selected}", "selected")
		HtmlTempStr = Replace(HtmlTempStr, "{$ArticleTypeName}", Trim(ArticleType(i)))
		HtmlTempStr = Replace(HtmlTempStr, "{$NewFileName}", NewFileName)

	Next
	HtmlTempStr = HtmlTempStr & DownsysClass.temphtml(6)
	Rs.Open SQL, Conn, 1, 1
	If Rs.bof And Rs.EOF Then
		HtmlTempStr = HtmlTempStr & "<tr><td colspan=5 class=Border2>还没有找到任何文章！</td></tr>"
	Else
		Do While Not Rs.EOF
			HtmlTempStr = HtmlTempStr & DownsysClass.temphtml(7)
			If Rs("InfoTime") >= Date Then
				InfoTime = "<FONT color=red>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
			Else
				InfoTime = FormatDateTime(Rs("InfoTime"), 2)
			End If
			If CInt(DownsysClass.Setting(5)) = 0 Then
				Title = "<a href='" & DownsysClass.SetupDir & "Article/Catalog" & Rs("classid") & "/" & Rs("ID") & ".html'>" & Rs("Title") & "</A>"
				ClassName = "<a href='" & DownsysClass.SetupDir & "Listing/Catalog" & Rs("classid") & "/Listing_Indate_Desc_1.html'>" & Rs("ClassName") & "</a>"
			Else
				Title = "<a href='" & DownsysClass.SetupDir & "Article.Asp?id=" & Rs("ID") & "'>" & Rs("Title") & "</a>"
				ClassName = "<a href='" & DownsysClass.SetupDir & "Listing.Asp?classid=" & Rs("classid") & "'>" & Rs("ClassName") & "</a>"
			End If
			HtmlTempStr = Replace(HtmlTempStr, "{$Hits}", Rs("Hits"))
			HtmlTempStr = Replace(HtmlTempStr, "{$Topic}", Title)
			HtmlTempStr = Replace(HtmlTempStr, "{$InfoTime}", InfoTime)
			HtmlTempStr = Replace(HtmlTempStr, "{$ClassName}", ClassName)
			Rs.movenext
		Loop
	End If
	Rs.Close
	Set Rs = Nothing
	HtmlTempStr = HtmlTempStr & DownsysClass.temphtml(8)
	HtmlTempStr = HtmlTempStr & DownsysClass.mainhtml(10)
	HtmlTempStr = HtmlTempStr & DownsysClass.mainhtml(4)
	If CInt(DownsysClass.Setting(5)) = 0 Then
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(9))
	Else
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(10))
	End If
	HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
	HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Width}", DownsysClass.mainset(0))
	HtmlTempStr = Replace(HtmlTempStr, "{$FootMeun}", DownsysClass.mainset(11))
	HtmlTempStr = Replace(HtmlTempStr, "{$sousuo}", sousuo)
	HtmlTempStr = Replace(HtmlTempStr, "{$NewArticle}", NewArticle)
	HtmlTempStr = Replace(HtmlTempStr, "{$BestArticle}", BestArticle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(7, 2))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", DownloadClass_Ads.AdsColumn(7, 3))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(6)}", DownloadClass_Ads.AdsColumn(7, 7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(7))
	Set FSO = Server.CreateObject("ADODB.STREAM")
	If j=-1 then
		CreateHtml = Server.MapPath(DownsysClass.SetupDir & "Article/NewArticle.Html")
	Else
		CreateHtml = Server.MapPath(DownsysClass.SetupDir & "Article/NewArticle_" & j & ".Html")
	End If
		With FSO
			.Open
			.Charset = "GB2312"
			.WriteText HtmlTempStr
			.SaveToFile CreateHtml,2
			.Close
		End With
	Set FSO = Nothing
	Next
	NC_Admin.Succeed_Msg ("生成最近更新文章HTML页完成!")
	Set DownloadClass_Ads = Nothing
End Sub
	'*************************************************************
	'函数作用：最新加入文章
	'*************************************************************
	Private Function NewArticle()
		Dim Rs, SQL, HtmlString, ArticleTitle, ClassName, InfoTime, InfoDate
		Set Rs = Server.CreateObject("adodb.recordset")
		SQL = "select Top " & CInt(DownsysClass.TempSet(15)) & " id,classid,Title, ClassName,InfoTime,Hits from NC_Article where isLock = 0 order by InfoTime desc, id desc"
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			HtmlString = "还没有最新文章!"
		Else
			Do While Not Rs.EOF
				If Rs("InfoTime") >= Date Then
					InfoTime = "<FONT color=red>" & Month(Rs("InfoTime")) & "/" & Day(Rs("InfoTime")) & "</FONT >"
					InfoDate = "<FONT color=red>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
				Else
					InfoTime = "<FONT color=#999999>" & Month(Rs("InfoTime")) & "/" & Day(Rs("InfoTime")) & "</FONT >"
					InfoDate = "<FONT color=#999999>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
				End If
				If CInt(DownsysClass.Setting(5)) = 0 Then
					ArticleTitle = "<A HREF='" & DownsysClass.SetupDir & "Article/Catalog" & Rs(1) & "/" & Rs(0) & ".html' title='文章标题：" & Rs(2) & "<BR>更新时间：" & Rs(4) & "<BR>浏览次数：" & Rs(5) & "' class='TableLink'>" & DownsysClass.gotTopic(Rs(2), CInt(DownsysClass.mainset(20))) & "</A>"
					ClassName = "<A HREF='" & DownsysClass.SetupDir & "Listing/Catalog" & Rs(1) & "/Listing_Indate_Desc_1.html' title='" & Rs("ClassName") & "'>" & Rs("ClassName") & "</A>"
				Else
					ArticleTitle = "<A HREF='" & DownsysClass.SetupDir & "Article.asp?id=" & Rs(0) & "' title='文章标题：" & Rs(2) & "<BR>更新时间：" & Rs(4) & "<BR>浏览次数：" & Rs(5) & "' class='TableLink'>" & DownsysClass.gotTopic(Rs(2), CInt(DownsysClass.mainset(20))) & "</A>"
					ClassName = "<A HREF='" & DownsysClass.SetupDir & "Listing.asp?classid=" & Rs(1) & "' title='" & Rs("ClassName") & "'>" & Rs("ClassName") & "</A>"
				End If
				HtmlString = HtmlString & DownsysClass.mainset(21)
				HtmlString = Replace(HtmlString, "{$ArticleTitle}", ArticleTitle)
				HtmlString = Replace(HtmlString, "{$ClassName}", ClassName)
				HtmlString = Replace(HtmlString, "{$InfoTime}", InfoTime)
				HtmlString = Replace(HtmlString, "{$ArticleHits}", Rs("Hits"))
				HtmlString = Replace(HtmlString, "{$InfoDate}", InfoDate)
				Rs.movenext
			Loop
		End If
		Rs.Close
		Set Rs = Nothing
		NewArticle = HtmlString
	End Function
	'*************************************************************
	'函数作用：推荐文章
	'*************************************************************
	Private Function BestArticle()
		Dim Rs, SQL, HtmlString, ArticleTitle, ClassName, InfoTime, InfoDate
		Set Rs = Server.CreateObject("adodb.recordset")
		SQL = "select Top " & CInt(DownsysClass.TempSet(15)) & " id,classid,Title, ClassName,InfoTime,Hits,isTop from NC_Article where isLock = 0 And isCommend = 1 order by isTop desc, InfoTime desc, id desc"
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			HtmlString = "还没有推荐文章!"
		Else
			Do While Not Rs.EOF
				If Rs("InfoTime") >= Date Then
					InfoTime = "<FONT color=red>" & Month(Rs("InfoTime")) & "/" & Day(Rs("InfoTime")) & "</FONT >"
					InfoDate = "<FONT color=red>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
				Else
					InfoTime = "<FONT color=#999999>" & Month(Rs("InfoTime")) & "/" & Day(Rs("InfoTime")) & "</FONT >"
					InfoDate = "<FONT color=#999999>" & FormatDateTime(Rs("InfoTime"), 2) & "</FONT >"
				End If
				If CInt(DownsysClass.Setting(5)) = 1 Then
				ArticleTitle = "<A HREF='" & DownsysClass.SetupDir & "Article.asp?id=" & Rs(0) & "' title='文章标题：" & Rs(2) & "<BR>更新时间：" & Rs(4) & "<BR>浏览次数：" & Rs(5) & "' class='TableLink'>" & DownsysClass.gotTopic(Rs(2), CInt(DownsysClass.TempSet(15))) & "</A>"
				ClassName = "<A HREF='" & DownsysClass.SetupDir & "Listing.asp?classid=" & Rs(1) & "' title='" & Rs("ClassName") & "'>" & Rs("ClassName") & "</A>"
				Else
				ArticleTitle = "<A HREF='" & DownsysClass.SetupDir & "Article/Catalog" & Rs(1) & "/" & Rs(0) & ".html' title='文章标题：" & Rs(2) & "<BR>更新时间：" & Rs(4) & "<BR>浏览次数：" & Rs(5) & "' class='TableLink'>" & DownsysClass.gotTopic(Rs(2), CInt(DownsysClass.TempSet(15))) & "</A>"
				ClassName = "<A HREF='" & DownsysClass.SetupDir & "Listing/Catalog" & Rs(1) & "/Listing_Indate_Desc_1.html' title='" & Rs("ClassName") & "'>" & Rs("ClassName") & "</A>"
				End If
				HtmlString = HtmlString & DownsysClass.TempSet(16)
				HtmlString = Replace(HtmlString, "{$BestTopic}", ArticleTitle)
				HtmlString = Replace(HtmlString, "{$ClassName}", ClassName)
				HtmlString = Replace(HtmlString, "{$InfoTime}", InfoTime)
				HtmlString = Replace(HtmlString, "{$ArticleHits}", Rs("Hits"))
				HtmlString = Replace(HtmlString, "{$InfoDate}", InfoDate)
				Rs.movenext
			Loop
		End If
		Rs.Close
		Set Rs = Nothing
		BestArticle = HtmlString
	End Function
	'*************************************************************
	'搜索下拉框选择项目(整体分类部分：供应、求购)
	'*************************************************************
Private Function sousuo()
Dim SoftType
Dim HtmlShowPage
Dim ii
			HtmlShowPage = HtmlShowPage &" <select name=""action""> "
            HtmlShowPage = HtmlShowPage &" <option value=""soft"" selected>全部信息</option>"
			SoftType = Split(DownsysClass.Setting(35), ",")
			For ii = 0 To UBound(SoftType)
			HtmlShowPage = HtmlShowPage & "<option value=""soft"& ii &""">" & Trim(SoftType(ii)) & "</option>"
			Next
			HtmlShowPage = HtmlShowPage & "<option value=""info"">文章搜索</option></SELECT>"
	sousuo = HtmlShowPage
End Function

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -