最火下载站首页
手机版
最火下载站
关注公众号
最火下载站
Web在线Office(Word)编辑控件下载 v2.2.0.2

Web在线Office(Word)编辑控件下载 v2.2.0.2

  • 软件大小:140 KB
  • 软件语言:简体中文
  • 软件类型:其它分类
  • 软件授权:免费版
  • 应用平台:php/asp/html/asp.net/jsp...
  • 更新时间:未更新
  • 发布时间:2013-04-19 10:36:55

网友评分: 0

软件非常好(0) 软件不好用(0)

Web在线Office(Word)编辑控件

Web在线Office(Word)编辑控件 v2.2.0.2

要求是ASP. NET(VB)
包括前接口和处理页的全代码
我自己调试了很久 找不到问题关键
头痛死了
都是点了触发按钮就看到硬盘闪了下就不动了

代码贴上:

前台页



<br />OFFICE <br />


new

classid="clsid:00460182-9E5E-11D5-B7C8-B8269041DD57" codebase="dsoframer.ocx">






处理页

Partial Class test
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Request.Files.Count = 0 Then

Response.Write("未发现文件被上传")
Response.End()
End If
If Request.Files(0).ContentLength = 0 Then

Response.Write("上传文件数据错误")
Response.End()
End If
'定义保存文件的物理路径
Dim strTmpPath As String = System.IO.Path.GetDirectoryName(Page.Request.PhysicalPath)

'定义保存文件的服务器路径
Dim strUpLoadFilePath As String = strTmpPath & "\UploadFile\"
'重新命名文件名
Dim TmpStrNewFileName As String = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & ".doc"
Dim fullFileName As String = strUpLoadFilePath & TmpStrNewFileName

Request.Files(0).SaveAs(fullFileName)
Response.Write("文件上传保存成功")
Response.End()

End Sub
End Class

标签: