ASP + SQL Sever 2005数据导出至Execl表格CSV格式

最近做一个订单导出状态，一导出是正常了。但里边的很多格式带数字的显示都不正常。特别是15位的订单号。后边四位全变成了0000.一直解决不了。最近使用工商银行查账详细单。导出试了下用的是CSV格式。显示正常受启发更改了下。导出正常OK。

数据库连接等请自已写下:

<%'设置页面时间

'Server.ScriptTimeOut=999999

Set fs = server.CreateObject("scripting.filesystemobject")

filename = Server.MapPath("order.csv")

'--如果原来的EXCEL文件存在的话删除它

if fs.FileExists(filename) then

fs.DeleteFile(filename)

end if

'--创建csv文件

set myfile = fs.CreateTextFile(filename,true)

'--从数据库中把你想放到csv中的数据查出来

strsql = "select orderId,prodName,RoomName,RoomPeople,orderNumber,orderBeginTime,orderEndTime,OrderInName,orderName,orderContent from site_Order where orderStatut = 1 and orderPass <=  1 order by mLwpId asc" 

'--显示执行的sql语句

Response.Write "<div id='sql'><strong>sql 语句:</strong><br />"&strsql&"</div>"

Set Rs =conn.execute(strsql)

if not Rs.EOF and not Rs.BOF then

strLine=""

For each x in Rs.fields

strLine = "订单号,订单产品,入住房间,入住人数,预订数量,入住时间,离店时间,入住人,预订人,其它要求"

Next

myfile.writeline strLine

Response.Write "<div id='data'>"

do while Not Rs.EOF

strLine=""

strLine= "'"&Rs(0)&"',"&Rs(1)&","&Rs(2)&","&Rs(3)&","&Rs(4)&","&formatDate(Rs(5),2)&","&formatDate(Rs(6),"& Rs(7)&","&Rs(8)&","&Rs(9)&""

'strLine= "'"&Rs("orderId")&"',"&Rs("prodName")&","&Rs("RoomName")&","&Rs("RoomPeople")&","&Rs("orderNumber")&","&Rs("orderBeginTime")&","&Rs("orderEndTime")&","& Rs("OrderInName")&","&Rs("orderName")&","& Rs("orderContent")&""

if WriteDB=True then

Response.Write strLine & "<br /><hr />"

end if

myfile.writeline strLine

Rs.MoveNext

loop

Response.Write "</div>"

end if

Response.Write "<div id='down'><p><a href=""order.csv"" target=""_blank"">生成文件成功，点击下载！</a></p></div>"

Rs.Close :set Rs = nothing

Conn.Close:Set Conn = nothing%>