<！ - ＃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 =編輯器
別的