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",1,oRs("orderDate")),2)
  xlWorksheet.Cells(iRow,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