您的位置：首页 → 网页设计 → ASP实例 → 关于客户端用ASP参生报表（高级篇）

关于客户端用ASP参生报表（高级篇）

时间：2004/11/7 2:58:00来源：本站整理作者：蓝点我要评论(0)

上回曾贴一篇较简单的用ASP＋RDS客户端参生报表

此回贴一篇较复杂的用ASP＋RDS＋组件客户端参生报表

错误说明：(若提示ActiveX 元件无法参生 RDS.DataSpace)

IE需设置安全选项

操作：菜单工具->INTERNET选项->安全性->自定义

设置：起始但ActiveX不标示为安全->开启

原理说明：

客户端直接用RDS产生RecordSet安全性不够，使用了

middle-tier Automation components 后可大大增加安全性！

请看下文：

编写注册元件：

ActiveX Dll project:iacrdsobj.vbp

Class Module name:RsOp



Public Function ReturnRs(strDB As Variant, strSQL As Variant) As ADODB.Recordset

'Returns an ADODB recordset.

On Error GoTo ehGetRecordset

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strConnect As String

strConnect = "Provider=SQLOLEDB;Server=server name ;uid=sa;pwd=; Database=" & strDB & ";"

cn.Open strConnect

'These are not listed in the typelib.

rs.CursorLocation = adUseClient

'Using the Unspecified parameters, an ADO/R recordset is returned.

rs.Open strSQL, cn, adOpenUnspecified, adLockUnspecified, adCmdUnspecified

Set ReturnRs = rs

Exit Function

ehGetRecordset:

Err.Raise Err.Number, Err.Source, Err.Description

End Function

然后 MAKE iacrdsobj.dll

若有错，请设置VB菜单PROJECT－REFREENCE

增加 MicroSoft ActiveX Data Object 2.6 Library(当然数字要高一点)



然后 注册iacrdsobj.dll到数据库server(为安全，最好更改数据库uid最好不为sa)！

好，接下来看asp

long1.asp

client use rds produce excel report

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论