<! - #include file = config.asp->
<! - #include file = inc/articlechar.inc->
<%
功能變化(str)
changechr =替換(替換(替換(replace(changechr,[pic],<img src =),[b],<b>),[red],<font color = cc0000>),[big],<font size = 7>)
changechr = replace(替換(替換(replace(changechr,[/pic]),> </img>),[/b],</b>),[/red],</font>),[/big],</font>)
changechr =替換(替換(替換(replace(str,<,<),>,>),chr(13),<br>),,,)
結束功能
%>
<%
如果request.cookies(newsadminok)=然後
響應。 redirect登錄
如果結束
如果request.form(txtTitle)=然後
響應。 write錯誤提示:請輸入新聞標題!
響應
如果結束
如果request.form(txtContent)=然後
響應。 write錯誤提示:請未輸入新聞內容!
響應
如果結束
昏暗標題
昏暗的內容
DIM SQL
昏暗的盧比
昏暗的文章
昏暗的classid,nclassid
來自
title = 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
DIM TypeName
sql1 = select *從type where typeid =&typeid type *
設置rs1 = server.createobject(adodb.recordset)
rs1.open sql1,conn,1,1
typeName = rs1(type)
如果request.form(checkbox1)= 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(now())
dddd =年(現在())
pencat = rs(e_memo)
pencat =替換(Pencat,LX,TypeName)
pencat =替換(Pencat,Date,dddd)
如果是=然後
pencat =替換(pencat,來自,)
別的
pencat =替換(pencat,來自,摘自:&來自)
如果結束
如果zznews =然後
pencat =替換(pencat,fname,編輯器)
zznews =編輯器
別的