现在是程序处理:

<%
'根据输入判断输出是名称还是数据
Function geturlxml(outfile,mode)
geturlxml=False
If outfile="" Then Exit Function
Dim tab
Select Case killint(mode,0,0,2)
Case 0:tab="szd_tpl"
Case 1:tab="szd_content"
End Select
Set rs=conn.execute("select ["&tab&"] FROM szd_asp where [szd_link]='"&outfile&"'")
 If rs.eof And rs.bof Then
 Exit Function
 else
 geturlxml=rs(tab)
 End If
End Function
'提取include文件到原始的数据项中
Function getincludefile(x)
Dim regxml,html
html=""
Set regxml=new regexp
regxml.ignorecase=True
regxml.global=True
regxml.pattern="(<!--#include)(\s)(file|virtual)(=)(\u0022)([a-zA-Z][A-Za-z0-9_/]{0,30})(.)(asp|inc|dll)(\u0022)(-->)"
Dim Matches,Match
Set Matches = regxml.Execute(x)
For Each Match in Matches
html=html&match.value
Next
getincludefile=html
End Function
'获取模板项,先判断输出,返回值是 html 形式的模板,参数是模板的名称
Function gettpl(url)
Dim mudule_file,xml_file,asp_file
xml_file=url
asp_file=gettpldata(xml_file,0)'由模板名称获取模板的内容
Dim loadxml,parsexml,nodes,node
Set loadxml = Server.CreateObject("MSxml2.DOMDocument")
loadxml.async=false
parsexml=server.mappath("../"&gettpldata(xml_file,10)&xml_file)'装载本地的xml文档,先到数据库取到路径
loadxml.load parsexml
Set nodes = loadxml.selectNodes("//*")
for each node in nodes
asp_file=insertaspinhtml(asp_file,gettpldata(node.nodename,1),node.nodename)'加载模块到模板,输出html模板
Next
gettpl=asp_file
End function

'匹配模板中的数据项
'把data中的数据传入html文件当中去
Function tpltodata(html,data)
Dim regxml
Set regxml=new regexp
regxml.ignorecase=True
regxml.global=True
regxml.pattern="({%)([a-zA-Z][A-Za-z0-9_]{2,60})(%})(.[^\[]*)({%/)\2(%})"

Dim Matches,Match
Set Matches = regxml.Execute(data)
For Each Match in Matches
html=Replace(html,"{%"&regxml.Replace(match.value,"$2")&"%}",regxml.Replace(match.value,"$4"))
Next
tpltodata=html
End Function

'geturlxml 传入参数模板名称,返回模板的内容,失败的时候返回 null
Function geturlxml(outfile)
geturlxml=Null
If outfile="" Then Exit Function
Set rs=conn.execute("select [szd_tpl] FROM szd_asp where [szd_link]='"&outfile&"'")
 If rs.eof And rs.bof Then
 Exit Function
 else
 geturlxml=rs("szd_tpl")
 End If
End Function

public  Function gettpldata(url,mode)
'Set rs=server.CreateObject("server.adodbrecordset") 
If Len(url)<1 Then Exit Function
Dim szd_keytpl
Select Case mode
Case 0:Set rs=conn.execute("select [szd_content] from szd_tpl where [szd_link]='"&url&"'")
Case 10:Set rs=conn.execute("select [szd_url] from szd_tpl where [szd_link]='"&url&"'")
Case 1:Set rs=conn.execute("select [szd_content] from szd_keytpl where [szd_key]='"&url&"'")
End Select
If Not(rs.eof And rs.bof) Then
szd_keytpl=rs(0)
Else
szd_keytpl="<div>{%nodefined%}</div>"
End If
gettpldata=szd_keytpl
End Function
'加载标记的模块到 xml 格式的模板中,输出html格式的模板,asp:xml格式模板,html:导入的模块,xmls:当前标记
Function insertaspinhtml(asp,html,xmls)
Dim regxml,temp,temps,tempasp,tempasp_e
Set regxml=new regexp
regxml.ignorecase=True
regxml.global=True
regxml.pattern="(\<"&xmls&"\>)(.[^\[]*)(\<\/"&xmls&"\>)"
temp=regxml.Replace(asp,"$2")
Dim Matches,Match
Set Matches = regxml.Execute(asp)
For Each Match in Matches
html=Replace(html,"(&"&xmls&"&)",regxml.Replace(match.value,"$2"))
asp=Replace(asp,Match.Value,html)
next
temps=Replace(html,"(&"&xmls&"&)",temp)
insertaspinhtml=asp
End Function

Function update_aspfile(id)
Dim update_aspfile_return
update_aspfile_return=False
id=killint(id,0,0,14)
If id=0 Then Exit Function
Set rs=conn.execute("select [szd_level],[szd_content],[szd_tpl],[szd_link] from szd_asp where id="&id&"")
If rs.eof And rs.bof Then Exit Function
Dim tpl_level,tpl_content,tpl_tpl,html_content,asp_file_now
tpl_level=rs(0)
tpl_content=rs(1)
tpl_tpl=rs(2)
asp_file_now=rs(3)
 If Len(tpl_tpl)<4 Or tpl_level=1 Or IsNull(tpl_tpl) Then
 html_content=tpl_content
 Else
 html_content=gettpl(tpl_tpl)
  If Not isnull(html_content) Then
  html_content=getincludefile(tpl_content)&tpltodata(html_content,tpl_content)
  'response.write("<hr/>"&server.htmlencode(getincludefile(tpl_content))&"<hr/>")
  Else
  html_content=tpl_content
  'response.write("<hr/>"&server.htmlencode(html_content)&"<hr/>")
  End If
 End If
If writeto("../",asp_file_now,html_content,2) Then update_aspfile_return=True
update_aspfile=update_aspfile_return
End Function
%>

生成文件:

运行代码框
<!--#include file="inc/setup.asp"--><!--#include file="inc/cjjerfunction.asp"--><!--#include file="inc/light.asp"--><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> <HTML xmlns="http://www.w3.org/1999/xhtml"> <head> <title><%=cjjer_hometitle%></title> <meta http-equiv="content-type" content="text/html; charset=gb2312" /> <meta http-equiv="Content-Language" content="zh-CN" /> <meta name="author" content="老农" /> <meta name="copyright" content="环境工程系" /> <meta name="description" content="<%=cjjer_hometitle%>" /> <meta name="keywords" content="<%=cjjer_hometitle%>" /> <link href="styles/default/import.css" rel="stylesheet" type="text/css" /> </head> <body> <div id="format"> <div id="site_top"></div> <div id="top_ul"><%=get_cache(0)%></div> <div id="format_two"> <div id="main_img"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="100%"> <param name="movie" value="images/main.swf"> <param name="wmode" value="transparent"> <param name="quality" value="high"> <embed src="images/main.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="100%"></embed> </object> </div> <div id="footer_ul"><%Call light()%></div> </div> <div id="site_footer"><%Call cc_footer()%></div> </div> </body> </html>
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

这里,我的模块用了div,是利于样式表的使用.

主要思路如图:

其他的就不再说了,不知道说明白了.

经典论坛讨论帖：
http://www.blueidea.com/bbs/newsdetail.asp?id=2443607

出处：蓝色理想
责任编辑：moby

上一页 模板用xml的思路 [1] 下一页

◎进入论坛网络编程版块参加讨论