saveedit.asp

中国缘网新闻系统

<!--#include file="articleconn.asp"-->

<% 
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
    changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
    changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function
 
function makefilename(fname)
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname & ".htm"
end function 
%>  <%
IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN
	response.redirect "mymanage.asp"
	response.end
END IF

dim title
dim content
dim sql
dim rs
dim articleid
dim classid,Nclassid
dim from

title=request.form("txttitle")
content=changechr(request.form("txtcontent"))
articleid=request("id")

dim sql1
dim rs1
dim typename1

 sql1="select * from article where newsid="&articleid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename1=rs1("typename")
filepath=rs1("path")
filen=rs1("N_Fname")




	set rs = server.CreateObject("ADODB.RecordSet")
       	StrSql = "select E_Memo from Example"
	set rs = conn.Execute (StrSql)


fname = makefilename(now())
dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
pencat=rs("E_Memo")
pencat=replace(pencat,"Date",dddd)
pencat=replace(pencat,"From","动态网站制作指南")
pencat=replace(pencat,"Fname","SAYYES")
pencat=replace(pencat,"H_Title",title)
pencat=replace(pencat,"lx",typename1)
pencat=replace(pencat,"H_Memo",content)

Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile(server.mappath(filePath& "\" & filen))
Set fso1 = nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filePath& "\" & fname))
fout.WriteLine pencat
fout.close

set rs=server.createobject("adodb.recordset")
sql="select * from article where newsid="&articleid
rs.open sql,conn,3,3
rs("title")=title
rs("N_Fname")=fname
rs("path")=filePath
rs("content")=content
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
rs1.close 
set rs1=nothing 
response.redirect "newschk.asp"
%>