BlogJava-色彩空间-文章分类-ASP/Visual Basic

VB6 与 AS2之间的数据通讯,AS3类同

aiaiwoo — Tue, 19 Apr 2011 07:55:00 GMT

2008年的时候我在百度知道上已经回答过，你亦说你看过这帖了，但你说还不明白那我就详细地说一下吧
http://zhidao.baidu.com/question/43875593.html?si=1

flash发送数据到容器 javascript(面向网页)中一般推荐使用 flash.external.ExternalInterface.call

但在VB(或其它的语言中)，一般建议使用fscommand(command, args)这种方式来通讯，

在VB端（其它就是基于shockwaveFlash控件的内部事件其它VC Delphi类同）

有一个这样的针对swf 控件的事件处理子过程

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
'具体看看形参就知道如何跟  flash中的 fscommand函数格式对应了
Select Case command
      Case "play"

      Case "stop"

End Select
End Sub

flash -> VB的通讯就像上面这样
通过 select case 来判断分支多个command的操作

而重要的是 VB -> flash方面的使用

一般的SetVariable这种方法  或者使用 flashVars来传入参数，都是基于很被动的方式动作，即设置了值，如果flash方面不主动检测的话，就不会引发其它相关的动作

所以一般推荐使用基于事件处理的  callFunction方式

swf控件.callFunction  xml格式数据

xml格式数据的构成是
数据

要发送的数据需要使用 <数据类型> 包裹
相关的类型说明详见 http://www.cnblogs.com/maconel/archive/2010/09/29/1838743.html

但一般使用默认的String就足够了包括数值数据也可以用它发送

这是最基本的数据格式  即可以这样写

swf控件.callFunction  数据
'数据  这里设置要发送的字符数据

而flash方面要写的as代码

as2:

flash.external.ExternalInterface.addCallback("flash里面的侦听名",this, funcCall);
function funcCall(str1:String):Void{
   //这里的str1对应第一个参数  就是数据
//如果有多个参数依次在这里形参声明
//传入的数据可以在flash里任意处理
}

as3:
//as2和as3中的 ExternalInterface对象的  addCallback函数原型有所不同这里不用添加this指向
flash.external.ExternalInterface.addCallback("flash里面的侦听名", funcCall);
function funcCall(str1:String):void{
   //这里的str1对应第一个参数  就是数据
//如果有多个参数依次在这里形参声明
}

这里为了方便  整理出一个vb端的发送代码直接调用封装好的方法就可以发送数据

复制内容到剪贴板

代码:

Private Sub Form_Load()

ShockwaveFlash1.Movie = App.Path & "\as2.swf"

   '下面这是必须的格式   使用 getStr函数为传入的字符串两边加上

   'getCallFuncStr函数为已经格式好的 参数对添加上头尾的xml格式声明

  'CWScallFunc  重构调用swf控件的方法 派发数据

    Dim str As String

    str = getStr("strUsername") & getStr("strUserid") '这里传入两个参数

  CWScallFunc ShockwaveFlash1, getCallFuncStr("UserData", str)

   

End Sub

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)

    Select Case command

        Case "trace"

            MsgBox args

    End Select

End Sub

Private Function getStr$(v$)

    '时间关系 这里只设置默认的string 如有更多数据类型需要 可参看http://www.cnblogs.com/maconel/archive/2010/09/29/1838743.html

    

    '自行扩展

    getStr = IIf(v <> "", "" & v & "", "")

End Function

Private Function getCallFuncStr$(FuncName$, Optional v$ = "")

'=======此参数  FuncName$需与flash端侦听名同步

    Dim strXmlop, strXmled As String

    strXmlop = "" '定义XML开始语句 name 后定义调用函数名

    strXmled = ""

   getCallFuncStr = strXmlop & v & strXmled

End Function

Private Sub CWScallFunc(obj As ShockwaveFlash, v$)

    '重构

    obj.CallFunction v

    '如果报 callfunction IShockwaveFlash 失败 基本就没救了 flash10的问题

End Sub

[ 本帖最后由 HSZZLZL 于 2011-1-11 11:43 编辑 ]

aiaiwoo 2011-04-19 15:55 发表评论

