前言：本人用了phpnow、apm、WampServer等大部分集成Apache、php、mysql的软件，想完全的支持asp，都没有做成功，但是有相关的资料，和大家分享。有一个插件ActiveHTML支持asp，但是我试了，也不好用，总之太麻烦了，所以后来还是用的IIS+php+mysql（请看我的本分类中的另一篇文章）。如果不使用asp当然就非常容易了，而且很好用，但是我还是想使用asp，折腾了一天多，还是没戏，能运行，但是有的只支持一个asp网站，有的有其它问题，郁闷啦！不玩了！如果哪位高手有好的方法使之完美支持asp，请告知，不胜感激！

注解：
本文是基于WampServer 2.X套件讨论的，但适用于所有的Apache。其实我们也只是对WampServer中的Apache模块做了修改，使其能够支持ASP/ASP.NET。本文中Apache版本为2.2.8，WampServer 的目录地址为D:\wamp\ 。文中提及的配置文件.conf 及其mod，ActiveHTML，于文末提供下载。

ASP.NET
让Apache支持ASP.NET比较简单，使用apache.org里提供的mod_aspdotnet即可。地址是：http://httpd.apache.org/modules/ 。

    说一下配置：首先下载mod_aspdotnet 。然后将其mod_aspdotnet.so释放到apache 的/modules/ ，如D:\wamp\bin\apache\apache2.2.8\modules 。然后，我们需要建立一个mod_aspdotnet 单独的配置文件.conf，如httpd-aspdotnet.conf，写好后放入apache的/conf/extra/中，这样比较规范。httpd-aspdotnet.conf，如下

XML/HTML代码

1. # Load asp.net module   

2. LoadModule aspdotnet_module "modules/mod_aspdotnet.so"   

3.    

4. # Set asp.net extensions     

5. AddHandler asp.net asax ascx ashx asmx aspx axd config cs csproj licx rem resources resx soap vb vbproj vsdisco webinfo   

6.    

7. # 其中"D:/wamp/www/aspx" 为我们的ASPX的文件的目录。需自己修改。：）  

8. <IfModule mod_aspdotnet.cpp>   

9.    # Mount the ASP.NET /ASP application   

10.   AspNetMount /ASP "D:/wamp/www/aspx"   

11.     

12.   # Map all requests for /ASP to the application files   

13.   Alias /ASP "D:/wamp/www/aspx"   

14.     

15.   # Allow asp.net scripts to be executed in the /ASP folder   

16.   <Directory "D:/wamp/www/aspx">  

17.     # Set asp.net options  

18.     Options Indexes FollowSymLinks Includes +ExecCGI  

19.     # Set asp.net permissions     

20.     Order allow,deny   

21.     Allow from all   

22.     # Set asp.net default index page to .aspx and .htm   

23.     DirectoryIndex index.aspx index.htm   

24.    </Directory>   

25.   

26.   # Set aspnet_client files to serve the client-side helper scripts. 这里为我们的ASP.NET_Framework的安装地址，需自己修改。  

27.   AliasMatch /aspnet_client/system_web/(\d+)_(\d+)_(\d+)_(\d+)/(.*) "C:/WINDOWS/Microsoft.NET/Framework/v3.5/ASP.NETClientFiles/$4"   

28.   <Directory "C:/WINDOWS/Microsoft.NET/Framework/v3.5/ASP.NETClientFiles">   

29.     Options FollowSymlinks   

30.     Order allow,deny   

31.     Allow from all   

32.   </Directory>   

33. </IfModule>   

这样写好httpd-aspdotnet.conf后放入apache的/conf/extra/中，然后修改apache的主配置文件，/conf/httpd.conf 在其中适当位置加入代码

XML/HTML代码

1. # ASP.net ，写在httpd.conf 最后适当的位置。 只是为了规范。

2. Include conf/extra/httpd-aspdotnet.conf

然后，重启apache，现在/www/aspx/目录已经可以解析.aspx文件了。：）

ASP

    让Apache完美的支持asp，目前网上也没有好的解决办法，很多东西都还是商业的，以前有个mod可以用，但只能用在apache1.X上，很老的东西了。 我找寻了很久也没有免费的解决办法。无意间得知phpnow有个插件可以支持asp，马上下载下来玩了一下，终于成功让这个插件脱离phpnow，使其支持任意的Apache。其实phpnow也是提取了试用版的ActiveHTML，效果还不错，我比较满意。

        过程如下：首先下载这个phpnow版的ActiveHTML，释放在一个适合的位置，如D:\wamp\bin\ActiveHTML\ ，ActiveHTML需要注册几个.dll，进入CMD在ActiveHTML目录，执行如下命令

