我用vb讀取一個ini的內容並應用到數據庫組件中,但是不能成功請問是哪出錯了

[zrsz]

Public DatabaseConnectionString '//定义连接字符串
Public conn '//定义连接对象
Public rs '//定义记录集
Dim rp As Response
Dim rq As Request
Dim sr As server
Dim se As Session
'初始化
Public Sub OnStartPage(mysc As ScriptingContext)
On Error GoTo errHandler
Set rp = mysc.Response
Set rq = mysc.Request
Set sr = mysc.server
Set se = mysc.Session
Dim server As String
Dim userid As String
Dim password As String
Dim databasename As String
Dim myIniFile As New cIniFile '這是讀ini 的模塊,這個是正確的
myIniFile.INIFile = IniFilePath
server = Trim(myIniFile.GetFile("DATABASE", "server"))
userid = Trim(myIniFile.GetFile("DATABASE", "uid"))
password = Trim(myIniFile.GetFile("DATABASE", "pwd"))
databasename = Trim(myIniFile.GetFile("DATABASE", "databases"))
DatabaseConnectionString = "Provider=SQLOLEDB;Data Source=" + server + ";Initial Catalog=" + databasename + ";User ID=" + userid + "; Password=" + password + ";"
Set conn = CreateObject("ADODB.Connection")
conn.Open DatabaseConnectionString
errHandler:
Debug.Print "Error " & Err.Number & " " & Err.Description
Exit Sub
End Sub
'初始化结束
'运行sql
'统计记录数目
Public Function RecordCount(Sql)
On Error GoTo errHandler
Dim CountNum, Rs1
Set Rs1 = CreateObject("ADODB.Recordset")
Rs1.Open Sql, conn, 1, 1
If Not Rs1.EOF Then
CountNum = Rs1.RecordCount
Rs1.Close
If CountNum > 0 Then
RecordCount = CountNum
Else
RecordCount = 0
End If
Else
RecordCount = 0
End If
errHandler:
Debug.Print "Error " & Err.Number & " " & Err.Description
Exit Function
End Function
'执行sql
Public Function RunSql(Sql)
On Error GoTo errHandler
conn.Execute (Sql)
RunSql = True
errHandler:
Debug.Print "Error " & Err.Number & " " & Err.Description
Exit Function
End Function
' //返回记录集
Public Function GetRecordSet(Sql)
On Error GoTo errHandler
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, conn, 3, 1
GetRecordSet = rs
errHandler:
Debug.Print "Error " & Err.Number & " " & Err.Description
Exit Function
End Function
'//Rs分页
Public Function ExportPageInfo(ByRef rs, curpage, i, LinkFile)
Dim retval, j, pageNumber, BasePage
retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
retval = retval & "本页" & i & "条/总" & rs.RecordCount & "条 "

If curpage <= 1 Then
retval = retval & "首页 前页 "
Else
retval = retval & "<a href='" & LinkFile & "Page=1'>首页</a> <a href='" & LinkFile & "Page=" & CStr(curpage - 1) & "'>前页</a> "
End If
If curpage >= rs.pagecount Then
retval = retval & "后页 末页"
Else
retval = retval & "<a href='" & LinkFile & "Page=" & CStr(curpage + 1) & "'>后页</a> <a href='" & LinkFile & "Page=" & CStr(rs.pagecount) & "'>末页</a>"
End If

retval = retval & "<br>"
BasePage = (curpage \ 10) * 10
If BasePage > 0 Then retval = retval & " <a href='" & LinkFile & "Page=" & (BasePage - 9) & "'><<</a>"
For j = 1 To 10
pageNumber = BasePage + j
If pageNumber > rs.pagecount Then Exit For
If pageNumber = CInt(curpage) Then
retval = retval & " <font color='#FF0000'>" & pageNumber & "</font>"
Else
retval = retval & " <a href='" & LinkFile & "Page=" & pageNumber & "'>" & pageNumber & "</a>"
End If
Next
If rs.pagecount > BasePage Then retval = retval & " <a href='" & LinkFile & "Page=" & (BasePage + 11) & "'>>></a>"
ExportPageInfo = retval
End Function


Public Sub OnEndPage()
Set rs = Nothing
Set conn = Nothing
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set se = Nothing
End Sub

[subzero]

看看是哪报错，报什么错