统一配置数据库连接符的方法

统一配置数据库的方法

一.Web.config(应用方便,安全性差)
1.Web.config文件
<appSettings>
        <add key="strconn" value="server=localhost;database=dlcusmgt;uid=sa;pwd="/>
</appSettings>

2.调用文件
dim strconn as string
strconn= System.Configuration.ConfigurationSettings.AppSettings("strconn")


<appSettings> 元素是 <configuration> 元素的直接子级，并且是 <system.web> 元素的对等项。 此元素用于自定义应用程序设置。

作为安全措施，只能通过编程方式读取 Web.config 文件的 <appSettings> 元素。可以读取配置设置，但无法以编程方式写入配置设置.应通过使用 Windows 安全设置限制可以读取配置文件的人士，在服务器上保护该配置文件。通常，应不允许应用程序级别进程来写入该文件。

避免在配置文件中存储敏感信息，例如用户凭据。尽管可以使用 Window 安全性保护该文件，但它是在文本格式下有效的 XML 文件。

二.Global.asax(安全性高,但每次更改配置后需要编译,麻烦)

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在会话启动时激发       
        Application("conn") = "server=localhost;database=dlcusmgt;uid=sa;pwd="
End Sub

三.XML+Global.asax(使用方便,安全性高)

1.XML(database.xml)

<?xml version="1.0" encoding="utf-8" ?>
<sqlconn>
    <conn>
        <str>server=localhost;database=dlcusmgt;uid=sa;pwd=</str>
    </conn>
</sqlconn>

2.Global.asax

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在会话启动时激发
        '把数据库的资料载入Application,这样就把数据库的连接字符串存储在内存中,除非重新启动应用程序,否则数据库的连接字符串不会消失,这样Database.xml就可以删除掉,只有重新启动应用程序时才需要它.
      
       If File.Exists(Server.MapPath("database.xml")) Then   '判断文件是否存在
            Dim ds As New DataSet
            ds.ReadXml(Server.MapPath("database.xml"))
            Application.Lock()
            Application("conn") = ds.Tables(0).Rows(0).Item(0)
            Application.UnLock()
       End If
End Sub