XML/HTML代码

1. # 进入CMD在ActiveHTML目录，执行如下命令

2. regsvr32.exe /s slASP3.dll  

3. regsvr32.exe /s slDispatch.dll  

4. regsvr32.exe /s MSXML4.dll  

5. regsvr32.exe /s MSXML4R.dll

然后，同样的我们需要为ActiveHTML写一个配置文件.conf，如httpd-ahtml.conf，如下

XML/HTML代码

1. ##################################################  

2. #   Uncomment the following lines if you want  

3. #   to use Authorization environment-variables  

4. #   You may implement you own user   

5. #   authentication using LOGON_USER and  

6. #   LOGON_PASSWORD in your scripts (Login.asp)  

7. ##################################################  

8. LoadModule rewrite_module modules/mod_rewrite.so  

9. RewriteEngine On  

10. RewriteCond     %{HTTP:Authorization}   ^(.*)$ [NC]  

11. RewriteRule     /.*             -       [E=HTTP_AUTHORIZATION:%1]  

12. ##################################################  

13.   

14. # Supports Imagemaps  

15. AddHandler imap-file map  

16.   

17. ##################################################  

18. #   Do not allow access to global.asa  

19. ##################################################  

20. <Files ~ "global.asa">  

21. Order allow,deny  

22. Deny from all  

23. Satisfy All  

24. </Files>  

25.   

26.   

27. ##################################################  

28. #   Add ActiveHTML-Handler 其中”D:/wamp/bin/ActiveHTML“ 为ActiveHTML释放的目录，需自己修改。

29. ##################################################  

30. ScriptAlias /asp_bin "D:/wamp/bin/ActiveHTML"  

31. Action ActiveHTML "/asp_bin/AHTML.exe"  

32. AddHandler ActiveHTML .asp  

33. DirectoryIndex index.asp default.asp  

34.   

35.   

36. ##################################################  

37. #   Add Sampledirectory Alias 其中"D:/wamp/www/asp/"为asp文件所在的目录，需自己修改。

38. ##################################################  

39. <Directory "D:/wamp/bin/ActiveHTML">  

40. Options Indexes MultiViews FollowSymLinks  

41. AllowOverride None  

42. Order allow,deny  

43. Allow from all  

44. </Directory>  

45.   

46. Alias /asp/ "D:/wamp/www/asp/"  

47. <Directory "D:/wamp/www/asp/">  

48. Options Indexes MultiViews FollowSymLinks  

49. AllowOverride all  

50. Order allow,deny  

51. Allow from all  

52. </Directory>  

同样的，在apache的主配置文件httpd.conf 里适当的位置加入代码

XML/HTML代码

1. # ASP ，写在httpd.conf 最后适当的位置。 只是为了规范。

2. Include conf/extra/httpd-ahtml.conf

然后，重启apache，现在/www/asp/目录已经可以解析.asp文件了。：）

PS

文中提及的配置文件.conf 及其mod，ActiveHTML，下载：extra.rar

其它的方法：

==================Apache支持ASP===================

前言:
好多人都在寻找apache下支持asp的方法,有的无非要建两个端口,通过代理实现支持asp,执行效率不是太好,现在终于有一种新的办法,通过模块实现支持asp,简单,直接.其实这个方法以前就有过,不过说的很含糊,很多地方需要更正,而且年久失传,原有的地址都找不到了,我翻遍了搜索引擎,终于在一个台湾的论坛找到了那个组件,自己亲自调试了下,现在把自己的成功经验与落伍的兄弟们分享.

①首先下载一个组件,这个是关键,也就是好多人寻找的东西

下载: http://mis.enc.hlc.edu.tw/upload/files/openasp-b1-win32.zip
②下载完apasp.DLL后，放置在apahce的modules文件夹,在httpd.conf的最下面（一定要在最下面，不然就没效果了）加入这一行：

LoadModule asp_module modules/apasp.DLL

③在httpd.conf中 <IfModule mod_mime.c>和</IfModule>之间的某个合适位置加入

AddType text/x-asp .asp

其实最好在AddType application/x-httpd-php .php下方加入,这样apache就能解释asp扩展名的文件了.

重新启动下apache,放个探针试下,是不是支持asp了?是不是很简单?

我的apache版本是1.33,这个组件好象只支持1.3的版本.

