ASP教程之VBScript编码模板

只看该作者 · 发表于 2015-1-16 23:34:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件vbscript|编码|模板代码标准：



<%@Language=VBScript%>
<%OptionExplicit%>

<%
到场的文件
%>


<%
代码版权申明:
=========================================================
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为移动电话互联网客户服务。

只看该作者 · 发表于 2015-1-20 09:57:16

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

只看该作者 · 发表于 2015-1-24 14:23:23

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-1-25 21:54:06

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

仓酷云 · 发表于 2015-2-25 19:38:47

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

只看该作者 · 发表于 2015-3-8 01:33:40

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

只看该作者 · 发表于 2015-3-15 19:17:32

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-3-22 03:07:55

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之VBScript编码模板

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子