微信扫一扫2.8w+
社区成员
HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!各位大虾来帮忙
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<HTML>
<HEAD>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<TITLE>生成EXCEL文件</TITLE>
</HEAD>
<body>
<a href="makeexcel.asp?act=make">生成EXCEL</a>
<hr size=1 align=left width=300px>
<%
if Request("act") = "" then
else
dim conn,connString
set conn=server.CreateObject("adodb.connection")
connString = "Driver={SQL Server};Server=127.0.0.1;Database=test;Uid=sa;Pwd=testpwd;"
'conn.Open "test","sa",""
'conn.Open Application("connstr")
conn.Open connString
dim rs,sql,filename,fs,myfile,x,link
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("c:\inetpub\wwwroot\sheet\333.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile=fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
'--从数据库中把你想放到EXCEL中的数据查出来
sql = "select * from testdb WHERE 考核日期 between '2002-02-28' and '2002-03-29' order by 考核日期 desc"
rs.Open sql,conn
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
'--将表的列名先写入EXCEL
myfile.writeline strLine
dim fieldValue
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
fieldValue = x.value
if not IsNull(fieldValue) then
fieldValue=Replace(x.value,chr(13)&chr(10),"||")
else
end if
strLine= strLine & fieldValue & chr(9)
'strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
link="<A HREF=" & filename & ">Open The Excel File</a>"
Response.write link
end if
%>
</BODY>
</HTML>
为什么我点击超链接后说找不到文件？是否filename = Server.MapPath("c:\inetpub\wwwroot\sheet\333.xls")写错了？谢谢各位兄弟姐妹大虾们了，帮帮我，急啊！！！！！
<%option explicit%>
<HTML>
<HEAD>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<TITLE>生成EXCEL文件</TITLE>
</HEAD>
<body>
<a href="makeexcel.asp?act=make">生成EXCEL</a>
<hr size=1 align=left width=300px>
<%
if Request("act") = "" then
else
dim conn,connString
set conn=server.CreateObject("adodb.connection")
connString = "Driver={SQL Server};Server=127.0.0.1;Database=test;Uid=sa;Pwd=testpwd;"
'conn.Open "test","sa",""
'conn.Open Application("connstr")
conn.Open connString
dim rs,sql,filename,fs,myfile,x,link
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("c:\inetpub\wwwroot\sheet\333.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile=fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
'--从数据库中把你想放到EXCEL中的数据查出来
sql = "select * from testdb WHERE 考核日期 between '2002-02-28' and '2002-03-29' order by 考核日期 desc"
rs.Open sql,conn
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
'--将表的列名先写入EXCEL
myfile.writeline strLine
dim fieldValue
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
fieldValue = x.value
if not IsNull(fieldValue) then
fieldValue=Replace(x.value,chr(13)&chr(10),"||")
else
end if
strLine= strLine & fieldValue & chr(9)
'strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
link="<A HREF=" & filename & ">Open The Excel File</a>"
Response.write link
end if
%>
</BODY>
</HTML>
为什么我点击超链接后说找不到文件？是否filename = Server.MapPath("c:\inetpub\wwwroot\sheet\333.xls")写错了？谢谢各位兄弟姐妹大虾们了，帮帮我，急啊！！！！！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
fengzhichaowuxi1 2004-05-06
哪位大虾能指出我的错误？小弟真的没辙了
- 打赏
- 举报
fengzhichaowuxi1 2004-05-06
我试试吧，那么有没有哪位大虾会ASP中实现文件下载的代码啊？
- 打赏
- 举报
sfply 2004-05-06
用相对路径
server.mappath("./")是当前路径
server.mappath("../")是当前的上级路径
下级路径就
server.mappath("./")&"/submd/333.xsl"
这样应该是没问题的，自己选着用吧
server.mappath("./")是当前路径
server.mappath("../")是当前的上级路径
下级路径就
server.mappath("./")&"/submd/333.xsl"
这样应该是没问题的，自己选着用吧
- 打赏
- 举报
fengzhichaowuxi1 2004-05-06
要写两个引号？
- 打赏
- 举报
swshan 2004-05-06
link="<A HREF=""& filename &"">Open The Excel File</a>"
Response.write link
Response.write link
- 打赏
- 举报
fengzhichaowuxi1 2004-05-06
那么要怎么写呢？
- 打赏
- 举报
skyboy0720 2004-05-06
Server.MapPath（）
是一个取相对路径函数吧，你里面写的是绝对路径！
是一个取相对路径函数吧，你里面写的是绝对路径！
- 打赏
- 举报
redhat linux 硬盘挂载方法!!!,Redhat Linux 硬盘挂载方法！！！ 2、对要挂载的硬盘创建磁盘分区 创建磁盘分区步骤举例如下： # fdisk /dev/sdb 进入fdisk模式： Command (m for help):m //查看fdisk命令帮助 Command (m for help):n //创建新分区 Command action： e extended...
mysql != 效率_mysql 中<4 OR >6的效率要大于 !=5？ 哥们，你标题中的结论和对explain的理解都是错的。第一. 这两种写法几乎是等价的，不存在哪个性能更好为什么...=5有可能少返回两条数据，少了help_category_id =4和help_category_id =6两条(如果这两条存在的话)看截...
starting mysql. success!_MYSQL: Starting MySQL….. ERROR! The server quit without updating PID file解决... OK Filling help tables... OK To start mysqld at boot time you have to copy support-files/mysql.server to the right place for your system PLEASE REMEMBER TO SET A PASSWORD FOR THE MySQL root USER ! To...
ACboy needs your help again! 题目 ACboy was kidnapped!! he miss his mother very much and is very scare now.You can’t image how dark the room he was put into is, so poor ????. As a smart ACMer, you want to get ACboy out of the ...
Do Not Be Distracted! Help Polycarp find out if his teacher might be suspicious. Input The first line contains an integer t (1≤t≤1000). Then t test cases follow. The first line of each test case contains one integer n ...
pycharm最新解决方法！！ 打开IDE，点击help->Register->Add NewLisense->Activation code->复制key.txt中的激活码，粘贴到下面的输入框中（绿色代表激活码正确，否则的表示拉入的补丁不正确，请重新上述步骤）->点击Activate->Close 验证...
Wget下载!小白版本! 下载exe文件,并全部默认安装在(C:\Program Files (x86)\GnuWin32）下 ...设置系统环境变量 右键我的电脑------属性-----进入此界面----点击高级系统... ... 添加新的环境变量: 3.添加path变量: ...打开cmd,输入wget --help.
Hello EveryOne! This is my first short article.I hope to show my daliy work and konwledege about Vue.js and Java to record my accumulatation. Thank you for watching... I hope these infomation will help you in some day!
lamp架构！ 1. lamp简介。 所谓lamp，其实就是由Linux+Apache+Mysql/MariaDB+Php/Perl/Python的一组动态网站或者服务器的开源软件，除Linux外其它各部件本身都是各自独立的程序，但是因为经常被放在一起使用，拥有了越来越高... ...
Java Helloworld! Java的源文件是*.java，纯面向对象，main入口函数也要放到一个类里面，声明为静态函数。 具体安装过程请参见之前的文章：“安装... 具体可执行jar --help 或jar -h查看。 C:\project>java -jar test.jar Hello World!
Developer Relations Engineer 虚位以待！ In this role, you will work closely with partners on their complex product integrations on android apps and help bring solutions that create a cohesive experience and great experience to end users on...
linux nginx discuz安装失败,discuz! and Nginx rewrite ^/forum/(emailuser|featuresettings|findmember|groups|help|helpadmin|im|jseditor|jsmodify)/?$ "/forum/index.php?pretty;action=$1" last; rewrite ^/forum/(jsoption|lock|lockvoting|login|login2|...
php crew 加密解密,Ask the Hetalia Crew! Allies to HELP~!Russia, scary or not?Planning! *snickers*Oh crap...ISLAND?!?!? YAY!!More planningMORE QuestionsJapan's got a admirer?More Planning?Germany, the HRE??PARTY?!?!?England's Dare or DareCan...
COCOAPODS介紹與安裝！ [ cocoapods簡介 ]： CocoaPods：2011/08/12於Github上進行發展，主要負責管理app中Open Source的工具。 在app得開發過程中，有時...-help Show help banner of specified command 參考資料來源： 安裝前的前置作業：...
MoveIt! RViz Visual Tools设置 2、保存设置 如上图所示，右键“Displays”，点击“Help”选项，会出来rviz的快捷操作方法。 将当前的配置保存，使用“Ctrl-s”，默认的路径是/opt/ros/kinitic/shar/.....，该路劲下文件默认为只读的， 所以直接...
学习vim的正确姿势！ ???? 星标「嵌入式大杂烩」，一起进步！????有很多种方法可以去学习Vim：vimtutor就是一个很棒的教程，另外还有help拥有您所想的所有参考信息。链接:https://github.com...
死锁的 4 种排查工具 ！ PS：可以使用 jstack -help 查看更多命令使用说明。 方案 2：jconsole 使用 jconsole 需要打开 JDK 的 bin 目录，找到 jconsole 并双击打开，如下图所示： 然后选择要调试的程序，如下图所示： 之后点击连接进入，...
