为什么用asp导出Excel表格会变成乱码？

Devillyd 2004-08-24 10:29:37

<%@ Language=JavaScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<script>
function importExcel()
{
var hwnd=window.open('','','');
hwnd.document.write("<object classid='clsid:0002E510-0000-0000-C000-000000000046' id='Spreadsheet' codebase='msowc.cab' width='576' height='288'><param name='HTMLURL' value='"+window.location.pathname+"'><param name='DataType' value='HTMLURL'><param name='AutoFit' value='0'><param name='DisplayColHeaders' value='-1'><param name='DisplayGridlines' value='-1'><param name='DisplayHorizontalScrollBar' value='-1'><param name='DisplayRowHeaders' value='-1'><param name='DisplayTitleBar' value='-1'><param name='DisplayToolbar' value='-1'><param name='DisplayVerticalScrollBar' value='-1'><param name='EnableAutoCalculate' value='-1'><param name='EnableEvents' value='-1'><param name='MoveAfterReturn' value='-1'><param name='MoveAfterReturnDirection' value='0'><param name='RightToLeft' value='0'><param name='ViewableRange' value='1:65536'></object>");
}
</script>
<BODY>
<%

btime=Session("btime");
etime=Session("etime");
//与数据库建立连接。
Conn = Server.CreateObject("adodb.connection");
Rs = Server.CreateObject("adodb.recordset");
Conn.Open("..........");
//查离港数据。

str="查询语句初始化";
//建立table表，并导出为excel表格。
Rs.Open(str,Conn);
Response.Write("<table border='1' cellpadding='3' cellspacing='0' width='95%' bgcolor='#EEEEEE' bordercolordark='#FFFFFF' bordercolorlight='#999999'>");
// 建表头

while(!Rs.EOF){//为表格填入具体值。
//............
Rs.MoveNext;}
Response.Write("</table>");
Response.Write("<input type=button value=导出Excel onclick=this.style.visibility='hidden';importExcel() id=button1 name=button1>");
//关闭与数据库的连接。
Rs.Close;
Conn.Close;

%>

</BODY>
</HTML>

...全文