asp数据导出
我的代码:
<body>
<%
%>
<table cellPadding=0 cellSpacing=0 align=center width=100%>
     <tr>
       <th width="100%" style="text-align:center;">日志列表</th>
     </tr>
</table>
<table width="100%" cellpadding="0" cellspacing="0">
   <TR>
     <TD width="*">
     <%
		if session("flag") then
	%>
     搜索用户:
     <select name="loginID">
             		<option value="">日志检索</option>
                     <%
						sql="select * from [user] where loginID<>'admin' order by id"
						set rs=conn.execute(sql)
						while not rs.eof
					%>
             		<option value="<%=rs("loginID")%>"<%if rs("loginID")=request.QueryString("loginID") then%> selected<%end if%>><%=rs("username")%></option>
         <%
						rs.movenext
						wend  
						rs.close
					%>
       </SELECT>  
	   搜索机房:
     <select name="home">
             		<option value="">机房检索</option>
                     <%
						sql="select distinct home from [summary]"
						set rs=conn.execute(sql)
						while not rs.eof
					%>
             		<option value="<%=rs("home")%>"<%if rs("home")=request.QueryString("home") then%> selected<%end if%>><%=rs("home")%></option>
         <%
						rs.movenext
						wend  
						rs.close
					%>
       </SELECT>  
      <%end if%>
     日期:从
     <input name="startDate" type="text" id="startDate" size="10"  onClick="javascript:ShowCalendar('startDate')" value="<%=request.QueryString("startDate")%>"> <img style="cursor:hand;" src="images/date1.jpg"  onClick="javascript:ShowCalendar('startDate')">
     到     
     <input name="endDate" type="text" id="endDate" size="10"  onClick="javascript:ShowCalendar('endDate')"  value="<%=request.QueryString("endDate")%>"> <img style="cursor:hand;" src="images/date2.jpg"  onClick="javascript:ShowCalendar('endDate')">
     <input name="button" type="submit" class="button" id="button" onClick="location.href='worklog.asp?startDate='+document.all.startDate.value+'&endDate='+document.all.endDate.value<%if session("flag") then%>+'&loginID='+document.all.loginID.options[document.all.loginID.selectedIndex].value+'&home='+document.all.home.options[document.all.home.selectedIndex].value<%end if%>" value="搜索"></TD>
   </TR>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" style="word-break:break-all" >
   <tr align=center>
     <td>标题</td>
	<td>所属机房</td>
       <td>真实姓名</td>
     <td>添加时间</td>
       <td>提交IP</td>
       <td>是否审核</td>
       <td>审核日期</td>
       <td>操作</td>
   </tr>
&l