因为工作需要，不想把excel转换成其他数据库，所以想用ASP直接连接Excel文件，发现确实不错。代码如下：
其中：list.xls是excel数据库的名称，Sheet1是工作表的名称。
% Dim conn Dim StrConn Dim rs Dim Sql Set conn=Server.CreateObject('ADODB.Connection') StrConn='Driver={Microsoft Excel Driver (*.xls)};DBQ=' Server.MapPath('list.xls') conn.Open StrConn Set rs=Server.CreateObject('ADODB.Recordset') Sql='select * from [Sheet1$]' rs.Open Sql,conn,2,2 % center table border='0' cellpadding='0' cellspacing='0' tr % for i=0 to rs.Fields.Count-1 % td width='1' bgcolor='#CCCCCC'/td td height='28' bgcolor='#0099FF'div align='center'%=rs(i).Name%/div/td % next % td width='1' bgcolor='#CCCCCC'/td /tr % do while Not rs.EOF % tr % for i=0 to rs.Fields.Count-1 % td width='1' bgcolor='#CCCCCC'/td td height='28' valign='bottom'%=rs(i)%/td % next % td width='1' bgcolor='#CCCCCC'/td /tr tr % for i=0 to rs.Fields.Count-1 % td height='1' bgcolor='#CCCCCC'/td td height='1' bgcolor='#CCCCCC'/td % next % td width='1' bgcolor='#CCCCCC'/td /tr % rs.MoveNext Loop rs.close set rs=nothing Conn.close set StrConn=nothing % /table /center
