16,554
社区成员
发帖
与我相关
我的任务
分享
'这样引用呢?
Declare Function 函数名 Lib "SMASWebCtrl.dll" (参数) As 类型
Dim adoConnection As New ADODB.Connection
Dim objGenFn As Object
Dim strConnStr As Object
Dim DateStart As Date
Dim DateEnd As Date
Dim EmpNo As String
Dim objAttn As Object
Dim adoRecordset As New ADODB.Recordset
'Dim objGenFn As New SMASWebCtrl.GeneralFuctionClass
objGenFn = Server.CreateObject("SMASWebCtrl.GeneralFuctionClass")
strConnStr = objGenFn.GetConnectionString
adoConnection = Server.CreateObject("ADODB.Connection")
adoConnection.CursorLocation = 3
adoConnection.ConnectionString = strConnStr
adoConnection.Open()
'Dim objAttn As New SMASWebCtrl.AttendanceClass
objAttn = Server.CreateObject("SMASWebCtrl.AttendanceClass")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
DateStart = DateSerial(2002, 11, 1) 'Date From
DateEnd = DateSerial(2002, 11, 30) 'Date To
EmpNo = "1203002" 'Employee No
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''