看代码: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
代码如下 | 复制代码 |
<% <% dim i response.write("Excel表信息字段: ------------------------ ") for i=0 to rs.fields.count-1 step 1 response.write(rs.fields(i).name&" ") next response.write(" Excel中的表名(Table_Name): ------------------------ ") while not rs.EOF response.write(rs("Table_Name")&" ") rs.movenext wend %> |