ASP生成EXLCE文件代码！

【2006年01月01日 13:13:45】　【阅读：次】　【字体：大中小默认】　【背景： #换背景

】

toexcel.asp---------------------------------------------

<%
dim conn
set conn=server.CreateObject("adodb.connection")
conn.Open "DBQ="&Server.Mappath("tx_data.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
前面是和来链接到数据库

sql="select * from [tx_use]" 这里是要输出EXCEL的查询语句，如 "SESECT * FORM tx_use 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&"</table>"
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=gb2312">
<title>正在生成EXLCE文件</title>
</head>
<BODY>
正在生成EXLCE文件....
</BODY>
</HTML>

tou.txt----------------------------------

<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>

di.txt-----------------------------------------

(『印像空间』　【本文来源：『转载』】　【作者：未知】　【录入：留印】)

点击查看

已有条评论

关键字：

搜索条件：