'數據庫連接
If DbType="SQL" Then
ConnStr = "Provider = sqloledb;user id="&SQLDBUserName&";password="&SQLDBPassword&";initial catalog="&SQLDBName&";data source="&SQLServerName&";"
Elseif DbType="ACCESS" Then
DB = "/hyinfo.asp"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Else
ConnStr="DefaultDir=;Driver={myodbc driver};database=hyinfo"
End If