请问如何使用asp，将access中查询出来的数据，导出到Excel，最好不使用javascript！版竹在哪里？在线等~~~

wanliang2001 2006-02-19 07:40:48

如题，因为是在外企工作，所以电脑上运行不了javascript写得过程，所以最好是不使用javascript！谢谢~~~~~~~在线等候佳音~~~~~

...全文

169 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

竹林听雨2005 2006-02-19

打赏
举报

<title>生成报表</title>
<%
'action=request("action")
'if action="make_excel" then
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&"jdxx\temp_xls\"&session("maindanwei")&"_jdxx_"&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 where 台站='"&session("maindanwei")&"'"
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
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://localhost/jdxx/temp_xls/"&session("maindanwei")&"_jdxx_"&year(now)&month(now)&day(now)&".xls"
'response.write remotefile
response.write "<font size=2 color=blue>报表巳生成，<a href="&remotefile&">请点击这里下载该报表!</a></font>"
'data_jdxx.xls>请点击这里下载该报表!</a>"
'else
' response.write "<form action='' method='post' id='make_excel'>"
' response.write "<input type='submit' name='Submit' value='生成报表'>"
' response.write "<input type='hidden' name='action' value='make_excel'>"
' response.write "</form><hr color='green' size='1' align='center' width='100%'>"
'end if
%>

孟子E章 2006-02-19

打赏
举报

<%@ language=vbscript %>
<%
response.buffer = true
response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=dynamic.xls"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns:o="urn:schemas-microsoft-com:office:office">
<HEAD>
<title>an Excel page</title>

<style>
.xl25 { WHITE-SPACE: normal; mso-number-format: "mmm\ d,\ yyyy" }
.head { BACKGROUND: #ccccff; COLOR: green}
</style>
</HEAD>
<body>
<table width=260>
<tr><td class=head colspan=5 align=center><b>Our Data</b></td></tr>
<tr><td class=xl25>5/10/2002</td>
<%
for i = 1 to 4
response.write "<td width=40>"
response.write i + i
response.write "</td>"
next
%>
<tr>
<td colspan=4><b>total</b></td>
<td><b>=sum(B2:E2)</b></td>
</tr>
</table>
</body>
</HTML>
<%
response.flush
response.end
%>

孟子E章 2006-02-19