<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sqlrs="select * from UserInfo where id="&request.QueryString("id")
rs.open sqlrs,conn,1,1
if not rs.eof then
Uname=rs("Uname")
Uname1=rs("Uname1")
Ucom=rs("Ucom")
Uadd=rs("Uadd")
Utel=rs("Utel")
Umtel=rs("Umtel")
Ucode=rs("Ucode")
Uemail=rs("Uemail")
Sex=rs("Sex")
GroupID=rs("GroupID")
Udate=rs("Udate")
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
"--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("excel/"&Uname&".xls")
"--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
"--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
strLine="中国发明家俱乐部会员注册资料"
myfile.writeline strLine
strLine="帐户名"& chr(9)&"姓名"& chr(9)&"性别"& chr(9)&"会员类型"& chr(9)&"公司"&chr(9)&"电话"&chr(9)&"手机"&chr(9)&"邮编"&chr(9)&"电子邮件"&chr(9)&"注册时间"
myfile.writeline strLine
strLine=Uname & chr(9)&Uname1&chr(9)&Sex&chr(9)&GroupID&chr(9)&Ucom&chr(9)&Utel&chr(9)&Umtel&chr(9)& Ucode&chr(9)&Uemail&chr(9)&Udate&chr(9)
myfile.writeline strLine
Response.Write "生成EXCEL文件成功，点击<a href="excel/"&Uname&".xls" target="_blank">下载</a>！"
end if
rs.close
set rs=nothing
%>
注：在服务器上下载时要用网址加相对路径下载
