<!-#Включите file = config.asp->
<!-#Включите файл = Inc/articlechar.inc->
<%
Функция Changechr (Str)
changechr = replace (reply (reply (reply (changechr, [pic], <img src =), [b], <b>), [red], <font color = cc0000>), [big], <font vize = 7>)
changechr = replace (replication (reply (replace (Changechr, [/pic],> </img>), [/b], </b>), [/red], </font>), [/big], </font>)
changechr = replace (reply (reply (reply (str, <, <),>,>), chr (13), <br>) ,,,)
конечная функция
%>
<%
Если запрос.cookies (newsadminok) = then
response.redirect login.asp
конец, если
Если request.form (txttitle) = then
Ответ.write 错误提示: 请输入新闻标题!
response.end
конец, если
Если request.form (txtcontent) = then
Ответ.write 错误提示: 请未输入新闻内容!
response.end
конец, если
тусклый заголовок
Dim Content
Dim SQL
Dim Rs
Dim quectionid
Dim Classid, Nclassid
тусклый от
title = htmlencode2 (request.form (txttitle))
from = request.form (nfrom)
zznews = request.form (zznews)
typeid = request.form (typeid)
о = request.form (о)
Headline = request.form (заголовок)
ftitle = htmlencode2 (request.form (ftitle)))
Dim SQL1
Dim Rs1
Dim Typename
sql1 = select * from type where typeid = & typeid
Установить rs1 = server.createObject (adodb.recordset)
RS1.Open SQL1, Conn, 1,1
typename = rs1 (тип)
Если запрос.form (fackbox1) = 1 затем
tjnews = 1
еще
tjnews = 2
конец, если
Если запрос.form (yheadline) = 1 тогда
yheadline = 1
еще
yheadline = 0
конец, если
content = htmlencode (request.form (txtcontent))
Установить rs = server.createObject (adodb.recordset)
Strsql = select e_memo из примера
Установите rs = conn.execute (strsql)
fname = makeFilename (теперь ())
DDD = Год (теперь ()) & 年 & Month (Now ()) & 月 & Day (Now ()) & 日 & Hour (Now ()) &: & Minute (Now ())
pencat = rs (e_memo)
pencat = заменить (pencat, lx, typename)
pencat = заменить (pencat, date, dddd)
Если от = then
pencat = заменить (pencat, от,)
еще
pencat = заменить (pencat, от, 摘自 ： & из)
конец, если
Если zznews = then
pencat = заменить (pencat, fname, редактор)
zznews = редактор
еще