aspx页面代码(通过asp代码实现，不需要cs页面)，控件去dev-club下载
<%@ Page language="c#" Codebehind="SendPaperDocument.aspx.cs" AutoEventWireup="false" Inherits="KMP50._2052.Aspx.Paper.Aspx.SendPaperDocument" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>发文正文</title>
<meta name="GENERATOR" Content="Microsoft Visual Studio 7.0">
<meta name="CODE_LANGUAGE" Content="C#">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<LINK href="../../../css/OceanSoft.css" type="text/css" rel="stylesheet">
<script language="vbscript">
Dim bDocOpen
Dim pFileName
Dim bIsViewHistory
'页面加载
Sub PageLoad(UserName)
SendPaperDocument.oframe.caption="发文正文"
OpenLastDoc()
SendPaperDocument.oframe.ActiveDocument.Application.UserName=UserName
'SendPaperDocument.oframe.EnableFileCommand(dsoFileNew) = False
HideButton()
end sub
'获取最后文件
Sub OpenLastDoc()
Url=GetLastDoc(SendPaperDocument.txtPaperGuid.value)
if Url<>"new" then
SendPaperDocument.oframe.open Url
SendPaperDocument.oframe.ActiveDocument.TrackRevisions = True
pFileName=SendPaperDocument.txtFileName.value
else
NewDoc()
end if
End Sub
'接受修订
Sub AcceptRevisions()
if window.confirm("你确定要清稿吗？") then
On Error Resume Next
SendPaperDocument.oframe.ActiveDocument.AcceptAllRevisionsShown
SendPaperDocument.oframe.ActiveDocument.AcceptAllRevisions
end if
End Sub
'打开文件
Sub OpenDoc()
On Error Resume Next
SendPaperDocument.oframe.showdialog 1 'dsoDialogOpen
pFileName=GetFileName()
bIsViewHistory=false
'if err.number then
'MsgBox "Unable to Open Document: " & err.description
'end if
End Sub
'查看模板
Sub OpenWebDoc()
Dim sUrl
On Error Resume Next
window.open "SendPaperTemplateList.aspx?PaperGu
End Sub
'盖章
Sub AfterAddPicture(Url)
dim m
' m = SendPaperDocument.oframe.ActiveDocument.InlineShapes.Count
'm = m + SendPaperDocument.oframe.ActiveDocument.Shapes.Count
On Error Resume Next
SendPaperDocument.oframe.ActiveDocument.ActiveWindow.Selection.InlineShapes.AddPicture Url,false,true
m = SendPaperDocument.oframe.ActiveDocument.InlineShapes.Count
m = m + SendPaperDocument.oframe.ActiveDocument.Shapes.Count
SendPaperDocument.oframe.ActiveDocument.InlineShapes(m).ConvertToShape
End Sub
'保护文件
Sub ProtectDoc(pUrl)
SendPaperDocument.oframe.ActiveDocument.Protect 1
UploadDoc(pUrl)
End Sub
Sub oframe_OnDocumentOpened(str, obj)
Dim s, s2
On Error Resume Next
bDocOpen = True
if len(str) = 0 then
str = "New Document"
else
Dim x
x = InStr(str, "\")
if x then
do
str = mid(str, x+1)
x = Instr(str, "\")
loop while x > 0
else
x = Instr(str, "/")
if x Then
do
str = mid(str, x+1)
x = Instr(str, "/")
loop while x > 0
end if
end if
end if
s = obj.Application.Name
if len(s) = 0 then s = "Unknown Server"
'document.all.tstat.InnerHTML = "File: " & str & "<br>Server: " & s
End Sub
Sub oframe_OnDocumentClosed()
bDocOpen = False
'document.all.tstat.InnerHTML = "Try another file."
End Sub
Sub NewDoc()
On Error Resume Next
'SendPaperDocument.oframe.showdialog 0 'dsoDialogNew
'if err.number then
' MsgBox "不能创建新的对象: " & err.description
' end if
SendPaperDocument.oframe.CreateNew "Word.Document"
' Let user edit the document, then save it.
'SendPaperDocument.oframe.Save "http://ding/doc/test.ppt"
'SendPaperDocument.oframe.ActiveDocument.TrackRevisions = True
pFileName=GetFileName()
bIsViewHistory=false
End Sub
Sub OpenWebDoc1()
Dim sUrl
On Error Resume Next
sUrl = InputBox("打开文件的Web地址...","提示" ,"http://ding/doc/1.doc")
If Len(sUrl) Then
SendPaperDocument.oframe.open sUrl,,"Word.Document"
if err.number then
MsgBox "不能打开路径: " & err.description
end if
End If
End Sub
Sub SaveCopyDoc()
On Error Resume Next
If Not bDocOpen Then
MsgBox "你没有打开文件!"
Else
SendPaperDocument.oframe.showdialog 3 'dsoDialogSaveCopy
End If
End Sub
Sub ChgLayout()
On Error Resume Next
If Not bDocOpen Then
MsgBox "你没有打开文件!"
Else
SendPaperDocument.oframe.showdialog 5 'dsoDialogPageSetup
End If
End Sub
Sub PrintDoc()
On Error Resume Next
If Not bDocOpen Then
MsgBox "你没有打开文件!"
Else
SendPaperDocument.oframe.printout True
End If
End Sub
Sub CloseDoc()
On Error Resume Next
If Not bDocOpen Then
'MsgBox "你没有打开文件!",0,"提示"
Else
msgbox SendPaperDocument.oframe.ActiveDocument.saved
if SendPaperDocument.oframe.ActiveDocument.saved then
SendPaperDocument.oframe.close
else
rt=msgbox("当前文件没有保存，您是否需要保存？",4,"提示")
if rt=6 then
'UploadDoc pUrl
end if
end if
End If
End Sub
Sub ToggleTitlebar()
Dim x
On Error Resume Next
x = SendPaperDocument.oframe.Titlebar
SendPaperDocument.oframe.Titlebar = Not x
End Sub
Sub ToggleToolbars()
Dim x
On Error Resume Next
x = SendPaperDocument.oframe.Toolbars
SendPaperDocument.oframe.Toolbars = Not x
End Sub
</script>
<script language="javascript">
function PostData(PaperGuid,fileName,action)
{
var xmldoc=new ActiveXObject("Microsoft.XMLDOM");
xmldoc.loadXML("<root><paperguid>"+PaperGuid+"</paperguid><filename>"+fileName+"</filename><action>"+action+"</action></root>");
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("POST", "SendPaperTemplateList.aspx?Act=1", false);
xmlhttp.Send(xmldoc);
alert("保存成功!");
}
function GetLastDoc(PaperGuid)
{
var xmldoc=new ActiveXObject("Microsoft.XMLDOM");
xmldoc.loadXML("<root><paperguid>"+PaperGuid+"</paperguid></root>");
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("POST", "SaveRepaire.aspx?Act=GetLastDoc", false);
xmlhttp.Send(xmldoc);
var destxml=new ActiveXObject("Microsoft.XMLDOM");
destxml=xmlhttp.responseXML
//alert(destxml.xml);
SendPaperDocument.oframe.caption="发文正文"+":"+destxml.documentElement.childNodes[1].text+" "
SendPaperDocument.txtFileName.value=destxml.documentElement.childNodes[2].text
return destxml.documentElement.childNodes[0].text;
}
function GetFileName()
{
var xmldoc=new ActiveXObject("Microsoft.XMLDOM");
xmldoc.loadXML("<root>1</root>");
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("POST", "SaveRepaire.aspx?Act=GetFileName", false);
xmlhttp.Send(xmldoc);
var destxml=new ActiveXObject("Microsoft.XMLDOM");
destxml=xmlhttp.responseXML
return destxml.text;
}
function HideButton()
{
if(SendPaperDocument.txtAction.value!="Entry" && SendPaperDocument.txtAction.value!="Record")
{
SendPaperDocument.cmdOpen.style.display="none";
SendPaperDocument.cmdOpenTemplate.style.display="none";
}
else
{
SendPaperDocument.oframe.ActiveDocument.TrackRevisions = false
}
if(SendPaperDocument.txtAction.value=="POH")
{
SendPaperDocument.cmdOpen.style.display="none";
SendPaperDocument.cmdOpenTemplate.style.display="none";
SendPaperDocument.cmdAccept.style.display="none";
SendPaperDocument.cmdAddPicture.style.display="none";
SendPaperDocument.cmdSave.style.display="none";
}
if(SendPaperDocument.txtAction.value=="Record")
{
SendPaperDocument.cmdProtect.style.display="";
}
}
</script>
</HEAD>
<BODY leftMargin="0" topMargin="0" onload="PageLoad('<%=Session["WAF_UserCName"]%>')">
<form ></TD>
</TR>
</TABLE>
</FONT>
</form>
</BODY>
</HTML>