ASP教程之《VBScript制造实例》笔记

对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，vbscript|笔记   

=========== 添加vbscript代码的三种办法 ============
假定已有一个名为btnSubmit的按钮，添加vbscript代码的办法有三种：
第一种，最经常使用：
<script language="VBScript">
private sub btnSubmit_OnClick
msgbox("OK!")
end sub
</script>

第二种，利用For/Event属性：
<script language="VBScript" for="btnSubmit" event="OnClick">
msgbox("OK!")
</script>

第三种：可以不用独自为一个事务生成一个事务处置法式，只需把事务处置的进程看成元素标志中的一个属性就能够了。需求注重，事务的处置进程的值应当用单引号括起来，而不像其他的属性值是用双引号括起来的。
<input type="submit" name="btnSubmit" value="按钮"  language="vbscript">

========On Error Resume Next语句=========
若不利用 On Error Resume Next 语句，产生的任何运转时毛病都将是致命的，即，显示毛病信息并终止运转。
On Error Resume Next 会使法式从紧随发生毛病的语句以后的语句持续履行，或是从紧随比来一次挪用进程（该进程含有 On Error Resume Next 语句）的语句持续运转。这个语句可以掉臂运转时的毛病，持续履行法式，以后您可以在进程外部创立毛病处置例程。所以，假如但愿在例程中停止外部毛病处置，则应在每个挪用的例程中履行 On Error Resume Next 语句。

==========VBScript中的毛病处置功效============
严厉地讲，VBScript中的毛病处置功效是对照弱的，当毛病产生时，它没有举措直接挪用毛病处置法式，它产生毛病的时分并没有发生中止或提醒信息的机制。在Visual Basic中，毛病产生的时分可以使用On Error Goto...的语句来停止毛病处置，当毛病产生时，法式会主动跳转到用Goto前面的标号唆使的代码处。可是VBScript中不答应如许利用。
然而使用On Error Resume Next语句，仍是可以完成某种水平的毛病捕获功效，只不外一切的毛病圈套要末必需在线处置，要末只能呈报法式中呈现的最初一个毛病。上面给出了VBScript的毛病处置根基框架。
Sub MySub()
On Error Resume Next
........
'在线处置
if Err.Number=? then
........
end if
'呈报剧本碰到的上一个毛病的信息
if Err.Number<>0 then
MsgBox Err.Description
end if
End Sub
注重，当利用On Error Resume Next语句后，除最初一个毛病，后面产生过的毛病都已被排除了，所以没法晓得产生过的一切毛病。为了可以实时处置，建议采取在线处置办法。

============Err对象的Raise办法==========
Err对象的Raise办法用于激发特定的毛病。
可以用上面的法式显示毛病的描写

On Error Resume Next
Err.Raise 6 '发生溢失足误。
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear '排除毛病。

========ActiveX==========
ActiveX是使Web页面丰厚多彩的好办法，固然HTML控件供应了根基的可视化操作（如按钮等），但却缺少那些用户已熟习的可视化功效，而经由过程到场一些通用的（或本人开辟的）ActiveX控件，用户就可以取得罕见的盘算机使用法式的感到。用<object>标签利用ActiveX控件。id属性指定控件的名字，然后是ActiveX控件的ID号。假如阅读者的客户机上没有该控件，就要用CodeBase指定下载这一控件的源站点地位，如http://www.mysite.com/controls/mycontrol.ocx，除指明控件的扩大名为.ocx之外，不需求供应其余甚么信息。接上去是用<param>标志添加参数。一个典范的法式段以下：
<object id="objUserActiveX" classid="clsid:7823A620-9DD9-11CF-A662-00AA00C066D2">
<param name="..." value="...">
<param name="..." value="...">
</object>
假如开辟者不想让阅读者晓得其<param>标志中的参数，该内容会被编码，然后以data属性写入<object>标志，如：
<object id="objUserActiveX" classid="clsid:7823A620-9DD9-11CF-A662-00AA00C066D2" data="..........">

==========FileSystemObject对象=============

FileSystemObject (FSO) 对象形式，答应对大批的属性、办法和事务，利用较熟习的 object.method 语法，来处置文件夹和文件。
FSO 对象形式使文件处置变得很轻易。在处置文件时，次要的方针是以易于会见的格局把数据存储在无效的空间和资本中。这就请求可以创立文件，拔出和改动数据，和输入（读取）数据。由于把数据存储在数据库中，如 Access 或 SQL 办事器，会给使用法式增添很大的开支，所以把数据存储在二进制或文本文件中多是最无效的处理计划。能够不但愿有该开支，或数据会见请求能够不需求与功效完整的数据库相干联的一切额定功效。
FSO 对象形式包括在 Scripting 类型库中，该库位于 Scrrun.dll 文件中。因此，要利用 FSO 对象形式，必需把 Scrrun.dll 放在 Web 办事器的恰当体系目次中。
在 VBScript 中，利用上面的代码来创立 FileSystemObject 的一个实例：

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