图片验证主要是文件对比，其中我们可以利用二进制的方法读取图片信息，然后进行对比，达到对比的效果，本例子利用fso对象的文件流的方法实现，代码如下

Public Function CompareFiles (FilePath1, FilePath2)
   Dim FS, File1, File2
   Set FS = CreateObject("scrīpting.FileSystemObject")

   If FS.GetFile(FilePath1).Size <> FS.GetFile(FilePath2).Size Then
         CompareFiles = True
         Exit Function
   End If

   Set File1 = FS.GetFile(FilePath1).OpenAsTextStream(1, 0)
   Set File2 = FS.GetFile(FilePath2).OpenAsTextStream(1, 0)

   CompareFiles = False
   Do While File1.AtEndOfStream = False
         Str1 = File1.Read(1000)
         Str2 = File2.Read(1000)

         CompareFiles = StrComp(Str1, Str2, 0)

         If CompareFiles <> 0 Then

                  CompareFiles = True

                  Exit Do
         End If
   Loop

   File1.Close()
   File2.Close()
End Function

返回值：
如果两个文件相同，该功能将返回 0 或 False，否则将返回 True。

示例：
File1 = "C:\1.jpg"
File2 = "C:\2.jpg"

If CompareFiles(File1, File2) = False Then
   MsgBox "Files are identical."
Else
   MsgBox "Files are different."
End If

在实际工作中我们经常会遇到对一些不能被捕获的对象进行点击、拖拽操作，直接去录制可能得到的就是Object.Click xxx,yyy ，这样的代码健壮性和可维护性都非常的差。
如果需要被操作的位置上有相对唯一的文本值，那么就可以考虑使用GetTextLocation方法来辅助我们来动态定位到预期的坐标，这样就不会因为界面位置一点点的变动导致脚本运行失败了。

先在帮助文档中查找GetTextLocation方法看看，我们会惊奇的发现几乎所有的对象都能支持该方法，这就使得该方法的应用范围会比较广，帮助文档中的描述如下：
Syntaxobject.GetTextLocation (TextToFind, Left, Top, Right, Bottom, [MatchWholeWordOnly])


Syntax Details

Argument	Description
TextToFind	Required. A String value. The text string you want to locate.
Left	Required. A Variant value. The left coordinate of the search area within the window or screen.
Top	Required. A Variant value. The top coordinate of the search area within the window or screen.
Right	Required. A Variant value. The right coordinate of the search area within the window or screen.
Bottom	Required. A Variant value. The bottom coordinate of the search area within the window or screen. Note: Set the Left, Top, Right, and Bottom coordinates to -1 to search for the text string within the object’s entire window.
MatchWholeWordOnly	Optional. A Boolean value. If True, the method searches for occurrences that are whole words only and not part of a larger word. If False, the method does not restrict the results to occurrences that are whole words only. Default value = True

下面我们来看一个运用GetTextLocation的实例

先简单的描述下需求，现在需要点击自定义的菜单栏上的"Generate Report"按钮，但按钮控件不能被捕获，只能识别到整个菜单栏对象为VbWindow("Window").WinObject("Menu")，点击按钮的代码如下：

CODE:

'获取"Generate Report"文本在WinObject("Menu")中的坐标范围，并返回给L(left),T(top),R(right),B(bottom)
VbWindow("Window").WinObject("Menu").GetTextLocation strText,L,T,R,B,True
'点击该文本所在坐标区域的正中心位置
VbWindow("Window").WinObject("Menu").Click (L+R)/2, (T+B)/2为了便于使用，我们也可以进行简单的封装，例如：

CODE:

Function  ClickText(objOB, strText)
   If objOB.Exist(1) Then
     objOB.GetTextLocation strText,L,T,R,B,True
     objOB.Click (L+R)/2, (T+B)/2
   Else
     Reporter.ReportEvent micFail , "Can not find the specified object!", ""
   End If
End Function

ClickText VbWindow("Window").WinObject("Menu"),"Generate Report" 进行拖拽操作也是一样的，通过GetTextLocation方法来获取文本中心位置坐标，动态的做为Drag和Drop的参数，这样就能比较精确的完成拖拽操作。
下面也举个简单的例子吧

CODE:

Sub MoveItemByText(objFrom,strFrom,objTo,strTo)
Dim l,r,t,b,l1,r1,t1,b1
'Drag Item by specified text
objFrom.GetTextLocation strFrom, l, t, r, b
objFrom.Drag (l+r)/2, (t+b)/2, 1

