网络收藏

set   obj=server.createobject("word.application")  
  set   doc=server.createobject("word.document")  
  procright="<%=rs("currentprocessright")%>"  
           
  on   error   resume   next  
           
  if   procright="r"   then  
      set   doc=obj.documents.open   ("http://<%=servername%>/<%=sqlfile%>/<%=rs("contentid")%>",,true,false)  
      doc.application.commandbars("qzoa").delete  
  else  
      set   doc=obj.documents.open   ("http://<%=servername%>/<%=sqlfile%>/<%=rs("contentid")%>",,,false)  
  end   if  
  obj.visible   =   true  
  obj.username="<%=session("username")%>"  
  obj.userinitials="<%=session("username")%>"  
 

推荐阅读