<！ - ＃include file = config.asp->
<！ - ＃include file = inc/articlechar.inc->
<％
功能变化（str）
changechr =替换（替换（替换（replace（changechr，[pic]，<img src =），[b]，<b>），[red]，<font color = cc0000>），[big]，<font size = 7>）
changechr = replace（替换（替换（replace（changechr，[/pic]），> </img>），[/b]，</b>），[/red]，</font>），[/big]，</font>）
changechr =替换（替换（替换（replace（str，<，<），>，>），chr（13），<br>），，，）
结束功能
％>
<％
如果request.cookies（newsadminok）=然后
响应。redirect登录
如果结束
如果request.form（txtTitle）=然后
响应。write错误提示：请输入新闻标题！
响应
如果结束
如果request.form（txtContent）=然后
响应。write错误提示：请未输入新闻内容！
响应
如果结束
昏暗标题
昏暗的内容
DIM SQL
昏暗的卢比
昏暗的文章
昏暗的classid，nclassid
来自
title = htmlencode2（request.form（txtTitle））
来自= request.form（nfrom）
zznews = request.form（zznews）
typeid = request.form（typeid）
关于= request.form（关于）
标题= request.form（标题）
ftitle = htmlencode2（request.form（ftitle））
DIM SQL1
DIM RS1
DIM TypeName
sql1 = select *从type where typeid =＆typeid type *
设置rs1 = server.createobject（adodb.recordset）
rs1.open sql1，conn，1,1
typeName = rs1（type）
如果request.form（checkbox1）= 1
tjNews = 1
别的
tjNews = 2
如果结束
如果request.form（yheadline）= 1
yheadline = 1
别的
yheadline = 0
如果结束
content = htmlencode（request.form（txtContent））
设置RS = Server.CreateObject（adodb.RecordSet）
strsql =从示例中选择e_memo
设置rs = conn.execute（strsql）
fname = makefileName（now（））
dddd =年（现在（））
pencat = rs（e_memo）
pencat =替换（Pencat，LX，TypeName）
pencat =替换（Pencat，Date，dddd）
如果是=然后
pencat =替换（pencat，来自，）
别的
pencat =替换（pencat，来自，摘自：＆来自）
如果结束
如果zznews =然后
pencat =替换（pencat，fname，编辑器）
zznews =编辑器
别的