在ASP中怎么把页面中的数据导出到EXCEL

使用asp怎样将数据导出到excel文件 Web

注意：两个函数中的“data“是网页中要导出的table的 id

导出到Excel代码

导出到Word代码

在ASP中怎么把页面中的数据导出到EXCEL

直接读SQL库，我想也可以用来解决你的问题，（同理：页面上显示的内容当然也是读库的，除非你是静态的那算了）

<%

dim conn,strconn

set conn=server.CreateObject("adodb.connection")

conn.Open ConnStr

dim rs,sql,filename,fs,myfile,x

Set fs = server.CreateObject("scripting.filesystemobject")

filepath=Request.ServerVariables("APPL_PHYSICAL_PATH")

filename = filepath&"temp_xls\"&year(now)&month(now)&day(now)&".xls"

if fs.FileExists(filename) then

fs.DeleteFile(filename)

end if

set myfile = fs.CreateTextFile(filename,true)

Set rs = Server.CreateObject("ADODB.Recordset")

sql = "select * from jdxx"

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 & https://www.360docs.net/doc/7d16916566.html, & chr(9)

Next

myfile.writeline strLine

Do while Not rs.EOF

strLine=""

for each x in rs.Fields

strLine = strLine & x.value & chr(9)

next

myfile.writeline strLine

rs.MoveNext

loop

end if

rs.Close

set rs = nothing

remotefile="http://xxx.xxx.x.xxx/temp_xls/"&year(now)&month(now)&day(now)&".xls" response.write "报表巳生成，请点击这里下载该报表!"

%>

在ASP中怎么把页面中的数据导出到EXCEL

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="950"%>

<%

'關鍵所在

Response.ContentType = "application/vnd.ms-excel"

Set conn=Server.CreateObject("ADODB.Connection")

Set rs=Server.CreateObject("ADODB.Recordset")

strconn = "Provider = SQLOLEDB; Data Source = 192.168.0.2; Uid=gt_bbs;Pwd=gt_bbs;DataBase=gt_bbs"

conn.open strconn

SQL="Select top 100 id,uid,uer,bm,zw,zb,gxrq,ip,be From Gt_user order by id desc"

rs.Open SQL,conn,3,1

if rs.eof and rs.bof then

Response.Write"

沒有任何記錄

"

else

%>

代

名

部門

別

登

登 IP

<%do while (Not RS.Eof) and (I

>

<%

Rs.MoveNext

Loop

end IF

Set Conn = Nothing

Set Rs = Nothing

%>

<%=rs(1)%>

<%=rs(2)%>

<%=rs(3)%>

<%=rs(4)%>

<%=rs(5)%>

<%=rs(6)%>

<%=rs(7)%>