先天性外胚层发育不良:我有一个include模板，我希望它在按钮按下时才显示

主页：
<input type="button" onClick="vbscript:StartExcel()" value="导出excel" name="vv">
<!--#include file="include/xx.asp"-->

xx.asp中

Dim Xcl
Sub StartExcel()

//vv部分
Set Xcl = CreateObject("Excel.Application")
Xcl.Visible = true
Set newBook = Xcl.Workbooks.Add
newBook.Worksheets.Add
newBook.Worksheets(1).Activate
'Selection
newBook.Worksheets(1).Columns("A").Select
newBook.Worksheets(1).Columns("A").NumberFormatLocal = "@"
newBook.Worksheets(1).Columns("H").NumberFormatLocal = "@"
newBook.Worksheets(1).Columns("I").NumberFormatLocal = "@"

<%
'大量数据库调用
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, con, 3
Do while Not rs.EOF
%>
newBook.Worksheets(1).Cells(<%=nb&","&i+1%>).value="<%=trim(rs.Fields(i).Value)%>"
<%
nb=nb+1
rs.MoveNext
loop
Set fs=Nothing
%>
//vv部分结束

Set Xcl = nothing
End Sub

xx中有大量的数据查询插入，能不能判断按钮为正后再显示www内容

谢谢大虾们帮帮忙吧!