<!-#รวมไฟล์ = config.asp->
<!-#รวมไฟล์ = inc/articlechar.inc->
-
ฟังก์ชั่น Changechr (STR)
changechr = แทนที่ (แทนที่ (แทนที่ (แทนที่ (changechr, [pic], <img src =), [b], <b>), [สีแดง], <font color = cc0000>), [ใหญ่], <font size = 7>)
changechr = แทนที่ (แทนที่ (แทนที่ (แทนที่ (Changechr, [/pic],> </img>), [/b], </b>), [/red], </font>), [/big], </font>)
changechr = แทนที่ (แทนที่ (แทนที่ (แทนที่ (str, <, <),>,>), chr (13), <br>),)
ฟังก์ชันสิ้นสุด
-
-
ถ้า request.cookies (newsadminok) = จากนั้น
Response.redirect Login.asp
สิ้นสุดถ้า
ถ้า request.form (txttitle) = จากนั้น
Response.write 错误提示: 请输入新闻标题!
Response.end
สิ้นสุดถ้า
ถ้า request.form (txtContent) = จากนั้น
Response.write 错误提示: 请未输入新闻内容!
Response.end
สิ้นสุดถ้า
ชื่อสลัว
ซุ่มซ่าม
สลัว SQL
สลัวอาร์เอส
DIM LACTRAID
Dim classid, nclassid
หรอกจาก
title = htmlencode2 (request.form (txttitle)))
จาก = request.form (nfrom)
zzNews = request.form (zzNews)
typeId = request.form (typeId)
เกี่ยวกับ = request.form (เกี่ยวกับ)
HEEDLINE = request.Form (หัวข้อ)
ftitle = htmlencode2 (request.form (ftitle))
สลัว SQL1
สลัว rs1
dim typename
SQL1 = SELECT * จากประเภทที่ typeId = & typeId
ตั้งค่า rs1 = server.createObject (adodb.recordset)
Rs1.open SQL1, Conn, 1,1
typename = rs1 (ประเภท)
ถ้า request.form (cumpbox1) = 1 แล้ว
tjnews = 1
อื่น
tjNews = 2
สิ้นสุดถ้า
ถ้า request.form (yheadline) = 1 แล้ว
yheadline = 1
อื่น
yheadline = 0
สิ้นสุดถ้า
content = htmlencode (request.form (txtContent)))
ตั้งค่า rs = server.createObject (adodb.recordset)
strsql = เลือก e_memo จากตัวอย่าง
ตั้งค่า rs = conn.execute (strsql)
fname = makefilename (ตอนนี้ ())
dddd = ปี (ตอนนี้ ()) & 年 & เดือน (ตอนนี้ (ตอนนี้ ()) & 月 & day (ตอนนี้ ()) & 日 & ชั่วโมง (ตอนนี้ ()) &: & นาที (ตอนนี้ ())
pencat = rs (e_memo)
Pencat = แทนที่ (Pencat, Lx, Typename)
Pencat = แทนที่ (Pencat, Date, DDDD)
ถ้าจาก = จากนั้น
Pencat = แทนที่ (Pencat, จาก,)
อื่น
Pencat = แทนที่ (Pencat, จาก, 摘自： & จาก)
สิ้นสุดถ้า
ถ้า zzNews = จากนั้น
Pencat = แทนที่ (Pencat, Fname, Editor)
ZZNews = Editor
อื่น