Connection
1.Access
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db1.mdb")
conn.Open connstr
conn.close
set conn=nothing
2.SQL
dim conn,connstr,connServerName,connDatabase,connUserName,connPassword
connServerName = "127.0.0.1" '数据库服务器名或者IP,本机填“(local)”即可。
connDatabase = "db1" '数据库名称
connUserName = "sa" '数据库用户名
connPassword = "1234567" '数据库密码
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB;Data Source="&connServerName&";Initial Catalog="&connDatabase&";User ID="&connUserName&";Password="&connPassword&";"
conn.Open connstr
response.write "OK!"
Conn.close
Set conn = Nothing
3.EXCEL
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Server.MapPath("db1.xls")
conn.Open connstr
conn.close
Set conn = Nothing
Recordset
1.
Set rs=Server.CreateObject("ADODB.Recordset")
'rs.Open "tab1",conn,1,3
sqlstr="select * from tab1"
rs.Open sqlstr,conn,1,3
rs.close
set rs=nothing
2.
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from [Sheet1$]"
rs.Open sqlstr,conn,1,3
rs.close
set rs=nothing
Session
session("name")="Hello"
response.write session("name") & session.sessionid
Cookies
response.cookies("user")("name")="Hello"
response.cookies("user").expires=date+1
response.write request.cookies("user")("name")