<! - # include file = config.asp ->
<! - # Inclure file = inc / articlechar.inc ->
<%
fonction changechr (str)
ChangECHR = Remplacer (Remplacer (Remplacer (Remplacer (ChangeChr, [PIC], <IMG SRC =), [B], <b>), [rouge], <Font Color = CC0000>), [Big], <Font Size = 7>)
ChangECHR = Remplacer (Remplacer (Remplacer (Remplacer (ChangeChr, [/ Pic],> </Mg>), [/ B], </b>), [/ Red], </font>), [/ Big], </font>)
ChangECHR = Remplacer (Remplacer (Remplacer (remplacer (Str, <, <),>,>), Chr (13), <br>) ,,)
fonction finale
%>
<%
si request.cookies (newsadminok) = alors
Response.Redirect Login.asp
terminer si
si request.form (txtTitle) = alors
Response.Write 错误提示: 请输入新闻标题!
réponse.
terminer si
si request.form (txtContent) = alors
Response.Write 错误提示: 请未输入新闻内容!
réponse.
terminer si
talent
contenu
SQL DIM
rs sombre
article faible
DIM CLASSID, NCLASSID
se déchaîner de
title = htmLencode2 (request.form (txtTitle))
From = request.form (nfrom)
zznews = request.form (zznews)
typeID = request.form (typeID)
environ = request.form (à propos)
Headline = request.form (titre)
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)
si request.form (checkbox1) = 1 alors
tjnews = 1
autre
tjnews = 2
terminer si
si demande.form (yheadline) = 1 alors
yheadline = 1
autre
yheadline = 0
terminer si
Content = htmLencode (request.form (txtContent))
set rs = server.createObject (adodb.recordSet)
StrSql = sélectionnez e_memo dans l'exemple
SET RS = Conn.Execute (StrSQL)
fname = makeFileName (maintenant ())
dddd = année (maintenant ()) & 年 & mois (maintenant ()) & 月 & day (now ()) & 日 & hour (maintenant ()) &: & mutte (maintenant ())
Pencat = RS (E_Memo)
Pencat = remplacer (Pencat, lx, typename)
Pencat = remplacer (pencat, date, dddd)
Si de = alors
Pencat = remplacer (Pencat, de,)
autre
Pencat = remplacer (Pencat, de, 摘自 ： & from)
terminer si
Si zznews = alors
Pencat = remplacer (Pencat, fname, éditeur)
zznews = éditeur
autre