<!-#include File = config.asp->
<!-#include File = Inc/articlechar.inc->
<%
Funktion Changechr (STR)
Changechr = Ersetzen (ersetzen (ersetzen (changechr, [pic], <img src =), [b], <b>), [rot], <font color = cc0000>), [big], <font size = 7>)
Changechr = Ersetzen (ersetzen (ersetzen (changechr, [/pic],> </img>), [/b], </b>), [/rot], </font>), [/big], </font>)
Changechr = Ersetzen (ersetzen (ersetzen (ers (str, <, <),>,>), chr (13), <br>),,),)
Endfunktion
%>
<%
Wenn Anfrage.Cookies (NewsAdminok) = dann
Antwort.Redirect Login.asp
Ende wenn
Wenn request.form (txtTitle) = dann
Antwort.Write 错误提示: 请输入新闻标题!
Antwort.end
Ende wenn
Wenn request.form (txtContent) = dann
Antwort.Write 错误提示: 请未输入新闻内容!
Antwort.end
Ende wenn
Dunkeler Titel
schwacher Inhalt
Dim Sql
Dim Rs
dimer articleId
Dim Classid, NcLassid
dumm von
title = htmlencode2 (request.form (txtTitle)))
von = request.form (nfrom)
ZzNews = Request.Form (ZzNews)
typeId = request.form (TypId)
über = request.form (über)
Headline = Request.form (Überschrift)
ftitle = htmlencode2 (request.form (ftitle))
Dim SQL1
Dim Rs1
Dim Typname
SQL1 = SELECT * vom Typ WHERE WHERE GYPEID = & GYPEID
Setzen Sie rs1 = server.createObject (adodb.recordset)
RS1.Open SQL1, Conn, 1,1
typename = rs1 (Typ)
Wenn request.form (checkbox1) = 1 dann
tjnews = 1
anders
tjnews = 2
Ende wenn
Wenn Request.Form (yheadline) = 1 dann
yheadline = 1
anders
yheadline = 0
Ende wenn
content = htmlencode (request.form (txtContent)))
Setzen Sie rs = server.createObject (adodb.Recordset)
STRSQL = Wählen Sie e_memo aus dem Beispiel
Setzen Sie rs = conn.execute (STRSQL)
fname = makefilename (jetzt ())
dddd = Jahr (jetzt ()) & 年 & monat (nun ()) & 月 & tag (jetzt ()) & 日 & stündlich (nun ()) &:: & minute (nun ())
pencat = rs (e_memo)
Pencat = Ersetzen (Pencat, LX, TypName)
Pencat = Ersetzen (Pencat, Datum, DDDD)
Wenn von = dann
Pencat = Ersetzen (Pencat, von,)
anders
pencat = ersetzen (Pencat, von, 摘自 ： & von)
Ende wenn
Wenn zznews = dann
Pencat = Ersetzen (Pencat, Fname, Editor)
ZzNews = Editor
anders