最近做一个订单导出状态，一导出是正常了。但里边的很多格式带数字的显示都不正常。特别是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),2)&","& 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%>