create_article_view_inc.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

<%
function Create_Article_View(ArticleID,HtmlTemplate) 
'set rs=server.createobject("adodb.recordset")
	sql="select * from info_Article where ArticleID="&ArticleID   
	rs.open sql,conn,1,1
	strKeys=checkStr(rs("Keys"))
	CatalogID=rs("CatalogID")
	strCatalogName=rs("CatalogName")
	strTitle=rs("Title")	
	if rs("isHtml") then
		strContent=rs("content")
	else
		strContent=UBBCode(rs("content"))
	end if	
	strArticle_info="日期："&FormatDateTime(rs("DateTime"),1)&" 作者："&rs("Writer")&" 人气："
	strArticle_info=strArticle_info&"<script src=""../Hits.asp?ArticleID="&rs("ArticleID")&"""></script>"
 	strContent=strContent&"<p align=""right"">（出处："&rs("nfrom")&"）</p>"
	rs.close
	strNavigate=article_nav(CatalogID,strTitle,"")
	
	strOtherSoft=""
	sql="select top 10 SoftID,SoftName,SoftVer from SoftDown_SoftInfo where SoftName like '%"& strKeys &"%'"
	rs.open sql,conn,1,1	
  	if not(rs.eof and rs.bof) then
		strOtherSoft="<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""1"">"& vbcrlf
		do while not Rs.eof 
		strOtherSoft = strOtherSoft & "  <tr>"& vbcrlf
		strOtherSoft = strOtherSoft & "    <td>·<a href=""../SoftView/SoftView_"&Rs("SoftID")&".html"" target=""_blank"" Title="""&rs("SoftName")&" "&rs("SoftVer")&""">"&rs("SoftName")&" "&rs("SoftVer")&"</a></td>"& vbcrlf
		strOtherSoft = strOtherSoft & "  </tr>"& vbcrlf
		rs.movenext
		loop 
		strOtherSoft = strOtherSoft & "</table>"& vbcrlf
	end if
	rs.close
	
	strOtherArticle=""
	sql="select top 10 ArticleID,Title from info_Article where Title like '%"& strKeys &"%' and ArticleID<>"&ArticleID
	rs.open sql,conn,1,1
  	if not(rs.eof and rs.bof) then
		strOtherArticle="<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""1"">"& vbcrlf
		do while not Rs.eof 
		strOtherArticle = strOtherArticle & "  <tr>"& vbcrlf
		strOtherArticle = strOtherArticle & "    <td>·<a href=""../infoView/Article_"&Rs("ArticleID")&".html"" target=""_blank"" Title="""&rs("Title")&""">"&rs("Title")&"</a></td>"& vbcrlf
		strOtherArticle = strOtherArticle & "  </tr>"& vbcrlf
		rs.movenext
		loop 
		strOtherArticle = strOtherArticle & "</table>"& vbcrlf
	end if
	rs.close
	
	strCateHot="<script src=""../js/Article_Catalog_Hot_"&CatalogID&".js""></script>"
	strCateTop="<script src=""../js/Article_Catalog_Top_"&CatalogID&".js""></script>"
		
	HtmlContent=HtmlTemplate
	HtmlContent=replace(HtmlContent,"$Title$",""&strTitle&"")
	HtmlContent=replace(HtmlContent,"$Navigate$",""&strNavigate&"")
	HtmlContent=replace(HtmlContent,"$Article_Title$",""&strTitle&"")
	HtmlContent=replace(HtmlContent,"$Article_info$",""&strArticle_info&"")
	HtmlContent=replace(HtmlContent,"$Article_Content$",""&strContent&"")
	HtmlContent=replace(HtmlContent,"$other_Soft$",""&strOtherSoft&"")
	HtmlContent=replace(HtmlContent,"$other_Article$",""&strOtherArticle&"")
	HtmlContent=replace(HtmlContent,"$CateHot$",""&strCateHot&"")
	HtmlContent=replace(HtmlContent,"$CateTop$",""&strCateTop&"")
	HtmlContent=replace(HtmlContent,"</HEAD>","</HEAD>"&Copyright&"")
 
	'Set fso = Server.CreateObject("Scripting.FileSystemObject")
	HtmlFileName=Server.MapPath("infoview/Article_"&ArticleID&".html")
    Set fout = fso.CreateTextFile(HtmlFileName)
    fout.WriteLine HtmlContent
    fout.close:set fout = nothing
	'Set fso=nothing
    
	Create_Article_View="成功更新文章：<a href=""infoView/Article_"&ArticleID&".html"">"&strTitle&"</a> 的静态网页！"

end function
%>