plan_show.asp
来自「OFFICE办公自动化」· ASP 代码 · 共 354 行
ASP
354 行
<%
'功能：查看指定日程详细信息
'参数：request("id")=int #日程ID; request("page")=int #当前页码; request("selectdate")="date" #显示当日日程; request("DepartmentID")="int" #部门ID
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
currentpage=request("page") : if currentpage="" then currentpage=1 '当前页码
selectdate=request("selectdate") '是否显示所有日程
pid=request("id") '日程ID
DepartmentID=request("DepartmentID") '部门ID;
'------------------------------------------------
'------------------------------------------------增加注释
if request.form("edit_subed")="add" then
'增加注释表单提交后
table="tbioaPlanRelative" '表名
Body=Request.Form("Body")'内容
'添加时使用的字段
field1=array("UserID","PlanID","Body")
value1=array(LoginID,pid,Body)
for i=0 to ubound(field1)
value1(i)=replace(value1(i),"'","''")
next
sql = "INSERT INTO " & table & " (" & Join(field1, ",") & ") VALUES ('" & Join(value1, "','") & "')"
oConn.Execute sql
end if
'------------------------------------------------
'------------------------------------------------编辑注释
if request.form("edit_subed")="edit" then
'编辑注释表单提交后
table="tbioaPlanRelative" '表名
rid=Request.Form("rid")'注释ID
Body=Request.Form("Body")'内容
'添加时使用的字段
field1=array("Body")
value1=array(Body)
sql="UPDATE " & table & " SET "
for i=0 to ubound(field1)
sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'"
if i <> ubound(field1) then sql=sql & "," else sql=sql & " where id=" & rid
next
oConn.Execute sql
end if
'------------------------------------------------
'------------------------------------------------删除注释
if request.form("edit_subed")="dele" then
'删除注释提交后
rid=request.form("rid") '注释ID
oConn.Execute "DELETE FROM tbioaPlanRelative WHERE ID="&rid&" and UserID="&LoginID
end if
'------------------------------------------------
'------------------------------------------------编辑完成情况
if request.form("edit_subed")="finish" then
'编辑完成情况表单提交后
table="tbioaPlan" '表名
finish=Request.Form("finish")'完成情况
'添加时使用的字段
field1=array("Finish")
value1=array(Finish)
sql="UPDATE " & table & " SET "
for i=0 to ubound(field1)
sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'"
if i <> ubound(field1) then sql=sql & "," else sql=sql & " where id=" & pid
next
oConn.Execute sql
end if
'------------------------------------------------
'------------------------------------------------取记录
'取要查看的日程记录 （返回rs对象）
'
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaPlan where ID="&pid
rs.open sql,oConn,1,1
'------------------------------------------------
'------------------------------------------------取注释
'取要查看的日程的注释 （返回rs_r对象）
'
set rs_r=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaPlanRelative where PlanID="&pid&" order by ID desc"
rs_r.open sql,oConn,1,1
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
<script src="../js/front_chec.js"></script>
<script language="javascript">
<!--
function BodySize()
{
eventfrm.Body.style.width=Math.max(document.body.clientWidth-80,0);
}
function ShowBody(rid)
{
if (Relative.style.display=='none' || rid){
eventfrm.Body.value='';
Relative.style.display='';
if (rid){
eventfrm.edit_subed.value="edit";
eventfrm.rid.value=rid;
eval('eventfrm.Body.value=Relative_'+rid+'.innerText');
RelativeTitle.innerHTML='<table width="300"><tr><td><img border="0" src="../images/icon_save.gif" align="left"> <a href="javascript: GoSave(eventfrm)" onfocus="this.blur()">保 存</a></td><td><img border="0" src="../images/icon_close.gif" align="left"> <a href="#" onclick="return ShowBody()" onfocus="this.blur()">取 消</a></td><td>（编辑注释内容） </td></tr></table>'
}
else{
eventfrm.edit_subed.value="add";
RelativeTitle.innerHTML='<table width="300"><tr><td><img border="0" src="../images/icon_save.gif" align="left"> <a href="javascript: GoSave(eventfrm)" onfocus="this.blur()">添 加</a></td><td><img border="0" src="../images/icon_close.gif" align="left"> <a href="#" onclick="return ShowBody()" onfocus="this.blur()">取 消</a></td><td>（请填写注释内容）</td></tr></table>'
}
}
else{
Relative.style.display='none';
RelativeTitle.innerHTML='<img border="0" src="../images/icon_open.gif" align="left"> <a href="#bottom" onclick="ShowBody()" onfocus="this.blur()">添 加 注 释</a>'
return false;
}
}
function ShowEditFinish()
{
if (EditFinish.style.display=='none'){
frmfinish.finish.value=<%=rs("finish")%>
EditFinish.style.display='';
ShowFinish.style.display='none';
}
else{
EditFinish.style.display='none';
ShowFinish.style.display='';
}
return false;
}
function GoSave(form)
{
if (checnull(form.Body,"请填写注释内容！")) form.submit();
}
function GoDele(rid)
{
if (confirm('确定要删除该条日程注释吗？\n该操作不可恢复！')){
eventfrm.edit_subed.value="dele";
eventfrm.rid.value=rid;
eventfrm.submit();
}
}
function GoFinish(form)
{
if (form.finish.value>=0 && form.finish.value<=100 && form.finish.value!="" && !/[.]/.test(form.finish.value)){
form.submit();
}
else{
alert("完成情况必须填写0~100的整数");
form.finish.value=<%=rs("finish")%>
form.finish.focus();
}
}
-->
</script>
</head>
<body topmargin="10" leftmargin="10">
<!--#include file="plan_menu.html"-->
<hr width="100%" size=1 color="#000000">
<br>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td width="100%" class="tdTop">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="tdTop">
<p align="left"><img border="0" src="../images/icon_title.gif" align="left"><%=HtmlOut(rs("Title"))%></p>
</td>
<td width="90" class="tdTop">
<p align="left"><img border="0" src="../images/icon_return.gif" align="left">
<a href="plan_list.asp?page=<%=currentpage%>&selectdate=<%=selectdate%>&DepartmentID=<%=DepartmentID%>" class="linkTop">返回列表</a></p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" class="td1">
<table border="0" width="100%" cellspacing="10" cellpadding="0">
<tr>
<td width="100%">
起止日期：<%=rs("StartDate")%> 至 <%=rs("EndDate")%><br>
</td>
</tr>
<tr>
<td width="100%">
<%
Select Case rs("Importance")
Case 1
Importance="低"
Case 2
Importance="中"
Case 3
Importance="高"
Case Else
Importance="未指定"
End Select
%>
重要程度：<%=Importance%><br>
</td>
</tr>
<tr>
<td width="100%">
<div id="ShowFinish">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="400">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="60">完成情况：</td>
<td width="300">
<div style="border: 1 solid #000000"><img border="0" src="../images/line.png" height="8" width="<%=rs("finish")*3%>"></div>
</td>
<td> <%=rs("finish")%>%</td>
</tr>
</table>
</td>
<td>
<p align="left"><img border="0" src="../images/icon_go_up.gif" align="left">
<a href="#" onclick="return ShowEditFinish()" onfocus="this.blur()">修 改</a></p>
</td>
</tr>
</table>
</div>
<div id="EditFinish" style="display: none">
<table border="0" width="300" cellspacing="0" cellpadding="0">
<form name="frmfinish" method="POST" action="?id=<%=pid%>&page=<%=currentpage%>&selectdate=<%=selectdate%>&DepartmentID=<%=DepartmentID%>" onSubmit="return GoFinish(frmfinish)">
<tr>
<td width="160">
修改完成情况：
<input type=hidden name="edit_subed" value="finish">
<select size="1" name="finish" class="input">
<option value="0" <%if rs("finish")=0 then response.write "selected"%>>0</option>
<option value="10" <%if rs("finish")=10 then response.write "selected"%>>10</option>
<option value="20" <%if rs("finish")=20 then response.write "selected"%>>20</option>
<option value="30" <%if rs("finish")=30 then response.write "selected"%>>30</option>
<option value="40" <%if rs("finish")=40 then response.write "selected"%>>40</option>
<option value="50" <%if rs("finish")=50 then response.write "selected"%>>50</option>
<option value="60" <%if rs("finish")=60 then response.write "selected"%>>60</option>
<option value="70" <%if rs("finish")=70 then response.write "selected"%>>70</option>
<option value="80" <%if rs("finish")=80 then response.write "selected"%>>80</option>
<option value="90" <%if rs("finish")=90 then response.write "selected"%>>90</option>
<option value="100" <%if rs("finish")=100 then response.write "selected"%>>100</option>
</select>%
</td>
<td><br>
<img border="0" src="../images/icon_save.gif" align="left"> <a href="javascript: GoFinish(frmfinish)" onfocus="this.blur()">确 定</a></p>
</td>
<td><br>
<img border="0" src="../images/icon_close.gif" align="left"> <a href="#" onclick="return ShowEditFinish()" onfocus="this.blur()">取 消</a></p>
</td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%">
<fieldset style="width:100%" align="center"> <legend>日程内容</legend>
<%=HtmlOut(rs("Body"))%>
</fieldset>
</td>
</tr>
<tr>
<td width="100%">
<fieldset style="width:100%" align="center"> <legend>备注</legend>
<%=HtmlOut(rs("Remark"))%>
</fieldset>
</td>
</tr>
<tr>
<td width="100%">
<fieldset style="width:100%" align="center"> <legend>相关注释</legend>
<%while not rs_r.EOF '循环%>
<div align="center">
<table border="0" width="95%" cellspacing="0" cellpadding="0">
<tr>
<td>
<p align="left"><img border="0" src="../images/icon_title.gif" align="left">注释时间：<%=rs_r("Times")%></p>
</td>
<td width="70">
<div id="EditTitle">
<img border="0" src="../images/icon_edit.gif" align="left"><a href="#Bottom" onclick="return ShowBody(<%=rs_r("ID")%>)" onfocus="this.blur()">编 辑</a>
</div>
</td>
<td width="70">
<img border="0" src="../images/icon_dele.gif" align="left">
<a href="javascript: GoDele(<%=rs_r("ID")%>)">删 除</a>
</td>
</tr>
</table>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
<tr>
<td><div id="Relative_<%=rs_r("ID")%>"><%=HtmlOut(rs_r("Body"))%></div></td>
</tr>
</table>
<hr width="95%" size="1">
</div>
<%rs_r.MoveNext: wend%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<form name="eventfrm" method="POST" action="?id=<%=pid%>&page=<%=currentpage%>&selectdate=<%=selectdate%>&DepartmentID=<%=DepartmentID%>">
<input type=hidden name="edit_subed" value="">
<input type=hidden name="rid" value="">
<tr>
<td> </td>
<td width="110">
<div id="RelativeTitle"><img border="0" src="../images/icon_open.gif" align="left"> <a href="#bottom" onclick="ShowBody()" onfocus="this.blur()">添 加 注 释</a></div>
<div id="Relative" style="display: none">
<textarea rows="3" name="Body" class="textarea"></textarea>
</div>
</td>
</tr>
</form> <script language="javascript">BodySize(); window.onresize=BodySize;</script>
</table>
</fieldset>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" class="tdBottom">
</td>
</tr>
</table>
<a name="bottom"></a>
</body>
</html>
<%'释放对象变量
rs.close
oConn.close
%> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?