当前位置：首页 -> 技术开发 -> ASP专区 -> 输出EXCEL文件的通用函数，很实用

输出EXCEL文件的通用函数，很实用

时间： 2021-07-31 作者：daque

阿余常要把形形色色的查问截止输入到excel中，以是做了底下这段小步调，用来把一个sql的select查问出的截止输入为excel方法文献，这个步调你只有设好用来博得一个记载集的sql的select查问语句和一个文献名，步调就能输入excel方法文献了，这个步调所有由三个文献形成，第一个文献的文献名为：toexcel.asp是主文献，实质如次： <% '前方是树立数据源并链接到数据库,请自行抄写关系语句，此处略过 sql=session("toexcelsql") '这边是要输入excel的查问语句，如 "sesect * form cai where 性别='女'" filename="excel.xls" ' 要输入的excel文献的文献名, 你只有改之上两句就行了,其它的都不要改. '你只有窜改之上两变量就行了.其它的我都做好了. call toexcel(filename,sql) set conn=nothing function readtext(filename) '这是一个用来读出文献的因变量 set adf=server.createobject("adodb.stream") with adf .type=2 .lineseparator=10 .open .loadfromfile (server.mappath(filename)) .charset="gb2312" .position=2 readtext=.readtext .cancel() .close() end with set ads=nothing end function sub savetext(filename,data) '这是一个用来写文献的因变量 set fs= createobject("scripting.filesystemobject") set ts=fs.createtextfile(server.mappath(filename),true) ts.writeline(data) ts.close set ts=nothing set fs=nothing end sub sub toexcel(filename,sql) '这是一个按照sql语句和filename天生excel文献 set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 toexcellr="<table width='100%'><tr >" set myfield=rs.fields dim fieldname(50) for i=0 to myfield.count-1 toexcellr=toexcellr&"<td class=xl24>"&myfield(i).name&"</td>" fieldname(i)=myfield(i).name if myfield(i).type=135 then datename=datename&myfield(i).name&"," next toexcellr=toexcellr&"</tr>" do while not rs.eof toexcellr=toexcellr&"<tr>" for i=0 to myfield.count-1 if instr(datename,fieldname(i)&",")<>0 then if not isnull(rs(fieldname(i))) then toexcellr=toexcellr&"<td class=xl25 ><p align='left'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>" else toexcellr=toexcellr&"<td class=xl25 ><p align='left'>　</p></td>" end if else toexcellr=toexcellr&"<td class=xl24 >"&rs(fieldname(i))&"</td>" end if next toexcellr=toexcellr&"</tr>" rs.movenext loop toexcellr=toexcellr&"" tou=readtext("tou.txt") di=readtext("di.txt") toexcellr=tou&toexcellr&di call savetext(filename,toexcellr) end sub %> <html> <head> <meta http-equiv="refresh" content="3;url=<%=filename%>"> <meta http-equiv="content-language" content="en-us"> <meta http-equiv="content-type" content="text/html; charset=utf8"> <title>正在天生exlce文献</title> </head> <body> 正在天生exlce文献.... </body> </html> ＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二个文献名为：di.txt 实质如次： <table x:str border=0 cellpadding=0 cellspacing=0 width=288 style='border-collapse: collapse;table-layout:fixed;width:216pt'> <![if supportmisalignedcolumns]> <tr height=0 style='display:none'> <td width=72 style='width:54pt'></td> <td width=72 style='width:54pt'></td> <td width=72 style='width:54pt'></td> <td width=72 style='width:54pt'></td> </tr> <![endif]> ＊＊＊＊＊＊＊＊＊＊＊＊第三个文献的文献名为：tou.txt　实质如次： <html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/tr/rec-html40"> <head> <meta http-equiv=content-type content="text/html; charset=gb2312"> <meta name=progid content=excel.sheet> <meta name=generator content="microsoft excel 9"> <link rel=file-list href="./222.files/filelist.xml"> <link rel=edit-time-data href="./222.files/editdata.mso"> <link rel=ole-object-data href="./222.files/oledata.mso">  <style>  </style>  </head> <body link=blue vlink=purple>

输出EXCEL文件的通用函数，很实用

相关推荐

推荐下载

热门阅览

最新排行