' Drop Item on specified text
objTo.GetTextLocation strTo, l1, t1, r1, b1
objTo.Drop (l1+r1)/2, (t1+b1)/2, 1
End Sub
'将hsjzfling从Names列表中拖拽到Result列表的Champion子列表中
Set bjAct = VbWindow("frmOvertime").ActiveX("ActiveX").ActiveX("ActiveX").ActiveX("ActiveX")
MoveItemByText objAct.VbTreeView("Names"), "hsjzfling", objAct.VbTreeView("Result"), "Champion"

On Error GoTo 0
表示禁止当前过程中任何已启动的错误处理程序。

On Error Resume Next
说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

On Error GoTo line
启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。

以上MSDN上的解释

一般情况下，如果在对我们创建的对象或控件进行错误捕捉，需要使用On Error Resume Next ，然后在判断它的Err.Number，根据错误类型来做相应的处理。
参考资料：MSDN

On Error Resume Next
On Error GoTo 0
说明
如果在您的代码中未使用 On Error Resume Next 语句, 所发生的运行时错误将显示错误信息，同时，代码的执行也随之终止。但是运行代码的主机决定了具体操作。主机有时可有选择地处理各类错误。在有些情况下，它可以在出错的地方激活脚本调试器。而在另一些情况下，由于主机无法通知用户，因此对所发生的错误没有明确说明。至于如何处理错误则完全取决于主机的功能。

在任意一个特殊过程中，只要在调用堆栈的地方启用错误处理程序，所发生的错误一般不会是致命性的。如果在一个过程中没有启用局部错误处理程序，当发生错误时，控制可通过堆栈调用转移，直到找到一个具有错误处理程序的过程，并在出错的地方处理错误。如果在调用堆栈的过程中没有找到错误处理程序，则在出错的地方显示错误信息，同时终止代码执行，或者通过主机来正确处理错误。

On Error Resume Next 会使程序按照产生错误的语句之后的语句继续执行，或是按照最近一次所调用的过程（该过程含有 On Error Resume Next 语句）中的语句继续运行。这个语句可以不顾运行时错误，继续执行程序，之后您可以在过程内部建立错误处理例程。在调用另一个过程时，On Error Resume Next 语句变为非活动的。所以，如果希望在例程中进行内部错误处理，则应在每一个调用的例程中执行 On Error Resume Next 语句。

当调用另一过程时，禁止使用On Error Resume Next 语句，因此如果您想在例程中嵌入错误处理程序，则需要在每次调用例程时都应执行 On Error Resume Next 语句。当退出一个过程时，错误处理程序可恢复到它在进入所退出过程之前的状态。

如果您已启用 On Error Resume Next 错误处理程序，则可使用 On Error GoTo 0禁用错误处理程序。

下面例子举例说明如何使用 On Error Resume Next 语句:

On Error Resume Next
Err.Raise 6 ' 引发溢出错误。
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear '清除该错误。  

在执行QTP脚本的时候，如果出现错误，例如对象不识别等，如何捕捉到错误信息呢？

Vbscript提供了Err对象
Err.Number 返回VBScript. 错误编号或 SCODE 错误值的整数
Err.Source 返回生成错误的应用程序
Err.Description 返回包含错误说明的字符串表达式

可以运行以下代码，查看运行结果中三个属性的返回值是什么

顾明思义，get-Element-By-Id，就是通过ID来设置/返回HTML标签的属性及调用其事件与方法。用这个方法基本上可以控制页面所有标签，条件很简单就是给每个标签分配一个ID号：

document.getElementById("link").href;
document.getElementById("link").target;
document.getElementById("img").src;
document.getElementById("img").width;
document.getElementById("img").height;
document.getElementById("input").value;

那么如何取得<div></div>以及<a></a>之间的值呢？如<div id="div">aaa</div>中的aaa，<a href="#" id="link">bbb</a>中的bbb，也很简单，利用innerHTML就可以了：

document.getElementById("div").innerHTML;
document.getElementById("link").innerHTML;

getElementById 方法
返回具有指定 ID 属性值的第一个对象的一个引用。

语法
oElement = document.getElementById(sIDValue)

参数
sIDValue 必选项。指明 ID 属性值的字符串

返回值
返回 ID 属性值与指定值相同的第一个对象。

注释
如果 ID 属于一个集合，getElementById 方法返回集合中的第一个对象。
getElementById 方法与使用 all 集合上的 item 方法等同。例如，以下代码样本表示如何从 document 对象中取回 ID 为 oDiv 的第一个要素。

