docreaddetail.htm
来自「全方面的OA管理程序代码」· HTM 代码 · 共 183 行
HTM
183 行
<!--#include file="../inc/Secure.htm"-->
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<%
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
ID=trim(request("ID"))
if ID="" then response.redirect "NewDoc.htm"
ReadNameList=replace(trim(request("ReadNameList")),"'","''")
ReadIDList=replace(trim(request("ReadIDList")),"'","''")
ReadEvery=trim(request("ReadEvery"))
if ReadEvery="" then ReadEvery=0
ReadDepartmentID=trim(request("ReadDepartmentID"))
if request("cmdUp")<>"" then
oConn.execute "update tblDoc set ReadName='"& ReadNameList &"',ReadID='"&ReadIDList&"',ReadEvery="& ReadEvery &",ReadDepartmentID="&ReadDepartmentID&",Reading=1 where ID="& ID
oConn.close
response.write "<h2>公文安排传阅完成，谢谢！</h2><BR><BR>"
response.write "<a href=DocRead.htm><img src=""../images/return.gif"" alt=返回 border=0></a>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from tblDoc where ID="& ID
rs.open sql,oConn
if not rs.eof then
FromID=trim(rs("FromID"))
title=trim(rs("title"))
title2=trim(rs("title2"))
nClass=trim(rs("Class"))
if nClass="" then nClass=0
body=trim(rs("body2"))
remark=trim(rs("remark2"))
confirmer=trim(rs("confirmer"))
collate=trim(rs("collate"))
CheckName=trim(rs("CheckName"))
CheckStatus=trim(rs("CheckStatus"))
CheckID=TRIM(rs("CheckID"))
AttachFile=trim(rs("AttachFile"))
Times=trim(rs("Times"))
end if
rs.close
set rs=nothing
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>
<script src="Popup.js"></script>
<BODY BGCOLOR="#FFFFFF">
<form name="UserForm" method="post" action="">
<table border=1 cellpadding=3 cellspacing=1 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<%if instr(CheckStatus,"0")<=0 and cint(FromID)=cint(LoginID) then%>
<tr width="100%" bgcolor=#CCFFCC>
<td colspan=4 align=center>安排公文传阅，请指定传阅人！
</td>
</tr>
<%end if%>
<tr width="100%">
<td align=right width=80>标题</td>
<td><%=Title&" "%></td>
<td align=right width="15%" nowrap>主题词</td>
<td><%=Title2&" "%></td>
</tr>
<tr>
<td align=right>分类</td>
<td><%=getTableValue ("tblDocClass","Name","ID",nClass)%> </td>
<td align=right>审批路径</td>
<td><%=CheckName&" "%></td>
</tr>
<tr>
<td align=right>内容</td>
<td colspan=3><textarea name="body" rows=5 cols=55 readonly><%=body%></textarea></td>
</tr>
<tr>
<td align=right>备注</td>
<td colspan=3><textarea name="Remark" rows=5 cols=55 readonly><%=remark%></textarea></td>
</tr>
<tr>
<td align=right>附件</td>
<td colspan=3>
<%if AttachFile<>"" then%>
<a target="_blank" href="../File_Up/Doc/<%=ID%>/<%=AttachFile%>"><%=AttachFile%></a>
<%else
response.write " "
end if%>
</td>
</tr>
<tr>
<td align=right>核搞人</td>
<td colspan=3 valign=top><%=confirmer&" "%></td>
</tr>
<tr>
<td align=right>校对人</td>
<td colspan=3><%=collate&" "%></td>
</tr>
<tr>
<td align=right>传阅人：</td>
<td colspan=3>
<input type="text" name="ReadNameList" value="" readonly class="input" size=50>
</td>
</tr>
<tr>
<td align=right> </td>
<td colspan=3>
<INPUT TYPE="button" name="cmdAttach" value="指定传阅人" onclick="OpenWindow('ReadUsers.htm','UserWindow')">
<input type="checkbox" name="ReadEvery" value="1">全部员工
或选择单个部门：<%options "ReadDepartmentID","tblDepartment","Name",0%>
</td>
</tr>
<tr>
<td align=right> </td>
<td colspan=3 align=center>
<INPUT TYPE="submit" name="cmdUp" value="确 定" onclick="return CheckData();">
<INPUT TYPE="reset" name="reset" value="重 置">
</td>
</tr>
</table>
<INPUT TYPE="hidden" name="ReadIDList" value="">
<INPUT TYPE="hidden" name="ID" value="<%=ID%>">
</form>
</BODY>
</HTML>
<!--#include file="../inc/conn_close.htm"-->
<script language=javascript>
function CheckDelete()
{
return confirm("确实删除吗？");
}
function OpenWindow(url,windowname)
{
window.open(url,windowname,'left=100,top=50,height=350,width=650,toolbar=no,menubar=no,scrollbars=yes')
}
function OpenWindow1(url,windowname)
{
window.open(url,windowname,'left=150,top=100,height=80,width=420,toolbar=no,menubar=no,scrollbars=yes')
}
function CheckData()
{
if ((jtrim(document.UserForm.ReadNameList.value)=="") && (document.UserForm.ReadEvery.checked==false) && (jtrim(document.UserForm.ReadDepartmentID.value)=="0"))
{
alert ("请指定传阅人！");
return false;
}
return true;
}
</script>
<script language="javascript" src="../inc/jtrim.js"></script>
<%
sub DeleteOneDir (PathName)
PathName=Server.Mappath(PathName)
dim fsfl
Set fsfl = server.CreateObject("Scripting.FileSystemObject")
if trim(PathName)<>"" and fsfl.FolderExists(PathName) then
fsfl.DeleteFolder PathName
end if
set fsfl=nothing
end sub
Function GetTableValue(TableName,Field,ValueField,Value)
if TableName<>"" and Value<>"" then
Set RsTmp = Server.Createobject("Adodb.recordset")
strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
Rstmp.open strSql,oConn,1,1
If not Rstmp.eof then
GetTableValue=trim(Rstmp(Field))
else
GetTableValue=""
end if
Rstmp.close
'set RsTmp = Nothing
else
GetTableValue=""
end if
End Function
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?