一个生成静态，怎么读取动态模板内容的有关问题~

一个生成静态，如何读取动态模板内容的问题~~~
有个问题，就是mb.asp模板里的{foot}想读取foot.asp里的内容，得如何改？
也就是说，想生成的时候 {foot}是为  这句代码的内容。。。
我如果直接写它生成出来不是内容，而是直接这句代码。。

模板页面mb.asp的代码内容：



{$name$}

{$content$}

{foot}

执行代码内容：

<%

dim id

id=cint(request.querystring("id"))

if id="" then

id="1"

else

id=cint(request.querystring("id"))

end if


Dim totalnumber

sql="select id from sjf_common order by id DESC"

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

rs.Movefirst

if not rs.eof then

totalnumber=rs.recordcount

end if

'获取总数可以用一句代码代替,这个相信朋友自己可以解决.

rs.close

set rs=nothing


Response.Write "<br><br>" & vbNewLine

Response.Write "<table width='400' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbNewLine

Response.Write "  <tr>" & vbNewLine

Response.Write "    <td height='50'>总共 <font color='blue'><b>" & totalnumber & "</b></font> 个页面，正在生成第 <font color='red'><b>" & ID & "</b></font>  个页面…… </td>" & vbNewLine

Response.Write "  </tr>" & vbNewLine

Response.Write "</table>" & vbNewLine

Response.Flush


If ID > totalnumber Then

 Response.Write "恭喜您操作成功!"

 Response.Flush

End If


creat(ID)

id=id+1

Response.Write "<meta http-equiv=""refresh"" content=""1;url=?ID="&id&""">"

%>

</BODY>     

</HTML>


<%

Function creat(id)

 sql="SELECT * from sjf_common where id="&ID

 set rs=conn.execute(sql)

 dim name

 name=rs("sjf_name")

 content=rs("sjf_content)

 conn.execute(sql)

 rs.close

 set rs=nothing

 dim fso

 dim znwl

 dim art

 dim fw

 set fso=createobject("scripting.filesystemobject")

 set znwl=fso.opentextfile(server.mappath("mb.asp"))

 art=znwl.readall

 znwl.close


 art=replace(art,"{$name$}",name)

 art=replace(art,"{$content$}",content)

 set fw=fso.createtextfile(server.mappath("/html/"&id&".html"),true)

 fw.writeline art

 fw.close

 set fso=nothing

End Function

%>

------解决思路----------------------
'include可以带有asp代码
Function goinclude(filename)
Dim re,content,fso,f,aspStart,aspEnd
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing
set re=new RegExp
re.pattern="^\s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
do while aspStart>aspEnd+1
Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%\>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
aspStart=inStr(aspEnd,content,"<%")+2
loop
goinclude=Mid(content,aspEnd)
set re=nothing
End Function
------解决思路----------------------
set fso=createobject("scripting.filesystemobject")
set znwl=fso.opentextfile(server.mappath("mb.asp"))
art=znwl.readall
znwl.close

dim footer
set znwl=fso.opentextfile(server.mappath("foot.asp"))
footer=znwl.readall
znwl.close

art=replace(art,"{$name$}",name)
art=replace(art,"{$content$}",content)

art=replace(art,"{foot}",footer)

一个生成静态，怎么读取动态模板内容的有关问题~

相关推荐