Step1:先使用ASP获取EXCEL里的数据:
<%
Dim conn
Dim Drivers
Dim rs
Dim Sql
Set conn=Server.CreateObject("ADODB.Connection")
Drivers="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790;"&_
"DBQ=e:\test\select\chengji.xls"
conn.Open Drivers
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select distinct [StudentID], * from [一班$]"
rs.Open Sql,conn,2,2
%>
<center>
<table border="1">
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td bgcolor="#0099FF"><%=rs(i).Name%></td>
<%
next
%>
</tr>
<%
do while Not rs.EOF
%>
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td><%=rs(i)%></td>
<%
next
%>
</tr>
<%
rs.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
Step1:先使用ASP获取EXCEL里的数据:
<%
Dim conn
Dim Drivers
Dim rs
Dim Sql
Set conn=Server.CreateObject("ADODB.Connection")
Drivers="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790;"&_
"DBQ=e:\test\select\chengji.xls"
conn.Open Drivers
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select distinct [StudentID], * from [一班$]"
rs.Open Sql,conn,2,2
%>
<center>
<table border="1">
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td bgcolor="#0099FF"><%=rs(i).Name%></td>
<%
next
%>
</tr>
<%
do while Not rs.EOF
%>
<tr>
<%
for i=0 to rs.Fields.Count-1
%>
<td><%=rs(i)%></td>
<%
next
%>
</tr>
<%
rs.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>