如何用脚本访问.xls,然后组装成sql

Question

<script language="vbscript">
Set xlApp = CreateObject("Excel.Application")
strsource="d:\jsp_user.xls"
Set xlbook=xlApp.Workbooks.Open(strsource)
Set xlsheet=xlbook.Worksheets(1)
strName=""
strSql="begin " & chr(13)
for i=2 to 50
strName=trim(xlsheet.Cells(i,1))
if strName<>"" then
   strSql=strSql & "insert into jsp_user(username,password,info)  values('" & xlsheet.Cells(i,1) 
           & "','" & xlsheet.Cells(i,2) & "','" & xlsheet.Cells(i,3) & "')" & chr(13)
end if
next
strSql= strSql & "end" & chr(13)
window.document.write(strSql)
</script>