FileSystemObject 对象形式中的某些功效是过剩的。例如，可以用 FileSystemObject 对象的 CopyFile 办法，也能够用 File 对象的 Copy 办法来复制文件。这两种办法功效是不异的；两种办法能使编程更天真。

要会见现有文件，则利用 FileSystemObject 对象中的GetFile
办法：

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("c:\test.txt")

一旦有了对象的句柄，就能够会见它的属性。要找出最初一次修正文件的工夫，则利用上面的 VBScript 语法：

Response.Write "File last modified: " & f1.DateLastModified

创立空文本文件的办法是用 CreateTextFile 办法。 上面的示例示范了在 VBScript 中若何用这类办法来创立文本文件：

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)

要翻开现有的文件，则利用 FileSystemObject 对象的 OpenTextFile 办法。
要写数据到翻开的文本文件，则依据下表所述义务利用 TextStream 对象的 Write、WriteLine 或 WriteBlankLines 办法。
上面的 VBScript 例子示范了若何翻开文件，并向文件添加数据，然后封闭文件：
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行，而且带有新行字符。
tf.WriteLine("Testing 1, 2, 3.")
' 向文件写三个新行字符。
tf.WriteBlankLines(3)
' 写一行。
tf.Write ("This is a test.")
tf.Close
End Sub

要从文本文件读取数据，则利用 Read、ReadLine 或 ReadAll 办法。下表描写了分歧的义务应利用哪一种办法。
假如利用 Read 或 ReadLine 办法，而且想跳过数据的特别局部，则利用 Skip 或 SkipLine 办法。read 办法的了局文本存在一个字符串中，该字符串可以显示在一个控件中，也能够用字符串函数（如 Left、Right 和 Mid）来剖析，毗连等等。
上面的 VBScript 示例示范了若何翻开文件，和若何写数据到文件中并从文件读取数据：

Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行。
Response.Write "Writing file <br>"
f1.WriteLine "Hello World"
f1.WriteBlankLines(1)
f1.Close
' 读取文件的内容。
Response.Write "Reading file <br>"
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadLine
Response.Write "File contents = '" & s & "'"
ts.Close
End Sub

==============“Cookie”手艺=============

术语“Cookie”暗示的是赋给客户使用法式的字符串。“Cookie”一词来历于“magic cookie”UNIX编程概念，有时又被叫做“记号”(token)。普通来讲，利用“记号”这个术语对国人来讲，要比“Cookie”一词更轻易了解一些。
Cookie是一个字符串，普通包括很多组变量名及变量的值，各组名和值之间用分号分隔，而且分号后还跟一个空格，变量名与变量值之间用等号分隔，一个典范的Cookie字串以下：
value1=100; value2=good; sale50
用Document对象的Cookie属性前往以后的Cookie字符串。
用document.Cookie="value1=100"的体例为Cookie赋值，假如Cookie中有这个变量，将用新值交换，假如Cookie中没有这个变量，就会为它创立一个变量。

以上的Cookie手艺将变量及变量值存储在内存中，而不是硬盘中。一切的页面共用一个Cookie空间，假如页面A与页面B分离在Cookie中写入了数据，则不管在哪一个页面顶用document.cookie都可以显示出各页面一切的Cookie数据。只需有一个IE窗口翻开就不会丧失Cookie，一旦一切的IE窗口都封闭，则一切的Cookie都被排除。

上面是我本人编写的读取Cookie变量的函数。

<script language="VBScript">
function ReadCookie(pCook)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'本函数用来读取Cookie中的数据。
'流程：先删去Cookie中pCook变量后面的字串，再删去pCook变量前面的字串，就是pCook的值。
'输出：要读取的变量名。
'输入：该变量名的值。假如没有该变量的值，为其赋初值。
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim whereis_pCook '要查找的pCook标志名在Cookie中的肇端地位
dim howlong_pCook '要查找的pCook标志名的长度
dim howlong_cookie '全部Cookie的长度
dim whereis_FenHao '查找endstring中的分号(;)的肇端地位
dim endstring '寄存一时字串，该字串经处置最初失掉pCook的值

