发新话题
打印

今天看到一个贴,是讲用asp将doc转成html的,用到.vbs这是什么文件?怎么用

今天看到一个贴,是讲用asp将doc转成html的,用到.vbs这是什么文件?怎么用

他的示例是doc2html.vbs    可这该怎么用呢?在asp中,还有如果doc中有图片,存出来会是什么样?能连图一起存出来吗?

TOP

1、那个VBS应该就是个VBSCRIPT脚本,可以用在ASP中。  
2、具体原理是用CreateObject建立一个WORD对象(只要你的服务器装了OFFICE就可以),然后调用WORD对象读入DOC文档,再用WORD对象将DOC文档转成HTML文档。  
3、能把图存下来,如果你想看一下效果,你直接在WORD中打开你的DOC文档,然后保存成HTML文档,就是那种效果。

TOP

doc2html.vbs  
实际功能类似与word  的文件-另存为

TOP

VBS就是VB脚本程序,扩展名是VBS的可以直接双击运行,语法就是VBSCRIPT,与ASP中用的一样。  
他叫WSH,WINDOWS98开始系统就带了。  
它可以说是WINDOWS版的批处理,当然功能强大多了。  
它执行的程序好像叫WSCRIPT.EXE。  
客户段脚本就是由它支持的。  
因为WINDOWS有漏洞,怕执行HTML会传染病毒,有人把WSH删除了,这样就用不成了  
可以从微软网上下载最新版的WSH,现在好像是5.6版,不到2M  
...

TOP

那个VBS是在WINDOWS命令行环境中使用的,很多代码没有用,我来试一下提练一下,编个ASP的过程。  

1、先申明,没测过,有兴趣的测一下吧。  
2、另外,据我以往的经验,OFFICE的东东都比较耗内存,要有心理准备。  
3、src、dest都是含绝对路径的文件名,src是DOC文档名,dest是HTML文档名。  

Function  Word2Html(src,dest)  
       Set  objWord  =  CreateObject("Word.Application")  
       objWord.Visible  =  False  
       objWord.Documents.Open  src  
       Set  objDoc  =  objWord.Activedocument  
       objDoc.SaveAs  dest,8  
       On  Error  Resume  Next  
       objDoc.Close  
       objWord.Quit  
       Set  objDoc  =  Nothing  
       Set  objWord  =  Nothing  
End  Function

TOP

<%   
on  error  resume  next  
Set  myword  =  server.CreateObject("word.application")  
set  mydocument  =  myword.Documents.Open(server.MapPath("word.doc")  ,False,  True)  
mydocument.SaveAs("C:\test.htm",  8)  
mydocument.Close  
myword.quit  
Set  mydocument  =  nothing  
Set  myword  =  nothing   
%>

TOP

楼上的,我按你的方法提示
Server 对象, ASP 0178 (0x80070005)
检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问
检查了用FSO可以生成其它的HTM页面,应该不是权限的问题吧。。可以帮下么?

TOP

发新话题