Question

ASP网站读取模板设置如何操作？

Answer 1

<%
'创建FileSystemObject对象
set fs=Server.CreateObject("Scripting.FileSystemObject")
set MyTextFile=fs.OpenTextFile(Server.MapPath("../file/mouldboard/news_mode.html")) '读取单个文章的文件模板
'********************************
'一次性读取文件中的所有内容
str=MyTextFile.ReadAll
'对相关内容进行替换
str=replace(str,"{title}",request("title"))
str=replace(str,"{newtitle}",request("title"))
str=replace(str,"{newcontern}",ubbcode(request("body")))
str=replace(str,"{fileGengxin}",fileGengxin)
'**********************************************************************

'将从模板中读取的内容写入网页中

set MyTextFile2=fs.OpenTextFile(Server.MapPath(filename3),2) '打开文件，并写入数据
MyTextFile2.Write(str)
MyTextFile2.Close
%>

追问

数据库读取
sql1="select type_en,content from web_models where type_en='index'"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,cn,1,1
mb_code=rs1("content")
rs1.close
set rs1=nothing怎么操作？？？

追答

然后将读取到的字符串进行替换，即可。

追问

什么意思，替换那个字符串，有没有简单步子，模板文件直接读取
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set htmlwrite=fso.OpenTextFile(Server.MapPath("../model/index_model.html"))
mb_code=htmlwrite.ReadAll()
htmlwrite.close 我刚学，

追答

没有简单步子