asp½«Êý¾Ý¿âµÄÊý¾Ýת»»³Éexcelµ¼³ö

<% '--------------------------------------------------------------------------------------------------
Set rs9 = Server.CreateObject("ADODB.RecordSet")
sqlstr="select * from ¿Í»§×ÊÁÏ¿â order by id desc"
rs9.open sqlstr,conn,1,3
%>
<%Set fs = server.CreateObject("scripting.filesystemobject")
'--Éú³ÉµÄEXCELÎļþ×öÈçϵĴæ·Å
filename="¿Í»§×ÊÁÏ.xls"
temp=filename
filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\"+filename
'--Èç¹ûÔ­À´µÄEXCELÎļþ´æÔڵĻ°É¾³ýËü
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--´´½¨EXCELÎļþ
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr
strLine=""
For each x in rs9.fields
strLine= strLine & x.name & chr(9)
Next
'--½«±íµÄÁÐÃûÏÈдÈëEXCEL
myfile.writeline strLine
while not rs9.eof
strLine=""
for each x in rs9.Fields
strLine= strLine & x.value & chr(9)
next
'--½«±íµÄÊý¾ÝдÈëEXCEL
myfile.writeline strLine
rs9.movenext
wend
link="<A HREF="\" mce_HREF="\"" & temp & ">ÏÂÔØexcelÎļþ</a>"
if Request.Cookies("adminuser")="admin" then
Response.write link
end if
set myfile = nothing
Set fs=Nothing
rs9.close
%>