?? displaydate_id_check.asp
字號:
<%
'文件名：displaydate_id_check.asp
'作者：展亮
'功能：工作流文件審批
'參數(shù)：
'開發(fā)時間：2003-11-3 14:29
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="../asp/displayformdate.asp"-->
<!--#include file="../asp/displaycheckinf.asp"-->
<%
'-----------------------------------------------------
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
</head>
<center>
<%
page=request("page")
%>
<table>
<tr>
<td><b><font color="#3F608F">工作流文件審批界面</font></b></td><td>
<input type="button" name="printit" value="打印" onclick="window.print();">
</td><form method="post" action="displaycheckfile.asp"><td><input type="submit" name="submit" value="返回"><input type="hidden" name="page" value="<%=page%>"></td></form>
</tr>
</table>
</center>
<br>
<center>
<%
id=request("id")
date_id=request("date_id")
flow_name=request("flow_name")
flow_no=request("flow_no")
sql="update workflow_check_rec set ifsee='yes' where id=" & id
oConn.Execute sql
call displayformdate(date_id)
%>
<br><br>
<%
call displaycheckinf(flow_name,flow_no,date_id)
set rs=server.createobject("adodb.recordset")
sql="select * from workflow_check_rec where flow_name='" & cString(flow_name) & "' and flow_no=" & flow_no & " and date_id=" & date_id
rs.open sql,oConn,1
if rs("ifcheck")="yes" then
%>
<table width="500" border=0 cellpadding="2" cellspacing="1" class="tab">
<tr>
<td class=tdtop nowrap width="100" height="30">審批人：</td>
<td class=td2 >
<%
checkname=usernametoname(rs("checkusername"))
if checkname="" then
response.write " "
else
response.write checkname
end if
%> </td>
</tr>
<tr>
<td class=tdtop nowrap width="100" height="30">審批結(jié)果：</td>
<td class=td2>
<%
checkstate=""
if rs("ifcheck")<>"yes" then
checkstate="待審批"
else
if rs("ifagree")="yes" then checkstate="同意"
if rs("ifagree")="no" then checkstate="不同意"
end if
response.write checkstate
%> </td>
</tr>
<tr>
<td class=tdtop nowrap width="100" height="30">審批時間：</td>
<td class=td2>
<%
if checkstate="待審批" then
checktime=" "
else
checktime=rs("check_date")
end if
response.write checktime
%> </td>
</tr>
<tr>
<td class=tdtop nowrap width="100" height="30">審批意見：</td>
<td class=td2><%=HtmlOut(rs("check_content"))%> </td>
</tr>
</table>
<%
else
%>
<form method="post" name="form1" action="check_date_id.asp">
<table width="500" border=0 cellpadding="2" cellspacing="1" class="tab">
<tr>
<td class=tdtop nowrap width="100" height="30">是否同意：</td>
<td class=td2><input type="radio" value="yes" name="ifagree" style="border :0px solid #3f6090;">同意 <input type="radio" name="ifagree" value="no" style="border :0px solid #3f6090;">不同意
</td>
</tr>
<tr>
<td class=tdtop nowrap width="100" height="30">審批意見：</td>
<td class=td2><textarea rows="5" name="check_content" cols="30"></textarea>
</td>
</tr>
</table>
<input type="submit" name="submit" value="確定">
<input type="hidden" name="id" value=<%=rs("id")%>>
<input type="hidden" name="page" value="<%=page%>">
</form>
<%
end if
rs.close
set rs=nothing
set oConn=nothing
%>
</center>
</html> ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -