tianjiaren.asp

来自「企业办公自动化管理系统 asp+sql server 2005」· ASP 代码 · 共 76 行

ASP
76 行
字号 
<!--#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">&nbsp;</font></p>
<%end if%>
</div>
</body>
</html>

tianjiaren.asp - 源码说明

本页面展示了「企业办公自动化管理系统 asp+sql server 2005」中的 tianjiaren.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP.NET相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?