读取数据库内容 Sub excelShow(flag) dim sql,rs,i dim HLOOP,HRS sql = flag set rs = server.CreateObject("ADODB.RecordSet") connectiondatabase i = 0 rs.open sql,conn,1,1 if rs.eof then response.write("<table id='data1' style="display:none" mce_style="display:none" width='100%' border=0 cellspacing=0 cellpadding='0'><tr><td>没有数据</td></tr></table>") else response.write("<table id='data1' style = 'display:none' width='100%' border=0 cellspacing=0 cellpadding='0'><tr>") For Each HLOOP in rs.fields response.write("<td>" & HLOOP.Name & "</td>") Next response.write("</tr>") do until rs.eof response.write("<tr>") For Each HRS in rs.fields if Hrs.Value="" then response.write("<td> </td>") else response.write("<td>" & HRS.value & "</td>") end if Next response.write("</tr>") i = i + 1 rs.movenext loop response.write("</table>") response.write("<table><tr><td>共有"&i&"条记录!数据多时导出比较慢,请耐心等待。</td></tr></table>") end if rs.close set rs = nothing conn.close set conn = nothing End Sub