使用 DHTML 对象模型：
var VDiv = document.body.all.item("oDiv");
使用文档对象模型(DOM)：
var VDiv = document.getElementById("oDiv");

示例
以下例子表示如何使用 getElementById 方法返回 ID 属性值 oDiv 的第一次出现。
<script>
function fnGetId(){
//         Returns the first DIV element in the collection.
         var VDiv=document.getElementById("oDiv1");
}
</script>
<DIV ID="oDiv1">Div #1</DIV>
<DIV ID="oDiv2">Div #2</DIV>
<DIV ID="oDiv3">Div #3</DIV>
<INPUT TYPE="button" VALUE="Get Names" nclick="fnGetId()">

 

getElementById 方法
返回具有指定 ID 属性值的第一个比如说有个网页中有个text框的id叫text1
getElementById(text1)就能得到这个text1框的对象,并使用text框的所有属性和方法

   

这个是JS的一个方法，意思是通过控件ID取得元素的值，如一个form里包函text、label等，他们都是FORM的元素，有一个分配的ID，getElementById()是取得这些元素的text值的。

 

这个是JS的一个方法，意思是通过控件ID取得元素的值，如一个form里包函text、label等，他们都是FORM的元素，有一个分配的ID，getElementById()是取得这些元素的text值的。

 

程序举例

 

<html>
<head>
<script. type="text/javascript">
function alignRow()
{
var x=document.getElementById('myTable').rows
x[0].align="right"

}
</script>
</head>

<body>
<table width="60%" id="myTable" border="1">
<tr>
<td>行1 单元格1</td>
<td>行1 单元格2</td>
</tr>
<tr>
<td>行2 单元格1</td>
<td>行2 单元格2</td>
</tr>
<tr>
<td>行3 单元格1</td>
<td>行3 单元格2</td>
</tr>
</table>
<form>
<input type="button" nclick="alignRow()" value="右对齐第一行文字">
</form>
</body>

</html>
   

支队一个单元隔进行对齐

<html>
<head>
<script. type="text/javascript">
function alignCell()
{
var x=document.getElementById('myTable').rows[0].cells
x[0].align="center"

}
</script>
</head>

<body>
<table id="myTable" border="1" width="100%">
<tr>
<td>单元格1</td>
<td>单元格2</td>
</tr>
<tr>
<td>单元格3</td>
<td>单元格4</td>
</tr>
</table>
<form>
<input type="button" nclick="alignCell()" value="居中对齐第一个单元格的内容">
</form>
</body>   

</html>

 

改变colspan的值

<html>
<head>
<script. type="text/javascript">
function setColSpan()
{
var x=document.getElementById('myTable').rows[0].cells
x[0].colSpan="2"
x[1].colSpan="6"
}
</script>
</head>

<body>
<table id="myTable" border="1">
<tr>
<td colspan="4">单元格1</td>
<td colspan="4">单元格2</td>
</tr>
<tr>
<td>单元格3</td>
<td>单元格4</td>
<td>单元格5</td>
<td>单元格6</td>
<td>单元格7</td>
<td>单元格8</td>
<td>单元格9</td>
<td>单元格10</td>
</tr>
</table>
<form>
<input type="button" nclick="setColSpan()" value="改变colspan值">
</form>
</body>

</html>

Analog recording(模拟录制)

将“模拟录制”用于您要在其中录制鼠标的实际移动的应用程序。这些可能包括绘制鼠标签名或者使用通过拖动鼠标创建图像的绘图应用程序。您可以用“模拟录制”模式相对于屏幕或特定窗口进行录制。
   相对于指定窗口录制-如果对其执行操作的对象位于一个窗口内部而且该窗口在模拟录制会话期间没有移动。这可以确保在运行会话过程中，QuickTest将准确地标识在其上执行模拟步骤的窗口位置，即使当您运行模拟步骤时窗口位于不同的位置。QuickTest不会录制在指定窗口外部执行的任何单击或鼠标移动。当使用这种模式时，QuickTest不会捕获任何Active Screen图像。
   相对于屏幕录制-如果在其上录制模拟步骤的窗口在录制过程中移动，或者您所执行的操作是针对位于多个窗口内的对象。这可能包括将对象从一个窗口拖放到另一个窗口中。当使用这种模式时，QuickTest将捕获您在其中进行录制的窗口的最终状态的Active Screen图像。
   使用“模拟录制”录制的步骤被保存在单独的数据文件中。该文件与在其中录制模拟步骤的操作或组件一起存储。
   当以“模拟录制”模式进行录制时，QuickTest将向测试或组件添加一个调用所录制的模拟文件的“RunAnalog”语句。相应的Active Screen将显示在模拟录制会话期间执行的最后一个模拟步骤的结果。
