asp中COM组件中如何连接数据库的代码

 更新时间:2007年03月28日 00:00:00   作者:  
VB- 工程 -引用 - ADO 2.0 ,建一个类DB,工程名设为 SQLCONN
以下是偶程序中的部分代码,大家有空可以试试
Option Explicit
Public strError As String
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Public Property Get ErrorString() As String
ErrorString = strError
End Property

Public Function Conn_Open(strSQLServerName, strSQLDBUserName, strSQLDBPassword, strSQLDBName)
Dim strCon As String
Set Conn = New ADODB.Connection
On Error GoTo errHandler:
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
Conn.Open strCon
errHandler:
strError = "错误源:" & Err.Source & vbCrLf & "描述:" & Err.Description
Exit Function
End Function

Function GetRootID(ByVal ClassID)
Dim query
query = "select class_ID,RootID from tblCategory where class_id='" & ClassID & "'" 
Set Rs = Conn.Execute(query)
If Not (Rs.EOF And Rs.BOF) Then
GetRootID = Rs("RootID")
Else
GetRootID = ClassID
End If
Rs.Close
Set Rs = Nothing
End Function

编译后,在ASP中这样用

function GetRootID(byval id) ' 获取根类ID号
set S_DB = server.CreateObject( "SQLCONN.DB")
S_DB.Conn_Open strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName
GetRootID = S_DB.GetRootID(id)
Set S_DB=nothing
end function

相关文章

  • asp动态页面防采集的新方法

    asp动态页面防采集的新方法

    防采集的原理非常简单,首先放一段动态语句,把访问者的IP加入到数据库的一个表里,然后在页面底部加入一个JS,JS直接访问动态页面,将访问者的IP加入到数据库的另外一个表里。
    2010-04-04
  • asp 页面允许CACHE的方法

    asp 页面允许CACHE的方法

    由于IIS默认对ASP等动态页面设置的CACHE参数是private,会使得CACHE软件不会缓存ASP输出页面
    2010-11-11
  • .NET中实现高精度定时器的思路

    .NET中实现高精度定时器的思路

    一个定时器至少需要考虑三部分功能:计时、等待、触发模式。计时是进行时间检查,调整等待的时间;等待则是用来跳过指定的时间间隔。触发模式是指定时器每次Tick的时间固定还是每次定时任务时间间隔固定,本文将讨论高精度定时器实现的思路,一起看看吧
    2023-12-12
  • asp二维数组实例中的使用方法总结

    asp二维数组实例中的使用方法总结

    笔者对asp编程不是很熟悉,而且好长不用记不清了。这一次,需要保存asp的二维数组为asp文件,使用include 指令文件引用后,直接调用。使用过程中发现asp的二维数组相关资料很少,而且介绍简单模糊,现结合使用实例做个简单笔记。
    2023-06-06
  • asp截取字符串的两种应用

    asp截取字符串的两种应用

    asp截取字符串的两种应用...
    2006-08-08
  • ASP用JMail、CDO发送邮件

    ASP用JMail、CDO发送邮件

    [绿色]ASP用JMail、CDO发送邮件...
    2006-07-07
  • javascript增加干扰数据实现简单加密效果

    javascript增加干扰数据实现简单加密效果

    javascript增加额外的干扰数据似简单加密,需要的朋友可以参考下。
    2011-01-01
  • ASP基础入门第一篇(ASP技术简介)

    ASP基础入门第一篇(ASP技术简介)

    本文将以 Active Server Pages 为中心,向你全面展示制作动态商业网站的步骤和技巧并通过大量的实例,让你在不断的理论和实践之中笑傲“网络”……
    2015-10-10
  • 几个经典的ASP应用

    几个经典的ASP应用

    几个经典的ASP应用...
    2007-01-01
  • asp通过JMAIL实现通用发送函数

    asp通过JMAIL实现通用发送函数

    asp通过JMAIL实现通用发送函数...
    2007-08-08

最新评论