asp不用DSN访问数据库作者:德力科技 教程来源:德力科技 点击数: 更新时间:2005-4-30 热 荐 ★★★★★
<HTML><HEAD> <TITLE>nwind.asp</TITLE> <body bgcolor="#FFFFFF"></HEAD> <% set conntemp=server.createobject("adodb.connection") ' 不用DSN建立连接 DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("nwind.mdb") conntemp.Open DSNtemp ' 不用DSN建立连接 set rstemp=conntemp.execute("select * from customers where country='germany'") howmanyfields=rstemp.fields.count -1 %> <table border=1> <tr> <% 'Put Headings On The Table of Field Names for i=0 to howmanyfields %> <td><b><%=rstemp(i).name %></B></TD> <% next %> </tr> <% ' Now lets grab all the records do while not rstemp.eof %> <tr> <% for i = 0 to howmanyfields%> <td valign=top><%=rstemp(i)%></td> <% next %> </tr> <% rstemp.movenext loop rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %> </table> </BODY> </HTML>