low-level recording(低级录制)
   使用“低级录制”在不受QuickTest支持的环境或对象上进行录制。当您需要在应用程序屏幕上录制操作的精确位置时，请使用“低级录制”。当以正常模式录制时，QuickTest将在对象上执行步骤，即使该对象已经移动到屏幕上的新位置。如果对象的位置对于您的测试或组件非常重要，请切换到“低级录制”以使QuickTest能够按照屏幕上的x坐标和y坐标录制该对象。这样，该步骤只有在对象位于正确的位置时才能通过。
   当使用“低级录制”时，QuickTest将所有父类对象录制为Windows测试对象，将所有其他对象录制为WinObject测试对象。它们在Active Screen中显示为标准Windows对象。“低级录制”对每个测试对象支持下列方法：
WinObject测试对象- Click、DblClick、Drag、Drop、Type
Window测试对象- Click、DblClick、Drag、Drop、Type、Activate、Minimize、Restore、Maximize
   以“低级录制”模式录制的每个步骤都显示在关键字视图和专家视图中。（“模拟录制”仅录制关键字视图中那个调用外部模拟数据文件的步骤。）
模拟录制和低级录制的规则
   模拟录制和低级录制产生的脚本无法插入检查点，而且应用程序界面稍有变动则脚本无法正常运行，所以非万不得已（QTP正常支持的B/S结构以外的情况）应该避免这两种录制方式。有时候因为无法正常录制或者无法正常运行，初学者就可能考虑使用这两种方式录制，事实上，只要是C/S（其实部分结构简单一点的B/S）结构，基本上都能够避免所遇到的这些问题，具体方法，参见第二部分。

当选择“模拟录制”或“低级录制”时，请考虑下列规则：

只有当QuickTest的正常录制模式不能准确录制您的操作时，才应使用“模拟录制”或“低级录制”。“模拟录制”和“低级录制”要求比正常录制模式更多的磁盘空间。对于特定的步骤，您可以在录制会话期间切换到“模拟录制”或“低级录制”。在以“模拟录制”或“低级录制”模式录制了必要的步骤之后，就可以返回到正常录制模式来完成录制会话的其余部分。

在录制期间，如果 QuickTest 不能仅基于测试对象描述唯一标识浏览器对象，它将为“CreationTime”测试对象属性分配一个值。该值指示该浏览器打开的顺序，相对于其他描述都相同的其他打开的浏览器。
    在运行会话期间，如果 QuickTest 不能只是基于其测试对象描述来标识某个浏览器对象，那么，它将检查浏览器的打开顺序，然后使用“CreationTime”属性标识正确的对象。
    例如，如果您在三个浏览器上录制测试或组件，这三个浏览器除了打开时间分别在 9:01 pm、9:03 pm 和 9:05 pm 之外，其他方面完全相同，那么，QuickTest 将把 CreationTime 值 0 分配给 9:01 pm 浏览器，1 分配给 9:03 pm 浏览器，2 分配给 9:05 pm 浏览器。
    在 10:30 pm，当您返回测试或组件时，假定浏览器分别在 10:31 pm、10:33 pm 和 10:34 pm 打开。QuickTest 将使用 CreationTime = 0 的浏览器测试对象标识 10:31 pm 浏览器，使用 CreationTime = 1 的测试对象标识 10:33 pm 浏览器，使用 CreationTime = 2 的测试对象标识 10:34 pm 浏览器。
    如果打开几个浏览器，则 CreationTime 最高的浏览器是最后一个打开的浏览器，CreationTime 最低的浏览器是第一个打开的浏览器。例如，如果打开三个或更多的浏览器，则 CreationTime = 2 的浏览器是第三个打开的浏览器。如果恰好有七个或更少的浏览器，则 CreationTime = 6 的浏览器是最后一个打开的浏览器。
    例如，如果在 CreationTime = 6 的浏览器上录制步骤，并且具有该 CreationTime 值的浏览器没有打开，该步骤将在当前打开的、CreationTime 值最高的浏览器上运行。例如，如果在运行会话期间，当前打开了 CreationTime = 0 和 CreationTime = 1 的两个浏览器，那么该步骤不会由于找不到 CreationTime = 6 的浏览器而失败，相反，它会在最后一个打开的浏览器上运行，如果是这种情况，浏览器 CreationTime = 1。
    注意：可能会出现这样的情况，在会话期间的特定时间，可用的 CreationTime值并不有序。例如，如果您在录制或运行会话期间打开六个浏览器，然后在该会话期间，您关闭第二个和第四个浏览器（CreationTime 值为 1 和 3），那么在会话结束时，打开的浏览器将是 CreationTime 值为 0、2、4 和 5 的浏览器。

 

  解决方案：用LoadRuner\bin下的LIBEAY32.dll覆盖c:\windows\system32下的

