asp Excel导出格式错误问题 - 编程论坛

程序代码：

<html>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style>
p h3{font-family: "宋体"; font-weight:bold ; font-size:13px;}
table th { Height: 35px; font-family: "宋体"; font-weight:bold ; font-size:13px;  }
table td { Height: 25px; font-family: "宋体"; font-size:13px;  }
</style>
<%Response.expires = -1%>
<%Response.Buffer = true%>
<%

Dim s, sql, filename, fs, myfile, x, act, stime
act = request("act")
sgrade = Trim(request("sgrade"))'接收隐藏域传来的参数
sclass = Trim(request("sclass"))'接收隐藏域传来的参数
society = Trim(request("society"))'接收隐藏域传来的参数

file_name = sgrade&sclass&society

If file_name = "" Then
    file_name = "村居导出"
End If

sql = "select top 1  * from gdn  order by id desc "
Set rs = conn.Execute(sql)
kxj = rs(2) '取得开学时间

Response.AddHeader "Content-Disposition", "attachment; filename=" + file_name + ".xls"
Response.ContentType = "application/vnd.ms-excel"

%>

<body>
<h3 align="center">农村留守儿童交接名单 (<% =file_name %>) </h3>
<table width="850" height="292" border="1" align="center"  >
  <tr style="font-weight:bold;" >
    <td colspan="7" rowspan="2" align="center" valign="middle">学生情况</td>
    <td colspan="7" align="center" valign="middle">监护情况</td>
    <td rowspan="3" align="center" valign="middle">联系电话</td>
  </tr>
  <tr style="font-weight:bold;" >
    <td colspan="3" align="center" valign="middle">实际监护人</td>
    <td colspan="4" align="center" valign="middle">法定监护人</td>
  </tr>
  <tr style="font-weight:bold;" >
    <td align="center" valign="middle">序号</td>
    <td align="center" valign="middle">姓名</td>
    <td align="center" valign="middle">性别</td>
    <td align="center" valign="middle">出生年月</td>
    <td align="center" valign="middle">地址</td>
    <td align="center" valign="middle">就读班级</td>
    <td align="center" valign="middle">班主任<br>姓名</td>
    <td align="center" valign="middle">班主任<br>联系电话</td>
    <td align="center" valign="middle">姓名</td>
    <td align="center" valign="middle">与该生<br>关系</td>
    <td align="center" valign="middle">联系电话</td>
    <td align="center" valign="middle">姓名</td>
    <td align="center" valign="middle">与该生<br>关系</td>
    <td align="center" valign="middle">务工地点</td>
  </tr>
    <%
Dim num
num = 1
strSql = request.Form("strSql") '接收隐藏域传来的参数
Set rstData = conn.Execute(strSql)
If Not rstData.EOF And Not rstData.BOF Then
    While Not rstData.EOF

%>
  <tr>
    <td align="center" valign="middle"><% =num %></td>
    <td align="center" valign="middle"><%=rstData("sname")%></td>
    <td align="center" valign="middle"><%=rstData("sex")%></td>
    <td align="center" valign="middle"><%=rstData("birth")%></td>
    <td align="center" valign="middle"><%

If InStr(rstData("address"), "重庆市") Then
    response.Write Replace(rstData("address"), "重庆市", "")
ElseIf InStr(rstData("address"), "") Then
    response.Write Replace(rstData("address"), "", "")

Else
    response.Write rstData("address")
End If
%></td>
    <td align="center" valign="middle"><%=rstData("sgrade")%><%=rstData("sclass")%></td>
    <td align="center" valign="middle"><%=rstData("teachername")%></td>
    <td align="center" valign="middle"><%=rstData("teachertel")%></td>
    <td align="center" valign="middle"><%=rstData("sguardian")%></td>
    <td align="center" valign="middle"><%=rstData("snexus")%></td>
    <td align="center" valign="middle"><%=rstData("stel")%></td>
    <td align="center" valign="middle"><%=rstData("fguardian")%></td>
    <td align="center" valign="middle"><%=rstData("fnexus")%></td>
    <td align="center" valign="middle"><%

= Left(rstData("fjob"), 2)

%></td>
    <td align="center" valign="middle"><%=rstData("ftel")%></td>
  </tr>

<%
rstData.movenext
num = num + 1
Wend

%>
</table>
<p align="center"> <strong>注：本清单由学校学期初统计录入，一式两份，村（居）委员会、学校各存一份。</strong></p>
<p align="center"> </p>
<p align="center"> </p>
</body>
</html>
<%
End If
rstData.Close
Set rstData = Nothing
Conn.Close
Set Conn = Nothing
%>

能导出，虽然报错，但也能打开。但这报格式错误来怎么解决？

Response.AddHeader "Content-Disposition", "attachment; filename=" + file_name + ".xls"
Response.ContentType = "application/vnd.ms-excel"

有问题？求解。

[此贴子已经被作者于2020-7-16 11:00编辑过]