首先將查詢表_zb、欄位z_zhjddw的資料賦值給變數陣列maxid()
<%
dim maxid()
set conn = Server.CreateObject("ADODB.Connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("sjxt.mdb")
set rs=server.createobject("adodb.recordset")
sql1="select z_zhjddw from _zb order by id asc"
rs.open sql1,conn,1,1
For i=0 To rs.recordcount
maxid(i)=rs(i)
next
rs.Close
conn.close
%>
然后逐一顯示出來
<p>
<%for i = 0 to To rs.recordcount%>
<%=maxid(i)%>
<%next%>
</p>
請問高手，我錯在那里？應該怎么寫？
uj5u.com熱心網友回復：
<html> <body>
<% set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset") rs.Open "select z_zhjddw from _zb order by id asc", conn
%> <table border="1" width="100%"> <%do until rs.EOF%> <tr>
<%for each x in rs.Fields%> <td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
uj5u.com熱心網友回復：
這個變數是x嗎？我想賦值給變數。因為想將vb變數轉換到js變數里再參考uj5u.com熱心網友回復：
我是想將資料全部賦予變數。同時這個變數我還想轉換成javascrit語中的變數。大高手知道那么實作不？謝謝大家了uj5u.com熱心網友回復：
https://www.w3school.com.cn/tiy/s.asp?f=demo_adoe_getrowsgetrows
uj5u.com熱心網友回復：
execute或getrows都型別不匹配，為什么？<%
dim maxid()
set conn = Server.CreateObject("ADODB.Connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("sjxt.mdb")
set rs=server.createobject("adodb.recordset")
sql1="select top 6 z_zhjddw from _zb order by id asc"
rs.open sql1,conn,1,1
maxid = conn.execute(sql1)
%>
Microsoft VBScript 運行時錯誤 錯誤 '800a000d'
型別不匹配
/ss.asp，行 11
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/74025.html
標籤：vbScript
上一篇：tomcat無法運行