28,409
社区成员




<%
Dim conn
Dim Drivers
Dim rs
Dim Sql
set conn=Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ="&server.MapPath("111.xls")
conn.open Driver&DBPath
Set rs=Server.CreateObject( "ADODB.Recordset")
Sql= "select * from [Sheet1$] "
rs.Open Sql,conn,2,2
%>
<center>
<table name="tab" id="tab" bgcolor=#cccccc cellspacing="1" cellpadding="0" margin=0 width=100% align="center">
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td bgcolor= "#ffffff"> <%=rs(i).Name%></td>
<%
next
%>
</tr>
<%
do while Not rs.EOF
%>
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td bgcolor= "#ffffff"> <%=rs(i).value%> </td>
<%
next
%>
</tr>
<%
rs.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>