newssave.asp

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

    Templet=replace(Templet,"[review]","<form method=post action=../../add_review.asp><input type=hidden Name=FileName value="&FileName&">共有评论：<font color=red><script src=http://"&AllPath&"reviewcount.asp?filename="&filename&"></script></font>篇"&replace(rs1("ReviewCSS"),"[morereview]","<a href="&Filename&".html target=_blank>查看评论</a>")&"</form>")

    CrFi.Writeline("<!--Published Date:"&Now&"   Power by Xunt.net-->")
	CrFi.Writeline(""&Templet&"")
    rsKey.close
	set rsKey=nothing
    rs1.close
    set rs1=nothing
    rs.close
    set rs=nothing
    CrFi.close
  End Sub

  Sub Modify()
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="Select Title,Content,Keyword,Date,Source,Templet,Author,Editer,click,Recommend from News where NewsID="&request.form("NewsID")
      rs.open sql,conn,3,3
      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("Recommend")=session("recommend")
      rs.update
    rs.close
    set rs=nothing
	Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
	if	MyFile.FileExists(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("FileName")&".htm") then 
      MyFile.DeleteFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("FileName")&"*.htm")
	end if
	set MyFile=nothing
  End Sub

  Sub ModifyHtml(PageCount,PageContent,y)
    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")&"\"&request.form("FileName")&"-"&y&".htm")
	else
	  Set CrFi=MyFile.CreateTextFile(Server.MapPath("..")&"\"&request.form("Bigclass")&"\"&request.form("Smallclass")&"\"&request.form("FileName")&".htm")	 
	end if
    session("FilePath")="<font color=red>商务信息文件名：</font><a href= http://"&AllPath&""&request.form("Bigclass")&"/"&request.form("Smallclass")&"/"&request.form("FileName")&".htm target=_blank>"&request.form("FileName")&".htm</a><br>"

    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 "&AllKeyWord&" 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
    Templet=replace(Templet,"[correlation]",""&correlation&"")
    Templet=replace(Templet,"[review]","<form method=post action=../../add_review.asp><input type=hidden Name=FileName value="&request.form("FileName")&">共有评论：<font color=red><script src=http://"&AllPath&"reviewcount.asp?filename="&filename&"></script></font>篇   "&replace(rs1("ReviewCSS"),"[morereview]","<a href="&request.form("Filename")&".html target=_blank>查看评论</a>")&"</form>")
    CrFi.Writeline("<!--Published Date:"&Now&"   Power by Xunt.net-->")
	CrFi.Writeline(""&Templet&"")
    rsKey.close
    set rsKey=nothing
    rs.close
    set rs=nothing
    rs1.close
    set rs1=nothing
    CrFi.close
	set MyFile=nothing
  End Sub

  Sub Pagination(Operation)
	  if instr(1,ContentText,"<TABLE",1)<>0 and instr(1,ContentText,"[page",1)<>0 then
	    for v=1 to len(ContentText)
          if instr(v,ContentText,"[page",1)>0 then
		    PageCount=PageCount+1
            v=instr(v,ContentText,"[page",1)
	      end if
	    next
		PageCount=PageCount+1
        content=ContentText
		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))
		  if Operation="ModifyHtml" then
		    Call ModifyHtml(PageCount,PageContent,y)
		  else
		    Call CreateHtml(PageCount,PageContent,y)
		  end if
	    next
		elseif instr(1,ContentText,"<TABLE",1)<>0 and instr(1,ContentText,"[page]",1)=0 then
		if Operation="ModifyHtml" then
		  Call ModifyHtml("1",ContentText,1)
		else
		  Call CreateHtml("1",ContentText,1)
		end if
	  elseif instr(1,ContentText,"<TABLE",1)=0 and instr(1,ContentText,"[page]",1)<>0 then
	    for v=1 to 20
          if instr(v,ContentText,"[page",1)>0 then
		    PageCount=PageCount+1
            v=instr(v,ContentText,"[page",1)
	      end if
	    next
		PageCount=PageCount+1
        content=ContentText
		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))
		  if Operation="ModifyHtml" then
		   Call ModifyHtml(PageCount,PageContent,y)
		  else
		    Call CreateHtml(PageCount,PageContent,y)
		  end if
	    next
	  else
	    if instr(1,ContentText,"<BR>",1)<>0 then		
	      set rs=conn.execute("select WordNumber from Config")
	      WordNumber=rs("WordNumber")
	      rs.close
	      set rs=nothing

	      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 i=1 to ubound(PageNum)
		    PageContent=left(ContentTemp,PageNum(i))
		    if action="ModifyHtml" then
		      Call ModifyHtml(ubound(PageNum),PageContent,i)
		    else
		      Call CreateHtml(ubound(PageNum),PageContent,i)
		    end if
		    ContentTemp=mid(ContentTemp,PageNum(i)+1,len(ContentText))
	      next

	    else
		  content=mid(content,WordNumber+1,len(content))
		  if Operation="ModifyHtml" then
		    Call ModifyHtml(PageCount,PageContent,y)
		  else
		    Call CreateHtml(PageCount,PageContent,y)
	      end if
		end if
	  end if
  end Sub  

  Sub HotNews()
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select title,Bigclass,Smallclass,FileName from News where Auditing=1 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")
    for i=1 to rs3("HotNews")
      if rs.eof then exit for
      Content=""&rs3("HNTitle")&"<a href=http://"&AllPath&""&rs("Bigclass")&"/"&rs("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&CovtTitle(rs("Title"))&"</a><br>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing
    rs3.close
    set rs3=nothing
	CrHNJS.Close
	set MyFile=nothing
  End Sub

  Sub CategoryHotNews()
    Bigclass=request("Bigclass")
	Smallclass=request("Smallclass")
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select title,Bigclass,Smallclass,FileName,Click from News where Auditing=1 and Bigclass='"&Bigclass&"' order by Click Desc"
    rs.open sql,conn,1,1
	set rs3=conn.execute("select HotNews,HotNewsTC,HotNewsTP,ShowClickCount from BigClass where Bigclass='"&Bigclass&"'")
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\"&Bigclass&"\HotNews.js")
    for i=1 to rs3("HotNews")
      if rs.eof then exit for
	  if rs3(3)=true then ShowClickCount=rs("Click")
	  Title=CovtTitle(rs("Title"))
	  if len(Title)>rs3(1) then Title=left(Title,rs3(1))&".."
      Content=""&rs3("HotNewsTP")&"<a href=http://"&AllPath&""&rs("Bigclass")&"/"&rs("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&Title&"</a><font color=red> ("&ShowClickCount&") </font><br>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next
    rs.close
    set rs=nothing
    rs3.close
    set rs3=nothing
	CrHNJS.Close
	set MyFile=nothing
  End Sub

  Sub RecommendNews()
    set rs=Server.CreateObject("adodb.recordset")
    sql="Select title,Bigclass,Smallclass,FileName from News where Recommend=true and Auditing=1 order by Date Desc"
    rs.open sql,conn,1,1
    set rs3=Server.CreateObject("adodb.recordset")
    sql3="Select RNTitle,RecommendNews from Config"
    rs3.open sql3,conn,1,1
    Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
    set CrHNJS=MyFile.CreateTextFile(Server.MapPath("..")&"\RecommendNews.js")
    for i=1 to rs3("RecommendNews")
      if rs.eof then exit for
      Content=""&rs3("RNTitle")&"<a href=http://"&AllPath&""&rs("Bigclass")&"/"&rs("Smallclass")&"/"&rs("FileName")&".htm target=_blank>"&CovtTitle(rs("Title"))&"</a><br>"
      CrHNJS.WriteLine("document.write("""&Content&""")")
      rs.movenext
    next