ASP中如何实现批处理解决没有权限的问题

liqijian 2015-01-31 03:48:26
由于ASP功能的限制,在使用的时候,常常要用到让ASP去调用一些其它组件,但是往往会发生一些权限问题,如下面所示的是:在用ASP创建Excel.Application实例时,提示的错误.(创建代码:set objExcel=CreateObject("Excel.Application"))

网上有贴子可以解决这个问题,但我想通过批处理实现此功能,以简化操作。网贴的地址如下:
http://blog.sina.com.cn/s/blog_5cef6d430100dcsz.html
...全文
158 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
三楼の郎 2015-02-10
  • 打赏
  • 举报
回复
引用 楼主 liqijian 的回复:
由于ASP功能的限制,在使用的时候,常常要用到让ASP去调用一些其它组件,但是往往会发生一些权限问题,如下面所示的是:在用ASP创建Excel.Application实例时,提示的错误.(创建代码:set objExcel=CreateObject("Excel.Application"))
这根本就不是啥权限的问题,服务器没装Office根本不支持Excel.Application这东西,你有啥权限都是扯淡,用的别人的东西你就得遵守别人的规则,这就是所谓的人在屋檐下不得不低头,自己弄台服务器别说是Excel.Application,想弄啥弄啥,这就是所谓的有钱任性
pjq2012 2015-02-10
  • 打赏
  • 举报
回复
估计是你打算导出EXCEL,服务器上需要安装OFFICE
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Server.Scripttimeout=99999999%>
<%page_grade=3%>
<!--#include file="conn1.asp"-->

 <% 
set rs3=server.CreateObject("adodb.recordset") 

sql="select cj_nianji AS 年级,cj_xueyuan AS 学院,cj_banji AS 班级, cj_tyxm AS 项目,cj_fenban AS 上课时间,cj_laoshi AS 教师,cj_xuehao AS 学号,cj_xm AS 姓名,cj_sex AS 性别,cj_1 AS 身高(厘米),cj_2 AS 体重(公斤),cj_4 AS 肺活量(毫升),cj_5 AS 50米(秒),cj_6 AS 立定跳远(米),cj_7 AS 坐位体前屈(厘米),cj_8 AS 引体向上(男)仰卧起坐(女)(次),cj_9 AS 800米(女)1000米(男)(分秒),cj_bz AS 备注,cj_fs AS 成绩 from [cj] where cj_nianji='"&request("nj")&"'  order by cid asc"

rs3.open sql,conn,3,2


      if rs3.EOF and rs3.BOF then   
      response.write("<script>alert('无数据导出!!');window.close();</script>")   
      response.end   
      else  
	   
 dim   strLine    
 Set   fs = server.CreateObject("scripting.filesystemobject")  
  '--生成的EXCEL文件存放地址  
  if request("nj")="11" then
  nianji_text="大一"
  end if
  if request("nj")="12" then
  nianji_text="大二"
  end if
  if request("nj")="13" then
  nianji_text="大三"
  end if
  if request("nj")="14" then
  nianji_text="大四"
  end if
  
  fileName="down_excel\"&nianji_text&"-"&date()&".xls"
  filePath   =   Server.MapPath(fileName)  
  '--如果原来的EXCEL文件存在的话删除它  
  if   fs.FileExists(filePath)   then  
  fs.DeleteFile(filePath)  
  end   if  
  '--创建EXCEL文件  
  set   xlsFile   =   fs.CreateTextFile(filePath,true)  
   
  strLine=""  
  For   each   x   in   rs3.fields  
  strLine=   strLine   &   x.name   &   chr(9)  
  Next  
   
  '--将表的列名先写入EXCEL  
  xlsFile.writeline   strLine  
   
  Do   while   Not   rs3.EOF  
  strLine=""  
   
  for   each   x   in   rs3.Fields  
  strLine=   strLine   &   x.value   &   chr(9)  
  next  
  '--将表的数据写入EXCEL  
  xlsFile.writeline   strLine  
   
  rs3.MoveNext  
  loop
  
 response.write"<font color=#FF0000>【成功导出!】【<a href=""javascript:history.back();"">点击返回</a>】</font><br>"  
 fileurl=left(Request.ServerVariables("Http_Referer") ,len(Request.ServerVariables("Http_Referer"))-21)& replace(fileName,"\","/")

 %>  <br>

 <a href="<%= fileurl %>" target="_blank">点击下载</a>  
      
<%	  end if   
      rs3.Close       
      set rs3=nothing   
'Response.ContentType="application/x-msdownload"   
  %> 
xcgh 2015-01-31
  • 打赏
  • 举报
回复
这个应该不行
liqijian 2015-01-31
  • 打赏
  • 举报
回复
顶一下,大家参与哈。

28,397

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