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 作者:
火之子 时间: 2006-4-19 13:04
<%
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
%> 作者:
cean 时间: 2006-4-27 21:56
楼上的,我按你的方法提示
Server 对象, ASP 0178 (0x80070005)
检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问
检查了用FSO可以生成其它的HTM页面,应该不是权限的问题吧。。可以帮下么?