VB6中如何使用C#开发的WebService进行开发

aiaiwoo — Thu, 04 Nov 2010 08:46:00 GMT

VB6中如何使用C#开发的WebService进行开发

伍华聪(http://wuhuacong.com.cn/)

1. 问题描述

在项目开发过程中，我们需要集成已有的权限管理系统，作为它本身的权限控制的模块。但是已有的权限管理系统是采用C#开发的，提供了WebService的权限访问接口，而开发项目是使用VB6开发的；两者可以互相沟通么？如果可以，如何才能实行在VB6中获取WebService中的信息呢？

2. 解决方法

2.1. 使用Microsoft Office XP Web Services Toolkit 2.0创建代理类

Microsoft Office XP Web Services Toolkit 2.0（下载地址：http://www.microsoft.com/downloads/details.aspx?familyid=4922060F-002A-4F5B-AF74-978F2CD6C798&displaylang=en ），该工具提供给开发者在VBA中快速访问和使用WebService的功能，使用几乎和在VS.NET中使用WebServcie一样方便，真是很爽。

Office XP Web Services Toolkit 2.0安装界面

安装完Office XP Web Services Toolkit 2.0之后，打开你的Office2003套件中任一个，按快捷键（Alt + F11）或者菜单【工具】【宏】【VisualBasic编辑器】菜单进入，如下所示：

进入VBA的Office工具菜单

在弹出的VBA程序窗口中，选择【工具】【Web引用】的菜单项，如下所示。

在弹出的对话框中选择“Web服务URL”项，输入WebService的URL，如：http://localhost/HWSecurity/WebServices/Security.asmx ，点击搜索，则在对话框的右上角列出WebService的方法，选择所有的方法，单击按钮“添加”即可在VBA代码中加入了WebService的代理类等相应的代码，如下所示。

VBA中添加WebService引用的对话框

生成的代码如下所示，其中包含了WebService对应的代理类和相关的实体类，还有一个工厂类。

WebService生成的VBA代理类、实体类等代码文件

2.2. 如何使用VBA生成的代理类和实体类等

在代码文件上使用右键菜单导出生成的代码文件，加入你的VB6工程文件中，如下所示。

导出VBA代码文件

在VB6工程的引用中加入MSSOAP30.DLL和MSXML3.DLL这两个引用的DLL（请先安装SOAP Toolkit 3.0，地址：http://www.microsoft.com/downloads/details.aspx?familyid=c943c0dd-ceec-4088-9753-86f052ec8450&displaylang=en ），如图所示：

在代码中使用WebService的代理类的时候，会有智能提示的，使用起来非常方便，如下所示，足以看到在代码使用WebService代理类获取数据是多么的方便。

使用WebService代理类获取返回字符串方法和实体类数组代码示例如下所示。

aiaiwoo 2010-11-04 16:46 发表评论

ASP与ActiveX控件交互实战

aiaiwoo — Tue, 02 Nov 2010 01:11:00 GMT

ActiveX控件运行在客户端。我们可以获得客户端的一些信息，如IC卡的信息,客户端的验证等等。但是ActiveX控件也有许多缺点：客户端的部署很困难，如客户端不能正确下载，下载了以后不能正确执行，下载的时候需要设置IE的安全级别等等。

更多的时候，我都在使用COM组件来扩展ASP的功能。准确地说，是服务端运行的Activex Dll组件。使用Server.CreateObject(“工程名.类名”)即可完成对组件的调用。这种方式问题很少,只要组件中以PUBLIC对外暴露方法既可。但是，有时候我们必须使用ACTIVEX 控件(*.OCX)嵌入到网页中执行来获取客户端的信息。这就有了许许多多的一些问题。

这是我们需要解决的N个问题(从简单到难)

1．如何从服务端获取数据，传递到ActiveX控件中。

1）初始化时使用参数绑定

2）运行时得到数据

2． ActiveX控件得到客户端的信息，如何传递到服务端。

3．安全性

1）数字签名

2）使用IOBJSAFE接口

好了，我们开始实例学习。

这个功能演示了如何制作一个简单的控件,并嵌入网页中执行。工作环境:WINXP+VB6+IE6

我的IE安全设置为安全级别-中。所有的Activex选项设为启用。

打开vb6,新建ActiveX控件工程。

工程名:fOcx，用户控件名:UC1

为了方便，我们使用ActiveX控件接口向导…,菜单->外接程序->外接程序管理器->VB 6 ActiveX控件接口向导。确定即可。

打开ActiveX控件接口向导，下一步，对于可用名称和选定名称我们默认下一步，新建自定义成员，GetInfo类型:属性，下一步，共有方法中选择我们刚才添加的GetInfo,映射到控件选择TxtInfo,成员选择Text,下一步直到完成。代码窗口中会生成一些我们不需要的，删除，剩下的代码如下：

Option Explicit

'注意！不要删除或修改下列被注释的行！

'MappingInfo=txtinfo,txtinfo,-1,Text

Public Property Get GetInfo() As String

GetInfo = txtinfo.Text

End Property

Public Property Let GetInfo(ByVal New_GetInfo As String)

txtinfo.Text() = New_GetInfo

PropertyChanged "GetInfo"

End Property

'从存贮器中加载属性值

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

txtinfo.Text = PropBag.ReadProperty("GetInfo", "Text1")

End Sub

'将属性值写到存储器

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("GetInfo", txtinfo.Text, "Text1")

End Sub

OK,好了，我们编译成fOcx.ocx文件，然后F5直接运行,VB会打开一个测试页。如下：

E:Program FilesMicrosoft Visual StudioVB98UC1.html

同时，打开你的IE浏览器,看到了吧，你做的控件出现在了这个测试页中。

你可以打开测试页，可以看到ClsID,比如：890D1028-298B-45CF-9A64-6ED5A5BACBC9

因为VB编译的时候已经完成注册.所以无法模拟客户端没有安装该控件时出现的提示. 我们继续

使用regsvr32 F:csdn_vbcom+_activeXsample1fOcx.ocx –u卸载

或者打开注册表,在HKEY_CLASSES_ROOTCLSID下面找到 890D1028-298B-45CF-9A64-6ED5A5BACBC9项,删除之,当然这种方式还有项存在而没有删除干净.

此时浏览http://yang/uc1.htm,由于IE中ActiveX设置为启动，所以，控件会显示出来。

下载后的ocx到哪里去了

打开该目录(可能有所不同)E:WINDOWS.0Downloaded Program Files,看到了吧,fOcx.UC1文件在这个目录下.

原理:客户端下载该控件后,自动注册,然后放在上述这个目录下.这时我们可以打开注册表看看CLSID,呵呵,还是以前的那个.

我们可以右键看看fOcx.UC1的属性,看看相关内容,这里显示了该OCX所依赖的所有文件.所以,你的OCX尽量减少使用高级控件或者第三方的控件,否则,下载就有些问题了.

如果IE中关于ActiveX的选项设为禁用,那么浏览器就会出现对话框”当前安全设置禁止运行该页中的ActiveX控件.因此可能无法正确显示该页”，这个就需要其他的方式来处理了。

一般用户默认的都是禁用ActiveX选项,所以让用户自己设置不太合适。
我们来看看如何从服务端获取数据，传递到ActiveX控件中。

1）初始化时使用参数绑定

2）运行时得到数据

打开vb6,新建ActiveX控件工程。

工程名:fOcx，用户控件名:UC2

为了方便，我们使用ActiveX控件接口向导…,菜单->外接程序->外接程序管理器->VB 6 ActiveX控件接口向导。确定即可。

打开ActiveX控件接口向导，下一步，对于可用名称和选定名称我们默认下一步，新建自定义成员，GetInfo类型:属性，下一步，共有方法中选择我们刚才添加的GetInfo,映射到控件选择TxtInfo,成员选择Text,下一步直到完成。代码窗口中会生成一些我们不需要的，删除，

'注意！不要删除或修改下列被注释的行！

'MappingInfo=txtinfo,txtinfo,-1,Text

Public Property Get GetInfo() As String

GetInfo = txtinfo.Text

End Property

Public Property Let GetInfo(ByVal New_GetInfo As String)

txtinfo.Text() = New_GetInfo

PropertyChanged "GetInfo"

End Property

Private Sub Command1_Click()

Label2.Caption = GetInfo()

End Sub

'从存贮器中加载属性值

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

txtinfo.Text = PropBag.ReadProperty("GetInfo", "Text1")

End Sub

'将属性值写到存储器

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("GetInfo", txtinfo.Text, "Text1")

End Sub

编译成OCX控件.运行生成的测试页.Text中默认的是Text1 如何将服务器端的数据传递给OCX呢? 使用Microsoft ActiveX Control Pad这个工具,可以很容易找到. 直接用这个工具把测试页打开.

菜单->Edit->Edit Activex Control,呵呵,打开了一个可视化的界面.

看到了吧,有一个属性框,我们可以进行设置，设置完成以后的代码如下：

增加了ID,ID就是我们用来访问的标志.还有我们的属性GetInfo,我们也设定初始值了好了,运行. Text中就出现了我们设定的值”这是ocx得到的客户端读卡器的信息”

我们把上边的页面改成asp的,看代码:

OK,运行即可

我们看看第二种情况

运行时得到数据

运行后,点击按钮即可看到效果.
问题提出:

ActiveX控件得到客户端的信息，如何传递到服务端??? 一种方法就是得到值后,使用Get,Post方式提交,这可能也是最常用的.

有没有更好一些的方法呢? 能不能在控件中直接向服务器发出请求而得到数据呢?

打开vb6,新建ActiveX控件工程。

工程名:fOcx，用户控件名:UC3

添加1个按钮，2个文本框

代码如下：

Option Explicit

Private Sub Command1_Click()

'注意字符串和数字的写法有些区别

'使用AsyncRead通过HTTP发送你的请求

UserControl.AsyncRead "http://yang/xml/activex.asp?s1=" &am ... nbsp;& "", vbAsyncTypeByteArray

UserControl.AsyncRead "http://yang/xml/activex.asp?s1=" & Text1.Text, vbAsyncTypeByteArray

End Sub

'AsyncReadComplete 事件用来从asp页面接受和分析。

'当容器刚完成一个异步读取请求时 , 发生该事件?

'AsyncProp 中的数值指定了已完成的某个异步数据读取请求,

'它与前一个 AsyncRead 方法调用中的数据匹配。

'AsyncReadComplete 事件过程中应包含错误处理代码，因为错误状态会终止下载。

'如果发生了这种情况，当访问 AsyncProperty 对象的 Value 属性时将会发生错误。

Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)

On Error GoTo errhandle

Text2.Text = ByteArrayToString(AsyncProp.Value)

errhandle:

Err.Raise 601, "异步读取发生了错误", Err.Description

End Sub

'将字节数组转换成字符串

Public Function ByteArrayToString(bytArray() As Byte) As String

Dim sAns As String

sAns = StrConv(bytArray, vbUnicode)

ByteArrayToString = sAns

End Function

我们来看看http://yang/xml/activex.asp这个文件

很简单，使用request接受参数,response返回。

这个例子可以进一步处理，将服务器名以属性的方式传递给控件。

比如：

然后在程序中得到，就可以使用了，如： UserControl.AsyncRead "http://192.168.0.1/xml/activex.asp?s1=" ... t & "", vbAsyncTypeByteArray

然后在程序中得到就可以灵活处理了。

aiaiwoo 2010-11-02 09:11 发表评论

ASP调用DLL的方法

aiaiwoo — Mon, 01 Nov 2010 08:43:00 GMT

ASP调用注册DLL:

regsvr32 d:\my.dll
set obj=set obj=Server.CreateObject("my.aspdll")

ASP调用未注册DLL:

<% @ language="vbscript" %>

set obj=set obj=Server.CreateObject("my.aspdll")

不注册调用的DLL必须是物理路径.

aiaiwoo 2010-11-01 16:43 发表评论

ASP封装成DLL一些注意事项

aiaiwoo — Mon, 01 Nov 2010 08:42:00 GMT

ASP封装成DLL一些注意事项

【来源：自由呼吸作者：佚名更新时间：2005-08-14 | 字体：大中小】

虽然ASP.NET代码封装方案很好，完全可以取代ASP，但是用惯了ASP，而且对一些小项目也不想动用到.NET这个傍然大物，因为电脑性能跟不上，所以还是存在ASP封装的种种问题，经过多次试验，对转换成DLL的过程写下一些心得：

1、代码和DLL的区别

DLL代码前要加上以下一段，目的是引用ASP五大对象：
Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server

Public Sub OnStartPage(PassedScriptContext As ScriptingContext)
    Set Context = PassedScriptContext 'Asp运行环境对象
   Set Application = Context.Application 'Asp 五大对象
   Set Request = Context.Request
    Set Response = Context.Response
    Set Server = Context.Server
    Set Session = Context.Session
End Sub

2、部件引用

要引用MicroSoft Active Server Pages Objects Library
如果DLL里也封装了数据库连接(Connections)和数据集(RecordSet)，DLL工程可以使用原来ASP里的数据库写法，也可以通过以下引用部件的方法实现：MicroSoft ActiveX Data Objects 2.7 Library
同时把原ASP程序里的Server.CreateObject("ADODB.CONNECTION")改成下面样子，加在代码头部
Public conn As New ADODB.connection
Public rs As New ADODB.Recordset

