module1.vb

来自「Asp.Net+SQL Server 2000的学生信息管理系统！有三个用户权限」· VB 代码 · 共 25 行

'===============================================================================
'
' ProjectName:在线人数统计 V1.0 
' Author:pcsky(进哥)
' CreatedTime:
' ModifiedTime:
' Contact:[e-mail]
' CopyRight 2005 www.soft123.com
'
'===============================================================================

Module Module1

    'SqlServer数据库
    Public Function connStr() As String
        Return GetAppSetting("SQLConnString")
    End Function

    '获得用户配置的值
    Public Function GetAppSetting(ByVal str) As String
        Return ConfigurationSettings.AppSettings(str)
    End Function

End Module