28,407
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kindboys 2003-12-16
- 打赏
- 举报
<%
'从Excel表读出数据
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ="& server.MapPath("Book1.xls")
Set filers = Server.CreateObject("ADODB.Recordset")
set rs = conn.OpenSchema(20)
while not rs.eof
response.Write rs(2)
rs.movenext
wend
%>
'从Excel表读出数据
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ="& server.MapPath("Book1.xls")
Set filers = Server.CreateObject("ADODB.Recordset")
set rs = conn.OpenSchema(20)
while not rs.eof
response.Write rs(2)
rs.movenext
wend
%>
