WSHでDBコネクト

WSH (Windows Script Host) を使うと、DBのDNS名、ID、パスワードなどをレジストリに保持しといて、呼び出すことができるので、ID等をテキスト保存してそこから読むより、セキュリティ的に安全です。
　

<%
'********** Database Connection Constant **********
Dim WSHObj
Dim ObjConn
Dim DSN,DB_ID,DB_PASS

Set WSHObj = Server.CreateObject("WScript.Shell")

DSN = WSHObj.RegRead("HKEY_LOCAL_MACHINE\Software\DB\DSN")
DB_ID = WSHObj.RegRead("HKEY_LOCAL_MACHINE\Software\DB\ID")
DB_PASS = WSHObj.RegRead("HKEY_LOCAL_MACHINE\Software\DB\PASS")

Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "dsn=" & DSN & ";uid=" & DB_ID & ";pwd=" & DB_PASS
ObjConn.CursorLocation = 3

Set WSHObj = nothing
%>
　

上の例では、レジストリの「HKEY_LOCAL_MACHINE\Software\DB」の中に「DSN」「ID」「PASS」という値の名前を作り、それに、DSN名、ID、パスワードを指定しています。