📄 doclist.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#INCLUDE file="dblink.asp" -->
<%
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
dim strsql
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>SOAOffice网络文档控件 首页</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content="SOAOffice网络文档控件，OFFICE文档在线编辑、在线保存的完美解决方案。强制痕迹保留,手写批注,全文批注,手写签名电子盖章(电子印章,电子签章,电子签名),word留痕,公文留痕,web文档控件,数字签名,支持全部OFFICE菜单,打印预览,手工批注,集成,开发,创建OA系统的必选中间件！联系电话：010-62969896"
name="description">
<META content="SOAOffice,网络文档控件,痕迹保留,强制痕迹保留,全文批注,手写批注,OFFICE文档,电子印章,手写签名,word留痕,留痕,公文留痕,在线编辑,在线保存,办公自动化,OA,电子签名,数字签名,手工批注,打印预览" name="keywords">
<LINK href="images/template.css" type="text/css" rel="Stylesheet">
<LINK href="images/XYDataGrid.css" type="text/css" rel="stylesheet">
<SCRIPT language="JavaScript">
function onColor(td)
{
td.style.backgroundColor='#DCDCDC';
}
function offColor(td)
{
td.style.backgroundColor='';
}
function SetLinkUrl(svrpage, fileid)
{
location.href = svrpage+'?ID='+fileid+'&user='+formData.curUser.value;
//window.open(svrpage+'?ID='+fileid+'&user='+formData.curUser.value);
}
function openHtml(filename)
{
window.open("doc/"+filename);
}
function openWordReadOnly(fileid)
{
var aw = window.screen.availWidth - 10;
var ah = window.screen.availHeight - 130;
window.open('word3.asp?ID='+fileid,"","fullscreen=0,toolbar=1,location=1,directories=1,status=0,menubar=1,scrollbars=1,resizable=1,width=" + aw + ",height=" + ah + ",top=0,left=0",true);
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1498" name="GENERATOR">
</HEAD>
<BODY bgColor="#ffffff" leftMargin="0" topMargin="0">
<form name="formData" method="post" action="NewDoc.asp?Type=word" id="formData">
<TABLE cellSpacing=0 cellPadding=0 width="760" border=0 height=1 bgcolor=#ffffff align="center">
<tr><td>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height=1 bgcolor=#ffffff>
<TR >
<TD></TD></TR>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height=19 background="images/SOA_01.gif">
<TR >
<TD width=20> </TD>
<TD class=mhTextEmph align=left ><SPAN>KHSOFT 科翰软件
</SPAN></TD>
<TD class=mhTextEmph align=right ><SPAN>销售热线：010-62969896
</SPAN></TD>
<TD width=20> </TD></TR>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height=44 background="images/SOA_03.gif">
<TR >
<td width=27></td>
<TD width=269><IMG SRC="images/SOA_05.gif" WIDTH=269 HEIGHT=25></TD>
<TD > </TD>
<TD width=255><IMG SRC="images/SOA_07.gif" WIDTH=255 HEIGHT=25></TD>
<TD width=20></TD>
</TR>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height=23 background="images/SOA_11.gif">
<TR >
<TD class=lnk_iconic align=right><A href="http://www.kehansoft.com/index.htm">科翰网站</A> | <A href="index.htm">产品说明</A> | <A href="feature.htm">产品特色</A> | <A href="functions.htm">功能介绍</A> | <A href="doclist.asp">功能演示</A> | <A href="postil.htm">手写批注</A> | <A href="sale.htm">如何购买</A> | <A href="contact.htm">联系我们</A></TD>
<TD width=20> </TD></TR>
</table>
<TABLE cellSpacing="1" cellPadding="0" width="98%" border="0">
<TBODY>
<TR>
<TD align="center" width="80%" height="45"><H2>SOAOffice文档控件对Word的操作演示</H2>
</TD>
</TR>
<TR>
<TD style="font-size:9pt;" align="left" width="100%" height="23">提示1：正确运行本演示前，您首先要确定您的机器上已安装word，其次对于文档操作页面里弹出的
控件安装对话框，您要选择“是”按钮。
<br>
提示2：为了让您更清楚地观察不同的用户将留下不同颜色的痕迹，在您修改文档前请更改身份。<font color="#FF0000">印章密码：111111</font><br>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing="1" cellPadding="0" width="98%" border="0">
<TBODY>
<TR>
<TD width="75%" height="23">
<table class="text" cellSpacing="0" cellPadding="0" border="0">
<tr>
<td style="font-size:9pt" align="left"><select name="templateName">
<option value='redhead00.doc'>------不使用模板------</option>
<option value='redhead01.doc' selected >公司公文模板</option>
<option value='redhead02.doc' >政府红头文件模板</option>
</select></td>
<td align="center"><input name="TextSubject" type="text" class="boder" style="width:180px;" value="请输入文档主题"/></td>
<td width="221"> <input type="image" name="ImageButton1" id="ImageButton1" src="images/newword.gif" alt=""
border="0" /></td>
</tr>
</table>
</TD>
<TD style="font-size:9pt" align="right" width="15%" height="23">请选择操作用户 </TD>
<TD align="right" width="10%" height="23"><select name="curUser">
<option value='张三' selected >张三科长</option>
<option value='李四' >李四处长</option>
<option value='王五' >王五书记</option>
<option value='赵六' >赵六书记</option>
<option value='钱七' >钱七秘书</option>
</select> </TD>
</TR>
</TBODY>
</TABLE>
<table width='98%' height='1' cellpadding='0' cellspacing='0' border="0">
<tr>
<td>
<table width='100%' height='1' cellpadding='2' cellspacing='1' class='XYDataGrid1-table'>
<tr class='XYDataGrid1-table-header-tr'>
<td width='7%' height='26' class='XYDataGrid1-header-cell' valign="middle">类型
</td>
<td width='38%' height='23' class='XYDataGrid1-header-cell' valign="middle">主题</td>
<td width='20%' height='23' class='XYDataGrid1-header-cell' valign="middle">修改时间</td>
<td width='35%' height='23' class='XYDataGrid1-header-cell' valign="middle">操作模式</td>
</tr>
<%
'********************************************************************
' 读数据库相关操作
strsql="select * from word order by ID DESC"
rs.open strsql,conn,1,1
if rs.EOF then
%>
<tr class='XYDataGrid1-table-data-tr'>
<td colspan=4 width='100%' height='100' class='XYDataGrid1-data-cell' align="center">对不起，暂时没有可以操作的文档。
</td>
</tr>
<%
else
while not rs.EOF
%>
<tr onmouseover="onColor(this)" onmouseout="offColor(this)" class='XYDataGrid1-table-data-tr'>
<td width='7%' height='16' bgcolor='' class='XYDataGrid1-data-cell'><div align="center"><image src='images/word.gif' border="0"></image></div>
</td>
<td width='38%' height='16' bgcolor='' class='XYDataGrid1-data-cell'><div align="left"><%=rs.Fields("Subject").Value%></div>
</td>
<td width='20%' height='16' bgcolor='' class='XYDataGrid1-data-cell'><div align="center"><font face="宋体"><%=year(rs("SubmitTime")) & "-" & right("00"&month(rs("SubmitTime")),2) & "-" & right("00"&day(rs("SubmitTime")),2) & " " &FormatDateTime(rs("SubmitTime"),4)%></font></div>
</td>
<td width='35%' height='16' bgcolor='' class='XYDataGrid1-data-cell'><div align="center">
<a class=OPLink href="javascript:SetLinkUrl('word2.asp','<%=rs.Fields("ID").Value%>');">修改无痕迹</a>
<a class=OPLink href="javascript:SetLinkUrl('word.asp','<%=rs.Fields("ID").Value%>');">修改有痕迹</a>
<a class=OPLink href="javascript:SetLinkUrl('word1.asp','<%=rs.Fields("ID").Value%>');">核稿</a>
<a class=OPLink href="javascript:openWordReadOnly('<%=rs.Fields("ID").Value%>');">阅读</a>
<% if IsNull(rs.Fields("HtmlFile").Value) then %>
Html
<% else %>
<a class=OPLink href="javascript:openHtml('<%=rs.Fields("HtmlFile").Value%>');">Html</a>
<% end if %>
</div>
</td>
</tr>
<%
rs.MoveNext
wend
end if
rs.Close
conn.Close
%>
</table>
</td>
</tr>
</table>
<TABLE cellSpacing="1" cellPadding="0" width="95%" border="0">
<TR>
<TD align="center" width="80%" height="25">
</TD>
</TR>
</TABLE>
</td></tr>
</table>
<hr style="width:760px;" size=1 color=blue>
<table width="760" height="30" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3" align="center">
<tr>
<td align="center" class="text">
Copyright © 2004-2005 北京科翰软件有限责任公司 版权所有<br>
电子邮件：<a href="mailto:soaoffice@126.com">soaoffice@126.com</a> 联系电话：010－62969896<br></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -