📄 huiqian.asp
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<html>
<head>
<title>会签</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if Request.ServerVariables("Request_Method")="POST" and request("flag")="2" then
set bzwb=server.createobject("oaserver.huiqian")
bzwb.main(conn)
response.write("<script language=javascript>alert('提交意见成功！')</script>")
response.write("<script>document.location='right.asp'</script>")
response.end
end if
LocalFile="huiqian.asp"
DocFile="loadhg.asp"
SaveFile="savehg.asp"
PsoFile="loadpso.asp"
HttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
HttpUrl=Left(HttpUrl,Len(HttpUrl)-Len(LocalFile))
DocUrl=HttpUrl & DocFile
SaveUrl=HttpUrl & SaveFile
PsoUrl=HttpUrl & PsoFile
%>
<script language="JavaScript" src="fawen.js"></script>
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function checkform() {
if (form.name_hq.value=="") {
alert("您还没有批署意见呢！")
form.name_hq.focus()
return false
}
if (form.name_hq.value!="") {
cc=form.name_hq.value.length
for (i=0;i<cc;i++)
{
dd=form.name_hq.value.charAt(i)
if(dd!=" ") {break;}
}
if (i==cc) {alert("您输入无效的内容！")
form.name_hq.value=""
form.name_hq.focus()
return false
}
}
if (!confirm("您确定要提交意见吗？"))
{return false;}
}
function sendback() {
if (form.name_hq.value=="") {
alert("您还没填写返回给拟稿人理由！")
form.name_hq.focus()
return false
}
if (!confirm("您确定要把这稿件返回给拟稿人重新拟稿吗？"))
{return false;}
else
{
document.location="sendback.asp?backtype=name_hq&reason="+document.form.name_hq.value
return false;
}
}
function checkpeople() {
window.open('choosepeople1.asp?','','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=300,height=360,left=222,top=170')
}
</script>
<link rel="stylesheet" href="fawen.css" type="text/css">
</head>
<!--#include file="checkuser.asp"-->
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<%
if request("flowid")="" then response.end
flowid=CLng(request("flowid"))
session("fawenid")=flowid
set rs=server.createobject("adodb.recordset")
sql="select * from fawen where id="&flowid
rs.open sql,conn,1,1
if rs.eof then
response.redirect "error.htm"
response.end
end if
DocumentName=rs("documentname")
%>
<div align="center">
<form name="form" method="POST">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="400">
<tr height="25" valign="middle">
<td height="50" valign="middle" align="center" colspan="3"><img src="images/gwhq.gif" width="113" height="25">
</td>
</tr>
<tr height="25">
<td align="center">
<table width="85%" border="0" cellspacing="1" cellpadding="2" bgcolor="990000">
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" width="46%"> 文 号： <font class="bblue"><%=rs("wenhao")%></font></td>
<td height="35" width="27%"> 密 级： <font class="bblue"><%=rs("miji")%></font></td>
<td height="35" width="27%"> 保密期限： <font class="bblue"><%=rs("baomiqx")%></font></td>
</tr>
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" width="46%"> 缓 急： <font class="bblue"><%=rs("huanji")%></font>
</td>
<td height="35" colspan="2"> 定密依据： <font class="bblue"><%=rs("dingmiyj")%></font>
</td>
</tr>
<tr bgcolor="f5f5f5" valign="top">
<td height="60" width="46%">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr bgcolor="ffffff">
<td valign="top" width="27%" bgcolor="f5f5f5"> 核稿意见： </td>
<td valign="top" width="73%" bgcolor="f5f5f5"><font class="bblue"><%=rs("name_hg")%></font></td>
</tr>
</table>
</td>
<td height="60" colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign="top" width="27%"> 审核意见：</td>
<td valign="top" width="73%">
<font class="bblue"><%=rs("name_sh")%></font></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="f5f5f5" valign="top">
<td height="60" width="46%"> 签 发：</td>
<td height="60" colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign="top" width="27%"> 会 签：</td>
<td valign="top" width="73%" bgcolor="ffffff">
<textarea class="body1" name="name_hq" title="单击，请输入会签意见" style="width:100%;height:100%" rows="1" cols="20"></textarea>
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" colspan="3"> 主 送： <font class="bblue"><%=rs("mainsend")%></font>
</td>
</tr>
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" colspan="3"> 抄 送： <font class="bblue"><%=rs("tosend")%></font>
</td>
</tr>
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" width="46%"> 拟稿单位：<font class="bblue"><%=rs("writedep")%></font></td>
<td height="35" width="27%"> 拟 稿 人：<font class="bblue"><%=rs("writename")%></font></td>
<td height="35" width="27%"> 核 稿 人：<font class="bblue"><%=rs("hegaoname")%></font></td>
</tr>
<tr bgcolor="ffffff" valign="middle">
<td height="35" width="46%" bgcolor="f5f5f5"> 印 制：<font class="bblue"><%=rs("name_print")%></font>
</td>
<td height="35" bgcolor="f5f5f5" width="27%"> 校 对：<font class="bblue"><%=rs("name_correct")%></font>
</td>
<td height="35" bgcolor="f5f5f5" width="27%"> 份 数：<font class="bblue"><%=rs("copy")%></font>
</td>
</tr>
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" width="46%"> 附 件：
<%fujianname=rs("fujianname")
if fujianname<>"" then
response.write "<a href='"&PsoUrl&"' target='_blank'>"&fujianname&"</a>"
end if
%>
</td>
<td height="35" colspan="2"> 公文正文： <a href="readword.asp" onClick="return OpenWindows('this.href')"><%=rs("documentname")%></a></td>
</tr>
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" colspan="3"> 标 题： <font class="bblue"><%=rs("title")%></font>
</td>
</tr>
<tr bgcolor="f5f5f5" valign="middle">
<td height="35" colspan="3"> 主 题 词： <font class="bblue"><%=rs("keywords")%></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="bottom" height="35" colspan="2" >
<div align="center">
<input type="image" name="send3" value="提交公文" onClick="return checkform()" src="images/addpapergif.gif" alt="提交公文">
<input type="image" name="send22" value=" 返 回 " onClick="history.go(-1);return false;" src="images/fanhuigif.gif" alt="返回">
<input type="image" name="sendfileback2" value="重新拟稿" onClick="return sendback();return false;" src="images/renigaogif.gif" alt="重新拟稿">
</div>
</td>
</tr>
<tr>
<td valign="top" height="25" colspan="3" >
<div align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="90%">
<input type="hidden" name="flag" value="2">
<input type="hidden" name="flowid" value="<%=request("flowid")%>">
<input type="hidden" name="nwid" value="<%=request("nwid")%>">
</td>
<td width="10%">
<object classid="clsid:8C9AA244-AC33-47F9-8968-CC114654A6EC" codebase="web.ocx" id="web" width="1" height="1">
<param name="_ExtentX" value="847">
<param name="_ExtentY" value="847">
</object></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</form>
</div>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language=javascript>
function OpenWindows() //下载打开公文函数
{
//下载公文
var DocumentName="<%=DocumentName%>"
var result
HTTPURL="<%=DocUrl%>"
result=form.web.download(HTTPURL,DocumentName); //判断下载文件是否成功
if (!result)
{
alert("打开公文失败，请与管理员联系！")
return false;
}
var url="readwordqf.asp?documentname="+DocumentName //调用writeword.asp来打开文件
OpenWord(url)
return false;
}
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -