sub Application_OnStart
set myFileObj=createObject("Scripting.FileSystemObject")
anypath=server.mappath("password.txt")
set myF=myFileObj.OpenTextFile(anypath)
SNetPWD=myF.readline
myF.close
set myF=nothing
set myFileObj=nothing
application("SNetConnStr")="driver=SQL Server;server=你的ip地址;database=数据库名;UID=用户名;PWD="&SNetPWD
end sub