生成的时候是从数据库中读取一个模板的内容,然后把输入的内容和模板的内容进行替换.那么ubb在什么时候使用呢,.
这是生成代码
dim conndemo
dim rsdemo
Set conndemo = Server.CreateObject("ADODB.Connection")
conndemo.Open "provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("../demo/test.asp")
Set rsdemo=Server.CreateObject("ADODB.RECORDSET")
sql="select demo_html from news_demo where demo_id="&demoid
rsdemo.open sql,conndemo,1,3
okfile=rsdemo("demo_html")
rsdemo.close
okfile = replace(okfile,"Articlecontent",ArticleContent)
okfile = replace(okfile,"fromaddress",fromsite)
okfile = replace(okfile,"addtime",temptime)
okfile = replace(okfile,"articletilte",ArticleTitle)
okfile = replace(okfile,"新闻首页",boardname)
okfile = replace(okfile,"timu",boardname)
okfile = replace(okfile,"NewDocument",Articletitle)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(server.mappath(fpath))<>true Then
fso.CreateFolder(server.mappath(fpath))
End If
Set f1 = fso.OpenTextFile(file, 2, true)
f1.Write okfile
f1.close()
set fso=nothing