<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

Session.CodePage=936  

Response.Charset = "gb2312"  

%>

<!--#include file="conn.asp"-->

<%

set rs=server.CreateObject("adodb.recordset")

sql="Select userName,hyname From [hy]"

rs.open sql,conn,1,1

If Not Rs.Eof Then

        Html = "<table border='1'><tr><td>UserName</td><td>hyname</td></tr>"

While Not Rs.Eof 

   Html  = Html&"<tr><td>"&Rs(0)&"</td><td>"&Rs(1)&"</td></tr>"

Rs.MoveNext

Wend

Html  = Html&"</table>"

Response.Buffer=True

        Response.ContentType="application/excel"

        Response.AddHeader"Content-Disposition","attachment;filename=User_data_"&date()&".xls"

Response.Write(Html)

    Else

  Response.Write("<script>alert('未查询到数据！');location.href='./'</script>")

End If

Response.End()

%>