|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。ShowSource.asp
<%@Language=JavaScript%>
<!--#includefile="include/SetGlobals.asp"-->
<%
//getthepagetodisplayfromtheURL
varsPage=""+Request.QueryString("page");
//makesureitsapageweallowthemtoview!
switch(sPage)
{
case"Wider":
case"COM":
case"Handle404":
case"Categories":
case"CategoryPage":
case"Columns":
case"ResultsPage":
case"Date":
case"Contact":
case"Subscribe":
case"MailToList":
break;
default:
Response.Redirect("NaughtyNaughty!");
}
//outputrelevantmetatags
Init("ASPsourceexample");
//outputcommontopofpage
Header(<ahref="work.asp">Work</a>--><ahref="+sPage+.asp">"+sPage+.asp"</a>-->Source,3);
//outputpagecontent
Content();
//outputcommonbottomofpage
Footer();
%>
<%/*standardpageelements*/%>
<!--#includefile="utils/Init.asp"-->
<!--#includefile="utils/Header.asp"-->
<!--#includefile="utils/Footer.asp"-->
<!--#includefile="utils/ShowFile.asp"-->
<%
//============================================
//thecontentofthispage
//============================================
functionContent()
{
Out(<tdwidth="20%"></td>);
Out(<tdwidth="60%">);
//createhandletoFileSystemObject
varoFSO=Server.CreateObject(Scripting.FileSystemObject);
//eachsourcefilethatweshowsourceforcouldhavearelated
//documentationfileforustodisplaybeforeandafterthe
//source.fornow,Iuseagenericheaderandfooterfile.the
//truetellsShowFiletopassthroughanyHTMLtothebrowser.
ShowFile(oFSO,Generic.pre,true,false);
switch(sPage)
{
case"Categories":
case"CategoryPage":
case"Columns":
Out(<p></td>);
}
%>
utils/ShowFile.asp
<%
//haveweadvertizedourmailinglistyet?
varbDoneLink=false;
//============================================
//displaythecontentsofthegivenfile
//============================================
functionShowFile(oFSO,sFile,bPassHTML,bShowName)
{
varForReading=1;
//varForWriting=2;
//varForAppending=8;
//openaspfileforreading
varfFile=oFSO.OpenTextFile(Server.MapPath(sFile),ForReading);
//readentirefilecontentsintovariable
vars=fFile.ReadAll();
if(!bPassHTML)
{
//replace&with&soHTMLdisplayed,notinterpreted
s=s.replace(/&/g,&);
//replace<with<soHTMLdisplayed,notinterpreted
s=s.replace(/</g,<);
//replacenewlinewithHTMLequivalent
s=s.replace(/
/g,<br>);
//replacetabswith3spaces
s=s.replace(/ /g,);
//showfilenameandchangefontcolorforsourcecode
s=<fontcolor="black">+s+</font>;
if(bShowName)
s=<h4>+sFile+</h4>+s;
}
Out(s);
fFile.Close();
}
//============================================
//showasourcefileoutsidethetable
//============================================
functionShowSource(oFSO,sFile,bShowName)
{
//advertizeourmailinglistbeforethefirstsourcefile
if(!bDoneLink)
{
bDoneLink=true;
Out(<p><b>Getinformedwhenthesourcecodebelowchanges!</b><ahref="subscribe.asp">Subscribetoourmailinglist.</a>);
}
Out(</td>);
Out(<tdwidth="20%"></td></tr><tr><tdcolspan=3width="100%"bgcolor="#ff9900">);
//shownewsfile
ShowFile(oFSO,sFile,false,bShowName);
Out(</td></tr><tr><tdwidth="20%"></td>);
Out(<tdwidth="60%">);
}
%>
楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|