whereis_pCook = Instr(Document.Cookie,pCook)
if whereis_pCook = 0 then
'假如以后Cookie中没有该pCook值，就为其赋初值
select case pCook
case "value1"
document.Cookie="value1=100"
endstring="100"
case "value2"
document.Cookie="value2=good"
endstring="good"
case "value3"
document.Cookie="value3=sale50"
endstring="sale50"
end select
else
howlong_pCook = len(pCook)
howlong_cookie=len(document.cookie)
'从Cookie中pCook的值入手下手到Cookie最初的字串。
'要注重，Cookie在各值之间用分号分隔，而且分号后还跟一个空格，所以上面的语句中有“+1”
'别的，各变量名与变量之间用等号隔，所以上面的语句中有“-1”
'固然，以上两个量互相抵消，但为了更好地舆解本语句，故仍保存
endstring = right(document.cookie,howlong_cookie - whereis_pCook + 1 - howlong_pCook - 1)
whereis_FenHao=instr(endstring,";")
'假如没有找到分号，申明此变量是最初一个，所以endstring就是终究的了局；
'假如找到分号，就取分号后面的字串，失掉终究了局。
if whereis_FenHao <> 0 then
endstring=left(endstring,whereis_FenHao - 1)
end if
end if
ReadCookie=endstring
end function
</script>

==========日历控件============
操作体系：Windows2000 Professional
在FrontPage2000下名为“Calendar控件9.0”，classid="clsid:8E27C92B-1264-101C-8A2F-040224009C02"
可以用Calendar.year，Calendar.month，Calendar.day挪用该控件的年代日值，当日历中改动年代日时分离触发Calendar_NewYear()，Calendar_NewMonth()，Calendar_NewDay()事务。
要注重，鄙人拉列表当选择了年或月后，Calendar.year，Calendar.month，Calendar.day三个值均会被清零。

=========关于VB的色彩常数============
在VBScript中利用VBS的色彩常数会呈现意想不到的色彩，好比document.bgcolor=vbYellow
不会将页面后台显示成黄色，而是淡蓝色。
缘由在于VBS的色彩常数暗示办法与HTML中色彩的暗示办法分歧，VBS的色彩常数vbYellow的机内值是"hffff"，VBS的本意是要它暗示值为"ffff00"的色彩，但由于常数的机内值没有写成6位十六进制数，所以HTML会将其注释为"00ffff"，招致失足。
关于VBS的色彩常数在页面中实践显示的色彩可以在FrontPage中实行。在页面属性当选后台色彩/其它色彩，在值中直接填入VBS的色彩常数的机内值，肯定后体系会把它停止转换，失掉在页面中实践显示的色彩。
有些VBS的色彩常数的机内值6位数是对称的，所以会准确显示，如vbGreen（hFF00）和vbMagenta（hFF00FF）。

=================== elements 对象 ===================
private sub window_OnLoad()
for i = 0 to 6
frmRes.elements(i).value=""
next
end sub
这段窗口初始化法式将页面中frmRes表单的最后面7个元素(第0-第6个元素)的值清空，注重，不克不及将轮回前提写成
for i=1 to 7
由于如许体系将以为是第1-第7个元素，体系对元素的标识是从0入手下手的。

====================== Set语句 =======================
dim TheForm
set TheForm = document.frmRes
下面语句设置用TheForm变量援用frmRes表单，可以削减书写，并使对页面的变化有更强的顺应性。在法式中可以如许援用frmRes的元素：
TheForm.txtName.focus

注重：Set语句将对象援用赋给变量或属性，设置TheForm变量的语句后面必需要用set引诱，不然将失足。
当利用 Set 将一个对象援用赋给变量时，并非为变量创立对象的正本，而是创立对象的援用。可有多个对象变量援用统一个对象。由于这些变量是对象援用（不是正本），所以对对象所作的任何修改城市影响一切援用该对象的变量。

===========Location对象===========
每一个窗口都有一个Location对象，界说了其包括的主页的网页地址信息。Location对象的次要属性有：
href 网页的URL
protocal 收集协定
host,hostname 主机名
pathname 途径
port 端标语
还可使用 location.href=newURL 语句重定向页面地址。

==========window对象================
window对象的属性和办法无需指明窗口的称号，因而window对象的办法称号可以看做体系的语句。如窗口的称号可以用window.name，也能够直接用name。

status属性是形态栏提醒信息，可用上面的语句改动形态栏的信息：
status="I am busy! Please wait for a miniter!"

window对象的navigate办法可以重定向页面地址。如 navigate "http://www.sina.com.cn"

============== alert和 confirm 语句 =================
alert "比尔正在仔细地停止一项生物实验"
window对象的alert办法用来显示提醒文本，如上图。window对象的confirm办法弹出一个含有“肯定”和“作废”按钮的对话框，可以用分支法式处置用户的选择。如上图。
flag=prompt ("比尔正在停止生物实验吗？")
if flag then
msgbox "正在停止中……"
else
msgbox "玩去了……"
end if

