關(guān)于Asp代碼與頁(yè)面的分離(4)_ASP教程

教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!

推薦：WEB應(yīng)用的緩存兼容性設(shè)計(jì)
經(jīng)過(guò)代理以后，由于在客戶端和服務(wù)之間增加了中間層，因此服務(wù)器無(wú)法直接拿到客戶端的IP，服務(wù)器端應(yīng)用也無(wú)法直接通過(guò)轉(zhuǎn)發(fā)請(qǐng)求的地址返回給客戶端。但是在轉(zhuǎn)發(fā)請(qǐng)求的HTTD頭信息中，增加了HTTP_X

從上面可以看出，象{X}，{XX}，{COUNT}之類的記號(hào)是定義模板變量。它們將會(huì)在ASP程序中被替代。

而!#TPLDEFROW...!#TPLENDROW是定義一個(gè)語(yǔ)句塊ROW。在ASP程序中就可以將ROW塊重復(fù)多次。

第二步：設(shè)計(jì)ASP程序。

TEST.ASP

以下為引用的內(nèi)容：
-
%@Language=JScript%
!#includefile=Template.JScript.INC
%
vartpl=newTemplate(c:\Inetpub\wwwroot);
varstr=;
vari;
tpl.Load(Main,TEST.HTM);
tpl.Split(Main);
tpl.COUNT=0;
for(i=1;i=tpl.MAXX;i )//tpl.MAXX在模板中定義為10。
{
tpl.X=i;
tpl.XX=i*i;
str =tpl.Parse(ROW);
tpl.COUNT ;
}
tpl.ROW=str;
tpl.MAXX=;//清空此模板變量，以避免被顯示出來(lái)。
%
%=tpl.Parse(Main)%
-

上面的程序?qū)@示一個(gè)1到10的平方表。

通常在使用模板的情況下，都只要在最后一行加上顯示頁(yè)面的語(yǔ)句。因此整個(gè)程序顯得十分清晰。此時(shí)，只要對(duì)模板文件進(jìn)行編輯，就可以改變整個(gè)頁(yè)面的外觀。

至于模板文件，它可以是任何文件，如HTML文件、ASP文件，甚至是程序本身!，而且在一個(gè)程序中可以裝載多個(gè)模板配合使用，這樣，不僅具有極大靈活性，而且模板文件與ASP程序的相關(guān)性可減到最低程度。

好好利用模板，將會(huì)使你的工作更加輕松。

附：Template源程序

以下為引用的內(nèi)容：
!文件名：Template.JScript.INC
%
/*********************************************************/
/*TemplateClass*/
/*Author:*/
/*Date:6-09*/
/*********************************************************/
//TemplateMethodDefine
functionTemplate_Parse(name)
{
if(this[name]==null)
return;
varreg=newRegExp({(\w*)},ig);
varstr=newString(this[name]);
vararr=str.match(reg);
vari;
if(arr!=null)
for(i=0;iarr.length;i )
{
key=arr.slice(1,-1);
reg=newRegExp(arr,ig);
if(this[key]!=null)
str=str.replace(reg,this[key]);
}
returnstr;
}
functionTemplate_Split(name)
{
varlen=0;
vararr;
if(this[name]==null)
return;
varTemplate_Exp=newRegExp(!#TPLDEF (\w*)*((.|\n)*)!#TPLEND \1*,i);
while(this[name].search(Template_Exp)!=-1)
{
arr=this[name].match(Template_Exp);
this[arr[1}=arr[2];
this[name]=this[name].replace(Template_Exp,{ arr[1] });
this.Split(arr[1]);
}
}
functionTemplate_Load(name,filename)
{
varfso=newActiveXObject(Scripting.FileSystemObject);
varfile=fso.BuildPath(this.TplPath,filename);
if(fso.FileExists(file))
{
varf=fso.OpenTextFile(file,1);
this[name]=f.ReadAll();
}
}
//TemplateConstructor
functionTemplate(path)
{
//Property
this.TplPath=path;
//Method
this.Parse=Template_Parse;
this.Split=Template_Split;
this.Load=Template_Load;
}
%

分享：ASP基礎(chǔ)教程：學(xué)習(xí)ASP中子程序的應(yīng)用
在ASP中，你可通過(guò)VBScript和其他方式調(diào)用自程序。實(shí)例：調(diào)用使用VBScript的子程序如何從ASP調(diào)用以VBScript編寫(xiě)的子程序。以下為引用的內(nèi)容