<!-#inclua arquivo = config.asp->
<!-#inclua arquivo = inc/articleChar.inc->
<%
Função Changechr (STR)
Changechr = substituir (substituir (substituir (substituir (changechr, [pic], <img src =), [b], <b>), [vermelho], <font color = cc0000>), [grande], <font size = 7>)
Changechr = substituir (substituir (substituir (substituir (changechr, [/pic],> </mg>), [/b], </b>), [/vermelho], </font>), [/big], </font>)
Changechr = substituir (substituir (substituir (substituir (str, <, <),>), chr (13), <br>) ,,)
Função final
%>
<%
se request.cookies (NewsadMinok) = então
Response.Redirect Login.asp
final se
se request.form (txttitle) = então
Response.Write 错误提示: 请输入新闻标题!
resposta.END
final se
se request.form (txtContent) = então
Response.Write 错误提示: 请未输入新闻内容!
resposta.END
final se
título escuro
conteúdo escuro
Dim SQL
Dim Rs
Dim artigo
Dim Classid, Nclassid
escurecer de
title = htmlencode2 (request.form (txttitle))
de = request.form (nfrom)
zznews = request.form (zznews)
typeId = request.form (typeId)
Sobre = request.form (sobre)
título = request.form (manchete)
ftitle = htmlencode2 (request.form (ftitle))
Dim SQL1
Dim RS1
Dim tipsename
sql1 = selecione * do tipo Where typeId = & typeId
set rs1 = server.createObject (adodb.recordset)
rs1.open sql1, Conn, 1,1
Typename = RS1 (tipo)
se request.form (caixa de seleção1) = 1 então
tjnews = 1
outro
TJNews = 2
final se
se request.form (yheadline) = 1 então
yheadline = 1
outro
yheadline = 0
final se
Content = htmlencode (request.form (txtContent))
set rs = server.createObject (adodb.recordset)
Strsql = selecione e_memo do exemplo
Definir rs = Conn.Execute (StrSQL)
fname = makefilename (agora ())
dddd = ano (agora ()) & 年 & mês (agora ()) & 月 & Day (agora ()) & 日 & hour (agora ()) &: & minute (agora ())
pencat = rs (e_memo)
pencat = substituir (pencat, lx, tipo de tipo)
pencat = substituir (pencat, data, dddd)
se de = então
pencat = substituir (pencat, de,)
outro
pencat = substituir (pencat, de, 摘自 ：: & de)
final se
se zznews = então
pencat = substituir (pencat, fname, editor)
zznews = editor
outro