统一配置数据库的方法
一.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