高校问答生产大队 英文:ASP网页模板怎么用？
来源：百度文库 编辑：高校问答 时间：2024/04/27 05:58:37
模板需要可以在线修改，举例采用数据库保存模板代码 。也可以用FSO等读取摸版，那就不需要放到数据库中！
1，数据库test.mdb
新建表moban：字段m_id（自动编号，主关键字）；字段m_html（备注类型）
2，假设第一模板内容代码
将下列代码拷贝到m_html字段中
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>test</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("test.mdb")
conn.Open connstr
%>
4，建立特殊字符串转换所需要的文件 config.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>im286.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="config.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的模板功能基本完成...
直接放在 Inepub\wwwroot 目录下。