<!--#include file="config.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
function changechr(str)
changechr=replace(replace(replace(replace(changechr,"[pic]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/pic]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
end function
%>
<%
if request.cookies("newsadminok")="" then
response.redirect "login.asp"
end if
if request.form("txttitle")="" then
response.write "错误提示:请输入新闻标题!"
response.end
end if
if request.form("txtcontent")="" then
response.write "错误提示:请未输入新闻内容!"
response.end
end if
dim title
dim content
dim sql
dim rs
dim articleid
dim classid,Nclassid
dim from
dim sql1
dim rs1
dim typename
sql1="select * from type where typeid=" & typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename=rs1("type")
if request.form("checkbox1")="1" then
tjnews=1
else
tjnews=2
end if
if request.form("yheadline")="1" then
yheadline=1
else
yheadline=0
end if
content=htmlencode(request.form("txtcontent"))
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,"lx",typename)
pencat=replace(pencat,"Date",dddd)
if from="" then
pencat=replace(pencat,"From","")
else
pencat=replace(pencat,"From","摘自：" & from)
end if
if zznews="" then
pencat=replace(pencat,"Fname",Editor)
zznews=Editor
else
pencat=replace(pencat,"Fname",zznews)
end if
pencat=replace(pencat,"H_Title",title)
pencat=replace(pencat,"H_Memo",content)
pencat=replace(pencat,"labout",about)
pencat=replace(pencat,"ftitle",ftitle)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If CheckDir(FolderPath) = True Then
Set fout = fso.CreateTextFile(FolderPath & "\" & fname)
Else
MakeNewsDir TimePath
Set fout = fso.CreateTextFile(FolderPath & "\" & fname)
End if
fout.WriteLine pencat
fout.close
articleid=rs("newsid")
UpdateJs(news)
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "addnews.asp"
%>
设为主页
收藏本站
相关文章: