newssave.asp

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

<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<!--#include file = char.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>
<%
  month1=month(now)
  if Month1<10 then Month1="0"&Month1
  day1=day(now)
  if day1<10 then day1="0"&day1
  hour1=hour(now)
  if hour1<10 then hour1="0"&hour1
  minute1=minute(now)
  if minute1<10 then minute1="0"&minute1
  second1=second(now)
  if second1<10 then second1="0"&second1
  if request.form("FileName")="" then
    FileName=Year(now)&Month1&Day1&Hour1&Minute1&Second1
  else
    Filename=request.form("FileName")
  end if

  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

  ContentText=replace(request("Content"),"<P>","")
  ContentText=replace(ContentText,"</P>","<BR><BR>")

  Sub CheckMove()
    session("errormsg")=""
    if request.form("ObjSmallclass")="" then
      session("errormsg")="请选择转移的目标栏目"
	  err=true
	end if
    if request.form("ObjSmallclass")=request.form("Smallclass") then
      session("errormsg")=session("errormsg")+"目标栏目与源栏目相同!"
	  err=true
	end if
	if err=true then Call warn:response.end
  End Sub

  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 ContentText = "" 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)
  if content <> "" then
    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&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("Smallclass")&""&i&".js></script>")
  end if
  end function

  Function UrlName(Content)
    UrlContent=Content
    if UrlContent<>"" then
      set rsUrl=conn.execute("select UrlPath,UrlName from UrlManage order by UrlID Desc")
	  while not rsUrl.eof
	    UrlContent=replace(UrlContent,rsUrl(1),"<a href="&rsUrl(0)&" target=_blank>"&rsUrl(1)&"</a>")
	    rsUrl.movenext
	  wend
	rsUrl.close
    set rsUrl=nothing
    end if
    UrlName=UrlContent
  End Function

  function CrHt(content,PageCount,PageContent,y)
  if content <> "" then
    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")&"",1,-1,1)
	WordNumber=rsCfg("WordNumber")

    Bigclass=replace(request.form("Bigclass"),"'"," ")
    Smallclass=replace(request.form("Smallclass"),"'"," ")
	Bigclass=replace(request.form("Bigclass"),"'"," ")
    Smallclass=replace(request.form("Smallclass"),"'"," ")
	Bigclass=replace(request.form("Bigclass"),"'"," ")
    Smallclass=replace(request.form("Smallclass"),"'"," ")
	Bigclass=replace(request.form("Bigclass"),"'"," ")
    Smallclass=replace(request.form("Smallclass"),"'"," ")

    CrHt=replace(CrHt,"[JF:Navigation]","<a href=http://"&rsCfg(0)&">首页</a> >> "&Bigclass&" >> <a href=http://"&AllPath&Bigclass&"/"&Smallclass&"/"&Smallclass&"1.htm>"&Smallclass&"</a>  >>  正文",1,-1,1)

    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]",""&UrlName(PageContent)&"<p>此商务信息共有<font color=red><b>"&PageCount&"</font></b>页&nbsp;&nbsp;"&PageN&"",1,-1,1)
	else
	CrHt=replace(CrHt,"[content]",""&UrlName(ContentText)&"",1,-1,1)
	end if

    CrHt=replace(CrHt,"[title]",""&ClearTitle(request.form("title"))&"",1,-1,1)
    CrHt=replace(CrHt,"[filetitle]","<title>"&ClearTitle(request.form("title"))&"</title>",1,-1,1)
    CrHt=replace(CrHt,"[source]",""&request.form("source")&"",1,-1,1)
    CrHt=replace(CrHt,"[editer]",""&request.form("editer")&"",1,-1,1)
    CrHt=replace(CrHt,"[author]",""&request.form("author")&"",1,-1,1)
    CrHt=replace(CrHt,"[date]",""&request.form("date")&"",1,-1,1)
    CrHt=replace(CrHt,"[click]","<script src=http://"&AllPath&"ClickCount.asp?filename="&filename&"></script>",1,-1,1)
    CrHt=replace(CrHt,"[hotnews]","<script src=http://"&AllPath&"hotnews.js></script>",1,-1,1)
    CrHt=replace(CrHt,"[recommendnews]","<script src=http://"&AllPath&"/RecommendNews.js></script>",1,-1,1)
    CrHt=replace(CrHt,"[newssearch]","<script src=http://"&AllPath&"newssearch.js></script>",1,-1,1)	
  end if
  end function

  Sub Add()
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="Select Title,Content,Keyword,Date,Source,Templet,Author,Editer,click,FileName,Recommend,Bigclass,Smallclass,Bigclass,Smallclass,Auditing from News"
    rs.open sql,conn,3,3
      rs.addnew
      rs("Title")=replace(request.form("Title"),"'"," ")
      rs("Content")=replace(ContentText,"'"," ")
      rs("Keyword")=replace(request.form("Keyword"),"'"," ")
      rs("Date")=replace(request.form("Date"),"'"," ")
      rs("Source")=replace(request.form("Source"),"'"," ")
      rs("Templet")=request.form("Templet")
      rs("Author")=replace(request.form("Author"),"'"," ")
      rs("Editer")=replace(request.form("Editer"),"'"," ")
      rs("click")=replace(request.form("Click"),"'"," ")
      rs("FileName")=FileName
      rs("Recommend")=session("recommend")
      rs("Bigclass")=replace(request.form("Bigclass"),"'"," ")
      rs("Smallclass")=replace(request.form("Smallclass"),"'"," ")
      rs("Bigclass")=replace(request.form("Bigclass"),"'"," ")
      rs("Smallclass")=replace(request.form("Smallclass"),"'"," ")
	  if request("Auditing")<>"" then rs("auditing")=request("Auditing")
      rs.update
    rs.close
    set rs=nothing
  End Sub

  Sub CreateHtml(PageCount,PageContent,y)
    session("FilePath")=""
    Set rs=Server.CreateObject("adodb.recordset")
    sql="Select TempletContent from Templet Where TempletName='"&request.form("Templet")&"'"
    rs.open sql,conn,1,1
    set rs1=Server.CreateObject("adodb.recordset")
    sql1="Select Bigclass,Smallclass,MNCount,MNTitle,ReviewCSS from SmallClass Where Bigclass='"&request.form("Bigclass")&"' And Smallclass='"&request.form("Smallclass")&"'"
    rs1.open sql1,conn,1,1
	Templet=CrHt(rs("TempletContent"),PageCount,PageContent,y)
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    if MyFile.FolderExists(Server.MapPath("..")&"\"&rs1("Bigclass"))=false then MyFile.CreateFolder(Server.MapPath("..")&"\"&rs1("Bigclass"))
	if MyFile.FolderExists(Server.MapPath("..")&"\"&rs1("Bigclass")&"\"&rs1("Smallclass"))=false then MyFile.CreateFolder(Server.MapPath("..")&"\"&rs1("Bigclass")&"\"&rs1("Smallclass"))
	if y>1 then
      Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&"-"&y&".htm")
	else
	  Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".htm") 
	end if
	Set CrReviewFile=MyFile.CreateTextFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&FileName&".html")
	CrReviewFile.Writeline("此商务信息暂时没有评论")

    KeyWord=request("KeyWord")
	SplitKeyWord=split(KeyWord,"|")
	AllKeyWord=""
    for KwCount=0 to ubound(SplitKeyWord)
      if KwCount=0 then
	    AllKeyWord="where Content like '%"&SplitKeyWord(KwCount)&"%' and auditing=1 "
	  else
	    AllKeyWord=AllKeyWord&" and Content like '%"&SplitKeyWord(KwCount)&"%' and auditing=1 "
	  end if
    next
	
	set rsKey=Server.CreateObject("adodb.recordset")
    sqlKey="Select title,Bigclass,Smallclass,FileName from News Where Keyword like '%"&request("Keyword")&"%' order by Date Desc"
    rsKey.open sqlKey,conn,1,1
    for i=1 to rs1("MNCount")
	  if AllKeyWord="" then exit for
      if rsKey.eof then exit for
	  if rsKey("title")=request.form("Title") then
        rsKey.MoveNext
	  end if
	  if rsKey.eof then exit for
      correlation=correlation+""&rs1("MNTitle")&"<a href= http://"&AllPath&""&rsKey("Bigclass")&"/"&rsKey("Smallclass")&"/"&rsKey("FileName")&".htm target=_blank>"&CovtTitle(rsKey("title"))&"</a><br>"
      rsKey.MoveNext
    next
    session("FilePath")="<font color=red>商务信息文件名：</font><a href= http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&FileName&".htm target=_blank>"&FileName&".htm</a><br>"
    Templet=replace(Templet,"[correlation]",""&correlation&"")