整理日期：2003年5月22日
店铺地址：https://shop66907778.taobao.com/
参考链接：https://blog.csdn.net/weixin_41486034/article/details/106240240
以下是这个ORACLE数据库组件的接口说明文档，并提供了源码下载，请到上面分享的连接下载.
JoraPub组件说明文档
1、描述
JOraPub是指应用于短信SP而产生的；仿ADO的数据库操作组件，实现了数据库连接串的保密性，并且集成了复杂逻辑和操作BLOB字段的COM组件。它分为两个接口： 1、JoraPub.JConnection
2、JOraPub.IBlob
接口1是用于连接及操作广交会数据库。它包含一个连接串密码文件（login.id），并且该文件的路径暂时定为：（c:\login.id）。可用CECFEnDe（数据库密码管理软件）修改该文件。
接口2是用于读写BLOB字段。
注意：设计环境是Oracle 8.16 。
/2003-05-22/
增加接口IsmSpliter 用于拆分短信。
2、接口说明(以下Object是该对象的接口实例)
2.1、 JOraPub.JConnection
2.1.1、属性
(1) Object.RecordSet
说明：该属性返回一个记录集。并且要调用Object.Open(…)方法时才有效。
事例：Set Rs=Object.RecordSet
(2) Object. Errors
说明：该属性返回一个ADO错误集。
事例：Response.Write Object.Errors
2.1.2、方法
(1) Object.RollbackTrans ()
说明：用于数据库回滚一个事务。
事例：Set conn=server.createobject(JOraPub.JConnection)
conn.connect()
if( … ) //数据库操作失败
conn.RollbackTrans()
(2) Object.CommitTrans ()
说明：用于提交一个数据库事务，和BeginTrans ()成对出现
事例：Set conn=server.createobject(JOraPub.JConnection)
conn.connect()
conn.BeginTrans ()
{
//数据库操作
….
}
conn.CommitTrans ()
(3) Object.Cancel ()
说明：参见ADO中的Connection接口的Cancel()方法。
(4) Object.BeginTrans ()
说明：用于开始一个数据库事务和CommitTrans ()成对出现
事例：Set conn=server.createobject(JOraPub.JConnection)
conn.connect()
conn.BeginTrans ()
{
//数据库操作
….
}
conn.CommitTrans ()
(5) Object.Execute (varSql)
说明：用于执行一个SQL语句，必须调用Connect()方法之后才有效。
注：同ADO中的Connection接口的Execute()一样可返回一个记录集
事例：Set conn=server.createobject(JOraPub.JConnection)
conn.connect()
conn.Execute(“insert into TabName(f1,f2),values(v1
,v2)”)或
Set Rs=conn.Execute(“select * from TabName”)
(6) Object.Connect (Option)
说明：用于连接一个数据库，和Close ()方法成对出现。其中Option参数用于指定不同数据源，默认为0 ；Option=0时为Oracle;Option=1时为Foxpro。
注：这里隐含的数据源连接串已经加密到一个文件（login.id）里,可通过数据库密码管理软件CECFEnDe来修改。
事例：Set conn=server.createobject(JOraPub.JConnection)
conn.connect()
{
//操作数据库
…
}
conn.Close()
(7) Object.Error ()
说明：这是JORAPUB自己的出错信息，它可跟在每个方法后面，得出方法的出错提示。
事例：Set conn=server.createobject(JOraPub.JConnection)
conn.connect()
Response.Write conn.Error()
(8) Object.Close ()
说明：关闭一个数据库连接，和connect()方法成对出现。
事例：参看(6)
(9) Object.Open (bpSql,CursorType,LockType,Options)
说明：打开一个记录集，必须先调用Connect()方法连接到数据库。
参数列表同ADO中RecordSet接口的Open(…)含义一样。
事例：Set conn=server.createobject(JOraPub.JConnection)
conn.connect()
conn.Open(“select * from TabName”)
2.2、JORAPUB.IBlob
2.2.1、属性
（1） Object. Server ：服务名
（2） Object. TableName ：表名
（3） Object. UID ：用户ID
（4） Object. PWD ：密码
（5） Object. BLOB ：BLOB字段名
（6） Object.BLOBFileName ：BLOB对应的文件名
2.3.2、方法
（1） Object.Open()
说明：打开数据库
返回： 0 ----------失败
-1 ----------成功
事例：
set obj=server.CreateObject(“JOraPub.COBlob”)
if (!obj.Open()) then
Response.write(“打开错误！”)
Endif
（2） Object.Write(vPKey, vFilePath ,vFileName)
说明：将文件写入blob字段
参数：vPKey ----------唯一标示字段值
varFilePath --要写入blob字段的文件路径名
varFileName –blob字段对应的文件名
返回： 0 ----------失败
-1 ----------成功
事例：
set obj=server.CreateObject(“JOraPub.COBlob”)
obj.Open()
obj.Write(362, “e:\infile.doc”，“filename.doc”)
（3） Object.Read(vPKey, varFilePath, varFileName)
说明：将blob字段读入到文件
参数：index ----------唯一标示字段值
varFilePath --要读出blob字段的文件路径
varFileName –blob字段对应的文件名
返回： 0 ----------失败
-1 ----------成功
事例：
set obj=server.CreateObject(“JOraPub.COBlob”)
obj.Open()
obj.Read(362, “e:\outfile.doc”,”filename.doc”)
2.3 JORAPUB. IsmSpliter
2.3.1 属性
Object.SMContent（int nIndex）：取消息拆分后的消息内容。
2.3.2 方法
（1） Object.SplitSM(strSMContent)
说明：拆分大于140字节的短信
参数strSMContent ------短信内容
返回：拆分后的消息条数。
VB事例：
Dim sm As New JORAPUBLib.ISmSpliter
icnt = sm.SplitSM(“AL;DFALDJLADJFDK打发地方哀怜拉法律发。。。。。”)
For i = 0 To icnt - 1
Print sm.SMContent(i)
Next
Set ms = Nothing
三、总结
功能有待完善