EXCEL µ¼Èëµ½ACCESSÊý¾Ý¿âÖÐÉÙÁËһЩÊý¾Ý

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'Á¬½ÓexcelÊý¾Ý¿â
Dim xlsconn,xlsstr,xlsrs,sql,i
       
Set xlsconn = server.CreateObject("adodb.connection")
xlsstr="Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.mappath("productlist.xls")&";Extended Properties=Excel 8.0"
xlsconn.open xlsstr

Set xlsrs = Server.CreateObject("Adodb.RecordSet")
'sql = "Select * from [productlist$]"
sql  = "SELECT * from [" &  "Sheet1" & "$]"
xlsrs.open sql,xlsconn,1,3

If xlsrs.eof Then
response.Write "----------------"
else
    i=1
      response.write" <div align='center'>"
    response.write " <TABLE border=1>"
    Do While not xlsrs.eof
    lei1=xlsrs("²úÆ·ËùÊô´óÀà")
    lei2=xlsrs("²úÆ·ÖÖÀà")
    lei3=xlsrs("²úÆ·×ÓÀà")
      name1=xlsrs("²úÆ·Ãû³Æ")
      photo="images/upfile/"&xlsrs("²úƷͼƬÃû³Æ")
      brand=xlsrs("Æ·ÅÆ/²úÉÌ")