📄 worklist.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面
Conn = hdobj.WeekaaConn()
ID=Request.QueryString("ID")
ss=Request.QueryString("ss")
if ss="" then
sqls = "Select * From [OFc] where ID="&ID
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open Sqls,Conn,1,3
rsl=rs("l")
Select Case Loi
Case "b"
rslo="待处理"
Case "c"
rslo="正处理"
Case "d"
rslo="已完成"
Case Else
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="luxiaoqing" CONTENT="no-cache">
<STYLE TYPE="text/css">
<!--
BODY {
background-image: url();
background-position: center;
background-repeat: repeat;
background-attachment: fixed;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #FFFFFF;
}
.style2 {font-size: 12px}
.style3 {font-size: 12px}
.style4 {
color: #FFFFFF;
font-size: 14px;
}
.style5 {color: #FF0000}
body,td,th {
font-size: 12px;
}
.STYLE8 {
font-family: "黑体";
font-size: 18px;
color: #CC3300;
}
a:link {
color: #CC0000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #CC0000;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE9 {color: #CC3300}
-->
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">
<table width="450" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<form action="?ss=100&ID=<%=rs("ID")%>" method=post id=form1 name=form1>
<tr>
<td height="28" colspan="2" align="center" background="../../Image/bg01.jpg" bgcolor="#0C4FBC"> </td>
</tr>
<tr>
<td height="40" colspan="2" align="center" bgcolor="#FFFFFF"><span class="STYLE8">布置工作任务</span></td>
</tr>
<tr>
<td height="25" align="center">编 号</td>
<td align="left"><%=rs("a")%> </td>
</tr>
<tr>
<td width="165" height="25" align="center">任务名称</td>
<td width="417" align="left"><%=rs("b")%></td>
</tr>
<tr>
<td height="25" align="center">任务执行人</td>
<td align="left"><%=rs("c")%></td>
</tr>
<tr>
<td height="25" align="center"><span class="STYLE9">添加执行人</span></td>
<td align="left"><input name="c" type="text" id="c" value="<%=rs("c")%>" size="40"></td>
</tr>
<tr>
<td height="25" align="center">任务分配人</td>
<td align="left"><%=rs("d")%></td>
</tr>
<tr>
<td height="25" align="center">重要程度</td>
<td align="left"><%=rs("e")%></td>
</tr>
<tr>
<td height="25" align="center">时间限定</td>
<td align="left"><%=rs("f")%></td>
</tr>
<tr>
<td height="25" align="center">保密限定</td>
<td align="left"><%=rs("g")%></td>
</tr>
<tr>
<td height="25" align="center">执行状态</td>
<td height="25" align="left"><%=rslo%>
<select name="l" id="l">
<option value="b">等待执行</option>
<option value="c">正在执行</option>
<option value="d">已经完成</option>
</select> </td>
</tr>
<tr>
<td height="25" colspan="2" align="center"><span class="STYLE8">任务内容</span>
<input name="a" type="hidden" id="a" value="<%=rs("a")%>">
<input name="b" type="hidden" id="b" value="<%=rs("b")%>">
<input name="d" type="hidden" id="d" value="<%=rs("d")%>">
<input name="e" type="hidden" id="e" value="<%=rs("e")%>">
<input name="f" type="hidden" id="f" value="<%=rs("f")%>">
<input name="g" type="hidden" id="g" value="<%=rs("g")%>">
<input name="i" type="hidden" id="i" value="<%=rs("i")%>">
</td>
</tr>
<tr>
<td height="25" colspan="2" align="center"><textarea name="koi" cols="60" rows="6" id="koi"><%=rs("i")%></textarea></td>
</tr>
<tr>
<td height="30" colspan="2" align="center" class="STYLE8">完成情况</td>
</tr>
<tr>
<td height="25" colspan="2" align="center"><textarea name="j" cols="60" rows="6" id="j"><%=rs("j")%></textarea></td>
</tr>
<tr>
<td height="25" colspan="2" align="center"><input type="submit" name="Submit" value="提交执行情况"></td>
</tr>
<tr>
<td height="28" colspan="2" align="center" background="../../Image/bg01.jpg"> </td>
</tr></form>
</table>
</p>
</center>
</div>
</body>
</html>
<%
else
call hdobj.AddL("OFc","k",1)
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -