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.

如果您试图重命名 DLL 在 Windows 资源管理器中的，您可能会看到一条错误消息类似于以下内容：
不能重命名 <filename>，请执行下列操作： 访问被拒绝。

请确保磁盘未满或写保护
而且文件当前未在使用中。
其中 <filename> 是 DLL 的文件名。

如果试图删除该 DLL 在 Windows 资源管理器中的，您可能会看到一条错误消息类似于以下内容：
不能删除 <filename>: 访问被拒绝

请确保磁盘未满或写保护
而且文件当前未在使用中。
 
原因
       当 ASP 实例化自定义 ActiveX DLL 使用 Server.CreateObject("ActiveX.Class")DLL 获取实例化，在本例中为...当 ASP 实例化自定义 ActiveX DLL 使用
Server.CreateObject("ActiveX.Class")

DLL 获取实例化，在本例中为 PWS 在 Web 服务进程中。 一旦被实例化 DLL PWS 不会释放该 DLL。
 
解决方案
        停止并重新 PWS 启动从 SysTray 图标不能释放上 ActiveX DLL 是实例化一个活动服务器页面 (ASP) 的锁。 若要解除锁定 DLL 上的，...停止并重新 PWS 启动从 SysTray 图标不能释放上 ActiveX DLL 是实例化一个活动服务器页面 (ASP) 的锁。  
      若要解除锁定 DLL 上的，PWS 必须手动停止使用命令提示。 默认状态下，Pws.exe 驻留在文件夹 C:\Windows\System\Inetsrv。 若要停止 PWS，键入以下命令：
windows\system\inetsrv\pws.exe /stop
      然后，您可以重新启动 PWS 手动重新从命令提示符，启动时通过使用以下命令：
windows\system\inetsrv\pws.exe /start
     一旦停止 PWS，这将释放 ActiveX DLL。 如有必要，请重新编译 DLL。 一次 PWS 的重新启动它将再次 DLL 时锁定它获取 ASP 通过实例化。

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

　　首先,服务器端的组件要有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用.而且只能在IE上有用.但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作.因此,所有的浏览器都能享用,它依靠的是服务器而不是浏览器.

　　当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到〈% %>标签之间的代码,并且执行它(也可以是〈script runat=server>〈/script>之间的代码).如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译.这里ASP就比CGI多一点速度优势,因为CGI是每一个请求都使用一个线程.这样就大大消耗了服务器的资源.

　　想不想你写的程序自己就能在IIS运行!?!现在你就行了!使用VB5(当然现在是VB6了),你就能建立Dynamic Linked Libraries (DLL文件),它能在IIS上直接运行(如果有asp文件来请求的话).

　　系统和软件的要求

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

　　我们开始吧

　　启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1).我们会将这两个名字都改掉.在改名之前,请首先确认我们拥有Microsoft Active Server Pages Object Library,它在我们的程序非常有用.从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口从中选择Microsoft Active Server Pages Object Library.

　　给工程和类命名

　　现在我们来根据自己的爱好来为project1和class1来命名吧!给它们命名也是很重要的,我们以后会用这个工程名和类名来创建这个组件的实例!后面详细介绍.

　　如何改名,我就不想多说了!我们的工程名改为Exmaple,类名为Helloword

　　怎样使用工程和类

　　现在我们有了我们自己的工程(Example1)和类名(HelloWorld).以后我们就会在ASP代码中使用它们的名字来引用这个组件.在ASP中我们就这样引用,如下:

　　Set ObjReference = Server.CreateObject("ProjectName.ClassName")

　　对于我们工程的引用就是:Set ObjReference = Server.CreateObject("Example1.HelloWorld")

　　现在我们就能用ObjReference来调用我们在组件中所创建的函数,子程序.下面我们会来写一个SayHello的子程序,我们执行它的代码如下:

〈%
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

　　为了在Helloword类中使用ASP的方法,你必须在此类中写一个OnStartPage子函数.如下:

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
End Sub

　　现在,无论什么时候用户访问一个带有本组件的ASP文件,IIS就会把ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有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

　　以后我们就能用在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的对象我们的变量现在就能像标准的ASP对象来使用了!比如,我们经常在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这个名字可以随便来取,你甚至可以就取Response.另一件我们得注意的是,我们得在我们的建立的类中,写上OnEndPage子函数,这个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".这个SayHello方法只是HelloWorld这个类中一个子函数,我们以后会在ASP中用以下的显示这个方法

〈%
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

　　SayHello的程序,很简单的!

Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub

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

　　注意,编译了此组件那么你就得先把你的PWS关掉,然后再编译此组件.否则VB就会告诉你些组件在使用中.

　　在ASP中使用我们的自己的组件.

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

　　〈HTML>〈HEAD>〈TITLE>Example 1〈/TITLE>〈/HEAD>

