<!--#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
title=htmlencode2(request.form(txttitle))
from=request.form(Nfrom)
zznews=request.form(zznews)
typeid=request.form(typeid)
about=request.form(about)
headline=request.form(headline)
ftitle=htmlencode2(request.form(ftitle))
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