<!-#Sertakan file = config.asp->
<!-#Sertakan File = Inc/Articlechar.inc->
<%
fungsi changechr (str)
changechr = ganti (ganti (ganti (ganti (ganti (changechr, [pic], <img src =), [b], <b>), [merah], <font color = cc0000>), [besar], <font ukuran = 7>)
changechr = ganti (ganti (ganti (ganti (ganti (changeChr, [/pic],> </meg>), [/b], </b>), [/merah], </font>), [/besar], </font>)
changeChr = ganti (ganti (ganti (ganti (strt, <, <),>,>), chr (13), <br>) ,,)
fungsi akhir
%>
<%
Jika request.cookies (newsadminok) = lalu
response.redirect login.asp
akhiri jika
jika request.form (txttitle) = lalu
Response.write 错误提示: 请输入新闻标题!
respons.end
akhiri jika
Jika request.form (txtContent) = lalu
Response.write 错误提示: 请未输入新闻内容!
respons.end
akhiri jika
judul redup
konten redup
redup SQL
redup
DIM ArticterID
redup classid, nclassid
redup dari
title = htmlencode2 (request.form (txttitle)))
dari = request.form (nfrom)
zznews = request.form (zznews)
typeid = request.form (typeid)
tentang = request.form (tentang)
headline = request.form (headline)
ftitle = htmlencode2 (request.form (ftitle))
redup SQL1
redup rs1
redup typename
sql1 = pilih * dari tipe di mana typeid = & typeid
Set RS1 = Server.CreateObject (ADODB.Recordset)
RS1.Open SQL1, Conn, 1,1
typename = rs1 (type)
Jika request.form (centang kotak) = 1 lalu
tjnews = 1
kalau tidak
tjnews = 2
akhiri jika
jika request.form (yheadline) = 1 lalu
yheadline = 1
kalau tidak
yheadline = 0
akhiri jika
konten = htmlencode (request.Form (txtContent)))
Set RS = Server.CreateObject (ADODB.Recordset)
Strsql = pilih e_memo dari contoh
Set RS = Conn.Execute (strsql)
fname = makefilename (sekarang ())
dddd = tahun (sekarang ()) & 年 & bulan (sekarang ()) & 月 & hari (sekarang ()) & 日 & jam (sekarang ()) &: & menit (sekarang ())
pentat = rs (e_memo)
Pencat = ganti (Pensat, lx, typename)
Pencat = ganti (pentat, tanggal, dddd)
Jika dari = lalu
pentat = ganti (pentat, dari,)
kalau tidak
pentat = ganti (pentat, dari, 摘自 ： & dari)
akhiri jika
Jika zznews = lalu
PENCAT = REPLACE (PENCAT, FNAME, EDITOR)
zznews = editor
kalau tidak