　　〈BODY>

〈%
Set ObjReference = Server.CreateObject("Example1.HelloWorld")
ObjReference.SayHello
%>

　　〈/BODY>〈/HTML>

　　运行后即可看到结果:

　　Hello World

　　注册组件

　　如果你想和你的朋友,邻居分享你的组件,那么你就得在你的系统上注册你的组件.我们一般使用Regsvr32.exe来注册组件.注册后你的组件会出现在Win95/Win98的windows/system目录中.下面是一个注册的例子:

　　Regsvr32.exe C:/wwwroot/Example1/Example1.dll

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

　　我们这里只是写了一个非常小的组件,你们可以写好自己的更大的组件,而且还可以用VB中的很多控件.

　　让我们用组件来扩展我们的程序的功能吧!也希望多多的看到我们中国人的组件.

                  二、XMLHTTP方法：
                  Open（ bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword ）
                  bstrMethod：   数据传送方式，即GET或POST。
                  bstrUrl：      服务网页的URL。
                  varAsync：   
                  是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。用中一般将其置为False，即异步执行。
                  bstrUser：     用户名，可省略。
                  bstrPassword：用户口令，可省略。

                  Send（ varBody ）
                  varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。

                  setRequestHeader（ bstrHeader, bstrvalue ）
                  bstrHeader：HTTP 头(header)
                  bstrvalue： HTTP 头(header)的值
                  如果Open方法定义为POST，可以定义表单方式上传：
                  xmlhttp.setRequestHeader（ "Content-Type",
                  "application/x-www-form-urlencoded"）

                  三、XMLHTTP属性：
                  onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
                  responseBody：     结果返回为无符号整数数组。
                  responseStream：    结果返回为IStream流。
                  responseText ：     结果返回为字符串。
                  responseXML：     结果返回为XML格式数据。
                  具体的使用方法
                  创建XMLHTTP对象的语句如下：

                        Set objXML = CreateObject("Msxml2.XMLHTTP") 或
                        Set objXML = CreateObject("Microsoft.XMLHTTP")
                        'Or for version 3.0 of XMLHTTP, use:
                        'Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")

                  对象创建后调用Open方法对Request对象进行初始化，语法格式为：

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

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

                  http-method：HTTP的通信方式，比如GET或是POST
                  url：接收XML数据的服务器的URL地址。通常在URL中要指明ASP或CGI程序
                  async：一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作
                  userID：用户ID，用于服务器身份验证
                  password：用户密码，用于服务器身份验证

                  XMLHTTP对象的Send方法

                  用Open方法对Request对象进行初始化后，调用Send方法发送XML数据：

                        objXML.send()

                  Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。

                  发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。

                  XMLHTTP对象中的readyState属性

                  其能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示：

                        值　　说明
                        0 　　Response对象已经创建，但XML文档上载过程尚未结束
                        1 　　XML文档已经装载完毕
                        2 　　XML文档已经装载完毕，正在处理中
                        3 　　部分XML文档已经解析
                        4 　　文档已经解析完毕，客户端可以接受返回消息

                  客户机处理响应信息，客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。

                  客户机接收响应是通过XMLHTTP对象的属性实现的：

                  responseText：将返回消息作为文本字符串；
                  responseBody：将返回消息作为HTML文档内容；
                  responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；
                  responseStream：将返回消息视为Stream对象

                  以下是一个简单的例子：类似新闻小偷

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

                  整个步骤很明显：建立、打开、发送和接受。

如下面的代码：

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

Set n=Session("node")

Response.Write n.Content

%>

还是上面的ListNode这个类，这段代码意图在一个用户会话中只保留一个ListNode的对 象。所以在用户第一次访问该网页时，会生成ListNode的一个对象，并保存在Session("node")中;后面访问该网页时，因为 Session("node")不为空了，所以不会生成一个新的对象，而是到 Session("node")中取出保存的对象。

理论上应该也会输出100，但是问题来了，ASP一直会报错：

Microsoft VBScript runtime error '800a01b6'

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

用n.Type也会出错。同样的代码翻译成PHP，运行却是可以通过的。为什么?

个人分析下来，认为Session可以保存对象是没错，只是VBScript中类型转换的机制太 弱，而且没有显式的强制类型转换供用户使用，无法将 Session("node")正确转换为ListNode类型。因为是自定义的类，我们只能在每个页面中都出现类的定义语句，这样在ASP看来，每次读 取这个页面时，ListNode类都是一个新类，所以就不认得Session中的这个类的对象了。

结论：尽量不要想到用Session或Application来存储ASP中自定义类的对象。如果 确实需要，可以考虑用COM来编写类，然后在VBScript中用：Set Session("obj") = Server.CreateObject("YourApp.YourClass")来创建一个对象，然后即可实现上面预想的功能了。