WebBuild

ASP应用之采用模板

作者:parno 日期:2006-09-16

字体大小: 小中大

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

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

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

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

复制内容到剪贴板

程序代码

　　
　　
　　
　　testmb
　　
　　
　　
　　
　　
　　
　　
　　

$cntoplt;/td>
$cnleftlt;/td>	$cnrightlt;/td>

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

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

　　

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

　　至此，ASP的模板功能基本完成，剩下的就是：建立具备编辑模板功能的程序页面，将库文件改变为自己所需要程序功能……