ASP生成excel表格！
来源:我要学习网 时间:06-11-12 点击: 点击这里收藏本文
<%dim excelstring
dim excelstr
dim excelstr2
dim head
excelstring = ""
head = "Sn" & "," & "Reason" & "," & "Empid" & "," & "Empname" & "," & "Ext" & "," & "Depname"
excel="creat"
If excel<>"" Then
Set rs2 = Server.CreateObject ("ADODB.Recordset")
sql2 = "Select * from value_table "
rs2.open sql2,conn,1,3
do while not rs2.eof
excelstr =" " & rs2(0) & """,""" & rs2(1) & """,""" & rs2(2) & """,""" & rs2(3) & """,""" & rs2(4) & """,""" & rs2(5) & """"
excelstr2 = excelstr2 & Chr(13) & excelstr
rs2.movenext
loop
excelstring = head &Chr(13)& excelstr2
’response.Write(excelstring)
’rs2.close
Set rs2=Nothing
set fs = CreateObject("scripting.FileSystemObject")
set exc = fs.OpenTextFile(server.MapPath("excel.csv"),2,True)
exc.write(excelstring)
if fs.FileExists(Server.MapPath("excel.csv")) then
Response.Write("<a href=excel.csv>报表已经生成，点击查看</a>")
’Response.write(excelstring)
else
Response.Write("生成报表失败！")
end if
End if%>
调试通过！
把此文章收藏到：