========== window对象的prompt办法与InputBox函数的对照==========
window对象的prompt办法的格局为：
username=prompt ("请输出你的名字：","Jack")
第一个参数为提醒信息，第二个参数为默许值。如上图。InputBox函数可以显示更特性化的输出对话框，格局为：
username=InputBox ("请输出你的名字：","输出对话框","Jack")
第一个参数为提醒信息，第二个参数为对话框题目，第三个参数为默许值。如上图。
prompt办法与InputBox函数根基上是一样的，prompt办法弹出的对话框中有"JavaScript"字样，而InputBox函数弹出的对话框中有"VBScript"字样。

=========History对象============
history对象中包括着窗口中显示过的主页的列表。
forward 办法是向前翻页，相当于IE中的“行进”按钮。back 办法是向后翻页，相当于IE中的“前进”按钮。forward和back办法都可以带参数，暗示行进和前进的页数。
go 办法是转到某个页面，它的参数相对以后页面，负数是行进，正数是前进。
length 属性是窗口显示过的窗口的总数。

如 history.back
history.go 3


=======link对象=======
用document对象的links属性可以会见link对象，links属性是一个数组，从0入手下手记数，包括了一切的链接对象，个中链接对象的按次由HTML文件中的链接对象的界说决意。链接对象的属性与窗口的location对象的属性很类似。

以下法式将改动页面中第一个链接的href属性。用set语句将链接对象的称号赋给lnk变量的优点是，有些情形下是没法把每个对象的称号写出来的（如不克不及用name属性为<a>标志定名），用set语句就能够援用这个对象。

set lnk=document.links(0)
lnk.href="page-1.htm"
msgbox "链接已改成 " & lnk.href

link对象的length属性，是主页中一切链接对象的个数。上面的法式将显示出网页中的一切链接。

dim msg , i , lnk
for i=0 to document.links.length-1
set lnk=document.links(i)
msg=msg & i+1 & "---" & lnk.href & vbCrlf
next
msgbox msg

=========Frame 对象====================
Frame对象包括在Window对象中，但实践上又相当于一个Window对象，它可使用窗口对象的各类属性、办法和事务，也能够包括任何窗口所能包括的对象，包含在框架对象中嵌套的其他框架对象。
一个典范的Frame嵌套的HTML源文件，将一个窗口分红高低两局部，再将上局部成摆布两局部，再将上左分红高低两局部：

<frameset cols="*,505" >
<frameset rows="80,*" >
<frame name="topFrame" src="document.write-top.htm" >
<frame name="mainFrame" src="document.write-main.htm">
</frameset>
<frame name="rightFrame" src="document.write-right.htm">
</frameset >


从以后Frame会见其余Frame，用以下的模式：
parent.FrameName.document.write "cccccccc"
不管Frame嵌套了几层，都只需一个parent，而不用像目次那样一级一级地指定。

============限制文本框只能输出数字===========
上面的法式处置文本框的OnKeyUp事务，假如按下的不是数字，将删除最初键入的字符。
法式还没有处理的成绩：
1.假如按下非数字键不放，将键入一串文本，而只会删除最初一个字符。
2.假如不是在最初的地位键入非数字键，就不会改正。

sub txtA_OnKeyUp
dim a
a=right(txtA.value,1)
if a < chr(48) or a > chr(57) then
txtA.value=left(txtA.value,len(txtA.value)-1)
end if
end sub

================== window 对象的关系 =================
===================其他 ===================
　　□假如在HTML中没有指定剧本言语的类型，阅读器会默许剧本言语为JavaScript。
　　□表单<form>中的按钮若设成submit类型，则不管其OnClick法式中有何语句，最初总要跳转到<form>中界说的<action>页面，所以，submit类型的按钮不宜做反省表单填写是不是准确的按钮，由于即便反省失足误也会跳转到下一个表单，反省就得到意义了。可以将其移到<form>外作为自力的按钮，或将其类型设置为<button>。
　　□可以用MsgBox显示动静框来起到“断点”的感化。
　　□focus办法使核心移到以后元素。如 TheForm.txtPhone.focus
　　□select办法使响应文本框中的全体文本处于被选中形态。如 TheForm.txtPhone.select
　　□页面中<body>与</body>之间的内容暗示为：document.body.innerHTML  源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多. 纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

不能只是将它停留在纸上谈兵的程度上。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

不能只是将它停留在纸上谈兵的程度上。

仓酷云

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

不能只是将它停留在纸上谈兵的程度上。

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)