初学ASP，程序是能勉强写出来了，但若每进行一次网站页面的改版，所有的源程序都将进行一次移植手术。为此所耗费的人力精力不计其数，甚至一不小心得不偿失、前功尽弃。

所以，梦想着那么大段的程序代码变成几个简单的字符代替，这样只要设计好页面把该功能插入就OK了。其实这也简单，只需将实现该功能的程序代码做成子程序，然后主页调用就可以了。

很多时候，在博客中国，你会选择到很多的模板，甚至有可能自己来设计；或者采用猪飞飞BLOG的各大站长都将其站点改得不近相同……这些，我们都归功于ASP采用模板的功能。

那下面偶就借花献佛，将模板拿来分析，以馈各位朋友。

首先，模板需要在线修改，则应采用数据库保存模板代码

所谓的模板，就是设计完工的标准的HTML代码，其中需要由程序实现的功能部分将采用特殊字符串代替。然，这些特殊字符串需要在显示的时候被编译为对应的功能。

2，假设第一模板内容代码

将下列代码拷贝到m_html字段中



<META&NBSP;HTTP-EQUIV="CONTENT-TYPE"&NBSP;CONTENT="TEXT html; charset='gb2312"'>


<BODY&NBSP;LEFTMARGIN="0"&NBSP;TOPMARGIN="0">
<TABLE&NBSP;WIDTH="100%"&NBSP;HEIGHT="100%"&NBSP;BORDER="0"&NBSP;CELLPADDING="5"&NBSP;
cellspacing="2">
  <TR&NBSP;ALIGN="RIGHT"&NBSP;BGCOLOR="#CCCCCC"> 
    <TD&NBSP;HEIGHT="20"&NBSP;COLSPAN="2">$cntop$
  
  <TR&NBSP;VALIGN="TOP"> 
    <TD&NBSP;WIDTH="25%"&NBSP;BGCOLOR="#E5E5E5">$cnleft$
    <TD&NBSP;WIDTH="74%"&NBSP;BGCOLOR="#F3F3F3">$cnright$
  




注意$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&"

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，最后，调用数据库中的模板代码，将特殊字符串转换。



<%
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
%>

该页主要作用是将模板代码进行显示，并将其中的特殊代码转变为相对应子程序功能。