WEB开发网
开发学院数据库MySQL 导出SQLServer数据到Excel中 阅读

导出SQLServer数据到Excel中

 2007-11-11 15:43:06 来源:WEB开发网   
核心提示:<%@ Language=VBScript%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>
导出SQLServer数据到Excel中<%@ Language=VBScript%>
导出SQLServer数据到Excel中<html>
导出SQLServer数据到Excel中<head>
导出SQLServer数据到Excel中<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
导出SQLServer数据到Excel中<title>导出SQLServer数据到Excel中</title>
导出SQLServer数据到Excel中</head>
导出SQLServer数据到Excel中
导出SQLServer数据到Excel中<body>
导出SQLServer数据到Excel中<%
导出SQLServer数据到Excel中  Response.Clear
导出SQLServer数据到Excel中  Response.ContentType = "text/xls"
导出SQLServer数据到Excel中  Response.AddHeader "content-disposition","attachment;filename=Excel.xls"
导出SQLServer数据到Excel中  '生成Excel
导出SQLServer数据到Excel中  Response.Write "编号" & Chr(9) & "姓名" & Chr(9) & "性别" & Chr(9) & "年龄" & Chr(13)
导出SQLServer数据到Excel中  Set Conn = Server.CreateObject("Adodb.Connection")
导出SQLServer数据到Excel中  ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=;Initial Catalog=Info;Data Source=127.0.0.1"
导出SQLServer数据到Excel中  Conn.Open ConnStr
导出SQLServer数据到Excel中  Sql = "SELECT * FROM INFO"
导出SQLServer数据到Excel中  Set Rs = Conn.Execute(Sql)
导出SQLServer数据到Excel中  Num = Rs.Fields.Count
导出SQLServer数据到Excel中  Do While Not Rs.Eof
导出SQLServer数据到Excel中    MM = 0
导出SQLServer数据到Excel中    While MM < CInt(Num)
导出SQLServer数据到Excel中        Data = Data & Rs(MM) & Chr(9)
导出SQLServer数据到Excel中      MM = MM+1
导出SQLServer数据到Excel中    Wend
导出SQLServer数据到Excel中    Response.Write Data & Chr(13)
导出SQLServer数据到Excel中    Data = ""
导出SQLServer数据到Excel中  Rs.MoveNext:Loop
导出SQLServer数据到Excel中  Set Rs = Nothing
导出SQLServer数据到Excel中  Conn.Close
导出SQLServer数据到Excel中  Set Conn = Nothing
导出SQLServer数据到Excel中  Response.Flush
导出SQLServer数据到Excel中  Response.End
导出SQLServer数据到Excel中%>
导出SQLServer数据到Excel中</body>
导出SQLServer数据到Excel中</html>

1 2 3 4 5 6  下一页

Tags:导出 SQLServer 数据

编辑录入:coldstar [复制链接] [打 印]
赞助商链接