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