asp 在客戶端打開服務器上的EXCEL文件 ？？？？？？？？？？

首先：
         我已通過FileUpload控件將excel文件上傳到服務器端現在我想做的是：
         想在客戶端打開剛剛上傳到服務器上的excel文件請問大家該怎麼實現？？？？？？？？？？？？請詳細！因本人初次接觸bs架構。

解决方案 »

  1.   

    dim myApp 
    sub RunOffice(app) 
    select case app 
    case "Word" 
    set myApp=createobject("word.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Documents.Open FileName.value 
    case "Excel" 
    set myApp=createobject("excel.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Workbooks.Open FileName.value 
    case "PPT" 
    set myApp=createobject("PowerPoint.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Presentations.Open FileName.value 
    end select 
    end sub 
      

  2.   

    然后调用
    <p><input type="button" value="用Word打开文档" name="B1" onclick="RunOffice('Word')"></p> 
    <p> 
    <input type="button" value="用Excel打开文档" name="B2" onclick="RunOffice('Excel')"></p> 
    <p><input type="button" value="用PPT打开文档" name="B3" onclick="RunOffice('PPT')"></p> 
      

  3.   

    补充下：<p><input type="file" id="FileName" size="20"></p> 
    少粘一行
      

  4.   

    SoftArtisans OfficeWriter  for .NET
      

  5.   

    是打开在网页上显示？还是用Excel打开？
      

  6.   

    <script language=vbscript> 
    dim myApp 
    sub RunOffice(app) 
    select case app 
    case "Word" 
    set myApp=createobject("word.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Documents.Open FileName.value 
    case "Excel" 
    set myApp=createobject("excel.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Workbooks.Open FileName.value 
    case "PPT" 
    set myApp=createobject("PowerPoint.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Presentations.Open FileName.value 
    end select 
    end sub 
    </script> 
      

  7.   

    大哥，不對啊，按照你說的只能打開客戶端PC里德EXCEL
      

  8.   

    <html> <head> 
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
    <title>网页调用Office程序</title> 
    </head> 
    <script language=vbscript> 
    <!-- 
    dim myApp 
    sub RunOffice(app) 
    select case app 
    case "Word" 
    set myApp=createobject("word.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Documents.Open FileName.value 
    case "Excel" 
    set myApp=createobject("excel.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Workbooks.Open FileName.value 
    case "PPT" 
    set myApp=createobject("PowerPoint.Application") 
    myapp.visible=true 
    if FileName.value <>"" then myapp.Presentations.Open FileName.value 
    end select 
    end sub 
    --> 
    </script> <body> <p><input type="file" id="FileName" size="20"></p> 
    <p><input type="button" value="用Word打开文档" name="B1" onclick="RunOffice('Word')"></p> 
    <p> 
    <input type="button" value="用Excel打开文档" name="B2" onclick="RunOffice('Excel')"></p> 
    <p><input type="button" value="用PPT打开文档" name="B3" onclick="RunOffice('PPT')"></p> </body> </html>
      

  9.   

    這位大哥，很感謝你的熱心腸，我已經按照你的做了，可是只能打開客戶端的EXCEL文件，可我是想打開服務器端的EXCEL文件哦！
      

  10.   

    if FileName.value <> ""
    这块是路径
    你把你服务器端的路径写死不就可以看见了吗
      

  11.   

    weboffice
    很多方案自己找合适的了。
    也可以用RIA代替。
      

  12.   


    謝謝！我要結貼了，分都給你吧，我直接用打開鏈接的方法就可以了，公司內部局域網使用，沒什麽大的問題，另說一聲，一直以來我是做C++ cs 架構的，第一次用ASP做網站，與CS架構的區別還是挺大的！哈哈