-
- ASP应用之模板采用
- Weather:有点些闷热
- 2004-08-23
初学ASP，程序是能勉强写出来了，但若每进行一次网站页面的改版，所有的源程序都将进行一次移植手术。为此所耗费的人力精力不计其数，甚至一不小心得不偿失、前功尽弃。
所以，梦想着那么大段的程序代码变成几个简单的字符代替，这样只要设计好页面把该功能插入就OK了。其实这也简单，只需将实现该功能的程序代码做成子程序，然后主页调用就可以了。
很多时候，在博客中国，你会选择到很多的模板，甚至有可能自己来设计；或者采用猪飞飞BLOG的各大站长都将其站点改得不近相同……这些，我们都归功于ASP采用模板的功能。
那下面偶就借花献佛，将模板拿来分析，以馈各位朋友。
首先，模板需要在线修改，则应采用数据库保存模板代码
所谓的模板，就是设计完工的标准的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">$cntoplt;/td>
</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的模板功能基本完成，剩下的就是：建立具备编辑模板功能的程序页面，将库文件改变为自己所需要程序功能……-
Views(4193) | Comments(5) |
In:
web develop
|
(08/12)
色彩与视觉的基本原理
[ASP应用之模板采用]的回复
-
re
于
2004-08-24 09:36:02
发表 |
IP:211.160.163.*
- 那天花了一天写的一个DataGrid α版：
<%@LANGUAGE="VBSCRIPT" %>
<%Option Explicit %>
<\!--#include file="../includes/library.asp"-->
<\!--#include file="../includes/runtime.asp"-->
<\!--#include file="../Manager/char.asp"-->
<\%=lan_getText(session("userLanguage"),0)%>
<script>
function selectAll(obj)
{
var top=obj;
while(true)
{
var top=top.parentElement;
if(top==null)
{
break;
}
if(top=="undefined")
{
top=null;
break;
}
if(top.tagName=="TABLE")
{
break;
}
}
var i;
var j;
-
re
于
2004-08-24 09:38:41
发表 |
IP:211.160.163.*
- if(top!=null)
{
for(i=0;i<top.rows.length;i++)
{
for(j=0;j<top.rows[i].cells[0].children.length;j++)
{
var temp=top.rows[i].cells[0].children[j];
if(temp.tagName=="INPUT")
{
if(temp.type=="checkbox")
{
temp.checked=obj.checked;
}
}
}
}
}
}
</script>
<%
Dim nbdg, errLog
Set nbdg = new NewsBriefDataGrid
Dim pageStringTemplate, pageStringTemplate0, pageStringTemplatePrevious0, pageStringTemplateNext0, pageStringTemplatePrevious1, pageStringTemplateNext1pageStringTemplate = "<table width=""100%""><tr><td width=""80%"">{0}</td><td>{1}</td></tr></table>"
pageStringTemplate0 = "合计<font color=""red"">{RowCount}</font>条记录第<font color=""red"">{CurrentPage}</font>页/合计<font color=""red"">{PageCount}</font>页"
pageStringTemplatePrevious0 = "上一页 "
pageStringTemplateNext0 = "下一页 "
pageStringTemplatePrevious1 = "<a href=""?page={Previous}"">上一页</a> "
pageStringTemplateNext1
-
re
于
2004-08-24 09:40:21
发表 |
IP:211.160.163.*
- Dim pageStringTemplate, pageStringTemplate0, pageStringTemplatePrevious0, pageStringTemplateNext0, pageStringTemplatePrevious1, pageStringTemplateNext1
pageStringTemplate = "<table width=""100%""><tr><td width=""80%"">{0}</td><td>{1}</td></tr></table>"
pageStringTemplate0 = "合计<font color=""red"">{RowCount}</font>条记录第<font color=""red"">{CurrentPage}</font>页/合计<font color=""red"">{PageCount}</font>页"
pageStringTemplatePrevious0 = "上一页 "
pageStringTemplateNext0 = "下一页 "
pageStringTemplatePrevious1 = "<a href=""?page={Previous}"">上一页</a> "
pageStringTemplateNext1 = "<a href=""?page={Next}"">下一页</a> "nbdg.listNewsBriefs Response, pageStringTemplate, pageStringTemplate0, pageStringTemplatePrevious0, pageStringTemplateNext0, pageStringTemplatePrevious1, pageStringTemplateNext1, "page", -1, session("userLanguage"), errLog
%>
<%
Class NewsBriefDataGrid'@param Res Response
'@param newsType 新闻类型
'@param languageId
'@e
- 4# re 于 2004-08-24 09:44:34 发表 | IP:211.160.163.*
- 不发了，本想灌点水的，可惜代码太长................
去这里看吧：
http://blog.csdn.net/redv/archive/2004/08/24/82927.aspx
- 5# 檬园主 于 2004-08-24 12:48:06 发表 | IP:210.83.202.*
- 晕倒中.....
看来我要加一下回复长度了.....
