asp输出数据库

① asp鏁版嵁搴揿惊鐜杈揿嚭

'锻碉纴浣曞繀杩欎箞澶嶆潅锛屽傛灉瑕佽緭鍑轰笌鏁扮粍鐩稿叧镄勮瘽锛屼笉瑕佸缮浜哸sp閲屾湁涓寰埚ソ鐢ㄧ殑rs.GetRows()浜嗭纴缁欎綘娈垫渶绠鍗旷殑浠ｇ爜钖э纴濡备笅锛歞im rs,arr,iset rs=conn.execute("select * from Navigation where ViewFlag order by Sequence asc")if not rs.eof then arr=rs.GetRows() '杩欓噷鎶婄﹀悎𨱒′欢镄勬墍链夎板綍閮戒缭瀛桦埌浜哸rr涓锛岃繖閲岃祴鍊煎悗镄刟rr灏辩瓑浜庢槸涓涓浜岀淮鏁扮粍浜唀nd if
rs.closeset rs=nothing'涓婇溃浠ｇ爜灏卞畬鎴愪简浠庢暟鎹搴撹诲彇鏁版嵁鍒版暟缁勫彉閲忎简锛屾帴涓嬫潵鍙瑕佽緭鍑烘暟鎹锛屼綘鍙闇瑕佸垽鏂瑷rr鏄钖︽暟缁刬f isarray(arr) then for i=0 to ubound(arr,2) '涓婇溃链変粊鍏勮磋繃鏁扮粍闀垮害鐢眜bound涓嬫爣鍐冲畾娌￠敊锛屾墍浠ヤ綘鍙瑕佺‘瀹氱浜岀淮镄勪笅镙囧氨鐭ラ亾鏁扮粍闀垮害ubound(arr,2)锛屽綋铹剁涓缁村氨鏄痷bound(arr,1)鎴栬卽bound(arr)灏辫屼简 response.write arr(0,i) '杩欓噷灏辨槸杈揿嚭鏁扮粍item浜 response.write "<br>" '姣忚緭鍑轰竴涓鏁版嵁灏辨崲涓琛岋纴褰撶劧浣犱篃鍙浠ユ敼鎴愬埆镄 nextelse response.write "𨱌傛棤瀵艰埅"end if '鎼炲畾

② asp杈揿嚭鏁版嵁搴揿唴瀹

ASP濡备綍qu璇诲彇鏁版嵁搴掳纻
鎶婃垜瀵瑰彟涓闂棰樼殑锲炵瓟镄勯儴鍒嗗唴瀹硅创缁欎綘锛屽笇链涗綘鑳芥槑锏姐

锅囱句簨鍏埚缓绔嬩简涓涓钖崭负钬渢est.mdb钬濈殑ACCESS鏁版嵁搴掳纴閲岄溃链変竴涓钖崭负钬淎钬濈殑琛锛岃〃A链変袱涓瀛楁碘渘ame钬濆拰钬减rice钬,
链3𨱒¤板綍銆傚嵆锛
name price
aaa 123
bbb 456
ccc 789

璇疯皟璇曚笅渚嬶细(test1.asp鍙婃暟鎹搴搕est.mdb瑕佸湪钖屼竴鐩褰曚笅锛

test1.asp

<%
'杩炴帴鏁版嵁搴
set conn=server.createobject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
DBPath ="data source=" & Server.MapPath("test.mdb")
conn.Open provider & DBPath
'寤虹珛镆ヨ
sql="select * from A"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
'鏄剧ず鏁版嵁搴扑腑镄勬暟鎹
Response.Write "<table border='1' width='200'>"
while not rs.eof
Response.Write "<tr><td>" & rs("name") & "</td><td>" & rs("price") & "</td></tr>"
rs.movenext
wend
Response.Write "</table>"
'鍏抽棴鏁版嵁搴
rs.close
set rs=nothing
set conn=nothing
%>

③ asp数据库循环输出

'呵，何必这么复杂，如果要输出与数组相关的话，不要忘了asp里有个很好用的rs.GetRows()了，给你段最简单的代码吧，如下：dim rs,arr,iset rs=conn.execute("select * from Navigation where ViewFlag order by Sequence asc")if not rs.eof then arr=rs.GetRows() '这里把符合条件的所有记录都保存到了arr中，这里赋值后的arr就等于是一个二维数组了end if
rs.closeset rs=nothing'上面代码就完成了从数据库读取数据到数组变量了，接下来只要输出数据，你只需要判断arr是否数组if isarray(arr) then for i=0 to ubound(arr,2) '上面有仁兄说过数组长度由ubound下标决定没错，所以你只要确定第二维的下标就知道数组长度ubound(arr,2)，当然第一维就是ubound(arr,1)或者ubound(arr)就行了 response.write arr(0,i) '这里就是输出数组item了 response.write "<br>" '每输出一个数据就换一行，当然你也可以改成别的 nextelse response.write "暂无导航"end if '搞定