用ASP.NET（VB版）创建WINDOWS 2000 SERVER站点

CreateVirtualDir = True

End Function

Function GetDBConnStr(ByVal DBName As String) As String

Select Case DBName

Case "friend"

GetDBConnStr = CStr(GetSetting("HostTask", "DBini", "ConnStr"))

Case "wuye"

GetDBConnStr = Replace$(CStr(GetSetting("HostTask", "DBini", "ConnStr")), "friend", "wuye")

Case Else

GetDBConnStr = CStr(GetSetting("HostTask", "DBini", "ConnStr"))

End Select

End Function

End Class