<%
dim connaccess,strconn
Set connaccess = Server.CreateObject("Adodb.connection")
strconn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("/bmode/dbmode/rally.mdb") &";Persist Security Info=False"
connaccess.open strconn
%>
Date :
23 ต.ค. 2547 21:06:06
By :
แซม
No. 3
Guest
set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=NAge;UID=xxx;PWD=xxx;"
Conn.Open
------------------------------
แบบ Dnsless ต้องมีการใส่ ip และ username passwore และ catalog ของ database ลองดูเอานะครับ copy ไปแก้ไขก็ได้ครับ
<%
function applicationLogin_conn()
dim conn
set conn = server.CreateObject("ADODB.Connection")
conn.connectionString = "Provider=sqloledb;Server=10.1.99.11;database=xxx;User ID=xxxx;Password=xxxx;"
conn.open
set applicationLogin_conn=conn
end function
function object_clear(oObject)
oObject.close
set oObject=nothing
set object_clear=oObject
end function
Load balance : Server 00
