ÇëÎÊÓÐaspµ¼ÈëexlsdµÄ¸ßÊÖÔÚÂð - Web ¿ª·¢ / ASP

¼ÙÉ轫10ÌõÈÕÆÚ¸ñʽÊý¾Ý(Èç2010-1-1,2010-1-15...)²åÉϵ½sqlµÄdatetime¸ñʽÖÐ, 
ÏÖÔÚÎÒµÄÔËÐÐÖ»ÄÜÒ»´ÎÈ«²¿²åÈçÓоßÌåÈÕÆÚµÄÊý¾Ý, Òª²»¾ÍÖ»ÄÜÈ«²¿²åÈëNUll,

Èç¹ûÎÒÒª½«10ÌõÊý¾ÝÖÐÓÐ5ÌõÊÇÓоßÌåÈÕÆÚµÄ,Áí5ÌõΪNULL
Èç
2010-1-1
2010-1-3
null
2010-1-5
null
null
.
.
.
¾ÍÌáʾ±¨´í,


Microsoft OLE DB Provider for ODBC Drivers ´íÎó '80040e14' 

[Microsoft][ODBC SQL Server Driver][SQL Server]µÚ 1 ÐÐ: ',' ¸½½üÓÐÓï·¨´íÎó¡£ 

/upstar.asp£¬ÐÐ 25 



¸½´úÂë:
'SQL²éѯExcelÀïµÄSheet1±íÀïµÄËùÓмǼ
ExcelSQL = "Select * from [Sheet1$]"
'´´½¨Rs¼Ç¼¼¯
Set Rs = ExcelConn.Execute(ExcelSQL)
'Ñ­»·²åÈëAccessÊý¾Ý¿â
Do While Not Rs.Eof
  InSertSQL = "Insert Into text([a],[b],[c],[d],[e],[f],[g],[h],[i],[j],[k],[l]) Values('"&Rs(0)&"','"&Rs(1)&"','"&Rs(2)&"','"&Rs(3)&"',"&Rs(4)&",'"&Rs(5)&"','"&Rs(6)&"','"&Rs(7)&"',"&Rs(8)&",'"&Rs(9)&"','"&Rs(10)&"',"&Rs(11)&")"
  AccessConn.Execute(InSertSQL)
Rs.MoveNext
Loop
Response.Write ("<script language=javascript>alert('Êý¾Ý²åÈë³É¹¦£¡')</script>") 
Response.Write("Êý¾Ý²åÈë³