<!-#include file = config.asp->
<!-#include file = inc/articLechar.inc->
<%
función Changechr (STR)
ChangeChr = reemplazar (reemplazar (reemplazar (reemplazar (changechr, [pic], <img src =), [b], <b>), [rojo], <font color = cc0000>), [big], <font size = 7>)
ChangeChr = reemplazar (reemplazar (reemplazar (reemplazar (changechr, [/pic],> </mitg>), [/b], </b>), [/rojo], </font>), [/big], </font>)
ChangeChr = reemplazar (reemplazar (reemplazar (str, <, <),>,>), chr (13), <br>) ,,)
función final
%>
<%
if request.cookies (NewsadMinok) = entonces
Respuesta.Redirect Login.asp
final si
if request.form (txttitle) = entonces
Response.Write 错误提示: 请输入新闻标题!
respuesta.
final si
if request.form (txtContent) = entonces
Response.Write 错误提示: 请未输入新闻内容!
respuesta.
final si
titular
Contenido atenuante
Dim SQL
Dim RS
Dim ArtibeDid
Dim classid, nclassid
atenuar de
title = htmlencode2 (request.form (txttitle))
from = request.form (nFrom)
zzNews = request.form (zzNews)
typeId = request.form (typeId)
Acerca de = request.form (acerca)
Headline = request.form (titular)
ftitle = htmlencode2 (request.form (ftitle))
Dim SQL1
Dim rs1
Dim Typename
sql1 = select * de type where typeId = & typeId
establecer rs1 = server.createObject (ADODB.RecordSet)
rs1.open SQL1, Conn, 1,1
typename = rs1 (tipo)
if request.form (checkbox1) = 1 entonces
TJNews = 1
demás
TJNews = 2
final si
if request.form (yheadline) = 1 entonces
Yheadline = 1
demás
Yheadline = 0
final si
content = htmlencode (request.form (txtContent))
establecer rs = server.createObject (ADODB.RecordSet)
Strsql = seleccione E_MEMO del ejemplo
establecer rs = conn.execute (strsql)
fname = MakeFileName (ahora ())
dddd = año (ahora ()) & 年 & mes (ahora ()) & 月 & Day (ahora ()) & 日 & Hour (ahora ()) &: & Minute (ahora ())
pencat = rs (e_memo)
pencat = reemplazar (pencat, lx, typename)
pencat = reemplazar (pencat, fecha, dddd)
Si de de = entonces
pencat = reemplazar (pencat, de,)
demás
pencat = reemplazar (pencat, de, 摘自 ： y de)
final si
Si zznews = entonces
pencat = reemplazar (pencat, fname, editor)
zznews = editor
demás