同名文件。覆盖后，此错误提示框不再出现

web_reg_save_param函数是大家都已经熟悉的了，它的主要作用是从一个response中获得后续的request需要使用的数据，然后将其作为一个参数保存下来，供后续步骤使用。该方法在LoadRunner中被称为Correlation（关联）。

而web_custom_request函数则可以用于完全自定义向服务端发送的request。

接下来我们用一个实际的例子说明一下web_custom_request的具体应用：

以Mercury自带的MercuryWebTours例子为例，假设我们希望在登录进入后将用户的前两条记录删除，我们来看看用web_custom_request如何实现这个目标。

首先，我们尝试用HTML方式对该操作进行录制。录制后的脚本中与删除相关的部分大致如下：

我们通过树型模式查看一下在submit form的时候实际向服务器发出的请求的内容：

从请求内容中可以看到，我们通过POST方法发出了请求，请求发送的目的URL是/MercuryWebTours/itinerary.pl，发送的内容是：
"1=on&flightID=384-798-JM&2=on&flightID=3026-1592-JM&3=on&flightID=1194-2326-JM&.cgifields=1&.c"
"gifields=2&.cgifields=3&removeFlights.x=116&removeFlights.y=8"

从发送的内容中可以很明显的分析得出，1=on表示第一个checkbox是被选中的，flightID=384-798-JM表示的是第一条记录所对应的flightID。因此，如果我们需要自己组成这个发送的request的话，必须首先通过关联的方式获得前两条记录的flightID，然后再组成request的内容。

web_custom_request方法的原型是：
int web_custom_request (const char *RequestName, <List of Attributes>,[EXTRARES, <List of Resource Attributes>,] LAST );

其中List of Attributes的主要项目是Method，URL和BODY等。对这个例子来说，我们可以很容易构造出我们需要的request的BODY内容。
……
 strcpy(creq, "Body=1=on&flightID=");
 strcat(creq, lr_eval_string("{fID1}"));
 strcat(creq, "&2=on&flightID=");
 strcat(creq, lr_eval_string("{fID2}"));
 strcat(creq, "&.cgifields=1&.cgifields=2");
 strcat(creq, "&removeFlights.x=116&removeFlights.y=8");
……

其中{fID1}、{fID2}等都是通过关联获得的flightID的数据。

因此，我们可以根据图中的数据编写custom_request语句：

较为完整的代码如下：

查看(7) 评论(0)

VBscrīpt编码约定

编码约定是帮助您使用 Microsoft Visual Basic scrīpting Edition 编写代码的一些建议。编码约定包含以下内容：

• 对象、变量和过程的命名约定
• 注释约定
• 文本格式和缩进指南

使用一致的编码约定的主要原因是使脚本或脚本集的结构和编码样式标准化，这样代码易于阅读和理解。使用好的编码约定可以使源代码明白、易读、准确，更加直观且与其他语言约定保持一致。

常数命名约定

VBscrīpt 的早期版本不允许创建用户自定义常数。如果要使用常数，则常数以变量的方式实现，且全部字母大写以和其他变量区分。常数名中的多个单词用下划线 (_) 分隔。例如：

 USER_LIST_MAX
 NEW_LINE

这种标识常数的方法依旧可行，但您还可以选择其他方案，用 Const 语句创建真正的常数。这个约定使用大小写混合的格式，并以“con”作为常数名的前缀。例如：

 conYourOwnConstant

变量命名约定

为提高易读和一致性，请在 VBscrīpt 代码中使用以下变量命名约定：

子类型	前缀	示例
Boolean	bln	blnFound
Byte	byt	bytRasterData
Date (Time)	dtm	dtmStart
Double	dbl	dblTolerance
Error	err	errOrderNum
Integer	int	intQuantity
Long	lng	lngDistance
Object	obj	objCurrent
Single	sng	sngAverage
String	str	strFirstName

