<%
response.Write("<a href=""?id=make"">打印</a>")
dim id
id=request("id")
If id="make" Then
 Call MakeExcel()
 Response.End()
End If

Sub MakeExcel()
Response.Clear()
Response.Buffer  =  True
Response.ContentType ="application/vnd.ms-excel"        'application/msword
Response.Addheader "Content-Disposition", "attachment;Filename=damao.xls"
Response.Charset = "GB2312"
Response.Codepage = "936"
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-

collapse:collapse;">
  <tr>
    <th>航空公司</th>
    <th>起飞时间</th>
    <th>航班号</th>
    <th>票价</th>
    <th>税收</th>
    <th>返点</th>
    <th>乘机人</th>
    <th>证件号码</th>
    <th>联系电话</th>
 <th>发布人</th>
    <th>处理人</th>
  </tr>
</tr>
</table>
<%
End Sub
%>

------解决方案--------------------
探讨

实例打印报表：

VBScript code


<%
response.Write("<a href=""?id=make"">打印</a>")
dim id
id=request("id")
If id="make" Then
 Call MakeExcel()
 Response.End()
End If

Sub MakeExcel()
Response.Cl……


------解决方案--------------------
探讨


引用:
实例打印报表：

VBScript code


<%
response.Write("<a href=""?id=make"">打印</a>")
dim id
id=request("id")
If id="make" Then
Call MakeExcel()
Response.End()
End If

Sub MakeExcel()……