Asp常用通用函数之取得数据库链接字串

 '函数名：GetConnStr
  '作 用：取得数据库链接字串，能生成MsAccess和MsSqlServer链接串
  '参 数：Lx ---- 0 是MsAccess , 1 是MsSqlServer
  '参 数：Dbiporpath ---- 数据库IP或路径
  '参 数：Dbmc ---- 数据库名称
  '参 数：Dbuid ---- 数据库用户名称
  '参 数：Dbupwd ---- 数据库用户密码
  '返回值：链接字串
  '示 例：http://www.knowsky.com/
  '**************************************************
  Public Function GetConnStr(ByVal Lx,ByVal Dbiporpath,ByVal Dbmc,ByVal Dbuid,ByVal Dbupwd)
   GetConnStr=""
   If Lx=0 Then
   If Right(Dbiporpath,1)<>"\" Then Dbiporpath=Dbiporpath & "\"
   GetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Dbiporpath&Dbmc&";Jet OLEDB:Database Password="&Dbupwd&";"
   End If
   If Lx=1 Then
   GetConnStr ="DRIVER=SQL Server;UID="&Dbuid&";DATABASE="&Dbmc&";SERVER="&Dbiporpath&";PWD="&Dbupwd&";"
   End If
  End Function