[转载]导出SQLServer数据到Excel中

pub!1c

魔

团队执行官

Rank: 8 Rank: 8

E.S.T核心成员

资料集齐奖运营支持奖

楼主大中小发表于 2006-5-2 08:45 只看该作者

信息来源: CSDN

<%@Language=VBScript%>

<html>

<head>

<metahttp-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)

SetConn=Server.CreateObject("Adodb.Connection")

ConnStr="Provider=SQLOLEDB.1;PersistSecurityInfo=True;UserID=sa;Password=;InitialCatalog=Info;DataSource=127.0.0.1"

Conn.OpenConnStr

Sql="SELECT*FROMINFO"

SetRs=Conn.Execute(Sql)

Num=Rs.Fields.Count

DoWhileNotRs.Eof

MM=0

WhileMM<CInt(Num)

Data=Data&Rs(MM)&Chr(9)

MM=MM+1

Wend

Response.WriteData&Chr(13)

Data=""

Rs.MoveNext:Loop

SetRs=Nothing

Conn.Close

SetConn=Nothing

Response.Flush

Response.End

body>

html>

TOP

‹‹ 上一主题 | 下一主题 ››