十滴水可以治冻疮吗:ASP面试--急需----ASP查询系统数据库怎么做!ASP查询呢!!大哥,大姐们!!
兄弟姐妹们!!!
SQL连接的!!!
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("数据库地址")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 表名"
rs.open sql,conn, 3, 2
数据值=rs("字段名")
<%
'Asp连SQLServer数据库(本地数据库)
dim conn,connstr
connstr="Provider = Sqloledb; User ID =sa; Password =123123; Initial Catalog =vote; Data Source =(local);"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err then
Err.Clear
Set conn = Nothing
Response.Write "系统调整中"
Response.End
End If
%>
<%
'Asp连SQLServer数据库(远程数据库)
dim conn,connstr
connstr="Provider = Sqloledb; User ID =hm; Password =newfeel; Initial Catalog =vote; Data Source =192.168.168.38;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err then
Err.Clear
Set conn = Nothing
Response.Write "系统调整中"
Response.End
End If
%>
<%
dim MM_gbook_STRING,db,conn
db="database/Shop.mdb" '数据库路径及名称
Set conn = Server.CreateObject("ADODB.Connection")
MM_gbook_STRING="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open MM_gbook_STRING
%>
'带密码
dim conn
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("mydata.mdb")&";uid=id;pwd=pwd"
看看这个能不能帮你啊?