导出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>
更多精彩
赞助商链接