亚洲人成色4444在线观看,亚洲免费福利在线视频,国产亚洲情侣久久精品

Eric_jiang — Mon, 05 Jul 2010 06:51:00 GMT

之前没哪�ơ实践过�Q�只是听一堆�h说不可以或者不成功�Q�今天测试了下，成功实现�?br /> OS�Q�win2003
Browse�Q�IE6�Q�Mozilla1.5�Q�Netscape8.0�Q�Friefox1.0�Q�Opera8.51

步骤�Q?br /> 1、在iis新徏站点3�?font color="#000000">�Q?/font>www.goalercn.com(�? goalercn.com)�Q�img.goalercn.com�Q�blog.goalercn.com
2、在www.goalercn.com下徏立文件testcookies.asp�Q�代码如下：
<%
Response.Cookies("Type") = "Test Cookies"
Response.Cookies("Type").Expires = date()+30
Response.Cookies("Type").Domain = ".goalercn.com"
Response.Cookies("Type").Secure = False
Response.Write Request.Cookies("Type")
%>
3、在ad.goalercn.com下徏立文件testcookies.asp�Q�代码如下：
<%Response.Write Request.Cookies("Type")%>
4、在blog.goalercn.com下徏立文件testcookies.asp�Q�代码同�?br /> 5、因为是本机��试�Q�修改hosts文�g�Q�把4个域名都指向�?27.0.0.1�Q�也��是��d��如下内容�Q?br />     127.0.0.1     ad.goalercn.com
    127.0.0.1     blog.goalercn.com
    127.0.0.1     www.goalercn.com
    127.0.0.1     goalercn.com
6、关闭所有浏览器�Q�开ie,打开http://www.goalercn.com/demo/testcookies.asp�Q�显�C�出文本�? 容：Test Cookies
7、新建窗口，打开http://ad.goalercn.com/temp/testcookies.asp�Q�显�C�出文本�? 容：Test Cookies
8、新建窗口，打开http://blog.goalercn.com/temp/testcookies.asp�Q�同��h��C�出如上文本内容
9、换其他4个浏览器�Q�都成功�?br />
注意点：
1、Response.Cookies("Type").Secure = False�Q�Secure属性一定要是false�Q�或者直接不执行�q�行�Q�如�? Secure = True�Q�则ad和blog�?�U�域名是取��g��了�?br /> 2、Response.Cookies("Type").Domain = ".goalercn.com"�Q�domain的��|��我设�|? �?goalercn.com"�Q�也��是没有前面的点�Q�在IE下成�?br /> 其他4个浏览器没测试�?br /> 3、path我猜是不应该讄��的�?br /> 4、在局域网内其他机器上�Q�修改host指向到我机器的IP�Q�取值成功�?br /> 5、在局域网另外一台机器上架设ad.goalercn.com�Q�把testcookies.asp文�gcopy�q�去�Q�同时修改host到当前机器，取�? 成功

Eric_jiang 2010-07-05 14:51 发表评论

关于Persits.Upload.1 '800a0001' 的解��x��法，能解冻I��

Eric_jiang — Tue, 22 Jun 2010 04:07:00 GMT

Article PS02022586

800A0001 Unspecified error

Problem Description

When uploading files with AspUpload 3.0 (and higher), the following error may be thrown by the Save method:
Persits.Upload.1 (0x800A0001)
Unspecified error

Solution

In most cases it means that your upload script uses Request.Form or Request.QueryString prior to calling Upload.Save . As a result, the BinaryRead method of the Request object fails.
You must never use Request.Form in your upload script because the ENCTYPE="multipart/form-data" attribute of your form makes this collection unusable. Use Upload.Form instead. Remeber, however, that the Upload.Form collection is populated by a call to Upload.Save, therefore you can only use Upload.Form after a successful call to Upload.Save.

��单来�?��是说你使用了这个组�?��׃��要再使用 Request.Form or Request.QueryString 来获取参敎ͼ�都要用Upload.Form来获取，不然��报错这个错

Eric_jiang 2010-06-22 12:07 发表评论

VB数组详解

Eric_jiang — Sat, 12 Jun 2010 02:46:00 GMT

一、数�l�的概念
    数组是一�l�具有相同类型和名称的变量的集合。这些变量称为数�l�的元素�Q�每个数�l�元素都有一个编��P��q�个�~�号叫做下标�Q�我们可以通过下标来区别这些元素。数�l�元素的个数有时也称之�ؓ数组的长度�?br />     一般情况下�Q�数�l�的元素�c�d��必须相同�Q�可以是前面讲过的各�U�基本数据类型。但当数�l�类型被指定�?span style="color: red;">变体型时�Q�它的各个元素就可以是不同的�c�d��?br /> 数组和变量一��P��也是有作用域的，按作用域的不同可以把数组分�ؓ�Q�过�E��数组(或称为局部数�l?、模块��数组以及全局数组�?br />     二、定长数�l�和动态数�l?br />     定长数组
   定长数组的长度是在定义时��q��定的�Q�在�E�序�q�行�q�程中是固定不变的。其定义格式为：
   Dim 数组�?[下界TO]上界)[As�c�d��名]
   其中�Q�数�l�的下界和类型是可选的。所谓下界和上界�Q�就是数�l�下标的最��值和最大倹{��缺省下界时�Q�vB�? 认的下界�?�Q�但通常��Z��习惯上是�?开始的�Q�因�?我们可以讄��让数�l�的默认下界�?�Q�这需要在每个模块�?#8220;(声明)”部分��d��一行代码：
   如果�? 义数�l�时不指定其�c�d��Q�默认是变体型的�?br /> 下面举例说明定长数组的定义：
①Dim a(1 to 3)As Integer
②Dim b(5 to 9)As String
③Dim c(7)As Integer
④Dim d(6)
     其中�Q�例①定义了一个具有三个元素的整型数组�Q�其下标�?�?。例②定义了一个具有五个元素的字符型数�l�，其下标从5�?�?span style="color: red;">例③�~�省了下界，它定义了一个具有八个元素的整型数组�Q�其下标�?�?。例④则�~�省了下界和�c�d��Q�定义的是具有七个元素的变体型数�l�，其下标从0�?。如果在该模块的“(声明)”部分��d��了Option base 1�Q�则例③和例④的下标都是从l开始了�?br /> 在定义定长数�l�时�Q�其上界和下界必��L��常数或常量表辑ּ��?br />     动态数�l?br /> �? 很多情况下，数组的长度事先是无法预测的，而且有时可能需要在�E�序�? 改变数组的长度以适应新的情况�Q�因此出��C��动态数�l�。动态数�l�是在定义数�l�只指定数组名及其类型，�{�以后知道数�l�的长度或需要改变数�l�长度时再用 “ReDim”指定它的长度。现举例如下�Q?br />     Dim X AS Integer
    Dim a()As String
……
    ReDim a(x)
……
    X=X+3
    ReDim a(x)
    其中�?#8220;…”代表其它代码。这�D�代码首先定义了一个整型变量和—个字符型的动态数�l�，之后�l�过一�p�d��q�算后��变量X得到一个定��|��再��?#8220;ReDim”指定数组的长度，最后根据需要又再一�ơ改变了数组的长度�?br />     虽然可以一�ơ或多次改变动态数�l�的长度�Q�但当重新指定数�l�长度时�Q�数�l�内原有的数据降会被清除。如果既��x��变数�l�的长度�Q�又想保留数 �l�原有的数据�Q�则在��?#8220;ReDim”旉��要加�?#8220;Preserve”关键字。例如：ReDim Preserve a(x)。但要注意，如果�~�小数组长度�Q�那么数�l�中��出新的下界��C��界之间的元素��清除，即��使用�?#8220;Preserve'’关键字，也不会保留这些元素，如果仍然讉K��q�些元素��会引�v“下标��界”的错�?
   当不需要再使用某个动态数�l�时�Q�我们可以��?#8220;Erase”删除该数�l�，以释放该数组占用的内存空��_��例如�Q�Erase a()�?br /> 三、多�l�数�l�及数组元素的引�?br />    一个数�l�可以是一�l�的�Q�也可以是多�l�。当需要表�C��^面中的一个点坐标�Q? ��需要用��C��l�数�l?表示�I�间中的一个点�Ӟ��需要用��C��l�数�l�。多�l�数�l�的定义格式为：
    Dim数组�?[下界TO]上界[�Q�TO 上界[下界 TO]    [�Q?#8230;])[AS�c�d��名]
多维数组的定义格式与—一�l�数�l�基本上是一致的�Q�只是多加几个上界和下界�?br />     现在举例如下�Q?br />     Dim a(1 TO 3,1 TO 4)    As Integer
Dim b(5, 9)    As Siring
    Dim b(4, 3)
    �q�三行语句分别定义了一个两�l�数�l�，�W�一个指定了下界及类�?�W�二个只指定了类�?nbsp;   使用默认的下�?最后一个下界和�c�d��都没有指定，其类型是变体型的�?br />    �Ҏ��l�元素的引用�Q�是数组名加下标的�Ş式。例如：
   Dim a(5)as Integer
   Dim b(3,4)as Integer
   a(1)=3
   a(2)=5
   a(3)=a(1)+a(2)
   b(2,1)=a(2)
   msgbox a(3)
   msgbox b(2,1�Q?br /> 在此例中�Q�先�Ҏ��l�a的前三个元素赋��|��再给数组b的一个元素赋��|��最后显 �C�Z��个数�l�元素的倹{��用数组元素�Ӟ��其下标不要超��Z��下界至上界的范围�?br />

Eric_jiang 2010-06-12 10:46 发表评论

改进ASP�E�序中的字符串处理性能

Eric_jiang — Thu, 10 Jun 2010 03:33:00 GMT

��?/strong>
　　
　　�~�写 ASP ��面�Ӟ��开发�h员实际上是创��Z��个格式化的文本流�Q�通过 ASP 提供�?Response 对象写入 Web 客户端。创建此文本��的�Ҏ��有多�U�，而您选择的方法将�?Web 应用�E�序的性能和可�~�放性��生很大媄响。很多次�Q�在我帮助客户优化其 Web 应用�E�序的性能�Ӟ��发现其中一个比较有效的�Ҏ��是更�?HTML ��的创徏方式。本文将介绍几种常用技术，�q�测试它们对一个简单的 ASP ��面的性能所产生的媄响�?br /> 　　
　　ASP 设计
　　
　　许多 ASP 开发�h员都遵��@良好的��Y件工�E�原则，��可能地��其代码模块化。这�U�设计通常使用一些包含文�Ӟ��q�些文�g中包含对��面的特定不�q�箋部分�q�行格式化生成的函数。这些函数的字符串输出（通常�?HTML 表格代码�Q�可以通过各种�l�合创徏一个完整的��面。某些开发�h员对此方法进行了改进�Q�将�q�些 HTML 函数�U�d�� Visual Basic COM �l��g中，希望充分利用已编译的代码提供的额外性能�?br /> 　　
　　��管�q�种设计�Ҏ��很不错，但创建组成这些不�q�箋 HTML 代码�l��g的字�W�串所使用的方法将�?Web 站点的性能和可�~�放性��生很大的影响�Q�无论实际的操作是在 ASP 包含文�g中执行还是在 Visual Basic COM �l��g中执行�?br /> 　　
　　字符串连�?/strong>
　　
　　��L��以下 WriteHTML 函数的代码片断。名�?Data 的参数只是一个字�W�串数组�Q�其中包含一些要格式化�ؓ表格�l�构的数据（例如�Q�从数据库返回的数据�Q��?br /> 　　
　　Function WriteHTML( Data )
　　Dim nRep
　　For nRep = 0 to 99
　　sHTML = sHTML & vbcrlf _
　　& "" & (nRep + 1) & "" _
　　& Data( 0, nRep ) & "" _
　　& Data( 1, nRep ) & "" _
　　& Data( 2, nRep ) & "" _
　　& Data( 3, nRep ) & "" _
　　& Data( 4, nRep ) & "" _
　　& Data( 5, nRep ) & ""
　　Next
　　WriteHTML = sHTML
　　End Function
　　
　　�q�是很多 ASP �?Visual Basic 开发�h员创�?HTML 代码时常用的�Ҏ��。sHTML 变量中包含的文本�q�回到调用代码，然后使用 Response.Write 写入客户端。当�Ӟ��q�还可以表示为直接嵌入不包含 WriteHTML 函数的页面的�c�M��代码。此代码的问题是�Q�ASP �?Visual Basic 使用的字�W�串数据�c�d��Q�BSTR �?Basic 字符�Ԍ��实际上无法更攚w��度。这意味着每当字符串长度更�Ҏ��Q�内存中字符串的原始表示形式都将遭到破坏�Q�而且��创��Z��个包含新字符串数据的新的表示形式�Q�这��增加分配内存和解除分配内存的操作。当�Ӟ��ASP �?Visual Basic 已�ؓ您解决了�q�一问题�Q�因此实际开销不会立即昄��出来。分配内存和解除分配内存要求基本�q�行时代码解除各个专用锁定，因此需要大量开销。当字符串变得很大�ƈ且有大块内存要被快速连�l�地分配和解除分配时�Q�此问题变得��ؓ明显�Q�就像在大型字符串连接期间出现的情况一栗��尽��这一问题对单用户环境的媄响不大，但在服务器环境（例如�Q�在 Web 服务器上�q�行�?ASP 应用�E�序�Q�中�Q�它��导致严重的性能和可�~�放性问题�?br /> 　　
　　下面�Q�我们回��C��q�C��码片�D�：此代码中要执行多��个字符串分配操作？�{�案�?16 个。在�q�种情况下，“&”�q�算�W�的每次应用都将��D��变量 sHTML 所指的字符串被破坏和重新创建。前面已�l�提刎ͼ�字符串分配的开销很大�Q��ƈ且随着字符串的增大而增加，因此�Q�我们可以对上述代码�q�行改进�?br /> 　　
　　快捷的解��x��?/strong>
　　
　　有两�U�方法可以缓解字�W�串�q�接的媄响，�W�一�U�方法是��试减小要处理的字符串的大小�Q�第二种�Ҏ��是尝试减��执行字�W�串分配操作的数目。请参见下面所�C�的 WriteHTML 代码的修订版本�?br /> 　　
　　Function WriteHTML( Data )
　　
　　Dim nRep
　　
　　For nRep = 0 to 99
　　sHTML = sHTML & ( vbcrlf _
　　& "" & (nRep + 1) & "" _
　　& Data( 0, nRep ) & "" _
　　& Data( 1, nRep ) & "" _
　　& Data( 2, nRep ) & "" _
　　& Data( 3, nRep ) & "" _
　　& Data( 4, nRep ) & "" _
　　& Data( 5, nRep ) & "" )
　　Next
　　
　　WriteHTML = sHTML
　　
　　End Function
　　
　　乍一看，可能很难发现�q�段代码与上一个代码示例的差别。其实，此代码只是在 sHTML = sHTML & 后的内容外面加上了括受��这实际上是通过更改优先��序�Q�来减小大多数字�W�串�q�接操作中处理的字符串大��。在最初的代码�C�Z��中，ASP �~�译器将查看�{�号双��的表辑ּ��Q��ƈ从左到右�q�行计算。结果，每次重复都要�q�行 16 个连接操作，�q�些操作针对不断增长�?sHTML �q�行。在新版本中�Q�我们提�C�编译器更改操作��序。现在，它将按从左到叟뀁从括号内到括号外的��序计算表达式。此技术��得每�ơ重复包�?15 个连接操作，�q�些操作针对的是不会增长的较��字�W�串�Q�只有一个是针对不断增长的大�?sHTML。图 1 昄��了这�U�优化方法与标准�q�接�Ҏ��在内存��用模式方面的比较�?br /> 　　　
　　 �?1�Q�标准连接与加括可��接在内存使用模式斚w��的比�?/center>
　　
　　在特定情况下�Q��用括号可以对性能和可�~�放性��生十分显著的影响�Q�后文将�Ҏ��q�行�q�一步的说明�?br /> 　　
　　StringBuilder
　　
　　我们已经扑ֈ�了解军_��W�串�q�接问题的快��h��法，在多数情况下�Q�此�Ҏ��可以辑ֈ�性能和投入的最佛_�^衡。但是，如果要进一步提高构建大型字�W�串的性能�Q�需要采用第二种�Ҏ��Q�即减少字符串分配操作的数目。�ؓ此，需要��?StringBuilder。StringBuilder 是一个类�Q�用于维护可配置的字�W�串�~�冲区，��理插入到此�~�冲区的新文本片断，�q�仅在文本长度超出字�W�串�~�冲区长度时对字�W�串�q�行重新分配。Microsoft .NET 框架免费提供了这样一个类 (System.Text.StringBuilder)�Q��ƈ��在该环境下进行的所有字�W�串�q�接操作中��用它。在 ASP 和传�l�的 Visual Basic 环境中，我们无法讉K��此类�Q�因此需要自行创建。下面是使用 Visual Basic 6.0 创徏�?StringBuilder �cȝ��例（为简�z��v见，省略了错误处理代码）�?br /> 　　
　　Option Explicit
　　
　　' 默认的缓冲区初始大小和增长系�?br /> 　　Private Const DEF_INITIALSIZE As Long = 1000
　　Private Const DEF_GROWTH As Long = 1000
　　
　　' �~�冲区大��和增长
　　Private m_nInitialSize As Long
　　Private m_nGrowth As Long
　　
　　' �~�冲区和�~�冲��数器
　　Private m_sText As String
　　Private m_nSize As Long
　　Private m_nPos As Long
　　
　　Private Sub Class_Initialize()
　　' 讄��大小和增长的默认�?br /> 　　m_nInitialSize = DEF_INITIALSIZE
　　m_nGrowth = DEF_GROWTH
　　' 初始化缓冲区
　　InitBuffer
　　End Sub
　　
　　' 讄��初始大小和增长数�?br /> 　　Public Sub Init(ByVal InitialSize As Long, ByVal Growth As Long)
　　If InitialSize > 0 Then m_nInitialSize = InitialSize
　　If Growth > 0 Then m_nGrowth = Growth
　　End Sub
　　
　　' 初始化缓冲区
　　Private Sub InitBuffer()
　　m_nSize = -1
　　m_nPos = 1
　　End Sub
　　
　　' 增大�~�冲�?br /> 　　Private Sub Grow(Optional MinimimGrowth As Long)
　　' 初始化缓冲区�Q�如有必要）
　　If m_nSize = -1 Then
　　m_nSize = m_nInitialSize
　　m_sText = Space$(m_nInitialSize)
　　Else
　　' 只是增长
　　Dim nGrowth As Long
　　nGrowth = IIf(m_nGrowth > MinimimGrowth,
　　m_nGrowth, MinimimGrowth)
　　m_nSize = m_nSize + nGrowth
　　m_sText = m_sText & Space$(nGrowth)
　　End If
　　End Sub
　　
　　' ��缓冲区大小调整到当前��用的大小
　　Private Sub Shrink()
　　If m_nSize > m_nPos Then
　　m_nSize = m_nPos - 1
　　m_sText = RTrim$(m_sText)
　　End If
　　End Sub
　　
　　' ��d��单个文本字符�?br /> 　　Private Sub AppendInternal(ByVal Text As String)
　　If (m_nPos + Len(Text)) > m_nSize Then Grow Len(Text)
　　Mid$(m_sText, m_nPos, Len(Text)) = Text
　　m_nPos = m_nPos + Len(Text)
　　End Sub
　　
　　' ��d��一些文本字�W�串
　　Public Sub Append(ParamArray Text())
　　Dim nArg As Long
　　For nArg = 0 To UBound(Text)
　　AppendInternal CStr(Text(nArg))
　　Next nArg
　　End Sub
　　
　　' �q�回当前字符串数据�ƈ调整�~�冲区大��?br /> 　　Public Function ToString() As String
　　If m_nPos > 0 Then
　　Shrink
　　ToString = m_sText
　　Else
　　ToString = ""
　　End If
　　End Function
　　
　　' 清除�~�冲区�ƈ重新初始�?br /> 　　Public Sub Clear()
　　InitBuffer
　　End Sub
　　
　　此类中��用的基本原则是，在类�U�别��变�?(m_sText) 用作字符串缓冲区�Q��ƈ使用 Space$ 函数以空格字�W�填充此�~�冲��Z��其讄��为特定的大小。如果要��更多文本与现有文本�q�接在一��P��则在��查缓冲区的大��以存放新文本后，使用 Mid$ 函数在正��位�|�插入文本。ToString 函数��返回当前存储在�~�冲��Z��的文本，�q�将�~�冲区的大小调整��够容�U�x��文本的正��长度。��?StringBuilder �?ASP 代码如下所�C�：
　　
　　Function WriteHTML( Data )
　　
　　Dim oSB
　　Dim nRep
　　
　　Set oSB = Server.CreateObject( "StringBuilderVB.StringBuilder" )
　　' 用大��和增长�p�L��初始化缓冲区
　　oSB.Init 15000, 7500
　　
　　For nRep = 0 to 99
　　oSB.Append "", (nRep + 1), "", _
　　Data( 0, nRep ), "", _
　　Data( 1, nRep ), "", _
　　Data( 2, nRep ), "", _
　　Data( 3, nRep ), "", _
　　Data( 4, nRep ), "", _
　　Data( 5, nRep ), ""
　　Next
　　
　　WriteHTML = oSB.ToString()
　　Set oSB = Nothing
　　
　　End Function
　　
　　使用 StringBuilder 需要一定的开销�Q�因为每�ơ��用此�c�L��都必��d��建它的实例，�q�且在创建第一个类实例时必��d��载包含此�cȝ�� DLL。对 StringBuilder 实例�q�行额外�Ҏ��调用时也需要开销。��用加括号�?#8220;&”�Ҏ��Ӟ��StringBuilder 如何执行取决于多个因素，包括�q�接的数目、要构徏的字�W�串的大��以及选择�?StringBuilder 字符串缓冲区的初始化参数的性能。请注意�Q�在多数情况下，��缓冲区中所需的空间量估计得略高一些要�q�远好于让其不断增长�?br /> 　　
　　内置�Ҏ��
　　
　　ASP 包含一�U�非常快��L��创徏 HTML 代码的方法，只需多次调用 Response.Write。Write 函数使用隐式优化的字�W�串�~�冲区，此缓冲区能够提供非常优秀的性能�Ҏ��。修改后�?WriteHTML 代码如下所�C�：
　　
　　Function WriteHTML( Data )
　　
　　Dim nRep
　　
　　For nRep = 0 to 99
　　Response.Write ""
　　Response.Write (nRep + 1)
　　Response.Write ""
　　Response.Write Data( 0, nRep )
　　Response.Write ""
　　Response.Write Data( 1, nRep )
　　Response.Write ""
　　Response.Write Data( 2, nRep )
　　Response.Write ""
　　Response.Write Data( 3, nRep )
　　Response.Write ""
　　Response.Write Data( 4, nRep )
　　Response.Write ""
　　Response.Write Data( 5, nRep )
　　Response.Write ""
　　Next
　　
　　End Function
　　
　　虽然�q�段代码很可能�ؓ我们提供最佳的性能和可�~�放性，但在某种�E�度上已�l�破坏了��装�Q�因为现在会��函数内部的代码直接写入 Response ��，所以调用代码��׃��一定程度的控制权。另外，�U�d��此代码（例如�Q�移�?COM �l��g�Q�将变得更加困难�Q�因为此函数�?Response ��存在依赖关�p�R�?br /> 　　
　　��试
　　
　　上面提到的四�U�方法分别通过一个简单的 ASP ��面�Q�包含一个由虚拟字符串数�l�提供数据的单个表格�Q�进行了��试。我们��?Application Center Test? (ACT) 从单个客��L��Q�Windows? XP Professional�Q�PIII-850MHz�Q?12MB RAM�Q�针�?100Mb/sec �|�络中的单个服务器（Windows 2000 Advanced Server�Q�双 PIII-1000MHz�Q?56MB RAM�Q�执行了��试。ACT 配置��Z��?5 个线�E�，以模�?5 个用戯��接至�|�站时的负蝲。每个测试都包括 20 �U�预热时间和随后�?100 �U�负载时��_��在负载期间创��Z��可能多的请求�?br /> 　　
　　通过更改主表格��@环中的重复次敎ͼ�针对不同数目的连接操作重复运行测试，�?WriteHTML 函数中的代码片断所�C�。运行的每个��试都��用上文提到的四种不同的方法执行�?br /> 　　
　　�l�果
　　
　　下面的一�p�d��图表昄��了各�U�方法对整个应用�E�序吞吐量的影响�Q�以�?ASP ��面的响应时间。通过�q�些图表�Q�我们可以了解应用程序支持的��h��数目�Q�以及用��L��待页面下载至��览器所需的时间�?br /> 　　
　　�?1�Q��用的�q�接�Ҏ��~�写的说�?br /> 　　　
　　在模拟典�?ASP 应用�E�序工作负荷斚w��Q�此��试与实际情�늛�差甚�q�，从表 2 中可以明昄��刎ͼ�即��重复 420 �ơ，此页面仍不是特别大。现在很多复杂的 ASP ��面在这些数字上都是比较高的�Q�设�|�有可能��出此测试范围的限制�?br /> 　　
　　�?2�Q�测试示例的��面大小和连接数�?br /> 　　　
　　　
　　 �?2�Q�吞吐量�l�果�?/center>
　　
　　从图 2 的图表中可以看到�Q�正如我们所预期的，多重 Response.Write �Ҏ�� (RESP) 在测试的整个重复��试范围中�ؓ我们提供了最佳的吞吐量。但令�h惊讶的是�Q�标准字�W�串�q�接�Ҏ�� (CAT) 的下降如此巨大，而加括号的方�?(PCAT) 在重复执�?300 多次时性能依旧要好很多。在大约重复 220 �ơ之处，字符串缓存带来的性能提高��过�?StringBuilder �Ҏ�� (BLDR) 固有的开销�Q�在�q�一点以上，在此 ASP ��面中��?StringBuilder 所需的额外开销是值得的�?br /> 　　　
　　 �?3�Q�响应时间结果图
　　

　　 �?4�Q�省�?CAT 的响应时间结果图
　　
　　�?3 和图 4 中的图表昄��了按“到第一字节的时�?#8221;��量的响应时��_��以毫�U��ؓ单位�Q�。因为标准字�W�串�q�接�Ҏ�� (CAT) 的响应时间增加过快，所以又提供了未包括此方法的图表�Q�图 4�Q�，以便分析其他�Ҏ��之间的差异。有一点值得注意�Q�多�?Response.Write �Ҏ�� (RESP) �?StringBuilder �Ҏ�� (BLDR) 随重复次数的增加呈现一�U�近似线性的增长�Q�而标准连接方�?(CAT) 和加括号的方�?(PCAT) 则在��过一定的阈��g��后开始迅速增加�?br /> 　　
　　��结
　　
　　本文着重讲�q�C��如何�?ASP 环境中应用不同的字符串构建技术，�q�些内容同样适用于所有��?Visual Basic 代码创徏大型字符串的�Ҏ��Q�例如手动创�?XML 文档。以下原则可以帮助您��定哪种�Ҏ��最适合您的需要�?br /> 　　
　　首先��试加括��L��“&”�Ҏ��Q�尤其是在处理现有代码时。这�U�方法对代码�l�构的媄响微乎其微，但您会发现应用程序的性能��显著增强，甚至会超出预定目标�?br /> 　　
　　在不破坏所需的封装��别的情况下��?Response.Write。��用此�Ҏ��Q�可以避免不必要的内存内字符串处理，从而提供最佳的性能�?br /> 　　
　　使用 StringBuilder 构徏真正大型或连接数目较多的字符丌Ӏ?br /> 　　
　　��管您可能未看到本文所�C�的�q�种性能增长�Q�但我已在真实的 ASP Web 应用�E�序中��用了�q�些技巧，只需要很��的额外投入��可以在性能和可�~�放性方面获得很大的提高�?/span>

Eric_jiang 2010-06-10 11:33 发表评论

Eric_jiang — Sat, 05 Jun 2010 00:30:00 GMT

       试图重新�~�译 Windows 95 �?Windows 98 的计��机�q�行 Microsoft 个�h Web 服务�?�Q�PWS�Q?4.0 的上一个自定义 ActiveX 动态链接库 (DLL) �Ӟ��您可能会收到一条错误消息类��g��以下内容�Q?
权限被拒�l�： '
其中是�\径以在活动服务器��面 (ASP) DLL�?/font>

如果您试��N��命名 DLL �?Windows 资源��理器中的，您可能会看到一条错误消息类��g��以下内容�Q?
不能重命�?�Q�请执行下列操作�Q?讉K��被拒�l��?

��L��保磁盘未满或写保�?br /> 而且文�g当前未在使用中�?
其中 �?DLL 的文件名�?/font>

如果试图删除�?DLL �?Windows 资源��理器中的，您可能会看到一条错误消息类��g��以下内容�Q?
不能删除 : 讉K��被拒�l?

��L��保磁盘未满或写保�?br /> 而且文�g当前未在使用中�?

原因
       �?ASP 实例化自定义 ActiveX DLL 使用 Server.CreateObject("ActiveX.Class")DLL 获取实例化，在本例中�?..�?ASP 实例化自定义 ActiveX DLL 使用
Server.CreateObject("ActiveX.Class")

DLL 获取实例化，在本例中�?PWS �?Web 服务�q�程中�?一旦被实例�?DLL PWS 不会释放�?DLL�?

解决�Ҏ��
        停止�q��?PWS 启动�?SysTray 图标不能释放�?ActiveX DLL 是实例化一个活动服务器��面 (ASP) 的锁�?若要解除锁定 DLL 上的�Q?..停止�q��?PWS 启动�?SysTray 图标不能释放�?ActiveX DLL 是实例化一个活动服务器��面 (ASP) 的锁�?nbsp;
      若要解除锁定 DLL 上的�Q�PWS 必须手动停止使用命��o提示�?默认状态下�Q�Pws.exe �ȝ��在文件夹 C:\Windows\System\Inetsrv�?若要停止 PWS�Q�键入以下命令：
windows\system\inetsrv\pws.exe /stop
      然后�Q�您可以重新启动 PWS 手动重新从命令提�C�符�Q�启动时通过使用以下命��o�Q?
windows\system\inetsrv\pws.exe /start
     一旦停�?PWS�Q�这��释�?ActiveX DLL�?如有必要�Q�请重新�~�译 DLL�?一��?PWS 的重新启动它��再��?DLL 旉��定它获取 ASP 通过实例化�?/font>

另一个解��x��?br />        在运行行键入: net stop iisadmin/y�Q�然后按 Enter。这��在 DLL 中运行生成时停止所有服务�?
       生成 DLL 完成后键�? net start w3svc 从运行的行。您的服务将再次为最多�?

Eric_jiang 2010-06-05 08:30 发表评论

解决DLL�l��g注册成功但无法��用的问题

Eric_jiang — Fri, 04 Jun 2010 00:31:00 GMT
一个很��单的问题�Q�但是研�I�半天，�l�出标准�{�案�Q�XP�?003�?br /> 如FSO�Q�在NTFS格式�?br /> Regsvr32 %systemroot%\system32\scrrun.dll
如果注册成功�Q�但ASP中依然无法��?br /> 先看scrrun.dll在NTFS格式下的权限�Q�看是否加入user�l�中�Q�如没有��L��下命�?br /> cacls %systemroot%\system32\scrrun.dll /d guests
而在FAT32格式下面�Q�因为没有文件权限，无需要上面的步骤
而注册表中依然有用户权限
��h��看HKEY_CLASSES_ROOT\Scripting.FileSystemObject的权限，请加上User�l�可��d��q�行权限
同理�Q�别的DLL�l��g能注册成功但无法使用也大多是�q�种问题�?/a>

��单的回答一下，因�ؓIIS的登录用户不是DLL注册时候的用户。解��x��?把IIS用户改�ؓ你这个DLL注册的用��P��或�?有没有办法把�q�个DLL注册�l�所有用��P��不知道你懂没�Q�反正就�q�么点回�{�了�Q�administrator 讄��密码�Q�而且IIS用户那里自己输入administrator 和密�?别去查找�Q?

Eric_jiang 2010-06-04 08:31 发表评论

ASP国际化多语言详细�Ҏ��

Eric_jiang — Thu, 03 Jun 2010 07:36:00 GMT
1.ASP部分
a.建立语言�?
1.在各个子�pȝ��建立"语言�?目录 ,
如BBS--> language -->Simplified
--->Traditional
--->English
2 为每个ASP,js,HTC 建立语言文�g,如ACMBBStopic.asp.lang ,treeview.htc.lang ,
用来存放语言全局变量�?
如目录Language\English\ ACMBBSShow.asp.lang
Public Const LangRollway="reverse roll"
Public Const LangInvaildUser="invaild user"
Public Const LangMailbox="mail box"
Public Const LangSysSetup="system setup"
Public Const LangACMBBS="Acer BBS"
Public Const LangBulltn="Acer bulltin"
Public Const LangPersnSetup="personal setting"
Public Const LangPublicTools="Public Tools"
如目录Language\ Simplified \ ACMBBSShow.asp.lang
Public Const LangRollway="反向滚动"
Public Const LangInvaildUser="非法用户"
Public Const LangMailbox="邮�g资料�?
Public Const LangSysSetup="�pȝ��讄��"
Public Const LangACMBBS="明碁�|�咖"
Public Const LangBulltn="公告�?
Public Const LangPersnSetup="个�h讑֮�"
Public Const LangPublicTools="��组工具"
语言全局变量命名规则;
必须是VBscript 变量定义方式 Public Const
变量名�ؓ �Q?"Lang" + Message Descption

b. 讑֮�Global.asa
SUB Session_OnStart
Session.CODEPAGE="1252" '1252En '950�J�体 '936��?
Session.Contents("Language")="EngLish" 'EngLish 'Traditional 'Simplified
Session.Contents("StrCharset")="big5" 'iso-8859-1 'big5 'gb2312
End Sub
c. 引用语言�?
1.建立 BBS--> language -->script 目录, IncludeLang.vbs
2.在各个asp,js,HTC头部

3.使用思想
o ��?*.lang �{�语�a�包用Function GetFileContents ��d��变量�?
o 使用vbscript中EXECUTE�Ҏ��在Server执行
IncludeLang.vbs 内容如下

'//'*********************************************************
'// ' Purpose: open include 文�g
'// ' Inputs: strIncludeFile 路径
'// ' Returns: All Text
'//'*********************************************************

Function GetFileContents(strIncludeFile)
On Error Resume Next
Dim objFSO
Dim objText
Dim strPage
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))
GetFileContents= objText.ReadAll
objText.Close
Set objText = Nothing
Set objFSO = Nothing
IF Err Then
Response.Write "Error open this language package file<<" & strIncludeFile & ">>!"
Response.End
END IF
End Function

'//'*********************************************************
'// ' Purpose: 动�?include 文�g
'// ' Inputs: strIncludeFile 路径,语言�U�类
'// ' Returns: 执行变量到全局变量
'//'*********************************************************
Function IncludeLangFile(StrFileName,Language)
On Error Resume Next
dim StrLangPackagePath
dim StrLanguagePath
StrLanguagePath=Language
StrLangPackagePath="./Language/" & StrLanguagePath & "/" & StrFileName
Execute(GetFileContents(StrLangPackagePath))
IF Err Then
Response.Write "Error Include this language package file<<" & strIncludeFile & ">>! check the file's syntax"
Response.End
END IF
End Function
2.囄��部分
为带有汉字图片徏�?BBS--> language -->simplified-->Image
--->traditional-->Image
--->English -->Image
动态Include

3.COM部分
使用resource file 控制语言版本,��q��l�自动判断语�a�版本

注意�Q?resource file ��体字码必��d��体机器输入，�J�体字码必须在繁体机器输�?

4.其他

多语�a�版本参考规则﹕
1.英文��译长度��量与汉语长度相当�?
2.要符合各个版本的语言习惯�?
3.英文版中Title ,text标签文本�H�按钮文本﹐select option 中英文单�?首字母大�?�?
介词�H�连�?,冠词使用��写�?
4. 英文版中�~�写全部使用大写�?
5. 英文版中check ,radio ,英文首字母大�?
6. 英文版中状态信息��用小写�?

Eric_jiang 2010-06-03 15:36 发表评论

ASP中调用DLL�C�Z��

Eric_jiang — Tue, 01 Jun 2010 12:34:00 GMT
�q�篇文章主要是�ؓ惛_��自己的ASP水��^提高的�h写的!把ASP代码变成�l��g,开发者不仅是加快了ASP的速度,而且也能保护自己的代�?�q�篇文章写出�?也是��Z��l�想开发组件网友上一堂入门课! 下面,我们会来�~�写一个非常简单的�l��g,重点是知道怎样开发DLL�l��g,而不是其复杂的代�?�q�些都要靠你们自�׃��后的努力�?
　　服务器端�l��g
　　首先,服务器端的组件要有别于客��L��的组�?客户端的�l��g是通过�|�络传输,依靠HTML来�v作用.而且只能在IE上有�?但是服务器端的组件是�q�行在服务器�?它在服务器上执行各种操作.因此,所有的��览器都能��n�?它依靠的是服务器而不是浏览器.
　　当IIS被请求执行一个ASP�E�序,它首先会在ASP文�g中找到�? %>标签之间的代�?�q�且执行�?也可以是〈script runat=server>�?script>之间的代�?.如果�q�个ASP�E�序在先前被调用�q?那么它就会用内存中的�~�译�q�的�E�序来向用户�q�回HTML代码,如果没有,那么它就重新�~�译.�q�里ASP��比CGI多一炚w��度优势,因�ؓCGI是每一个请求都使用一个线�E?�q�样��大大消耗了服务器的资源.
　　想不想你写的�E�序自己��p��在IIS�q�行!?!现在你就行了!使用VB5(当然现在是VB6�?,你就能徏立Dynamic Linked Libraries (DLL文�g),它能在IIS上直接运�?如果有asp文�g来请求的�?.
　　�pȝ��和��Y件的要求
　　你需要一�?2位的操作�pȝ��来运行ASP.当然你也得安装IIS或PWS.我们下面的程序是在windows95+PWS+VB5的环境下开发的.
　　我们开始吧
　　启动你的VB,选择ActiveX图标.�q�个图标可以在新建工�E�找�?VB会提供一个默认的工程�?project1)和类�?class1).我们会将�q�两个名字都�Ҏ��.在改名之�?请首先确认我们拥有Microsoft Active Server Pages Object Library,它在我们的程序非常有�?从菜单中选择"工程",然后在其中选择"引用",��׃��出现"引用"�H�口从中选择Microsoft Active Server Pages Object Library.
　　�l�工�E�和�c�d��?
　　现在我们来根据自��q��爱好来�ؓproject1和class1来命名吧!�l�它们命名也是很重要�?我们以后会用�q�个工程名和�c�d��来创��个组件的实例!后面详细介绍.
　　如何改名,我就不想多说�?我们的工�E�名改�ؓExmaple,�c�d��为Helloword
　　怎样使用工程和类
　　现在我们有了我们自己的工�E?Example1)和类�?HelloWorld).以后我们��׃��在ASP代码中��用它们的名字来引用这个组�?在ASP中我们就�q�样引用,如下:
　　Set ObjReference = Server.CreateObject("ProjectName.ClassName")
　　对于我们工程的引用就�?Set ObjReference = Server.CreateObject("Example1.HelloWorld")
　　现在我们��p��用ObjReference来调用我们在�l��g中所创徏的函�?子程�?下面我们会来写一个SayHello的子�E�序,我们执行它的代码如下:
�?
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>
　　��Z��在Helloword�c�M��使用ASP的方�?你必��d��此类中写一个OnStartPage子函�?如下:
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
End Sub
　　
　　现在,无论什么时候用戯��问一个带有本�l��g的ASP文�g,IIS��׃��把ScriptingContext传送给我们的对象请我们使用.�q�个ScriptingContext包括了全部的ASP�Ҏ��和属�?实现�?�q��得我们有能力讉K��所有ASP的对�?看下面的代码:
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub

　　以后我们��p��用在VB中用MyApplication来代替ASP中的Application,同理可以代替Request,Server.....,不过我们来是要在OnStartPage之前来申明这些变�?
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
　　
　　使用ASP的对象我们的变量现在��p��像标准的ASP对象来��用了!比如,我们�l�常在ASP中用Request.form()来收集提交表单的数据.现在我们在我们的VB中实现这个功�?代码如下:
　　用ASP中实�?
�?
MyTempVariable = Request.Form("userName")
Response.Write ("you entered "& MyTempVariable & "as your user name")
%>
　　在VB中实�?
MyTempVariable = MyRequest.Form("userName")
MyResponse.Write ("you entered "& MyTempVariable & "as your user name")

　　通过使用MyResponse来代替Response,我们能够使用所有Response的方�?当然,MyResponse�q�个名字可以随便来取,你甚臛_��以就取Response.另一件我们得注意的是,我们得在我们的徏立的�c�M��,写上OnEndPage子函�?�q�个OnStartPage是相反的!OnStartPage是创建对�?OnEndPage是消毁对�?
　　
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub
　　
　　SayHello�Ҏ��我们来徏立一个子函数,用于昄��"Holle World".�q�个SayHello�Ҏ��只是HelloWorld�q�个�c�M��一个子函数,我们以后会在ASP中用以下的显�C��个方�?
�?
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>
　　SayHello的程�?很简单的!
Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub
　　
　　现在一个小型的�l��g�~�写完成,剩下的工作就是编译这个组�?�?工程"菜单中保存它,取什么名字都可以,我们用Exmaple1.vbp�?然后��q��在菜单中选择"make exmaple1.dll",��其�~�译成DLL文�g.一个组件就真正完成�?
　　注意,�~�译了此�l��g那么你就得先把你的PWS��x��,然后再编译此�l��g.否则VB��׃��告诉你些�l��g在��用中.
　　在ASP中��用我们的自己的组�?
　　当你更正了在�~�译中的错误,成功地编译了example1�q�个工程,现在你就得拿��Z��最喜欢的HTML�~�辑器来写下下面的语�?保存为ASP文�g.
　　〈HTML>〈HEAD>〈TITLE>Example 1�?TITLE>�?HEAD>
　　〈BODY>
�?
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>
　　�?BODY>�?HTML>
　　�q�行后即可看到结�?
　　Hello World
　　注册�l��g
　　如果你想和你的朋�?��d��分��n你的�l��g,那么你就得在你的�pȝ��上注册你的组�?我们一般��用Regsvr32.exe来注册组�?注册后你的组件会出现在Win95/Win98的windows/system目录�?下面是一个注册的例子:
　　Regsvr32.exe C:/wwwroot/Example1/Example1.dll
　　在你的系�l�中,VB会自动给你注�?所以你很少用到Regsvr32.exe
　　我们�q�里只是写了一个非常小的组�?你们可以写好自己的更大的�l��g,而且�q�可以用VB中的很多控�g.
　　让我们用�l��g来扩展我们的�E�序的功能吧!也希望多多的看到我们中国人的�l��g.

Eric_jiang 2010-06-01 20:34 发表评论

用VB生成DLL��装ASP代码一个例子：�q�接access数据库等

Eric_jiang — Tue, 01 Jun 2010 04:47:00 GMT
��装为dll会带来很多的好处�Q�主要包括只是��权的保护�Q�以及效率和安全性能的提升。这个例子中被封装的dll文�g可以隐藏access数据库的实际路径�?br />
VB生成的DLL��装ASP代码来连接数据库�Q�Access�Q��?br />
本文用一个最��单的�q�接access数据库的例子来说明如何将asp代码��装为dll文�g�?br />
我们用vb�Q�最常见的方式来��装asp代码�?br />
我们需要封装的对象如下:

'Proconn.asp
dim ProConn
set ProConn=Server.CreateObject("ADODB.CONNECTION")
ProConn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=" & Server.MapPath("DB.asp")

我们��下面的部分��装
"driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=" & Server.MapPath("DB.asp")

分析一下这�D�要��装的内容，
它的前半部分��是一个字�W�串�Q?br /> "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ="
�?amp;�q�接上后半部分的另一个字�W�串�?br /> 后半部分的另一个字�W�串是Server.MapPath对象函数的返回倹{�?br />
下面开始这个封装的操作�q�程�?br /> 首先
新徏一个VB下的ActiveX DLL工程�Q�工�E�的名称Project1更改成ConDBDLL
�Ҏ��class1的名�U�更�Ҏ��cs
工程名和�Ҏ��名会在调用这个DLL的时候��用到�Q�大家可以按照自己命名规则定义，但请注意好好使用�?br /> �q�个DLL的代码部分书写如下：

Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session

Public Sub OnStartPage(MyScriptingContext As ScriptingContext)
Set rp = MyScriptingContext.Response
Set rq = MyScriptingContext.Request
Set sr = MyScriptingContext.Server
Set ap = MyScriptingContext.Application
Set sn = MyScriptingContext.Session
End Sub

Public Sub OnEndPage()
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set ap = Nothing
Set sn = Nothing
End Sub
'以上语句是必��ȝ��Q�将原本的对象作了简化处理，�q�在两个基本函数中作了处�?br />
Public Function ConnectDB() As Variant
ConnectDB = "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ="
End Function
'上面�q�个函数是处理前半部分字�W�串的，直接�q�回�q�个字符串的内容

'另外定义下面�q�个函数来处理后半部分内�?br /> Public Function DBPath() As Variant
DBPath = sr.MapPath("DB.asp")
End Function
'注意上面使用的是sr�Q�不要��用成Server�?br />
��C��关键的一步，�l�这个工�E�添�?Microsoft Active Server Pages ObjectContext Object Library" �?Reference
��d��Ҏ��Q�选择菜单中的"Project"->"Reference",在打开的对话框里选择�?br /> 对了�Q�还要选择�?microsoft activeX data objects 2.6 library"

�q�行完以上操作，我们��可以编译生成DLL了，�Q�别忘了前面的改工程名和�Ҏ��名）

准备好数据库文�gDB.asp (由DB.mdb更改后缀而成�Q�密�?23)

下面��是调用��装的连接数据库的asp文�g代码�Q?

�׃��是自己创建的DLL�Q�把它拷贝到相应的目录后�Q�必��L��册才能��用�?br /> 注册的方法，�?#8220;�q�行”中执行：
Regsvr32.exe dllname.dll

取消�q�个DLL的注册的�Ҏ��是：Regsvr32.exe /u dllname.dll

注册完毕�Q�我们的工作基本上就做完了，现在我们可以使用�q�样的封装方法连接具有针�Ҏ��的数据库了�?br />
不过有一炚w��要特别注意的是：
�׃��
Dim ConDB
set ConDB=Server.CreateObject("ConDBDLL.Conn")
'ConDB��是创徏的DLL对象
�q�是在ASP中创建的对象�Q�包括ProConn�Q�那么我们在��M��使用刎ͼ�引用�Q�ProConn.asp的其他ASP文�g中记得释放这两个对象�Q?br /> ProConn.close
set ProConn=nothing
set ConDB=Nothing
否则�pȝ��会由于对象没有释放，而变得越来越不堪重负�?br />
关于�q�个��装ASP代码�q�接Access数据库的�Ҏ��Q�我惛_��全适用其他数据库的�q�接�Ҏ��?br />

再例如，下面的封装的例子�Q?br />
首先要申明变量：

Private WenScriptingContext As ScriptingContext
Private WenApplication As Application
Private WenRequest As Request
Private WenResponse As Response
Private WenServer As Server
Private WenSession As Session

��Z��在WenConnection�c�M��使用ASP的内建对�?必须在此�c�M��写一个OnStartPage子函数。那是因为无��Z��么时候用戯��问一个带有本�l��g的ASP文�g,IIS��׃��把ScriptingContext传送给我们的对象请我们使用。这个ScriptingContext包括了全部的ASP�Ҏ��和属性，�q��得我们有能力讉K��所有ASP的对象�?br />
Public Sub OnStartPage (PassedScriptingContext As ScriptingContext)
Set WenScriptingContext = PassedScriptingContext
Set WenApplication = WenScriptingContext.Application
Set WenRequest = WenScriptingContext.Request
Set WenResponse = WenScriptingContext.Response
Set WenServer = WenScriptingContext.Server
Set WenSession = WenScriptingContext.Session
End Sub

我们既然用OnStartPage函数来创建对象，那么我们�q�里��q��OnEndPage子函数来释放对象�Q?br />
Public Sub OnEndPage()
Set WenScriptingContext = Nothing
Set WenApplication = Nothing
Set WenRequest = Nothing
Set WenResponse = Nothing
Set WenServer = Nothing
Set WenSession = Nothing
End Sub

接下来定义两个函数RsResult()和DataSource()�Q?br />
Public Function Rs(strsql As String) As Recordset
Dim oConn As Connection
Dim oRs As Recordset
Dim strconnstring As String
strconnstring = "driver={sql server};server=ServerName;uid=sa;pwd=;" & _
"database=DataBaseName"
oConn.Open strconnstring
oRs.ActiveConnection = oConn
strsql="Select * From tableName"
oRs.Open strsql, oConn, 1, 3
Set Rs = oRs
End Function

Public Function DataSourceConnection() As Variant
DataSourceConnection = "driver={sql server};server=ServerName;uid=sa;pwd=;database=DataBaseName"
End Function

三�?存工�E�名为WenADODB.vbp和保存类名�ؓWenConnection.cls�Q�然后点�?#8220;文�g”�?gt;“生成WenADODB.DLL”�~�译成动态连接库文�g。VB在编译好动态连接库文�g的同时也��该�l��g注册到注册表里了�Q�要是想在另外一台机器上注册该组件的话，��L��以下指��o注册或反注册�Q?br />
Regsvr32 x:\路径\WenADODB.dll x:\路径\为WenADODB.dll文�g存放的盘�W�和路径

Regsvr32 /u x:\路径\WenADODB.dll 参数U为反注册

四�?在ASP文�g中调用WenADODB.dll�l��g的例子�?br />
<%

Set Conn=Server.CreateObject("WenADODB.WenConnection") ‘调用�l��g创徏对象实例
objConn=Conn.DataSourceConnection()
application("strconn")=objConn

set Rs=Server.CreateObject("ADODB.Recordset")
sql="select * from TableName order by ID DESC"
Rs.open sql,application("strconn"),1,3
%>

<%
if Rs.Bof and Rs.Eof then
Response.Write "暂时�q�没有�Q何数据�?
else
Do while not Rs.Eof
%>

<%
Rs.MoveNext
Loop
end if
Rs.Close;Set Rs=Nothing
%>

<%=Rs("Field1")%> <%=Rs("Field2")%>

五�?��结

我们�q�里只是�~�写了一个连接数据库的简单的动态连接库文�g�Q�利用VB的强大组件编写功能还可以写出功能更加强大跟齐全的�l��g�Q�来完成更加实用的�Q�?

关键�?如何把ASP�~�写成DLL

�q�篇文章主要是把ASP代码变成�l��g,开发者不仅是加快了ASP的速度,而且也能保护自己的代�?
下面,我们会来�~�写一个非常简单的�l��g,重点是知道怎样开发DLL�l��g,而不是其复杂的代�?�q�些都要靠你们自�׃��后的努力�?

服务器端�l��g

首先,服务器端的组件要有别于客��L��的组�?客户端的�l��g是通过�|�络传输,依靠HTML来�v作用.而且只能在IE上有�?但是服务器端的组件是�q�行在服务器�?它在服务器上执行各种操作.因此,所有的��览器都能��n�?它依靠的是服务器而不是浏览器.

当IIS被请求执行一个ASP�E�序,它首先会在ASP文�g中找到�?%>标签之间的代�?�q�且执行�?也可以是〈scriptrunat=server>�?script>之间的代�?.如果�q�个ASP�E�序在先前被调用�q?那么它就会用内存中的�~�译�q�的�E�序来向用户�q�回HTML代码,如果没有,那么它就重新�~�译.�q�里ASP��比CGI多一炚w��度优势,因�ؓCGI是每一个请求都使用一个线�E?�q�样��大大消耗了服务器的资源.

想不想你写的�E�序自己��p��在IIS�q�行!?!现在你就行了!使用VB5(当然现在是VB6�?,你就能徏立DynamicLinkedLibraries(DLL文�g),它能在IIS上直接运�?如果有asp文�g来请求的�?.

�pȝ��和��Y件的要求

你需要一�?2位的操作�pȝ��来运行ASP.当然你也得安装IIS或PWS.我们下面的程序是在windows95+PWS+VB5的环境下开发的.

我们开始吧

启动你的VB,选择ActiveX图标.�q�个图标可以在新建工�E�找�?VB会提供一个默认的工程�?project1)和类�?class1).我们会将�q�两个名字都�Ҏ��.在改名之�?请首先确认我们拥有MicrosoftActiveServerPagesObjectLibrary,它在我们的程序非常有�?从菜单中选择"工程",然后在其中选择"引用",��׃��出现"引用"�H�口
从中选择MicrosoftActiveServerPagesObjectLibrary.

�l�工�E�和�c�d��?br />
现在我们来根据自��q��爱好来�ؓproject1和class1来命名吧!�l�它们命名也是很重要�?我们以后会用�q�个工程名和�c�d��来创��个组件的实例!后面详细介绍.

如何改名,我就不想多说�?
我们的工�E�名改�ؓExmaple,�c�d��为Helloword

怎样使用工程和类

现在我们有了我们自己的工�E?Example1)和类�?HelloWorld).以后我们��׃��在ASP代码中��用它们的名字来引用这个组�?在ASP中我们就�q�样引用,如下:

SetObjReference=Server.CreateObject("ProjectName.ClassName")

对于我们工程的引用就�?
SetObjReference=Server.CreateObject("Example1.HelloWorld")
现在我们��p��用ObjReference来调用我们在�l��g中所创徏的函�?子程�?下面我们会来写一个SayHello的子�E�序,我们执行它的代码如下:

�?
SetObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

��Z��在Helloword�c�M��使用ASP的方�?你必��d��此类中写一个OnStartPage
子函�?如下:

PublicSubOnStartPage(PassedScriptingContextAsScriptingContext)
SetMyScriptingContext=PassedScriptingContext
EndSub

现在,无论什么时候用戯��问一个带有本�l��g的ASP文�g,IIS��׃��把ScriptingContext传送给我们的对象请我们使用.�q�个ScriptingContext包括了全部的ASP�Ҏ��和属�?实现�?�q��得我们有能力讉K��所有ASP的对�?看下面的代码:

PublicSubOnStartPage(PassedScriptingContextAsScriptingContext)
SetMyScriptingContext=PassedScriptingContext
SetMyApplication=MyScriptingContext.Application
SetMyRequest=MyScriptingContext.Request
SetMyResponse=MyScriptingContext.Response
SetMyServer=MyScriptingContext.Server
SetMySession=MyScriptingContext.Session
EndSub

以后我们��p��用在VB中用MyApplication来代替ASP中的Application,同理可以代替Request,Server.....,不过我们来是要在OnStartPage之前来申明这些变�?

PrivateMyScriptingContextAsScriptingContext
PrivateMyApplicationAsApplication
PrivateMyRequestAsRequest
PrivateMyResponseAsResponse
PrivateMyServerAsServer
PrivateMySessionAsSession

使用ASP的对�?br />
我们的变量现在就能像标准的ASP对象来��用了!比如,我们�l�常在ASP中用Request.form()来收集提交表单的数据.现在我们在我们的VB中实现这个功�?代码如下:

用ASP中实�?
�?
MyTempVariable=Request.Form("userName")
Response.Write("youentered"&MyTempVariable&"asyourusername")
%>

在VB中实�?

MyTempVariable=MyRequest.Form("userName")
MyResponse.Write("youentered"&MyTempVariable&"asyourusername")

通过使用MyResponse来代替Response,我们能够使用所有Response的方�?当然,MyResponse�q�个名字可以随便来取,你甚臛_��以就取Response.
另一件我们得注意的是,我们得在我们的徏立的�c�M��,写上OnEndPage子函�?�q�个OnStartPage是相反的!OnStartPage是创建对�?OnEndPage是消毁对�?

PublicSubOnEndPage()
SetMyScriptingContext=Nothing
SetMyApplication=Nothing
SetMyRequest=Nothing
SetMyResponse=Nothing
SetMyServer=Nothing
SetMySession=Nothing
EndSub

SayHello�Ҏ��

我们来徏立一个子函数,用于昄��"HolleWorld".�q�个SayHello�Ҏ��只是HelloWorld�q�个�c�M��一个子函数,我们以后会在ASP中用以下的显�C��个方�?br />

�?
SetObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

SayHello的程�?很简单的!

PublicSubSayHello()
MyResponse.Write("HelloWorld")
EndSub

现在一个小型的�l��g�~�写完成,剩下的工作就是编译这个组�?�?工程"菜单中保存它,取什么名字都可以,我们用Exmaple1.vbp�?然后��q��在菜单中选择"makeexmaple1.dll",��其�~�译成DLL文�g.一个组件就真正完成�?

注意,�~�译了此�l��g那么你就得先把你的PWS��x��,然后再编译此�l��g.否则VB��׃��告诉你些�l��g在��用中.

在ASP中��用我们的自己的组�?

当你更正了在�~�译中的错误,成功地编译了example1�q�个工程,现在你就得拿��Z��最喜欢的HTML�~�辑器来写下下面的语�?保存为ASP文�g.

〈HTML>
〈HEAD>
〈TITLE>Example1�?TITLE>
�?HEAD>

〈BODY>

�?
SetObjReference=Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

�?BODY>
�?HTML>

�q�行后即可看到结�?

HelloWorld

注册�l��g

如果你想和你的朋�?��d��分��n你的�l��g,那么你就得在你的�pȝ��上注册你的组�?我们一般��用Regsvr32.exe来注册组�?注册后你的组件会出现在Win95/Win98的windows/system目录�?下面是一个注册的例子:

Regsvr32.exeC:/wwwroot/Example1/Example1.dll

在你的系�l�中,VB会自动给你注�?所以你很少用到Regsvr32.exe

�q�里只是写了一个非常小的组�?你可以写好自��q��更大的组�?而且�q�可以用VB中的很多控�g.

附录�Q�徏立注册DLL和反注册DLL文�g的快��h��?br /> 有的�E�序员经常要注册或者反注册自己写的dll文�g�Q�加一个快��h��式会减少自己的工作量�Q?br />
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\dllfile\shell]

[HKEY_CLASSES_ROOT\dllfile\shell\register]

[HKEY_CLASSES_ROOT\dllfile\shell\register\command]

@="regsvr32 %1"

[HKEY_CLASSES_ROOT\dllfile\shell\Unregister]

"Command"="regsvr32 %1 /u"

[HKEY_CLASSES_ROOT\dllfile\shell\Unregister\command]

@="regsvr32 %1 /u"

当我们需要注册或者反注册dll�Ӟ��只要在该dll文�g上按下鼠标右键即可！

附录注册和注销dll文�g的方法：
一个快速注�?DLL �?OCX 的方�?
有时候我们在 VB 中要引用某一�?DLL �?OCX �Ӟ��会出现文件未注册的讯息，�q�时�Q�我们可以��用�h工注册的�Ҏ��Q�也��是直接在命令列中��?regsvr32.exe 来做�Q�做法如下：

文�g注册�Q�C:\Windows\System\Regsvr32.exe C:\Windows\System\Test.ocx
取消注册�Q�C:\Windows\System\Regsvr32.exe /u C:\Windows\System\Test.ocx

�q�些动作我们也可以直接写到程序中�Q��?Shell 来执行，但是我现在要说的�Q�都不是上面提到的方法！

1、在资源��理器中扑ֈ� C:\Windows\System\Regsvr32.exe �q�【复制�?( 按鼠标右键选复�?)
2、将目录�U�d�� C:\Windows\SendTo 后，执行【脓上快��h��式�?( 按鼠标右键选脓上快��h��?)
3、将快捷方式名称�Ҏ��【REGISTER�?br /> 4、OK

现在�Q�如果您��x��某一个文件做注册动作�Q�例如：C:\Windows\System\Test.ocx�Q�您只要打开资源��理器，扑ֈ� C:\Windows\System\Test.ocx�Q�按鼠标右键选【传送到】【REGISTER】即可完成注册动作了�Q?br />
注：有一个地方要注意的是�Q�Regsvr32.exe 只能注册 32 位的文�g�Q�如果要用它来注�?16 位的文�g�Q�会有错误讯息��生�?

附录某些dll文�g的功能：
一、轻松修复IE��览�?br />
　　很多�l�常上网的朋友都有过 �q�样的遭遇：IE不能打开新的�H�口�Q�用鼠标点击��链接也没有��M��反应。这旉��装IE一般能解决问题。其实不必这么麻烦，使用Regsvr32命��o��可以轻松搞定�?br />
　　�?#8220;开�?#8594;�q�行”中键�?#8220;regsvr32 actxprxy.dll”命��o�Q�点�?#8220;��定”按钮�Q�这时会弹出一个信息对话框“DllRegisterServer in actxprxy.dll succeeded”�Q�点�?#8220;��定”�Q�然后再�?#8220;开�?#8594;�q�行”中键�?#8220;regsvr32 shdocvw.dll”命��o�Q�单�?#8220;��定”卛_��。重新启动后IE已经被轻松修复了�?br />
二、解决Windows无法在线升��的问�?br />
　　Windows的漏�z�很多，每隔一�D�|��间就需要��?#8220;Windows Update”升��E�序�q�行在线升��Q�不�q?#8220;Windows Update”�l�常出现无法使用的情况，�q�时�Q�我们可以��用Regsvr32来解册��个问题�?br />
　　�?#8220;开�?#8594;�q�行”中键�?#8220;regsvr32 wupdinfo.dll”�Q�点�?#8220;��定”按钮�Q�这样在�pȝ��中就重新注册�?#8220;Windows Update”�l��g�Q�重新启动后问题已经解决�?br />
三、防范网�l�脚本病毒有新招

　　�|�络脚本病毒嵌在�|�页中，上网时在不知不觉中机器就会感染上�q�种病毒。笔者认为单�U��用杀毒��Y件�ƈ不能有效地防范这些脚本病毒，必须从病毒传播的机理入手。网�l�脚本病毒的复制、传播都��M��开FSO对象�Q�File System Object�Q�文件系�l�对象）�Q�因此禁用FSO对象��p��有效地控制脚本病毒的传播。操作方法很��单：

　　�?#8220;开�?#8594;�q�行”中键�?#8220;regsvr32 /u scrrun.dll”��可以禁用FSO对象�Q�如果需要��用FSO对象�Q�键�?#8220;regsvr32 scrrun.dll”命��o卛_��?br />
四、卸载Win XP自带�?#8220;鸡肋”功能

　　Win XP以功能强大而著�U�ͼ�但有些功能却常常令�h�?#8220;鸡肋”之感�Q�比如Win XP自带的ZIP功能和图片预览功能，不仅占用了系�l�资源，功能也远不如�W�三方��Y件强大。其实用Regsvr32命��o可以很容易地卸蝲�q�些功能�?br />
　　�?#8220;开�?#8594;�q�行”中键�?#8220;regsvr32 /u zipfldr.dll”�Q�单�?#8220;��定”按钮�Q�弹出卸载成功信息框后就完成了ZIP功能的卸载；要恢复ZIP功能�Q�键�?#8220;regsvr32 zipfldr.dll”卛_��。同��P��卸蝲囄��预览功能也很��单，�?#8220;开�?#8594;�q�行”中键�?#8220;regsvr32 /u thumbvw.dll”卛_��Q�如果要恢复该功能，只须键入“regsvr32 thumbvw.dll”�?br />
五、让WMP播放器支持RM格式

　　很多朋友喜欢用Windows Media Player�Q�以下简�U�WMP�Q�播攑֙��Q�但是它不支持RM格式�Q�难道非得安装其它播放��Y件吗?�W�者有办法�?br />
　　以Win XP��Z��Q�首先下载一个RM格式插�g�Q�解压羃后得��C��个文件夹�Q?Release�Q�用于Windows 9x�Q�和Release Unicode �Q�用于Windows 2000/XP�Q�；��Release Unicode文�g夹下的RealMediaSplitter.ax文�g拯��?#8220;�pȝ��盘符\WINDOWS\System32\”目录下；�?#8220;开�?#8594;�q�行”中键�?#8220;regsvr32 RealMediaSplitter.ax”�Q�点�?#8220;��定”卛_��。接着下蝲解码器，如Real Alternative�Q�安装后��p��用WMP播放RM格式的媄��x��件了�?br />
附录�Q�注册和反注册dll文�g的批处理

dll.bat
------------------------------
@Regsvr32.exe AdminDLL.dll

un.bat
-------------------------------------
@Regsvr32.exe /u AdminDLL.dll

Eric_jiang 2010-06-01 12:47 发表评论

Visual Basic高效�~�程�Q�改�q�VB/COM+应用�E�序

Eric_jiang — Mon, 31 May 2010 11:03:00 GMT

译者序

原书�?/div>
致谢

�W?�?由随意编�E��{变�ؓ遵��@软�g工程原则

1.1 规则1-1�Q�最大限度地发挥VB�~�译期类型检查的潜能

1.1.1 在每个模块的��端使用Option Explicit语句

1.1.2 避免不经意地使用Variant数据�c�d��

1.1.3 在VB IDE中运行时�Q��用Start With Full Compile命��o

1.2 规则1-2�Q��用Debug.Assert昑ּ�声明假设

1.3 规则1-3�Q�编译期条�g不同�Ӟ��考虑使用#If语句

1.4 规则1-4�Q�抛出错误以提示异常

1.5 规则1-5�Q�有效的错误处理�Q�局部捕��P��全局处理

1.6 规则1-6�Q�了解类型和�cȝ��区别

1.7 规则1-7�Q�采用面向对象的设计�Ҏ��

1.8 规则1-8�Q�推荐采用用戯��定义�c�d��而不是类来定义值类�?/div>
1.9 规则1-9�Q�一般�Q务的自动�?/div>

�W?�?设计、构建和使用��Z��COM的组�?/div>
2.1 规则2-1�Q�从接口的角度进行思�?/div>
2.2 规则2-2�Q��用自定义接口

2.3 规则2-3�Q�最好��用IDL独立定义自定义接�?/div>
2.4 规则2-4�Q��用自定义回调避免��Z��cȝ��事�g的局限�?/div>
2.5 规则2-5�Q�要谨慎保持兼容�?/div>
2.5.1 脚本客户端程�?/div>
2.5.2 已编译的客户端程�?/div>
2.5.3 版本兼容的接�?/div>
2.6 规则2-6�Q�选用正确的COM�Ȁ�z�L��?/div>
2.6.1 COM�Ȁ�z?/div>
2.6.2 New操作�W?/div>
2.6.3 CreateObject

2.6.4 GetObject

2.6.5 GetObjectContext.CreateInstance和Server.CreateObject

2.6.6 性能考虑

2.7 规则2-7�Q�慎重��用Class_Terminate

2.8 规则2-8�Q�根据会话而不是实体来建模

2.9 规则2-9�Q�除了简单的��规模应用系�l�，避免使用ActiveX可执行程�?/div>

�W?�?MTS、COM+和VB-中间�?/div>
3.1 规则3-1�Q�理解MTS和COM+应用�E�序设计

3.2 规则3-2�Q�不要在MTS或COM+中��用单�?/div>
3.3 规则3-3�Q�了解New、CreateObject及GetObjectContext.CreateInstance的适用场合

3.3.1 MTS和Windows NT4

3.3.2 COM+和Windows 2000

3.3.3 使用New遇到的更多问�?/div>
3.4 规则3-4�Q�理解��用SetComplete的真实目�?/div>
3.5 规则3-5�Q�对事务自动中止方式的思�?/div>
3.6 规则3-6�Q�不要重新设计DBMS

3.7 规则3-7�Q�不必配�|�所有组�?/div>
3.8 规则3-8�Q�避免将以后会后悔的东西�~�译�q�DLL

3.9 规则3-9�Q�将代码从MTS向COM+�U�L��的实跉|��?/div>
3.9.1 在COM+中不再需要调用GetObjectContext.CreateInstance

3.9.2 ��Me作�ؓ参数传递时�Q�不再需要调用SafeRef

3.9.3 当事务中的次要对象返回错误时要小心；可能会获得�Ş�?Method～of Object Failed�?的错误信息，而不是所指定的在错误传播之前�q�回的丰富错误信�?/div>
3.9.4 使用ObjectConstruct字符�?/div>
3.9.5 在COM+应用�E�序中进行进�E�内调用时执行声明性安全校�?/div>
3.9.6 在COM+中刷新组件命令不再是必需�?/div>
3.9.7 在安装Windows 2000以前版本的计��机上，COM+导出的客户安装程序需要Microsoft Installer(MSI)

3.10 规则3-10�Q�编写运行于MTS和COM+中的代码的实跉|��?/div>
3.10.1 创徏对象时坚持��用GetObjectContext.CreateInstance

3.10.2 使用可编�E�控制的安全措施对访问权限进行校验，而不要依赖于声明性安全措�?/div>
3.10.3 事务性方法调用失败时�Q�在�ơ要对象中最好��用DisableCommit而不是SetAbort

3.10.4 不要无意中将DLL安装到用戯��机�?/div>
3.10.5 坚持使用ObjectContext接口

3.10.6 分发对象引用时��l��用SafeRef

�W?�?Web和VB

4.1 规则4-1�Q�理解IIS体系�l�构

4.1.1 IIS的内部结�?/div>
4.1.2 提高服务器的可扩�~��?/div>
4.2 规则4-2�Q�管理应用程序状态以辑ֈ�最高效�?/div>
4.2.1 使用BAS模块数据

4.2.2 使用SPM

4.2.3 使用ASP Application对象

4.2.4 权衡各种�Ҏ��的利�?/div>
4.3 规则4-3�Q�管理会话状态以辑ֈ�最大可扩羃�?/div>
4.3.1 ��会话限制在单机�?/div>
4.3.2 在客��h��上存储会话信�?/div>
4.3.3 使用cookie

4.3.4 QueryString变量

4.3.5 隐藏的表单域

4.3.6 在数据库中存储状态信�?/div>
4.4 规则4-4�Q�理解DCOM和HTTP的区�?/div>
4.4.1 使用RPC和DCOM�q�行通信

4.4.2 使用HTTP通信

4.4.3 在分布式应用�E�序中不使用ASP

4.4.4 使用HTTP的不利方�?/div>
4.5 规则4-5�Q��ؓ脚本环境�Q�如ASP�Q�编写COM�l��g

4.5.1 创徏默认接口

4.5.2 向可�~�写脚本的对象传递参�?/div>
4.5.3 关于自定义接�?/div>
4.5.4 解决�Ҏ��

4.6 规则4-6�Q�理解COM对象与ASP之间如何交互

4.6.1 ASP内置对象

4.6.2 VB COM对象和STA

4.6.3 充分利用STA�U�程模型

4.6.4 在VB中如何访问ASP内置对象

4.6.5 直接讉K��ASP内置对象的好�?/div>
4.6.6 使用ASP内置对象的弊�?/div>
4.7 规则4-7�Q��用XML代替专有数据传输格式

4.8 规则4-8�Q�慎重考虑表示和业务逻辑的关�p?/div>
4.8.1 使用MTS�l��g

4.8.2 使用WebClasses

4.9 规则4-9�Q�从数据到表�C�的XSLT实现

4.9.1 XSLT的概�?/div>
4.9.2 XSLT�Ҏ��的好�?/div>
4.9.3 使用�q�程�Ҏ��转换数据�?/div>
4.9.4 利用XSLT的方法�{换数据集

4.9.5 XSLT的缺�?/div>

�W?�?VB高效数据讉K��

5.1 规则5-1�Q�高效访问的基础�Q�往�q�开销、SQL语句和数据提供�?/div>
5.1.1 使往�q�开销最��?/div>
5.1.2 ��定发送SQL查询的最好方�?/div>
5.1.3 选择合适的提供�?/div>
5.2 规则5-2�Q�不要过分封装数据访�?/div>
5.2.1 �U��a的面向对象技�?/div>
5.2.2 �q�求�U��aOOD效果的不��之�?/div>
5.2.3 解决办法�Q��用存储过�E?/div>
5.2.4 如果需要多个数据库服务器该如何处理

5.3 规则5-3�Q�切莫将数据库连接当代数据成�?/div>
5.4 规则5-4�Q�死锁是常见�?防错性程序开�?/div>
5.4.1 锁定

5.4.2 串行化事务和锁管理器

5.4.3 死锁

5.4.4 在应用程序设计中��量减小死锁的几�?/div>
5.4.5 ��事务运行时间降到最�?/div>
5.4.6 ��锁定时间降��x��?nbsp;

5.5 规则5-5�Q�尽可能使用firehose游标

5.6 规则5-6:作出正确的数据搜索决�{�（避免滥用SelectSingleNode�Q?/div>
5.6.1 Seek-and-Find�l��g

5.6.2 了解解决具体问题需选用哪一�U�方�?/div>

Eric_jiang 2010-05-31 19:03 发表评论

使用application提高ASP数据昄��效率

Eric_jiang — Thu, 27 May 2010 03:44:00 GMT
当数据上到好几万多条�?要调用几条数据在��面昄��,ASP��׃��慢如蜗牛.最�p�糕的是,当n多用��h��开��面拜访的时�?每个用户每次都要��d��数据库一��? �q�无疑降低了效率,很明�? 假如能把数据能保��h��内存�?然后��d��,无疑放慢了速度.
所谓缓存其实就是在内存中开辟一个用来保存数据的�I�间.
使用�~�存你就不必屡次的拜访你保具有硬盘上的数据了�Q�由于这些数据我们希望每个用户都能看到成效一�?考虑使用的是application对象,�׃��它是一切拜访者的��q��的对�?存储的消息和定义的事情能够�ؓ一切者拜访者��?�q�里要��用asp内置对象application�?
关于application:
2个办法[lock �?unlock],
2个集合[content �?staticobjects],
2个事情[开端的application_onstart �?application_end]
application变量不会�׃��用户的分开而消�?一旦徏�?不断�{�到�|�站关闭和程序卸载�ؓ�?正由于如�?使用的时分要特别当心!,否则会占用内�? (虚拟��L��提供商很不高兴了).
我们是把数据写入一个自定义的application里面,在制定的工夫��d��h��?大致思��A��是�q�样.

实例演示.先徏立一个简单的数据�?写个function��d��一�?写入一个dim变量temp�?

�E�序代码
<%　　Function DisplayRecords()
'�q�个函数本来�l�一个变量temp付上记蝲的�?
Dim sql, conn, rs
'�W�合条�g的sql语句
sql = "Select id, [szd_f], [szd_t] FROM admin"
'打开数据库连�?
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3
'当符合sq语句l的数据没有显现完毕时
If Not rs.EOF Then
'�l�temp变量赋�?
Dim temp
temp = " temp = temp & " border=""1"" bordercolor=""silver"""
temp = temp & " cellspacing=""2"" cellpadding=""0"">"
temp = temp & ""
temp = temp & ""
While Not rs.EOF
temp = temp & ""
rs.MoveNext
Wend
temp = temp & "
temp = temp & ">ID 操作数�?lt;/td>
"
temp = temp & rs("ID") & " " & rs("szd_f")
temp = temp & " " & rs("szd_t")
temp = temp & "
"
'temp赋值完�?把它再前往�l�函�?
DisplayRecords = temp
Else
DisplayRecords = "Data Not Available."
End If
'开释内�?
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Function %>

ok,上面的函数改造完�?调用的时分就是DisplayRecords.
上面是application大显本领�?

�E�序代码
<%'该函数是写入�~�存
Function DisplayCachedRecords(Secs)
Dim retVal, datVal, temp1
'Secs是每�ơ要��h��数据的工�? retVal是数�?datVal是剩余工�?
retVal = Application("cache_demo") '获得appliction的�?
datVal = Application("cache_demo_date") '获得appliction的�?
'判别datVal 的�?也就是要计算工夫�q�来了没
If datVal = "" Then
'假如是空,datVal��gؓ当前工夫按秒加上secs定义的工�?
datVal = DateAdd("s",Secs,Now)
End If
'temp1是判别当前工夫和datVal的秒�?
temp1 = DateDiff("s", Now, datVal)
'假如retVal已经是上面函数的前往��g��工夫大于0
If temp1 > 0 And retVal <> "" Then
'本函数前往记蝲�?
DisplayCachedRecords = retVal
Response.Write "利用�~�存��d��数据"
Response.Write " ... (" & temp1 & " �U�剩�?"
Response.Write "

"
Else
'retVal 是空的话,��p��予DisplayRecords的值给变量temp2
Dim temp2
temp2 = DisplayRecords()
'保存到Application.------------------>重点
Application.Lock
Application("cache_demo") = temp2
Application("cache_demo_date") = DateAdd("s",Secs,Now)
Application.UnLock
DisplayCachedRecords = temp2
' �q�里随便写上了记载的�~�存的过来工�?�l�对�ȝ��数倒差 :
Response.Write "��h��~�存昄�� ..."
Response.Write "

"
End If
End Function
%>

说明完毕.

调用办法:<%=DisplayCachedRecords(20)%>

Eric_jiang 2010-05-27 11:44 发表评论

Eric_jiang — Wed, 26 May 2010 09:18:00 GMT

一、��用步骤：
                  1、创建XMLHTTP对象 //需MSXML4.0支持
                  2、打开与服务端的连接，同时定义指��o发送方式，服务�|�页(URL)和请求权限等。客��L��通过Open命��o打开与服务端的服务网��늚��q�接。与�?br />                   通HTTP指��o传送一��P��可以�?GET"�Ҏ��?POST"�Ҏ��指向服务端的服务�|�页�?br />                   3、发送指令�?br />                   4、等待�ƈ接收服务端返回的处理�l�果�?br />                   5、释放XMLHTTP对象

                  二、XMLHTTP�Ҏ��Q?br />                   Open�Q?bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword �Q?br />                   bstrMethod�Q?nbsp; 数据传送方式，即GET或POST�?br />                   bstrUrl�Q?nbsp;     服务�|�页的URL�?br />                   varAsync�Q?nbsp;
                  是否同步执行。缺省�ؓTrue�Q�即同步执行�Q�但只能在DOM中实施同步执行。用中一般将其置为False�Q�即异步执行�?br />                   bstrUser�Q?nbsp;    用户名，可省略�?br />                   bstrPassword�Q�用户口令，可省略�?/p>
                  Send�Q?varBody �Q?br />                   varBody�Q�指令集。可以是XML格式数据�Q�也可以是字�W�串�Q�流�Q�或者一个无�W�号整数数组。也可以省略�Q�让指��o通过Open�Ҏ��的URL参数代入�?/p>
                  setRequestHeader�Q?bstrHeader, bstrvalue �Q?br />                   bstrHeader�Q�HTTP �?header)
                  bstrvalue�Q?HTTP �?header)的�?br />                   如果Open�Ҏ��定义为POST�Q�可以定义表单方式上传：
                  xmlhttp.setRequestHeader�Q?"Content-Type",
                  "application/x-www-form-urlencoded"�Q?/p>
                  三、XMLHTTP属性：
                  onreadystatechange�Q�在同步执行方式下获得返回结果的事�g句柄。只能在DOM中调用�?br />                   responseBody�Q?nbsp;    �l�果�q�回为无�W�号整数数组�?br />                   responseStream�Q?nbsp;   �l�果�q�回为IStream��?br />                   responseText �Q?nbsp;    �l�果�q�回为字�W�串�?br />                   responseXML�Q?nbsp;    �l�果�q�回为XML格式数据�?br />                   具体的��用方�?br />                   创徏XMLHTTP对象的语句如下：

                        Set objXML = CreateObject("Msxml2.XMLHTTP") �?br />                         Set objXML = CreateObject("Microsoft.XMLHTTP")
                        'Or for version 3.0 of XMLHTTP, use:
                        'Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")

                  对象创徏后调用Open�Ҏ��对Request对象�q�行初始化，语法格式为：

                        objXML.open http-method,url,async,userID,password

                  Open�Ҏ��中包含了5个参敎ͼ�前三个是必要的，后两个是可选的(在服务器需要进行��n份验证时提供)。参数的含义如下所�C�：

                  http-method�Q�HTTP的通信方式�Q�比如GET或是POST
                  url�Q�接收XML数据的服务器的URL地址。通常在URL中要指明ASP或CGI�E�序
                  async�Q�一个布��标识，说明��h��是否为异步的。如果是异步通信方式(true)�Q�客��h��׃��{�待服务器的响应�Q�如果是同步方式(false)�Q�客��h��p��{�到服务器返回消息后才去执行其他操作
                  userID�Q�用户ID�Q�用于服务器�w�䆾验证
                  password�Q�用户密码，用于服务器��n份验�?/p>
                  XMLHTTP对象的Send�Ҏ��

                  用Open�Ҏ��对Request对象�q�行初始化后�Q�调用Send�Ҏ��发送XML数据�Q?/p>

                        objXML.send()

                  Send�Ҏ��的参数类型是Variant�Q�可以是字符丌Ӏ�DOM树或��L��数据��?/p>
                  发送数据的方式分�ؓ同步和异步两�U�。在异步方式下，数据包一旦发送完毕，��q��束Send�q�程�Q�客��h��执行其他的操作；而在同步方式下，客户��{�到服务器返回确认消息后才结束Send�q�程�?/p>
                  XMLHTTP对象中的readyState属�?/p>
                  其能够反映出服务器在处理��h��时的�q�展状况。客��h��的程序可以根据这个状态信息设�|�相应的事�g处理�Ҏ��。属性值及其含义如下表所�C�：

                        倹{��　说明
                        0 　　Response对象已经创徏�Q�但XML文档上蝲�q�程��未�l�束
                        1 　　XML文档已经装蝲完毕
                        2 　　XML文档已经装蝲完毕�Q�正在处理中
                        3 　　部分XML文档已经解析
                        4 　　文档已经解析完毕�Q�客��L��可以接受�q�回消息

                  客户机处理响应信息，客户机接收到�q�回消息后，�q�行��单的处理�Q�基本上��完成了C/S之间的一个交互周期�?/p>
                  客户机接收响应是通过XMLHTTP对象的属性实现的�Q?/p>
                  responseText�Q�将�q�回消息作�ؓ文本字符�Ԍ��
                  responseBody�Q�将�q�回消息作�ؓHTML文档内容�Q?br />                   responseXML�Q�将�q�回消息视�ؓXML文档�Q�在服务器响应消息中含有XML数据时��用；
                  responseStream�Q�将�q�回消息视�ؓStream对象

                  以下是一个简单的例子�Q�类似新��d��?/p>

                        <%
                        Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
                        objXML.open "GET","http://www.alexa.com",false
                        objXML.send()
                        response.write(objXML.responseText)
                        %>

                  整个步骤很明显：建立、打开、发送和接受�?br />

Eric_jiang 2010-05-26 17:18 发表评论

ASP开发中�?VBScript)�c�d��学习

Eric_jiang — Thu, 13 May 2010 02:07:00 GMT
ASP中的Session本��n是可以储存对象的�Q�它可以保存基本变量�Q�数�l�，自动化对�?Automation Object)�{�，但在储存自定义类的对象时会碰到问题�?
如下面的代码�Q?/p>

以下是引用片�D�：
<%
If isempty(Session("node")) Then Set Session("node")=New ListNode
Set n=Session("node")
Response.Write n.Content
%>

<%
If isempty(Session("node")) Then Set Session("node")=New ListNode

Set n=Session("node")

Response.Write n.Content

%>

�q�是上面的ListNode�q�个�c�，�q�段代码意图在一个用户会话中只保留一个ListNode的对象。所以在用户�W�一�ơ访问该�|�页�Ӟ��会生成ListNode的一个对象，�q�保存在Session("node")�?后面讉K��该网��|��Q�因�? Session("node")不�ؓ�I�Z��Q�所以不会生成一个新的对象，而是�?Session("node")中取��Z��存的对象�?/p>
理论上应该也会输�?00�Q�但是问题来了，ASP一直会报错�Q?/p>
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'n.Content'

用n.Type也会出错。同��L��代码��译成PHP�Q�运行却是可以通过的。�ؓ什�?

个�h分析下来�Q�认为Session可以保存对象是没错，只是VBScript中类型�{换的机制�? 弱，而且没有昑ּ�的强制类型�{换供用户使用�Q�无法将 Session("node")正确转换为ListNode�c�d��。因为是自定义的�c�，我们只能在每个页面中都出现类的定义语句，�q�样在ASP看来�Q�每�ơ读取这个页面时�Q�ListNode�c�都是一个新�c�，所以就不认得Session中的�q�个�cȝ��对象了�?/p>
�l�论�Q?/strong>��量不要惛_��用Session或Application来存储ASP中自定义�cȝ��对象。如�? ��实需要，可以考虑用COM来编写类�Q�然后在VBScript中用�Q�Set Session("obj") = Server.CreateObject("YourApp.YourClass")来创��Z��个对象，然后卛_��实现上面预想的功能了�?/p>

Eric_jiang 2010-05-13 10:07 发表评论

temp = temp & ">ID	操作	数�?lt;/td>
" temp = temp & rs("ID") & "	" & rs("szd_f") temp = temp & "	" & rs("szd_t") temp = temp & "

亚洲人成色4444在线观看,亚洲免费福利在线视频,国产亚洲情侣久久精品

关于Persits.Upload.1 '800a0001' 的解��x��法，能解冻I��

Article PS02022586

Problem Description

Solution

VB数组详解

改进ASP�E�序中的字符串处理性能

解决DLL�l��g注册成功但无法��用的问题

ASP国际化多语言详细�Ҏ��

ASP中调用DLL�C�Z��

用VB生成DLL���装ASP代码一个例子：�q�接access数据库等

Visual Basic高效�~�程�Q�改�q�VB/COM+应用�E�序

使用application提高ASP数据昄���效率

ASP开发中�?VBScript)�c�d�����学习

用VB生成DLL��装ASP代码一个例子：�q�接access数据库等

使用application提高ASP数据昄��效率

ASP开发中�?VBScript)�c�d��学习