asp页面导出功能

dim s,filename,fs,myfile,x
set fs = server.CreateObject("scripting.filesystemobject")
filename = server.MapPath("../../export/publish_finish_"&year(date())&month(date())&day(date())&hour(now())&minute(now())&second(now())&".xls")
if fs.FileExists(filename) then
    fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
StartTime = Request("StartTime")
EndTime = Request("EndTime")
StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
set rstData = oconn.execute(v_sql)
if not rstData.eof and not rstData.bof then
    strLine = ""
    strLine = "信息ID" & chr(9) & "信息标题" & chr(9) & "所在栏目" & chr(9) & "作者" & chr(9) & "报送单位" & chr(9) &"发布日期" & chr(9)
    myfile.writeline strLine
    do while not rstData.eof
        strLine = ""
        strLine = strLine & rstData(0).value & chr(9) & rstData(1).value & chr(9) & rstData(2).value & chr(9) & rstData(3).value & chr(9)  & rstData(4).value & chr(9) & rstData(5).value & chr(9)
        myfile.writeline strLine
    rstData.MoveNext
    loop
end if

Set ors = Server.CreateObject("ADODB.RecordSet")
ors.Open v_sql,oconn,3,1

ors.close : set ors = Nothing
oconn.close : set oconn = nothing