当前位置: 代码迷 >> ASP >> 高分server.地图path怎么取得服务器的地址?高手快助小弟我
  详细解决方案

高分server.地图path怎么取得服务器的地址?高手快助小弟我

热度:408   发布时间:2013-07-08 14:13:00.0
高分求助server.mappath如何取得服务器的地址?高手快助我!
代码如下:
<!--#include file="adminconn.inc" -->
<%
'(1) 建立Excel.Application对象 
set objExcel=CreateObject("Excel.Application") 
'(2) 打开Excel模板 
objExcel.Workbooks.Open(server.mappath("\temp")&"\htxx.xlt") '打开Excel模板 
objExcel.Sheets(1).select '选中工作页 
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet  
'(3) Excel的常规添加操作 
'sheetActive.range("g4").value=date()  '这里添加的是时间,当然也可以是你指定的任何数据 
'(4) Excel中添加数据库中的纪录 
'这里假设已有一个数据集adoRset,存放由Sql操作生成的统计数据。 
Set adoRset=Server.CreateObject("ADODB.RecordSet") 
sql="select * from hetong order by id"
   adoRset.open sql,conn,1,1
num=3 '从Excel的第七行开始 
do until adoRset.EOF '循环直至数据集中的数据写完 
strRange="a"&num&":j"&num '设定要填写内容的单元区域 
sheetActive.range(strRange).font.size=10 '设定字体大小 
sheetActive.range(strRange).WrapText=false '设定文字回卷 
sheetActive.range(strRange).ShrinkToFit=true '设定是否自动适应表格单元大小 
sheetActive.range(strRange).value=array(ltrim(trim(adoRset("fenlei"))),ltrim(trim(adoRset("htbh")))&" "&ltrim(trim(adoRset("htbh_bc"))),ltrim(trim(adoRset("htdw"))),ltrim(trim(adoRset("wzmc"))),ltrim(trim(adoRset("htje"))),adoRset("yfk_bl")*100,adoRset("jsk_bl")*100,adoRset("zbj_bl")*100,adoRset("qd_date"),ltrim(trim(adoRset("beizhu"))) ) '把数据集中的数据填写到相应的单元中 
num=num+1 
adoRset.MoveNext 
loop 
'(5) Excel临时报表文件的保存及处理 
function getTemporaryFile(myFileSystem)  
dim tempFile,dotPos 
tempFile=myFileSystem.getTempName 
dotPos=instr(1,tempFile,".") 
getTemporaryFile=mid(tempFile,1,dotPos)&"xls" 
end function  
set myFs=createObject("scripting.FileSystemObject") 
filePos=server.mappath("\temp") & "\tmp\" '要存放打印临时文件的临时目录 
fileName=getTemporaryFile(myFs) '取得一个临时文件名 
'myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件 
set myFs=nothing 
'Excel临时文件的保存代码为: 
objExcel.ActiveWorkbook.saveas filePos&filename  
'(6) 退出Excel应用 
objExcel.quit 
set objExcel=Nothing 
%>

存在问题:
用此程序可实现导出文件至EXCEL,网络环境下,用客户端机器访问服务器,提示导出成功,然后点击下载导出的文件,提示文件不存在,原因是导出的文件路径显示的是服务器的物理路径(如:d:\web\.....),并非我想要的地址(如:http://10.10.2.1/...).server.mappath行如何写,才能实现这个目的呢。急急急。

------解决方案--------------------
不用server.mappath,直接从网站更目录设置路径就行了
其他不变,增加红色的
<%
'(1) 建立Excel.Application对象 
set objExcel=CreateObject("Excel.Application") 
'(2) 打开Excel模板 
objExcel.Workbooks.Open(server.mappath("\temp")&"\htxx.xlt") '打开Excel模板 
objExcel.Sheets(1).select '选中工作页 
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet  
'(3) Excel的常规添加操作 
'sheetActive.range("g4").value=date()  '这里添加的是时间,当然也可以是你指定的任何数据 
'(4) Excel中添加数据库中的纪录 
'这里假设已有一个数据集adoRset,存放由Sql操作生成的统计数据。 
Set adoRset=Server.CreateObject("ADODB.RecordSet") 
  相关解决方案