<%@ Language=VBScript%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>导出SQLServer数据到Excel中</title></head><body><% Response.Clear Response.ContentType = "text/xls" Response.AddHeader "content-disposition","attachment;filename=Excel.xls" '生成Excel Response.Write "编号" & Chr(9) & "姓名" & Chr(9) & "性别" & Chr(9) & "年龄" & Chr(13) Set Conn = Server.CreateObject("Adodb.Connection") ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=;Initial Catalog=Info;Data Source=127.0.0.1" Conn.Open ConnStr Sql = "SELECT * FROM INFO" Set Rs = Conn.Execute(Sql) Num = Rs.Fields.Count Do While Not Rs.Eof MM = 0 While MM < CInt(Num) Data = Data & Rs(MM) & Chr(9) MM = MM+1 Wend Response.Write Data & Chr(13) Data = "" Rs.MoveNext:Loop Set Rs = Nothing Conn.Close Set Conn = Nothing Response.Flush Response.End%>
</body></html>
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。