<%
'先定义二维数组
Dim export(1000,7)
'然后对export赋值
'最后生成EXCEL
set fso=server.createobject("scripting.filesystemobject")
strExcelFile=server.MapPath("export.xls")
if fso.fileExists(strExcelFile) then
fso.deletefile strExcelFile
End If
Set xslFile = fso.CreateTextFile(strExcelFile,True)
writestr="IP"&vbTab&"所属部门"&vbTab&"主机名"&vbTab&"使用人"&vbTab&"上网方式"&vbTab&"域帐号"&vbTab&"备注"&vbLf
for t=1 to i-1
for j=0 to 6
writestr=writestr & export(t,j) & vbTab
next
writestr=writestr & vbLf
next
xslFile.WriteLine(writestr)
xslFile.Close
set fso=nothing
%>
评论