软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 源码下载 > 脚本资源 > 其它分类 > Web在线Office(Word)编辑控件 v2.2.0.2下载

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

  • 界面语言:简体中文 / 国产软件
  • 文件大小:140 KB
  • 资源等级:3星级
  • 相关链接:Home Page
  • 有无插件:无插件,请您放心使用!
  • 授权方式:免费版
  • 更新时间:2013-04-19 10:36:55
  • 运行环境:php/asp/html/asp.net/jsp...

Web在线Office(Word)编辑控件

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

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

代码贴上:

前台页

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head> <title>
OFFICE
</title> </head>
<script type="text/javascript">
function newdoc(){

document.all.DSOFramer.CreateNew("Word.Document");

}


function SaveToWeb()
{
document.all.DSOFramer.HttpInit();
document.all.DSOFramer.HttpAddPostString("RecordID","20060102200");
document.all.DSOFramer.HttpAddPostString("UserID","李局长");
document.all.DSOFramer.HttpAddPostCurrFile("File", "");
document.all.DSOFramer.HttpPost("http://127.0.0.1/c/test.aspx");
}
</script>
<body>
<div onClick=newdoc() >new </div>
<object id=DSOFramer align="middle" style="LEFT: 0px; WIDTH: 100%; TOP: 0px; HEIGHT: 100%"
classid="clsid:00460182-9E5E-11D5-B7C8-B8269041DD57" codebase="dsoframer.ocx">
</object>
<input type="button" onclick="SaveToWeb()" value="保存"/> <br>
</body>
</html>

处理页

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

 报告下载错误
Web在线Office(Word)编辑控件 v2.2.0.2
推荐下载
下载说明
栏目导航
推荐下载