西安做网站ASP导出数据库到EXCEL文件

11382013-11-14

西安做网站ASP导出数据库到EXCEL文件<HTML>
<HEAD>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
<TITLE>西安做网站ASP导出数据库到EXCEL文件</TITLE>
<LINK href="images/style.css" type=text/css rel=stylesheet>
</HEAD>
<body>
<a href="?act=make">在线生成日志EXCEL</a>

<hr size=1 align=left width=300px>
<%
if Request("act") = "" then
'Response.Write "生成EXCEL文件"
else


S_et fs = serv_er.Create_Object("scri"&"pting.f"&"ilesys"&"tem"&"object") ‘取掉中间的下划线
filename = Ser_ver.Map_Path("logs.xls")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

s_et myfile = fs.Cre_ateText_File(filename,true)

S_et rs = Ser_ver.Create_Object("ADO"&"DB.Reco"&"rdset") ‘取掉中间的下划线
s_ql = "sel_ect * from data_logs order by id desc" ‘取掉中间的下划线
rs.O_pen 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
strLine = strLine & "时间" & chr(9)
strLine = strLine & "操作者" & chr(9)
strLine = strLine & "相关用户" & chr(9)
strLine = strLine & "动作日志" & chr(9)

myfile.writeline strLine
Do while Not rs.EOF
strLine=""
'for each x in rs.Fields
'strLine = strLine & x.value & chr(9)
'next

strLine = strLine & rs("log_time") & chr(9)
strLine = strLine & get_username(rs("user_id1")) & chr(9)
strLine = strLine & get_username(rs("user_id2")) & chr(9)
strLine = strLine & rs("act_log1") & chr(9)

myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
Response.Write "<a href=""logs.xls"" target=""_blank""  style=""color:blue"">下载logs.xls(右键另存)</a>"
End If
%>
 

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1