execl操作

Set Conn = Server.CreateObject("ADODB.Connection") 

　　Driver = "Driver={Microsoft Excel Driver (*.xls)};" 
　　DBPath = "DBQ=" & Server.MapPath("upload/guiji.xls") '路径地址

　　Conn.Open Driver & DBPath '打开
　　Set Rs = Server.CreateObject("ADODB.Recordset") 
　　Sql="select * from [Sheet1$]" '数据表名字
　　Rs.Open Sql,conn,1,1
　　if rs.recordcount>0 then

rs("名字")
rs(0)