replacemake.asp

新闻发布系统

<%
  '替换标题开始
   function CovtTitle(content)
   if content<>"" then
    CovtTitle=content
	CovtTitle=replace(CovtTitle,"[粗]","<b>")
	if instr(1,CovtTitle,"<b>",1)<>0 then CovtTitle=CovtTitle+"</b>"
	CovtTitle=replace(CovtTitle,"[红]","<font color=ff0000>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[蓝]","<font color=blue>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[绿]","<font color=green>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[紫]","<font color=990099>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[酱]","<font color=790000>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[橙]","<font color=FF6600>")
	if instr(1,CovtTitle,"<font",1)<>0 then CovtTitle=CovtTitle+"</font>"
	CovtTitle=replace(CovtTitle,"[建议]","<font color=red>[建议]</font>")
	CovtTitle=replace(CovtTitle,"[注意]","<font color=red>[注意]</font>")
	CovtTitle=replace(CovtTitle,"[下载]","<font color=red>[下载]</font>")
	CovtTitle=replace(CovtTitle,"[公告]","<font color=red>[公告]</font>")
	CovtTitle=replace(CovtTitle,"[转载]","<font color=red>[转载]</font>")
	CovtTitle=replace(CovtTitle,"[焦点]","<font color=red>[焦点]</font>")
	CovtTitle=replace(CovtTitle,"[社会]","<font color=red>[社会]</font>")
	CovtTitle=replace(CovtTitle,"[推荐]","<font color=red>[推荐]</font>")
	CovtTitle=replace(CovtTitle,"[原创]","<font color=red>[原创]</font>")
  end if
  End function
  function BTitle(content)
  if content<>"" then
    BTitle=content
    BTitle=replace(BTitle,"[粗]","")
    BTitle=replace(BTitle,"[红]","")
    BTitle=replace(BTitle,"[蓝]","")
    BTitle=replace(BTitle,"[绿]","")
    BTitle=replace(BTitle,"[紫]","")
    BTitle=replace(BTitle,"[酱]","")
    BTitle=replace(BTitle,"[橙]","")
  end if
  End function
  '替换标题结束
  '获取代码开始
  function Bigclassr(content)
  if content<>"" then
    Bigclassr=content
	Bigclassr=replace(Bigclassr,"[bignewsjs]","<script src=http://"&sowinpath&request.form("BigClassEN")&"/"&request.form("BigClassEN")&"_1.js></script>")
    Bigclassr=replace(Bigclassr,"[newssearch]","<script src=http://"&sowinpath&"js/search.js></script>")
    Bigclassr=replace(Bigclassr,"[recommendnews]","<script src=http://"&sowinpath&"CodeJS/Tj_News.js></script>")
    Bigclassr=replace(Bigclassr,"[hotnews]","<script src=http://"&sowinpath&"CodeJS/Hots_News.js></script>")
    end if
  End function

  function CHC(sl,i)
	if sl <> "" then
    CHC=sl
    CHC=replace(CHC,"[hotnews]","<script src=http://"&sowinpath&"CodeJS/Hots_News.js></script>")
    CHC=replace(CHC,"[recommendnews]","<script src=http://"&sowinpath&"CodeJS/Tj_News.js></script>")
    CHC=replace(CHC,"[newssearch]","<script src=http://"&sowinpath&"JS/search.js></script>")
	CHC=replace(CHC,"[newsJS]",sl)
	if  trim(request.form("SpeicalCn"))<>"" then
	set rss=Server.CreateObject("ADODB.RECORDSET")
    sqls="Select * from speical Where SpeicalCn='"&request.form("SpeicalCn")&"' order by id desc"
    rss.open sqls,conn,1,1
	CHC=replace(CHC,"[special]","<script src=http://"&sowinpath&"Special/"&rss("Speicalen")&"_1.js></script>")
	CHC=replace(CHC,"[Navigation]","<a href=/>首页</a>>><a href=index.htm>专题首页</a>>>专题:"&request.form("Speicalcn")&"")
	CHC=replace(CHC,"[stitle]",""&request.form("Speicalcn")&"")
	rss.close
	set rss=nothing
	end if
	CHC=replace(CHC,"[lastnews]","<script src=http://"&sowinpath&"CodeJS/new_news.js></script>")
  end if
  end function
  
  Function GetHDaohang(GHClassID)
    set rsgd=Server.CreateObject("ADODB.RECORDSET")
    sql="Select * from NewsClass where id="&GHClassID
    rsgd.open sql,conn,1,1
    Gparentstr=rsgd("parentstr")
    GClassCN=rsgd("ClassCN")
    GClassEN=rsgd("ClassEN")
    sql="select * from newsclass where id in ("&Gparentstr&") order by RootID asc,orders asc"
    rsgd.close
    GetHDaohang="<a href=""http://"&sowinpath&""" target=""_blank"">首页</a>&nbsp;>>&nbsp;"
    rsgd.open sql,conn,1,1
    do while not rsgd.eof
    GetHDaohang=GetHDaohang+"<a href=""http://"&sowinpath&"ClassHtml/"&rsgd("ClassEN")&".html"" target=""_blank"">"&rsgd("ClassCN")&"</a>&nbsp;>>&nbsp;"
       rsgd.movenext
    loop
    GetHDaohang=GetHDaohang+"<a href=""http://"&sowinpath&"ClassHtml/"&GClassEN&".html"" target=""_blank"">"&GClassCN&"</a>&nbsp;>>&nbsp;"
    GetHDaohang=GetHDaohang+"<font color=red>新闻正文</font>"
    rsgd.close
    set rsgd=nothing
End Function
   
  function CoRe(content,PageCount,PageContent,y)
  if content <> "" then
    CoRe=content
    set rscon=Server.CreateObject("adodb.recordset")
    sqlcon="Select * from Config"
    rscon.open sqlcon,conn,1,1
    CoRe=replace(CoRe,"[url]",""&rscon("Domain")&"")
	WordNumber=rscon("WordNumber")
    rscon.close
    set rscon=nothing	
	CurrentPage=y
	if PageCount>1 then
	for CurrentPage=1 to PageCount
	  if CurrentPage=1 then
	    PageN=PageN+"&nbsp;<a href="&FileName&".html>"&CurrentPage&"</a>&nbsp;"
	  else
        PageN=PageN+"&nbsp;<a href="&FileName&"-"&CurrentPage&".html>"&CurrentPage&"</a>&nbsp;"
	  end if
	next	
    CoRe=replace(CoRe,"[content]",""&urlname(PageContent)&"<p>此新闻共有<font color=red><b>"&PageCount&"</font></b>页&nbsp;&nbsp;第"&PageN&"页")
	else
	    if request.Form("RemoteUrl")="1" then
	     CoRe=replace(CoRe,"[content]",""&ReplaceRemoteUrl(urlname(request.form("content")))&"")
	    else
	    CoRe=replace(CoRe,"[content]",""&urlname(request.form("content"))&"")
	    end if
	end if
	set rss=Server.CreateObject("ADODB.RECORDSET")
    sqls="Select * from NewsClass where classen='"&request("Classen")&"'"
    rss.open sqls,conn,1,1
	strNavigate=GetHDaohang(rss("ID"))
    CoRe=replace(CoRe,"[title]",""&BTitle(request.form("title"))&"")
    CoRe=replace(CoRe,"[filetitle]","<title>"&BTitle(request.form("title"))&"</title>")
    CoRe=replace(CoRe,"[source]",""&request.form("source")&"")
    CoRe=replace(CoRe,"[editer]",""&request.form("editer")&"")
    CoRe=replace(CoRe,"[author]",""&request.form("author")&"")
    CoRe=replace(CoRe,"[date]",""&request.form("date")&"")
	CoRe=replace(CoRe,"[Navigation]",strNavigate)	
    CoRe=replace(CoRe,"[click]","<script src=http://"&sowinpath&"Click.asp?filename="&filename&"></script>")
    CoRe=replace(CoRe,"[hotnews]","<script src=http://"&sowinpath&"CodeJS/Hots_News.js></script>")
    CoRe=replace(CoRe,"[recommendnews]","<script src=http://"&sowinpath&"CodeJS/Tj_News.js></script>")
    CoRe=replace(CoRe,"[newssearch]","<script src=http://"&sowinpath&"JS/search.js></script>")
    CoRe=replace(CoRe,"[lastnews]","<script src=http://"&sowinpath&"CodeJS/new_news.js></script>")
    CoRe=replace(CoRe,"[speical]","<a href=htm/special/special.html>[专题阅读]</a>")
  end if
  end function
 '获取代码结束
 '-------新闻内容关键字连接开始
  Function UrlName(Content)
    UrlContent=Content
    if UrlContent<>"" then
      set rsUrl=conn.execute("select website,Url from link order by ID Desc")
	  while not rsUrl.eof
	    UrlContent=replace(UrlContent,rsUrl("website"),"<a href="&rsUrl("url")&" target=_blank>"&rsUrl("website")&"</a>")
	    rsUrl.movenext
	  wend
	rsUrl.close
    set rsUrl=nothing
    end if
    UrlName=UrlContent
  End Function
'-------新闻内容关键字连接结束

function nav(ID,GetTitle,GetUrl)
dim ParentID,ParentStr
nav="<a href=""/"">网站首页</a> → "
    set rs=Server.CreateObject("adodb.recordset")
	sql="select id,Classcn,classen,ParentID,ParentStr from NewsClass where Classen='"&classen&"'"
	rs.open sql,conn,1,1
	if not(rs.eof and rs.bof) then
		Classcn=rs("classcn")
		ParentID=rs(1)
		ParentStr=rs(2)
	end if
	rs.close   

	if ParentID<>0 then
		sql="select ID,Classcn,classen from NewsClass where ID in("&ParentStr&")"
		rs.open sql,conn,1,1
		if not(rs.eof and rs.bof) then
			do while not rs.eof
			nav=nav & "<a href=""../ClassHtml/"&rs("classen")&".html"">"&rs("classcn")&"</a> → "
			rs.movenext
			loop
		end if
		rs.close
	end if
	nav=nav & "<a href=""../ClassHtml/"&Classcn&".html"">"&Classcn&"</a> → "
end function
%>