asp通过模板写excel

1，新建一个xls文件，xxx.xls

2,xxx.asp

<!--#include file="../weblaw.inc"-->
<!--#include file="../adovbs.inc"-->
<!--#include file="../connection.inc"-->
<!--#include file="../style.inc"-->
<!--#include file="../include/script.inc"-->
<!--#include file="../include/other.inc"-->
<!--#include file="../Include/right.inc"-->

<%
 Server.ScriptTimeOut =1000
 'on error resume next
 excelid=session("user")&year(date)&second(time)&".xls"
 'response.write excelid
 'abill = Split(Request("BillID")&",", ",")
 if request("excelstrSQL") <> "" then
  strSQL = request("excelstrSQL")
 else
  strSQL = "1=0"
 end if
 strSelectSQL = "1=1"
 if FuncRight("DT_0002") = 1 then
 elseif FuncRight("DT_0007") = 1 then
  strSelectSQL = strSelectSQL & " and cl_area = ( select emp_area from t_employee where emp_empl_id = '" & Session("User")& "')"
 elseif FuncRight("