＜/tr＞
＜tr valign="top"＞
＜td width="25%" bgcolor="#e5e5e5"＞$cnleftlt;/td＞
＜td width="74%" bgcolor="#f3f3f3"＞$cnrightlt;/td＞
＜/tr＞
＜/table＞
＜/body＞
＜/html＞
注意$cntop$、$cnleft$、$cnright$，它们将要实现某些具体的程序功能
3，建立数据库连接文件conn.asp
＜%
set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("testmb.mdb")
conn.Open connstr
%＞
4，建立特殊字符串转换所需要的库文件lib.asp
该文件的主要作用是将实现某些功能的ASP程序做成字程序，以方便调用。
＜%
dim topcode
sub cntop()
topcode="现在时间是："
topcode=topcode&now()
end sub
dim leftcode,i
sub cnleft()
for i = 1 to 5
leftcode=leftcode&"＜p＞cnbruce.com"
next
end sub
dim rightcode
sub cnright()
for i = 1 to 9
rightcode=rightcode&"＜hr color="&i&i&i&i&i&i&"＞"
next
end sub
%＞
5，最后，调用数据库中的模板代码，将特殊字符串转换。
＜!--#include file="conn.asp" --＞
＜!--#include file="lib.asp" --＞
＜%
sql="select * from moban where m_id=1"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
mb_code=rs("m_html")
rs.close
set rs=nothing
cntop()
mb_code=replace(mb_code,"$cntop$",topcode)
cnleft()
mb_code=replace(mb_code,"$cnleft$",leftcode)
cnright()
mb_code=replace(mb_code,"$cnright$",rightcode)
response.write mb_code
%＞
该页主要作用是将模板代码进行显示，并将其中的特殊代码转变为相对应子程序功能。
至此，ASP的模板功能基本完成，剩下的就是：建立具备编辑模板功能的程序页面，将库文件改变为自己所需要程序功能……
