<%
'加入图片
set myexcell=CreateObject("Excel.Application")
set mywork=myexcell.Workbooks.Add
set Activesheet=myexcell.sheets("sheet1")
Activesheet.Pictures.Insert("图片地址")
mywork.SaveAs "c:/test.xls"
mywork.close
set mywork=nothing
set myexcell=nothing
%>