%@Language = VB Script% SQLServer 数据到Excel中" /> html head metahttp - equiv = Content-Type content = text/html;charset=gb2312 title 导出SQLServer数据到Excel中 / title / head body % Response.Clear Response.Con" name="description" />
刘慈欣谈ChatGPT：人类的无能反而 刘慈欣谈ChatGPT：人类的无能反而
OpenAI 因使用“窃取”的个人数据 OpenAI 因使用“窃取”的个人数据
搜狐回应员工遭遇工资补助诈骗： 搜狐回应员工遭遇工资补助诈骗：

软件测试 > 测试开发技术 > 软件测试开发语言 > 数据库 >

导出SQLServer数据到Excel中

发表于：2007-06-20来源：作者：点击数： 标签：
SQL Server数据到Excel中" /> %@Language = VB Script% SQLServer 数据到Excel中" /> html head metahttp - equiv = Content-Type content = text/html;charset=gb2312 title 导出SQLServer数据到Excel中 / title / head body % Response.Clear Response.Con

　　 

导出<STRONG><A href=SQLServer数据到Excel中" />

<%@ Language=VBScript%>
导出<STRONG><A href=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>

原文转自：http://www.ltesting.net

相关文章

软件测试沙龙 More>>

新浪微博More>>

...

热门标签