📄 ft_index.asp
字号:
<%
'功能：公文工作流程模板设置
'作者：展亮
'时间：2003-12-12 11:21
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%Response.Expires=-1
'------------------------------------------------设置参数
maxmessage=15 '每页显示记录数
currentpage=request("page") '当前页码
'------------------------------------------------
'------------------------------------------------删除记录
slcbh=Request.Form("lcbh")
if slcbh<>"" then
oConn.begintrans
oConn.execute "delete tbioaOffice_Flow_TemplateName where lcbh='" & slcbh & "'"
oConn.execute "delete tbioaOffice_FlowPoint_Template where lcbh='" & slcbh & "'"
oConn.execute "delete tbioaOffice_Flow_Template where lcbh='" & slcbh & "'"
oConn.committrans
oConn.close
set oConn=nothing
Response.Redirect "FT_Index.asp"
end if
'------------------------------------------------
'------------------------------------------------取记录
'分页取公文办理定义记录 （返回rs对象）
'rs.recordcount 为记录总数
'rs.PageSize 为本页记录数
'
set rs=createobject("adodb.recordset")
sql = "select * from tbioaOffice_Flow_TemplateName where bmbh="&Session("DepID")
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"")
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css">
<title>公文工作流程模板设置</title>
<script LANGUAGE="vbscript">
sub dodel
dim obj
dim slcbh
for each obj in document.all
if left(obj.id,6)="optdel" then
if obj.checked then
slcbh=obj.value
exit for
end if
end if
next
if slcbh="" then
msgbox "请选择要删除的流程模板！",vbExclamation,"提示"
exit sub
end if
if msgbox("确定要删除选定的流程模板吗？",vbQuestion+vbyesno,"提示")=vbno then
exit sub
end if
frmcz.lcbh.value=slcbh
frmcz.submit
end sub
</script>
</head>
<body topmargin="10" leftmargin="10">
<table width=98% class=tabletoolbar border=0 align=center>
<tr valign=center><td align=left><img src="../images/icon_title.gif" align="absmiddle"> 部门工作流程模板设置</td>
<td align=right valign=bottom>
<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value="增加流程模板" id=bZJ name=bZJ onclick="location.href='FT_Edit.asp'">
<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value="删除流程模板" id=bQuery name=del_button onclick="vbscript:dodel()">
</td></tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<%
if rs.RecordCount=0 then
response.write "<BR><BR>暂时为空！"
else
%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="tdTop" align="center" width="40%" nowrap>流程模版名称</td>
<td class="tdTop" align="center" width="60%" nowrap>流程模版说明</td>
<td class="tdTop" align="center" width="100" colspan=2 nowrap>操作</td>
</tr>
<form id="frmcz" method="post" action="?page=<%=currentpage%>">
<input type=hidden id=lcbh name=lcbh value="">
<%for i = 0 to rs.PageSize-1 '循环
If rs.EOF Then Exit For
if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
<tr class=<%=td_class%>>
<td align="left" nowrap>
<input type=radio id=optdel name=optdel value="<%=rs("lcbh")%>"><%=server.HTMLEncode(rs("lcmc") & "")%>
</td>
<td align="left"><%=htmlout(rs("bz"))%></td>
<td width="50" align="center" nowrap>
<img src="../images/icon_edit.gif" align="left" border=0 alt="修改"><a href="FT_Edit.asp?lcbh=<%=rs("lcbh")%>">修改</a>
</td>
<td width="50" align="center" nowrap>
<img src="../images/icon_flow.gif" align="left" border=0 alt="设置工作点"><a href="FT_Point_Index.asp?lcbh=<%=rs("lcbh")%>">设置</a>
</td>
</tr>
<%
rs.MoveNext
next
%>
</form>
<tr align=left class=tdbottom><td class=listtail colspan=4 align=right><%=Showpage%></td></tr>
</table>
<%
end if
rs.close
%>
</body>
</html>
<%'释放对象变量
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -