ASP模板系统搭建-优快云博客

本文介绍了一种使用ASP实现网站模板系统的具体步骤，包括设计数据库、创建模板代码、建立数据库连接及特殊字符串转换库等，最终实现了模板代码的动态替换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

1，设计数据库testmb.mdb
新建表moban：字段m_id（自动编号，主关键字）；字段m_html（备注类型）

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

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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>testmb</title>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2">
  <tr align="right" bgcolor="#CCCCCC">
    <td height="20" colspan="2">$cntop$</td>
  </tr>
  <tr valign="top">
    <td width="25%" bgcolor="#e5e5e5">$cnleft$</td>
    <td width="74%" bgcolor="#f3f3f3">$cnright$</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，最后，调用数据库中的模板代码，将特殊字符串转换。

<%
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的模板功能基本完成，剩下的就是：建立具备编辑模板功能的程序页面，将库文件改变为自己所需要程序功能……