📄 tianjiaren.asp
字号:
<!--#include file="../include/sqlstr.asp"-->
<!--#include file="../include/opendb.asp"-->
<!--#include file="../include/bgsub.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
'取得已添加受理人个数
num=request("num")
num=num-1
dim cumc
cumc=request("cumc")
if cumc="" then
cumc=0
else
cumc=cint(cumc)
end if
cumc=cumc+1
'部门
bumeng=request.form("textfield")
'人员
name=request.form("textfield2")
'流程编号
liuchengbeifengid=request.form("id")
'写入数据表中
set conn=opendb()
sql = "Insert Into a_liucheng (bumeng,name,liuchengbeifengid) Values( "
sql = sql & SqlStr(bumeng) & ", "
sql = sql & SqlStr(name) & ", "
sql = sql & SqlStr(liuchengbeifengid) & ")"
conn.Execute sql
call bghead()
%>
<div align="center"><b>受理人添加情况</b></div>
<%
call bgmid()
dim idd ,rs1 ,sql1
set conn=opendb()
set rs1=server.createobject("adodb.recordset")
sql1="select * from a_liucheng where liuchengbeifengid="&request("id")
rs1.open sql1,conn,1,1
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2">
<div align="center"><b>您已经添加的受理人</b></div>
</td>
</tr>
<%
while not rs1.eof
%>
<tr>
<td width="17%"><%=rs1("name")%></td>
<td><%=rs1("bumeng")%></td>
</tr>
<%
rs1.movenext
wend
%>
</table>
<div align="center">
<%if num<>0 then%>
<p><font size="2">代理人<%=cumc%>添加完毕</font></p><br>
<p><font size="2"><a href="senddate.asp?num=<%=num%>&id=<%=request("id")%>&cumc=<%=cumc%>">请您继续</a></font></p>
<%else%>
<p><a href="javascript:self.close()"><font size="2">流程添加完毕 关闭窗口</font></a><font size="2"> </font></p>
<%end if%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -