ASP教程之VBScript编码模板
优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件vbscript|编码|模板代码标准：<!--METADATA
TYPE="typelib"
FILE="C:ProgramFilesCommonFilesSystemADOmsado20.tlb"
-->
<%@Language=VBScript%>
<%OptionExplicit%>
<%
到场的文件
%>
<!--#includevirtual|file="必要包括的文件"-->
<%
代码版权申明:
=========================================================
File:文件名.asp
Version:1.0
Date:
ScriptWrittenbyTommyxiao
Description:
Revision:
Date:
Author:
Description:
=========================================================
Copyright(C)2003Asiagame.Com.Allrightsreserved.
Web:http://www.advancededu.com
Needhelp?Contact:xds2000@msn.com
=========================================================
%>
<%
容错机制代码
--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=FALSE
IFNDEBUG_MSG=TRUETHEN
堕落过滤
ONERRORRESUMENEXT
ENDIF
变量声明及界说区
Booleanerrorvariant
DimBlnFounderr,sErrmsg
BlnFounderr=FALSE
触发毛病信息
sErrmsg=sErrmsg+"<br>"+"<li>没有找到您必要的信息，接待利用。"
BlnFounderr=TRUE
DimoConn,oRs,sSQLADOobjects
SetoConn=Server.CreateObject("ADODB.Connection")
oConn.OpenApplication("connStr")
事件界说区
输入毛病
IfBlnFounderr=TRUEThen
mError()
EndIf
Func,Proc界说区
FunctionDealInput(exp1)
dimexp2Filterinputforinvalidcharacters
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
exp2=Replace(exp2,"","")
exp2=Replace(exp2,"&","&")
DealInput=exp2
EndFunction
FunctionCloseDatabaseCloseDatabase
oConn.close
SetoConn=Nothing
EndFunction
submError()
Response.WritesErrmsg&"pleasecontactsystemadministrator."
response.write"<html>"&vbCrLf
response.write"<head>"&vbCrLf
response.write"<title>xxx站点--WEB背景办理</title>"&vbCrLf
response.write"<metaNAME=""GENERATOR""Content=""MicrosoftVisualStudio6.0"">"&vbCrLf
response.write"<linkrel=""stylesheet""type=""text/css""href=""css/index.css"">"&vbCrLf
response.write"<scripttype=""text/javascript""src=""js/fx.js""></script>"&vbCrLf
response.write"<scripttype=""text/javascript""src=""js/cooltool.js""></script>"&vbCrLf
response.write""&vbCrLf
response.write"</head>"&vbCrLf
response.write""&vbCrLf
response.write"<body>"&vbCrLf
response.write"<tablecellpadding=""0""cellspacing=""0""border=""0""width=""95%""bgcolor=""#777777""align=""center"">"&vbCrLf
response.write"<tr>"&vbCrLf
response.write"<td>"&vbCrLf
response.write"<tablecellpadding=""3""cellspacing=""1""border=""0""width=""100%"">"&vbCrLf
response.write"<tralign=""center"">"&vbCrLf
response.write"<tdwidth=""100%""bgcolor=""#EEEEEE"">外部办理操纵毛病信息</td>"&vbCrLf
response.write"</tr>"&vbCrLf
response.write"<tr>"&vbCrLf
response.write"<tdwidth=""100%""bgcolor=""#FFFFFF""><b>发生毛病的大概缘故原由：</b><br><br>"&vbCrLf
response.write"<li>请您尽快与办理员接洽，取得响应地的匡助。</a>"&vbCrLf
response.writesErrmsg&vbCrLf
response.write"</td>"&vbCrLf
response.write"</tr>"&a</p>强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 掌握asp的特性而且一定要知道为什么。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 掌握asp的特性而且一定要知道为什么。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。
页:
[1]