preview.asp

新闻发布系统

<LINK href=../css/css.css rel=stylesheet>
<% response.write "<title>"&request.form("title")&"</title>" %>
<!--#include file = conn1.asp-->
<%
  function CrHt(content)
  CrHt=content
  if content <> "" then
    set rsCfg=Server.CreateObject("adodb.recordset")
    sqlCfg="Select * from Config"
    rsCfg.open sqlCfg,conn,1,1
    CrHt=replace(CrHt,"[url]",""&rsCfg("Domain")&"")
    rsCfg.close
    set rsCfg=nothing
    CrHt=replace(CrHt,"[content]",""&request.form("content")&"")
    CrHt=replace(CrHt,"[title]",""&ClearTitle(request.form("title"))&"")
    CrHt=replace(CrHt,"[filetitle]","<title>"&ClearTitle(request.form("title"))&"</title>")
    CrHt=replace(CrHt,"[source]",""&request.form("source")&"")
    CrHt=replace(CrHt,"[editer]",""&request.form("editer")&"")
    CrHt=replace(CrHt,"[author]",""&request.form("author")&"")
    CrHt=replace(CrHt,"[date]",""&request.form("date")&"")	
    CrHt=replace(CrHt,"[click]","<script src=http://"&AllPath&"ClickCount.asp?filename="&filename&"></script>")
    CrHt=replace(CrHt,"[hotnews]","<script src=http://"&AllPath&"hotnews.js></script>")
    CrHt=replace(CrHt,"[recommendnews]","<script src=http://"&AllPath&"/RecommendNews.js></script>")
    CrHt=replace(CrHt,"[newssearch]","<script src=http://"&AllPath&"newssearch.js></script>")
  end if
  end function

  function ClearTitle(content)
  if content<>"" then
    ClearTitle=content
	ClearTitle=replace(ClearTitle,"[粗]","")
	ClearTitle=replace(ClearTitle,"[红]","")
	ClearTitle=replace(ClearTitle,"[蓝]","")
	ClearTitle=replace(ClearTitle,"[绿]","")
  end if
  End function
	Set rs=Server.CreateObject("adodb.recordset")
    sql="Select * from Templet Where TempletName='"&request.form("Templet")&"'"
    rs.open sql,conn,1,1
    Templet=CrHt(rs("TempletContent"))
    response.write Templet	
%>