<!-#포함 파일 = config.asp->
<!-#include file = inc/articlechar.inc->
<%
기능 changechr (str)
changeChr = replace (replace (replace (rownechr, [pic], <img src =), [b], <b>), [빨간색], <font color = cc0000>), [big], <font size = 7>)
changechr = replace (replace (replace (rown (changechr, [/pic],> </img>), [/b], </b>), [/red], </font>), [/big], </font>)
changechr = replace (replace (replace (replace (str, <, <),>), chr (13), <br>),)
엔드 기능
%>
<%
request.cookies (NewsAdminok) = If If the
Response.Rogin.asp
끝 If
request.form (txttitle) = if if then
응답. 쓰기 错误提示 : 请输入新闻标题!
응답. 엔드
끝 If
request.form (txtContent) = If If the
응답. 쓰기 错误提示 : 请未输入新闻内容!
응답. 엔드
끝 If
희미한 제목
희미한 내용
희미한 SQL
희미한 Rs
Dim articleId
Dim Classid, nclassid
희미합니다
title = htmlencode2 (request.form (txttitle))
From = request.form (nfrom)
zznews = request.form (zznews)
typeid = request.form (typeid)
거의 = request.form (약)
헤드 라인 = request.form (헤드 라인)
ftitle = htmlencode2 (request.form (ftitle))
희미한 SQL1
Dim Rs1
DIM 유형 이름
sql1 = select *에서 typeid = & typeid 유형에서
set rs1 = server.createobject (adodb.recordset)
Rs1. -Open SQL1, Conn, 1,1
typename = rs1 (type)
request.form (checkbox1) = 1 인 경우
tjnews = 1
또 다른
tjnews = 2
끝 If
request.form (yheadline) = 1 인 경우
yheadline = 1
또 다른
yheadline = 0
끝 If
content = htmlencode (request.form (txtContent))
set rs = server.createobject (adodb.recordset)
strsql = 예제에서 e_memo를 선택하십시오
set rs = conn.execute (strsql)
fname = makefilename (now ())
dddd = Year (now ()) & 年 & month (now ()) & 月 & day (now ()) & 日 & houth (now ()) & : & minute (now ())
pencat = rs (e_memo)
pencat = replace (pencat, lx, typeName)
Pencat = Replace (Pencat, Date, DDDD)
그럼에서 =이면
pencat = replace (pencat, from,)
또 다른
pencat = replace (pencat, from, 摘自 ： & from)
끝 If
zznews =라면
pencat = replace (pencat, fname, 편집자)
zznews = 편집기
또 다른