<!-#تضمين ملف = config.asp->
<!-#تضمين ملف = inc/articlechar.inc->
<٪
وظيفة changechr (str)
ChangeChr = استبدال (استبدال (استبدال (changechr ، [pic] ، <img src =) ، [b] ، <b>) ، [Red] ، <font color = cc0000>) ، [big] ، <font size = 7>)
ChangeChr = استبدال (استبدال (استبدال (changechr ، [/pic] ،> </img>) ، [/b] ، </b>) ، [/red] ، </font>) ، [/big] ، </font>)
ChangeChr = استبدال (استبدال (استبدال (str ، <، <،> ،> ،>) ، chr (13) ، <br>) ، ،)
وظيفة نهاية
٪>
<٪
إذا طلب
استجابة. redirect تسجيل الدخول
إنهاء إذا
إذا كان request.form (txttitle) = ثم
الرد. write 错误提示: 请输入新闻标题!
استجابة
إنهاء إذا
إذا كان request.form (txtContent) = ثم
الرد. write 错误提示: 请未输入新闻内容!
استجابة
إنهاء إذا
عنوان قاتمة
محتوى خافت
قاتمة SQL
قاتمة روبية
غامضة مقاليد
قاتمة Classid ، nclassid
خافت من
العنوان = htmlencode2 (request.form (txttitle))
من = request.form (NFROM)
zznews = request.form (zznews)
TypeID = request.form (typeID)
حول = request.form (حول)
العنوان = request.form (العنوان)
ftitle = htmlencode2 (request.form (ftitle))
Dim SQL1
DIM RS1
Typename Dim
SQL1 = حدد * من النوع حيث typeID = & typeID
SET RS1 = Server.CreateBject (ADODB.RecordSet)
rs1.Open SQL1 ، Conn ، 1،1
typename = rs1 (النوع)
إذا طلب
tjnews = 1
آخر
tjnews = 2
إنهاء إذا
إذا طلب
Yeadline = 1
آخر
Yeadline = 0
إنهاء إذا
content = htmlencode (request.form (txtContent))
تعيين rs = server.createBject (adodb.recordset)
strsql = حدد e_memo من المثال
تعيين rs = conn.execute (strsql)
fname = makefilename (الآن ())
dddd = year (now ()) & 年 & month (now ()) & 月 & day (now ())
pencat = rs (e_memo)
Pencat = استبدال (Pencat ، LX ، typename)
Pencat = استبدال (Pencat ، التاريخ ، DDDD)
إذا من = ثم
pencat = استبدال (pencat ، من ،)
آخر
pencat = استبدال (pencat ، من ، ： ： & من)
إنهاء إذا
إذا كان zznews = ثم
Pencat = استبدال (Pencat ، Fname ، محرر)
Zznews = محرر
آخر