asp+sql写入EXCEL当中,三个问题:显示中文和所有出现表格边框以及直接打开EXCEL显示数据!(另外50分指定地方给付)
kw123 2007-12-15 04:42:18 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="include/conn.asp"-->
<%
Response.Buffer=TRUE
Response.AddHeader "Content-Disposition ","attachment; filename=查询报表 "&replace(now(), ": ", "- ")& ".xls "
Response.contentType= "application/vnd.ms-excel"
dim sql,rs
sql= "select * from pro_info "
set rs=conn.execute(sql)
%>
<table width= "437 " border= "1" align= "center " cellpadding= "0 " cellspacing= "1 " id= "data " >
<td width= "56 " >编号</td >
<td width= "91 " >名称</td >
<td width= "108 " >快捷号</td >
<td width= "85 " >规格</td >
</tr >
<%
if rs.eof or rs.bof then
else
do while not rs.eof
%>
<td> <%=rs("pinID")%> </td>
<td> <%=trim(rs( "name"))%> </td>
<td> <%=trim(rs( "kuai"))%> </td>
<td> <%=trim(rs( "gui"))%> </td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
end if
set rs=nothing
set conn=nothing
%>
显示导入成功!
但是存储的中文为乱码显示,如何解决?
边框为所显示的数据,其他为空白,能否全部为边框显示?(就跟我门打开EXCEL时候一样)
能单击按纽提示是否导入到EXCEL中,然后直接打开EXCEL并数据显示?
共100分,另外地方:
http://topic.csdn.net/u/20071213/13/04e8f25e-a57a-4d98-9034-49273d1f2316.html
给50分