导出SQLServer数据到Excel中
2007-11-11 15:43:06 来源:WEB开发网核心提示:<%@ Language=VBScript%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>
<%@ 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>
<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>
[]
- ››数据库大型应用解决方案总结
- ››数据结构2--数组
- ››数据源架构模式的活动记录
- ››数据结构C#版线性表(Data Structure)之单链表(Lin...
- ››数据结构C#版线性表(Data Structure)之顺序表(顺序...
- ››SQLServer 游标简介与使用说明
- ››数据就是利润:在欧洲两端,IBM Information Cham...
- ››数据架构师: 您要治理什么?
- ››数据驱动的网络营销和网站运营笔记
- ››导出CListCtrl控件到Excel文件
- ››数据点:Windows Azure 表存储:不同于传统数据库...
- ››数据医生:Alamance Regional Medical Center 通过...
更多精彩
赞助商链接