欧美二区观看,国产亚洲在线,国产婷婷色一区二区三区

!--#include file="config.asp"-->
!--#include file="inc/articlechar.inc"-->
%
function changechr(str)
changechr=replace(replace(replace(replace(changechr,"[pic]","img src="),"[b]","b>"),"[red]","font color=CC0000>"),"[big]","font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/pic]",">/img>"),"[/b]","/b>"),"[/red]","/font>"),"[/big]","/font>")
changechr=replace(replace(replace(replace(str,"","lt;"),">","gt;"),chr(13),"br>")," ","nbsp;")
end function
%>

%
if request.cookies("newsadminok")="" then
response.redirect "login.asp"
end if
if request.form("txttitle")="" then
response.write "錯(cuò)誤提示:請(qǐng)輸入新聞標(biāo)題!"
response.end
end if
if request.form("txtcontent")="" then
response.write "錯(cuò)誤提示:請(qǐng)未輸入新聞內(nèi)容!"
response.end
end if
dim title
dim content
dim sql
dim rs
dim articleid
dim classid,Nclassid
dim from

title=htmlencode2(request.form("txttitle"))
from=request.form("Nfrom")
zznews=request.form("zznews")
typeid=request.form("typeid")
about=request.form("about")
headline=request.form("headline")
ftitle=htmlencode2(request.form("ftitle"))

dim sql1
dim rs1
dim typename
sql1="select * from type where typeid=" typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename=rs1("type")

if request.form("checkbox1")="1" then
tjnews=1
else
tjnews=2
end if

if request.form("yheadline")="1" then
yheadline=1
else
yheadline=0
end if

content=htmlencode(request.form("txtcontent"))

set rs = server.CreateObject("ADODB.RecordSet")
StrSql = "select E_Memo from Example"
set rs = conn.Execute (StrSql)

fname = makefilename(now())

dddd = year(now()) "年" month(now()) "月" day(now()) "日" hour(now())":"minute(now())
pencat=rs("E_Memo")
pencat=replace(pencat,"lx",typename)
pencat=replace(pencat,"Date",dddd)
if from="" then
pencat=replace(pencat,"From","")
else
pencat=replace(pencat,"From","摘自：" from)
end if
if zznews="" then
pencat=replace(pencat,"Fname",Editor)
zznews=Editor
else
pencat=replace(pencat,"Fname",zznews)
end if
pencat=replace(pencat,"H_Title",title)
pencat=replace(pencat,"H_Memo",content)
pencat=replace(pencat,"labout",about)
pencat=replace(pencat,"ftitle",ftitle)

newsdate = year(now()) "." month(now()) "." day(now())
TimePath = year(Now()) "-" month(now()) "-" day(Now())
FolderPath = Server.MapPath(".") "\&; TimePath

rs.close
'將新聞保存入數(shù)據(jù)庫(kù)

sql="select * from article where (newsid is null)"

rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content
rs("Nfrom")=from
rs("typeid")=typeid
rs("path")=TimePath
rs("typename")=typename
rs("tjnews")=tjnews
rs("N_Fname")=fname
rs("zznews")=zznews
rs("about")=about
rs("newsdate")=newsdate
rs("yheadline")=yheadline
rs("headline")=headline
if ftitle > "" then rs("ftitle")=ftitle
rs.update

pencat=replace(pencat,"h_id",rs("newsid"))

Set fso = Server.CreateObject("Scripting.FileSystemObject")
If CheckDir(FolderPath) = True Then
Set fout = fso.CreateTextFile(FolderPath "\&; fname)
Else
MakeNewsDir TimePath
Set fout = fso.CreateTextFile(FolderPath "\&; fname)
End if
fout.WriteLine pencat
fout.close

articleid=rs("newsid")
UpdateJs(news)
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "addnews.asp"
%>

標(biāo)簽：南京楚雄涼山通遼邢臺(tái) 清遠(yuǎn) 赤峰上海

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《fso實(shí)例》，本文關(guān)鍵詞 fso,實(shí)例,fso,實(shí)例,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

fso實(shí)例