<%dim conn dim connstr dim db dim title title="::易元和个人工作室::" db="mdb/#oplan_pic.mdb" '数据库文件的位置 Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.Open connstr % <%set oRs=server.CreateObject("ADODB.recordset") sSql = "SELECT * FROM NewsData where classid=2 ORDER BY ck DESC" oRs.Open sSql,Conn,0, 1 If Not oRs.Eof Then Do While Not oRs.Eof %>
| • ><%=oRs("d_title")%> | <%=oRs("editer")%> |
<% oRs.MoveNext Loop Else Response.Write "现在数据库中还没有新闻！" End If oRs.Close %> access 数据库连接 用dsn 连接并且没有用户名和密码： <% set conn = server.createobject("adodb.connection") conn.open "yourdsnname" %> 用dsn 连接并且有用户名和密码： <% set conn = server.createobject("adodb.connection") conn.open "yourdsnname","username","password" %> 用实际的数据库绝对路径连接： <% set conn = server.createobject("adodb.connection") strconn="driver=; " strconn=strconn & "dbq=e:\yanhang\database.mdb" conn.open strconn %> 用实际的数据库相对路径连接： <% set conn = server.createobject("adodb.connection") strconn="driver=; " strconn=strconn & "dbq=" & server.mappath("/database/yanhang.mdb") conn.open strconn %> ms sql server 数据库连接 用dsn 连接： <% set conn = server.createobject("adodb.connection") conn.open "dsn=mydsn;uid=user;pwd=password;database=databasename" %> 不用 dsn 连接： <% set conn = server.createobject("adodb.connection") dsntemp="driver=;server=servername;uid=user;pwd=password;database=databasename" conn.open dsntemp %> foxpro 数据库连接 <% set conn = server.createobject("adodb.connection") connstr= "driver=microsoft visual foxpro driver; uid=use...
