怎么提升小米信用分:Public Function OpenConnection() 这种MS SQL连接经常出错

以下这个种连接法老是出错,一样的程序我本机2003上调试正常传到服务器上就出错了,我知道是环境的问题,可我找不出问题在那里,我的服务器为了安全关闭了好多服务只剩下APS正常运行,MS SQL2000没有问题还有一个网站的数据库正常使用着.以下是这个程序是风讯的3.1
<%
'————————————————————————————————
'功能说明：DataBaseClass类是实现数据库连接的类，里面留有数据库连接字符串接口
'包括模块：无，一般都是被其他模块包括
'调用方法：1、如果使用原有数据库连接，则不用更改数据库连接字符串ConnStr
' 具体操作为：Set DBC=New DataBaseClass
' DBC.ConnStr="其他连接字符串"
' 2、方法使用：Set Conn=DBC.OpenConnection()得到一个连接对象
'————————————————————————————————
Const IsSqlDataBase=1
Dim StrSqlDate
Class DataBaseClass
'————————————————————————————————
'定义变量
Private IConnStr
'————————————————————————————————
' ConnStr属性
Public Property Let ConnStr(Val)
IConnStr = Val
End Property
'————————————————————————————————
' ConnStr属性
Public Property Get ConnStr()
ConnStr = IConnStr
End Property
'————————————————————————————————
' 类初始化
Private Sub Class_initialize()
If IsSqlDataBase=0 then
ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) +

";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
StrSqlDate = "Date()"
Else
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;"&

DataBaseConnectStr &";"
StrSqlDate = "GetDate()"
End If
End Sub
'————————————————————————————————
' 类注销
Private Sub Class_Terminate()
ConnStr = Null
End Sub
'————————————————————————————————
' 建立一个连接
Public Function OpenConnection()
Dim TempConn
On Error Resume Next
Set TempConn = Server.CreateObject(G_FS_CONN)
TempConn.Open ConnStr
Set OpenConnection = TempConn
Set TempConn = Nothing
if Err.Number <> 0 then
Response.Write("<font size=""2"">[数据库连接错误]<br>请检查系统参数设置>>站

点常量设置,或者/inc/const.asp文件02!</font>")
Response.Write G_FS_CONN '---这个变量不能传过来.
Response.End
end if
End Function
End Class
%>
===========================
我想不用建Class DataBaseClass
用常用方法不知道可行,就怕整站好多地方用到DataBaseClass
所以改起来很不方更,有没有朋友知道有更好的解决方法谢谢.