📄 map.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'文件名：displayflowstep.asp
'作者：展亮
'功能：显示组织结构
'开发时间：2003-12-1 23:39
response.buffer=false
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<style type="text/css">
  table {font-size: 15px; line-height: 15px}
  td {font-size: 15px; line-height: 15px}
</style>
<title>组织结构</title>
</head>

<body leftmargin=10 rightmargin=10>
<table width="100%" cellspacing="1" cellpadding="2" align="center" class="tab">
  <tr>
    <td class="tdtop">
      组织机构图
    </td>
  </tr>
  <tr>
  <td align=center class="td1"><br>
	<table cellspacing="1" cellpadding="4">
	  <tr>
	    <td class="tdbottom" style="border: 1 solid #000000" nowrap>
	      地区类别结构图
	    </td>
	  </tr>
	</table>
    <%
     call displaynextflow(0)
    %><br>
  </td>
  </tr>
  <tr>
    <td class="tdbottom"></td>
  </tr>
</table>
</body>
</html>


<%
'-----------------------------------------------------------------
sub displayflowunit(pid,style)
 dim rs
 dim sql
 set rs=server.createobject("adodb.recordset")
 sql="select * from TbioaAreaSort where id=" & pid
 rs.open sql,oConn,1
%>
<table cellspacing="1" cellpadding="4">
  <tr>
    <td class="tdbottom" style="border: 1 solid #000000" <%=style%>>
      <a href="list.asp?id=<%=rs("id")%>"><%=rs("name")%></a>
    </td>
  </tr>
</table>
<%
 rs.close
 set rs=nothing
end sub
'-----------------------------------------------------------------
'-----------------------------------------------------------------
sub displaynextflow(pid)
 dim rs
 dim sql
 dim rscount
 set rs=server.createobject("adodb.recordset")
 sql="select * from TbioaAreaSort where ParentID=" & pid
 rs.open sql,oConn,1
 rscount=0
 if not rs.eof and not rs.bof then
  rscount=rs.recordcount
  if rscount>1 then
%>
↓
<%
  end if
%>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<%
  tdno=0
  while not rs.eof and not rs.bof
   tdno=tdno+1
%>
<td align=center valign=top>
<%
   if rscount>1 then
    if tdno=1 then
%>
<table border="0"  cellspacing="0" cellpadding="0" width="100%" height=1>
<tr>
<td width="50%"></td><td width="50%" bgcolor="#000000"></td>
</tr>
</table>
<%
    else
     if tdno=rscount then
%>
<table border="0"  cellspacing="0" cellpadding="0" width="100%" height=1>
<tr>
<td width="50%" bgcolor="#000000"></td><td width="50%"></td>
</tr>
</table>
<%
     else
%>
<table border="0"  cellspacing="0" cellpadding="0" width="100%" height=1>
<tr>
<td width="50%" bgcolor="#000000"></td><td width="50%" bgcolor="#000000"></td>
</tr>
</table>
<%
     end if
    end if
   end if
%>
↓
<%
   call displayflowunit(rs("id"),"width=10 align=center")
   call displaynextflow(rs("id"))
%>
</td>
<%
   rs.movenext
  wend
%>
</tr>
</table>
<%
 end if
 rs.close
 set rs=nothing
end sub
'--------------------------------------------------------------------------
%>
⌨️ 快捷键说明

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