ASP按查询条件得到网页上的一个表格,做个按钮如何写代码把网页上的表格数据导入到EXCEL中,有固定形式的代码或思想吗

[xiao_mege]

ASP按查询条件得到网页上的一个表格,做个按钮如何写代码把网页上的表格数据导入到EXCEL中,有固定形式的代码或思想吗

[xiaoqiang08]

没有统一的格式,我这有一段代码可以帮助你.这段代码是把查找后的记录集写到excel表中.
<%
id=replace(request("id"),"'","")
mk_id=replace(request("mk_id"),"'","")
if trim(id)="" and trim(mk_id)="" then
response.Write("<script language=javascript>alert('参数错误!');history.go(-1);</script>")
response.end
end if
set fs = server.CreateObject("scripting.FileSystemObject")
dim myfile,filename,fileUrlName
filename = ""
fileUrlName = ""
filename ="excel/user.xls"
fileUrlName = filename
filename = server.mapPath(filename)
if fs.fileExists(filename) then fs.DeleteFile(filename)
set myfile = fs.CreateTextfile(filename,true,true)


title = "序号"&chrw(9)&"姓名"&chrw(9)&"性别"&chrw(9)&"班级"&chrw(9)&"考试科目名称"&chrw(9)&"身份证号"&chrw(9)&"正考/补考"&chrw(9)&"费用"&chrw(9)&"报名时间"&chrw(9)&"电话号码"&chrw(9)
myfile.writeline(title)
set rs=server.CreateObject("adodb.recordset")
if id="" and mk_id<>"" then
sql="select user_name,user_sex,user_class,user_lb_name,user_id,user_zk_bk,user_fy,user_time,user_tel,user_km1 from IT_bmb where user_km1='"&mk_id&"' and user_ks=false"
else
sql="select user_name,user_sex,user_class,user_lb_name,user_id,user_zk_bk,user_fy,user_time,user_tel,user_km1 from IT_bmb where user_km='"&id&"' and user_ks=false"
end if

rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("没有找到!")
else
i=1
do while not rs.eof
zk_bk=rs("user_zk_bk")
if zk_bk=1 then
zk_bk="正考"
else
zk_bk="补考"
end if
username=rs("user_name")

if isnull(rs("user_id")) then
user_id=""
else
user_id="'"&replace(rs("user_id"),"'","")
end if

user_tel="'"&replace(rs("user_tel"),"'","")
content=i&chrw(9)&username&chrw(9)&rs("user_sex")&chrw(9)&rs("user_class")&chrw(9)&rs("user_lb_name")&chrw(9)&user_id&chrw(9)&zk_bk&chrw(9)&rs("user_fy")&chrw(9)&rs("user_time")&chrw(9)&user_tel&chrw(9)
myfile.writeline(content)
rs.movenext
i=i+1
loop
rs.close
myfile.close
%>
<table width="75%" height="190" border="0" align="center" cellpadding="3" cellspacing="1" class="a2">
<tr class="a1">
<td height="52" align="center">导入数据成功</td>
</tr>
<tr>
<td height="78" valign="top"><table width="100%" border="0" cellpadding="3" cellspacing="1" class="a2" style="margin-top:2px;margin-bottom:10px;">

<tr>
<td height="63" align="center" class="a3"><%Response.Write "生成EXCEL文件成功，共有"&i-1&"条记录,请点击'下载'到本地<a href=""excel/user.xls"" target=""_blank"">下载</a>"
%></td>
</tr>

<tr>
<td height="50" align="center" class="a3">
　　
<input type="button" name="Submit" onclick=history.go(-1) value="返回" /></td>
</tr>
</table></td>
</tr>
</table>
<%
set myfile = nothing
set fs = nothing
set conn=nothing
end if
%>

[xiaoqiang08]

好用不好用自己看着办吧!

呵呵...


好几年没有来这了,今天第一次加贴.

[myvicy]

参考:
http://topic.csdn.net/u/20070909/20/91fc022b-25b5-4581-aba2-da958cf242dd.html

[oodd258]

<%
dim rs,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("download.xls")
'Response.Write filename
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
'--从数据库中把你想放到EXCEL中的数据查出来
sql="select ProdNum as 序列号,ProdId as 商品编号,ProdName as 商品名,Model as 商品型号,Prod2 as 商品产地,PriceList as 现价,PriceOrigin as 原价,jifenzhi as 赠送积分,Quantity as 库存状态（0缺货，1有货）,ProdDisc as 商品简介,LarCode as 所属大类名称,MidCode as 所属中类名称,Online as 是否在线,AddDate as 上架日期,TJDate as 首页推荐日期,ClickTimes as 点击次数,Remark as 首页推荐（0否，1是）,tejia as 特价商品（0否，1是）,pinpai as 品排 from bproduc order by ProdNum desc"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
else
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine = strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine = strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
Response.ContentType="application/x-msdownload"
Response.Redirect "download.xls"
%>