导出SQLServer数据到Excel中

<%@ 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>

posted on 2006-05-17 17:04 edwin 阅读(490) 评论(0) 收藏举报