变量作用域

变量应定义在尽量小的作用域中。VBscrīpt 变量的作用域如下所示：

作用域	声明变量处	可见性
过程级	事件、函数或子过程。	在声明变量的过程中可见。
scrīpt 级	HTML 页面的 HEAD 部分，任何过程之外。	在脚本的所有过程中可见。

变量作用域前缀

随着脚本代码长度的增加，有必要快速区分变量的作用域。在类型前缀前面添加一个单字符前缀可以实现这一点，而不致使变量名过长。

作用域	前缀	示例
过程级	无	dblVelocity
scrīpt 级	s	sblnCalcInProgress

描述性变量名和过程名

变量名或过程名的主体应使用大小写混合格式，并且尽量完整地描述其目的。另外，过程名应以动词开始，例如 InitNameArray 或 CloseDialog。

对于经常使用的或较长的名称，推荐使用标准缩写以使名称保持在适当的长度内。通常多于 32 个字符的变量名会变得难以阅读。使用缩写时，应确保在整个脚本中保持一致。例如，在一个脚本或脚本集中随意切换 Cnt 和 Count 将造成混乱。

对象命名约定

下表列出了 VBscrīpt 中可能用到的对象命名约定（推荐）：

对象类型	前缀	示例
3D 面板	pnl	pnlGroup
动画按钮	ani	aniMailBox
复选框	chk	chkReadOnly
组合框、下拉列表框	cbo	cboEnglish
命令按钮	cmd	cmdExit
公共对话框	dlg	dlgFileOpen
框架	fra	fraLanguage
水平滚动条	hsb	hsbVolume
图像	img	imgIcon
标签	lbl	lblHelpMessage
直线	lin	linVertical
列表框	lst	lstPolicyCodes
旋钮	spn	spnPages
文本框	txt	txtLastName
垂直滚动条	vsb	vsbRate
滑块	sld	sldScale

代码注释约定

所有过程的开始部分都应有描述其功能的简要注释。这些注释并不描述细节信息（如何实现功能），这是因为细节有时要频繁更改。这样就可以避免不必要的注释维护工作以及错误的注释。细节信息由代码本身及必要的内部注释来描述。

当传递给过程的参数的用途不明显，或过程对参数的取值范围有要求时，应加以说明。如果过程改变了函数和变量的返回值（特别是通过参数引用来改变），也应在过程的开始部分描述该返回值。

过程开始部分的注释应包含以下区段标题。相关样例，请参阅后面的“格式化代码”部分。

区段标题	注释内容
目的	过程的功能（不是实现功能的方法）。
假设	其状态影响此过程的外部变量、控件或其他元素的列表。
效果	过程对每个外部变量、控件或其他元素的影响效果的列表。
输入	每个目的不明显的参数的解释。每个参数都应占据单独一行并有其内部注释。
返回	返回值的解释。

请记住以下几点：

• 每个重要的变量声明都应有内部注释，描述变量的用途。
• 应清楚地命名变量、控件和过程，仅在说明复杂细节时需要内部注释。
• 应在脚本的开始部分包含描述该脚本的概述，列举对象、过程、运算法则、对话框和其他系统从属物。有时一段描述运算法则的假码是很有用的。

格式化代码

应尽可能多地保留屏幕空间，但仍允许用代码格式反映逻辑结构和嵌套。以下为几点提示：

• 标准嵌套块应缩进 4 个空格。
• 过程的概述注释应缩进 1 个空格。
• 概述注释后的最高层语句应缩进 4 个空格，每一层嵌套块再缩进 4 个空格。例如：

'*********************************************************
' Purpose: Locates the first occurrence of a specified user 
'          in the UserList array.
' Inputs: strUserList(): the list of users to be searched.
'         strTargetUser: the name of the user to search for.
' Returns: The index of the first occurrence of the strTargetUser 
'          in the strUserList array. 
'          If the target user is not found, return -1.
'*********************************************************
Function intFindUser (strUserList(), strTargetUser)
   Dim i   ' Loop counter.
   Dim blnFound   ' Target found flag
   intFindUser = -1
   i = 0   ' Initialize loop counter
   Do While i <= Ubound(strUserList) and Not blnFound
      If strUserList(i) = strTargetUser Then 
         blnFound = True   ' Set flag to True
         intFindUser = i   ' Set return value to loop count
      End If
      i = i + 1   ' Increment loop counter
   Loop
End Function