refurbishnewssave.asp

天创商务网客户资源管理系统 v1,asp+Access,iis5

<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<script language = jscript runat=server>inum="np%#u^@&l$i";xddd="%$wm!s!d";nwfx="@$d&!$x$#@~^qwdttn==";ofor="q@ll!%x$gucb";myyn="w$^&w^&gl&%";</script>

<%
'==========================================
'=                                        =
'=                  =
'=                                        =
'=           =
'=                                        =
'==========================================
'=            =
'=    子程序作用：刷新新闻文件        =
'=    程序创建时间：12：14：18   2002-12-31       =
'=    程序完成时间：12：14：24   2002-12-31      =
'=    最后修改时间：12：14：26   2002-12-31     =
'==========================================

  Domain=Request.ServerVariables("SERVER_NAME")
  gFilePath=Request.ServerVariables("PATH_INFO")
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  CountN=len(gFilePath)
  gFilePath=lcase(left(gFilePath,CountN-1))
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
  AllPath=Domain&gfilepath

  Sub CheckText()
  session("errormsg")=""
  session("html")=""
  session("recommend")=""
  session("Review")=""
  if request.form("title")="" then
    errormsg=errormsg+"商务信息标题不能为空!<br>"
  end if
  if instr(1,request.form("title"),"'",1) <>0 then
    errormsg=errormsg+"商务信息标题包含非法字符“'”!<br>"
  end if
  if instr(1,request.form("title"),chr(34),1) <>0 then
    errormsg=errormsg+"商务信息标题包含非法字符  '  或  "&chr(34)&" !<br>"
  end if
  if request.form("Content") = "" then
    errormsg=errormsg+"商务信息内容不能为空!<br>"
  end if
  if request.form("Templet")="" then
    errormsg=errormsg+"当前没有可用的商务信息模板、添加商务信息之前请添加商务信息模板<br>"
  end if
  session("errormsg")=errormsg
  if errormsg="" then
    if request.form("Recommend")<>"" then
      session("recommend")="true"
    else
      session("recommend")="false"
    end if	
  else
    Call Warn
    response.end
  end if
  end Sub

  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=red>")
	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=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 ClearTitle(content)
  if content<>"" then
    ClearTitle=content
    ClearTitle=replace(ClearTitle,"[粗]","")
    ClearTitle=replace(ClearTitle,"[红]","")
    ClearTitle=replace(ClearTitle,"[蓝]","")
    ClearTitle=replace(ClearTitle,"[绿]","")
  end if
  End function

  function CrHtCLass(content,i,NewsID)
  if content <> "" then
    set rs=conn.execute("select BigClassEN,SmallClassEN from News where NewsID="&NewsID)
    CrHtCLass=content
    CrHtCLass=replace(CrHtCLass,"[hotnews]","<script src=http://"&AllPath&"hotnews.js></script>")
    CrHtCLass=replace(CrHtCLass,"[recommendnews]","<script src=http://"&AllPath&"/RecommendNews.js></script>")
    CrHtCLass=replace(CrHtCLass,"[newssearch]","<script src=http://"&AllPath&"newssearch.js></script>")
	CrHtCLass=replace(CrHtCLass,"[newsJS]","<script src=http://"&AllPath&""&rs("BigClassEN")&"/"&rs("SmallClassEN")&"/"&rs("SmallClassEN")&""&i&".js></script>")
	rs.close
	set rs=nothing
  end if
  end function

  function CrHt(content,PageCount,PageContent,y,NewsID,FileName)
  if content <> "" then
    set rsNews=Server.CreateObject("adodb.recordset")
	sqlNews="Select content,title,source,editer,author,date,filename,Title from News where NewsID="&NewsID
	rsNews.open sqlNews,conn,1,1
    CrHt=content
    set rsCfg=Server.CreateObject("adodb.recordset")
    sqlCfg="Select Domain,WordNumber from Config"
    rsCfg.open sqlCfg,conn,1,1
    CrHt=replace(CrHt,"[url]",""&rsCfg("Domain")&"")
	WordNumber=rsCfg("WordNumber")
    rsCfg.close
    set rsCfg=nothing	
	CurrentPage=y
	if PageCount>1 then
	for CurrentPage=1 to PageCount
	  if CurrentPage=1 then
	    PageN=PageN+"<a href="&FileName&".htm>第"&CurrentPage&"页</a>&nbsp;&nbsp;"
	  else
        PageN=PageN+"<a href="&FileName&"-"&CurrentPage&".htm>第"&CurrentPage&"页</a>&nbsp;&nbsp;"
	  end if
	next	
    CrHt=replace(CrHt,"[content]",""&PageContent&"<p>此商务信息共有<font color=red><b>"&PageCount&"</font></b>页&nbsp;&nbsp;"&PageN&"")
	else
	CrHt=replace(CrHt,"[content]",""&rsNews("content")&"")
	end if
    CrHt=replace(CrHt,"[title]",""&ClearTitle(rsNews("title"))&"")
    CrHt=replace(CrHt,"[filetitle]","<title>"&ClearTitle(rsNews("title"))&"</title>")
    CrHt=replace(CrHt,"[source]",""&rsNews("source")&"")
    CrHt=replace(CrHt,"[editer]",""&rsNews("editer")&"")
    CrHt=replace(CrHt,"[author]",""&rsNews("author")&"")
    CrHt=replace(CrHt,"[date]",""&rsNews("date")&"")	
    CrHt=replace(CrHt,"[click]","<script src=http://"&AllPath&"ClickCount.asp?filename="&rsNews("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

  Sub ModifyHtml(PageCount,PageContent,y,NewsID)
    set rsNews1=Server.CreateObject("adodb.recordset")
	sqlNews1="Select Templet,BigClassCN,BigClassEN,SmallClassCN,SmallClassEN,FileName,Keyword,Title,FileName from News where NewsID="&NewsID
	rsNews1.open sqlNews1,conn,1,1
    Set rs=Server.CreateObject("adodb.recordset")
    sql="Select TempletContent from Templet Where TempletName='"&rsNews1("Templet")&"'"
    rs.open sql,conn,1,1
	if rs.eof then 
      Set rs=Server.CreateObject("adodb.recordset")
      sql="Select TempletContent from Templet"
      rs.open sql,conn,1,1
	end if
	if rs.eof then response.write("没有可用的模板，刷新新闻之前请添加模板")
    set rs1=Server.CreateObject("adodb.recordset")
    sql1="Select BigClassEN,SmallClassEN,MNCount,MNTitle,ReviewCSS from SmallClass Where BigClassCN='"&rsNews1("BigClassCN")&"' And SmallClassCN='"&rsNews1("SmallClassCN")&"'"
    rs1.open sql1,conn,1,1
    Templet=CrHt(replace(rs("TempletContent"),"[!--模板开始，此句话不需手动删除，系统会自动处理--]",""),PageCount,PageContent,y,NewsID,rsNews1("FileName"))
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    if MyFile.FolderExists(Server.MapPath("..")&"\"&rs1("BigClassEN"))=false then MyFile.CreateFolder(Server.MapPath("..")&"\"&rs1("BigClassEN"))
	if MyFile.FolderExists(Server.MapPath("..")&"\"&rs1("BigClassEN")&"\"&rs1("SmallClassEN"))=false then MyFile.CreateFolder(Server.MapPath("..")&"\"&rs1("BigClassEN")&"\"&rs1("SmallClassEN"))
	if y>1 then
      Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsNews1("BigClassEN")&"\"&rsNews1("SmallClassEN")&"\"&rsNews1("FileName")&"-"&y&".htm")
	else
	  Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&rsNews1("BigClassEN")&"\"&rsNews1("SmallClassEN")&"\"&rsNews1("FileName")&".htm")	 
	end if
    session("FilePath")="<font color=red>商务信息文件名：</font><a href= http://"&AllPath&""&rsNews1("BigClassEN")&"/"&rsNews1("SmallClassEN")&"/"&rsNews1("FileName")&".htm target=_blank>"&rsNews1("FileName")&".htm</a><br>"
    set rsKey=Server.CreateObject("adodb.recordset")
    sqlKey="Select title,BigClassEN,SmallClassEN,FileName from News Where Keyword like '%"&rsNews1("Keyword")&"%' order by Date desc"
    rsKey.open sqlKey,conn,1,1
    for i=1 to rs1("MNCount")
      if rsKey.eof then exit for	
	  if rsKey("title")=rsNews1("Title") then
        rsKey.MoveNext
	  end if
	  if rsKey.eof then exit for
      correlation=correlation+""&rs1("MNTitle")&"<a href= http://"&AllPath&""&rsKey("BigClassEN")&"/"&rsKey("SmallClassEN")&"/"&rsKey("FileName")&".htm target=_blank>"&ClearTitle(rsKey("title"))&"</a><br>"
      rsKey.MoveNext
    next
    Templet=replace(Templet,"[correlation]",""&correlation&"")
    Templet=replace(Templet,"[review]","<form method=post action=../../add_review.asp><input type=hidden Name=FileName value="&rsNews1("FileName")&">共有评论：<font color=red><script src=http://"&AllPath&"reviewcount.asp?filename="&rsNews1("filename")&"></script></font>篇"&replace(rs1("ReviewCSS"),"[morereview]","<a href="&rsNews1("Filename")&".html target=_blank>查看评论</a>")&"</form>")
    CrFi.Writeline("<!--Published Date:"&Now&"   Power by Xunt.net-->")
    CrFi.Writeline("<!--2002～2003 Copyright by Xunt.net All Rights Reserved-->") 
	CrFi.Writeline(""&Templet&"")
    rsKey.close
    set rsKey=nothing
    rs.close
    set rs=nothing
    rs1.close
    set rs1=nothing
    CrFi.close
	set MyFile=nothing
	rsNews1.close
	set rsnews1=nothing
  End Sub

  Sub Pagination(Operation,NewsID)
      set rsNews=Server.CreateObject("adodb.recordset")
	  sqlNews="Select Content from News where NewsID="&NewsID
	  rsNews.open sqlNews,conn,1,1
	  if instr(1,rsNews("content"),"<TABLE",1)<>0 and instr(1,rsNews("content"),"[page",1)<>0 then
	    for v=1 to len(rsNews("content"))
          if instr(v,rsNews("content"),"[page",1)>0 then
		    PageCount=PageCount+1
            v=instr(v,rsNews("content"),"[page",1)
	      end if
	    next
		PageCount=PageCount+1
        content=rsNews("content")
		PageNum=1
	    for y=1 to PageCount
          PageNum=instr(1,content,"[page]",1)
          if PageNum=>1 then PageContent=left(content,PageNum-1)
		  if y=PageCount then PageContent=content
          content=mid(content,PageNum+6,len(content))
	      Call ModifyHtml(PageCount,PageContent,y,NewsID)
	    next
		elseif instr(1,rsNews("content"),"<TABLE",1)<>0 and instr(1,rsNews("content"),"[page]",1)=0 then
        Call ModifyHtml("1",rsNews("content"),1,NewsID)
	  elseif instr(1,rsNews("content"),"<TABLE",1)=0 and instr(1,rsNews("content"),"[page]",1)<>0 then
	    for v=1 to len(rsNews("content"))
          if instr(v,rsNews("content"),"[page",1)>0 then
		    PageCount=PageCount+1
            v=instr(v,rsNews("content"),"[page",1)
	      end if
	    next
		PageCount=PageCount+1
        content=rsNews("content")
		PageNum=1
	    for y=1 to PageCount
          PageNum=instr(1,content,"[page]",1)
          if PageNum=>1 then PageContent=left(content,PageNum-1)
		  if y=PageCount then PageContent=content
          content=mid(content,PageNum+6,len(content))
		  Call ModifyHtml(PageCount,PageContent,y,NewsID)
	    next
	  else
	    if instr(1,rsNews("content"),"<BR>",1)<>0 then
	    set rs=conn.execute("select WordNumber from Config")
	    WordNumber=rs("WordNumber")
	    rs.close
	    set rs=nothing
          
		  ContentText=rsNews("content")
	      PageCount=len(ContentText)/WordNumber
          PageCount2=int(len(ContentText)/WordNumber)
	      if PageCount>PageCount2 then PageCount=PageCount2+1
		  content=ContentText
	      dim PageNum
		  PageNum="0"
          for y=1 to PageCount
            PageContent=left(content,WordNumber)
		    if right(PageContent,4)<>"<BR>" then
              PNum=instr(WordNumber,content,"<BR>",1)
		      PageContent=left(content,PNum+3)
		      if PNum>3 then PageNum = PageNum&","&PNum+3
		      content=mid(content,PNum+4,len(content))
		    else
              content=mid(content,WordNumber+1,len(content))
		    end if
	      next		
		  PageNum=PageNum&",100000"
		  PageNum=split(PageNum,",")
	      ContentTemp=ContentText
	      for u=1 to ubound(PageNum)
		    PageContent=left(ContentTemp,PageNum(u))
		    if action="ModifyHtml" then
		      Call ModifyHtml(ubound(PageNum),PageContent,u,NewsID)
		    else
		      Call ModifyHtml(ubound(PageNum),PageContent,u,NewsID)
		    end if
		    ContentTemp=mid(ContentTemp,PageNum(u)+1,len(ContentText))
	      next



	    else
		  content=mid(content,WordNumber+1,len(content))
 	      Call ModifyHtml(PageCount,PageContent,y,NewsID)
		end if
	  end if
  end Sub  

  Sub HotNews()
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select title,BigClassEN,SmallClassEN,FileName from News order by Click Desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select HNTitle,HotNews from Config"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\HotNews.js")