另外：程序结束时要记得关闭连接，免得占用系统资源，影响服务器运行.
   Set rs = Nothing
   rs.Close
   Set conn = Nothing '将连接设为空，释放它所占用的资源。
conn Close '将连接关闭(无释放连接所占用的资源)

3、DLL调试
    按常规办法，经常要操作重启IIS,很烦，最简单的办法，写一个BAT命令保存成sss.bat，放在桌面上，每次修改完DLL之前运行一次，然后在VB6里生成DLL,就可以运行程序了，不需要再注册一次DLL,为什么？我也不清楚：
    regsvr32 E:VBvbdllmy.dll -u
    net stop "world wide web publishing service"
    net Start "world wide web publishing service"

4、改变ASP脚本编写习惯
一般我会先写一个普通的ASP程序，运行成功需交付客户时才转换成DLL,这时，要注意ASP代码编写时把程序代码和HTML分成明显的两部分，不要混在一起乱糟糟的转换时要花很多精力去修改和整理。

5、其它。。。（想到再写）

---★ 本文转摘自『IT学习者』→ http://www.itlearner.com/article/2087

aiaiwoo 2010-11-01 16:42 发表评论

在Web页面上直接打开、编辑、创建word和EXCEL文件

aiaiwoo — Mon, 01 Nov 2010 08:40:00 GMT

在Web页面上直接打开、编辑、创建word和EXCEL文件

作者：佚名　日期：2007年08月27日　来源：不详浏览：58 次
--------------------------------------------------------------------------------

核心提示：友询问如何在Web页面上做到像SharePoint中的效果一样，能直接激活客户端的Word来打开.doc文件，而不是类似直接点击.doc文档链接时Word在IE中被打开那样。想想这个问题应该很多人都会感兴趣，所以干脆写一篇blog来大致描述一下方法。装Office2003以后，有一个ActiveX控件被安装到了系统中，这个控件位于“Program Files\\Microsoft&nbs
　
-

友询问如何在Web页面上做到像SharePoint中的效果一样，能直接激活客户端的Word来打开.doc文件，而不是类似直接点击.doc文档链接时Word在IE中被打开那样。想想这个问题应该很多人都会感兴趣，所以干脆写一篇blog来大致描述一下方法。
装Office2003以后，有一个ActiveX控件被安装到了系统中，这个控件位于“Program Files\\Microsoft Office\\OFFICE11\\owssupp.dll”。通过这个控件，客户端页面上的javascript就可以激活本地的Office软件，来实现打开、编辑Office文档。（另，Office XP应该就已经包含这个ActiveX控件了。）
，用Script创建一个本地的对象：
enDocObj = new ActiveXObject(\"SharePoint.OpenDocuments.2\"); // 为了兼容Office XP，可以创建“SharePoint.OpenDocuments.1”
，调用openDocObj的相应的方法。比如打开服务器上的一个Office文档：
openDocObj.ViewDocument(\"http://www.abc.com/documents/sample.doc\");
openDocObj对象会根据参数中不同的Office文档类型（.doc、.xls、.ppt）来打开不同的程序（Word、Excel、PowerPoint）。ViewDocument()方法还有一个重载签名，可以让我们手工指定激活哪个程序来打开文档：
openDocObj.ViewDocument(\"http://www.abc.com/documents/sample.doc\", 要激活的程序的ProgID);
那么要打开Office程序在线编辑文件又如何？
enDocObj.EditDocument(\"http://www.abc.com/documents/sample.doc\");
就可以直接激活Word，在Word里面编辑文档，然后直接点击Word里面的保存功能，就可以将文件保存会服务器上了。注意：为了让Word能将编辑后的文档直接保存会服务器，访问Web站点的当前上下文的Windows Identity必须对服务器的相应目录（即“http://www.abc.com/documents”这个虚拟目录所对应的服务器上的物理路径）有相应的写权限，否则保存动作会失败。编辑完成后，EditDocument()会返回一个bool值，来反映编辑操作是否成功。
我们还可以通过打开服务器上的一个文档模版，来创建一个新的文档：
openDocObj.CreateNewDocument(\"http://www.abc.com/documents/sampleTemplate.dot\", \"http://www.abc.com/documents/\");
就可以使用“http://www.abc.com/documents/sampleTemplate.dot”这个模版来创建一个新的文档，默认新文档的保存地点是“http://www.abc.com/documents/”。创建新文档时使用的程序取决于模版文件的类型（比如.dot模版会对应Word）。新文档的保存同样需要注意权限问题。CreateNewDocument()方法同样会返回一个bool值来反映操作是否成功。CreateNewDocument()方法的第一个参数，除了可以使用一个模版的地址外，还可以直接指定为希望用来创建新文档的客户端程序的ProgID。

aiaiwoo 2010-11-01 16:40 发表评论

如何从客户端 VBScript 自动化 Excel

aiaiwoo — Mon, 01 Nov 2010 06:46:00 GMT

示例代码

在任意文本编辑器中创建下面的 HTML 文件并将该文件保存为 c:\excel.htm。

启动 Internet Explorer，在地址栏中键入 c:\excel.htm，然后按 Enter。

结果：在 Excel 中出现一个新的工作簿。新工作簿中的 Sheet1 包含数据并创建了一个新图表。新图表是旋转形状。

注意：如果在单击网页上的按钮时收到错误“ActiveX component can't create object 'createobject'”，请按照本文“参考”一节列出的文章中的说明检查您的安全设置。

aiaiwoo 2010-11-01 14:46 发表评论

asp操作Excel类

aiaiwoo — Mon, 01 Nov 2010 01:16:00 GMT

摘要: Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ --><% '******************************************************************* '使用说明 'Dim a ... 阅读全文

aiaiwoo 2010-11-01 09:16 发表评论

asp调用dll及asp封装dll实例

aiaiwoo — Fri, 29 Oct 2010 01:27:00 GMT

asp调用dll及asp封装dll实例

写过一段时间的.net之后,再回过头来看asp,其实asp也同样可以像.net那样把代码进行封装的,感觉其实很爽的.但.net就是.net优势还是很明显的了,所以如果有些朋友想更深入的学习的话,还是选择.net.
不过今天还是把asp封装的问题写一写,我想网上也有很多这方面的文章,但在这里还是给大家写一个比较简单和实用的出来,便于大家上手,可能有些朋友特别是一些刚学这方面的朋友有所帮助,当然首页要准备的最重要的是vb工具了我用vb6.0

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

首先在vb中建一个类文件:工程名:exp

代码:

Dim MyApplication As Application
Dim MyRequest As Request
Dim MyResponse As Response
Dim MyServer As Server
Dim MySession As Session

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

Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub

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

Public Sub google()
MyResponse.Write ("ssssssssssss")
End Sub

说明:ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有ASP的对象

当然这里还有一步就是生成exp.dll文件了,生成之后就可以用 regsvr32 d:/vb-asp/exp.dll 注册了.(很生要)

asp页面:

<%@ Language=VBScript%>

Example 1

<%
dim Obj
Set Obj = Server.CreateObject("exp.aspdll")
Obj.hellow
response.write("
")
Obj.google
%>

说明:

Set Obj = Server.CreateObject("exp.aspdll") 其中,exp为工程名,aspdll为类名.Set Obj = Server.CreateObject("工程名.类名称")

测试通过.

===========================================================

对于更复杂的运用,大家可以通过这个实例向外扩展就可以了.

如:

Public Sub connstr2()
Set conn = MyServer.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyServer.MapPath("codata.mdb")

Set rs = conn.Execute("select * from news")
Do While Not rs.EOF
MyResponse.Write (rs("news_title") & "
")
rs.MoveNext
Loop
rs.Close
Set conn = Nothing
End Sub

这个是用数据库连接的代码封装,当然这里要添加ADO引用的

文章出处：飞诺网(www.firnow.com):http://dev.firnow.com/course/4_webprogram/asp/aso_js/20071226/94440_2.html

aiaiwoo 2010-10-29 09:27 发表评论

ASP操作Excel技术总结

aiaiwoo — Fri, 29 Oct 2010 01:19:00 GMT

ASP操作Excel技术总结
www.firnow.com 时间： 2007-10-21 作者：佚名编辑：本站点击： 135 [ 评论 ]
-
-
综合资源电子书社区 ASP操作Excel技术总结

目录
一、　　环境配置
二、　　ASP对Excel的基本操作
三、　　ASP操作Excel生成数据表
四、　　ASP操作Excel生成Chart图
五、　　服务器端Excel文件浏览、下载、删除方案
六、　　附录

正文
一、　　环境配置
服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。
服务器端环境配置还有两个偶然的发现是：
1．　　笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出现问题，卸载WPS2002后，错误消失。
2．　　笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。
服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择Microsoft Excel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。
客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本通用的好象都可以。

二、　　ASP对Excel的基本操作
1、　　建立Excel对象
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false　　　　不显示警告
objExcelApp.Application.Visible = false　　　　不显示界面
2、　　新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、　　读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、　　另存Excel文件
objExcelBook.SaveAs strAddr & "\Temp\Table.xls"
5、　　保存Excel文件
objExcelBook.Save　　　　（笔者测试时保存成功，页面报错。）
6、　　退出Excel操作
objExcelApp.Quit　　一定要退出
set objExcelApp = Nothing

三、　　ASP操作Excel生成数据表
1、　　在一个范围内插入数据
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、　　在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、　　选中一个范围
4、　　单元格左边画粗线条
5、　　单元格右边画粗线条
6、　　单元格上边画粗线条
7、　　单元格下边画粗线条
8、　　单元格设定背景色
9、　　合并单元格
10、　　插入行
11、　　插入列

四、　　ASP操作Excel生成Chart图
1、　　创建Chart图
objExcelApp.Charts.Add
2、　　设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注：二维折线图，4；二维饼图，5；二维柱形图，51
3、　　设定Chart图标题
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、　　通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、　　直接设定图形数据（推荐）
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""
objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"
6、　　绑定Chart图
objExcelApp.ActiveChart.Location 1
7、　　显示数据表
objExcelApp.ActiveChart.HasDataTable = True
8、　　显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、　　服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以实现，建议用客户端的方法，原因是给服务器更多的时间生成Excel文件。
下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件，由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限，考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。
删除方案由三部分组成：
A：　　同一用户生成的Excel文件用同一个文件名，文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。
B：　　在Global.asa文件中设置Session_onEnd事件激发时，删除这个用户的Excel暂存文件。
C：　　在Global.asa文件中设置Application_onStart事件激发时，删除暂存目录下的所有文件。
注：建议目录结构 \Src 代码目录 \Templet 模板目录 \Temp 暂存目录

六、　　附录
出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况，因为它会不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完不留下死进程。

以上摘自 http://blog.sendsong.cn

文章出处：飞诺网(www.firnow.com):http://dev.firnow.com/course/4_webprogram/asp/aso_js/20071021/78720.html

aiaiwoo 2010-10-29 09:19 发表评论