Dim xlWorkSheet
Dim xlApplication
Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.DisplayAlerts=False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
set oRS=Server.CreateObject("ADODB.Recordset")
'if Request("ImportExcel")="ImportExcel" then
randomize
rannum=int(90000*rnd)+10000
rndfile=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum
strFile = rndfile
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "Content-type","application/octet-stream"
Response.AddHeader "Accept-Ranges","bytes"
'Response.AddHeader "Content-Disposition","attachment; filename="&strFile&".xls"
'Response.ContentType = "application/vnd.ms-excel"
sql="select a.out_trade_no,a.total_fee,a.orderDate,b.realname,b.addr,b.postcode,b.tel from Np_Order a inner join [Np_User] b on a.userId=b.id order by a.id asc"
oRS.open sql,conn,1,1
xlWorksheet.Cells(1,1).Value = ""
xlWorksheet.Cells(1,2).Value = "订单号"
xlWorksheet.Cells(1,3).Value = "订单类型"
xlWorksheet.Cells(1,4).Value = "收订员"
xlWorksheet.Cells(1,5).Value = "户名"
xlWorksheet.Cells(1,6).Value = "地址"
xlWorksheet.Cells(1,7).Value = "邮编"
xlWorksheet.Cells(1,8).Value = "电话"
xlWorksheet.Cells(1,9).Value = "订阅类型"
xlWorksheet.Cells(1,10).Value = "报刊"
xlWorksheet.Cells(1,11).Value = "起始订期"
xlWorksheet.Cells(1,12).Value = "截止订期"
xlWorksheet.Cells(1,13).Value = ""
xlWorksheet.Cells(1,14).Value = "折扣类型"
xlWorksheet.Cells(1,15).Value = "金额"
xlWorksheet.Cells(1,16).Value = "站名"
xlWorksheet.Cells(1,17).Value = "投递段"
xlWorksheet.Cells(1,18).Value = "投递方式"
xlWorksheet.Cells(1,19).Value = "投递类型"
xlWorksheet.Cells(1,6).ColumnWidth=30
xlWorksheet.Cells(1,2).ColumnWidth=20
xlWorksheet.Cells(1,11).ColumnWidth=10
xlWorksheet.Cells(1,12).ColumnWidth=10
iRow = 2
If Not oRS.EOF Then
Do while not oRS.EOF
xlWorksheet.Cells(iRow,1).Value = ""
xlWorksheet.Cells(iRow,2).NumberFormatLocal = "@"
xlWorksheet.Cells(iRow,2).Value = CStr(oRS("out_trade_no"))
xlWorksheet.Cells(iRow,3).Value = "报卡"
xlWorksheet.Cells(iRow,4).Value = ""
xlWorksheet.Cells(iRow,5).Value = Trim(oRS("realname"))
xlWorksheet.Cells(iRow,6).Value = Trim(oRS("addr"))
xlWorksheet.Cells(iRow,7).Value = Trim(oRS("postcode"))
xlWorksheet.Cells(iRow,8).Value = Trim(oRS("tel"))
xlWorksheet.Cells(iRow,9).Value = Trim(oRS("tel"))
xlWorksheet.Cells(iRow,10).Value = "郑州晚报1年报刊定制"
xlWorksheet.Cells(iRow,11).Value = FormatDateTime(oRS("orderDate"),2)
xlWorksheet.Cells(iRow,12).Value = FormatDateTime(DateAdd("yyyy",oRs("orderDate")),13).Value = ""
xlWorksheet.Cells(iRow,14).Value = ""
xlWorksheet.Cells(iRow,15).Value = Trim(oRS("total_fee"))
xlWorksheet.Cells(iRow,16).Value = ""
xlWorksheet.Cells(iRow,17).Value = ""
xlWorksheet.Cells(iRow,18).Value = ""
xlWorksheet.Cells(iRow,19).Value = ""
iRow = iRow + 1
oRS.MoveNext
Loop
End If
oRS.Close
set oRS=nothing
closeconn
xlWorksheet.SaveAs Server.MapPath(strFile & ".xls")
xlApplication.Quit
'Close the Workbook
Set xlWorksheet = Nothing
Set xlApplication = Nothing
Response.Write("生成网址:"&strFile&".xls")
'end if
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。