att2.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 85 行

<%
Att=Attribute
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
rs1.open "select daihao,Attribute from tblAttribute order by daihao",conn,1,1
if not rs1.eof then
	td=0
	do while not rs1.eof	
	td=td+1
%>
			  <TR>
                <TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" 
                vAlign=center><%=trim(rs1("Attribute"))%></TD>
				<%
				daihao1=rs1("daihao")
				SearEDAtt=""
				S=0
				rs2.open "select Attribute,daihao from tblAttribute2 where AttributeID="&daihao1,conn,1,1
				if not rs2.eof then
					do while not rs2.eof
						SearAtt="("&daihao1&":"&rs2("daihao")&")"
						if SearchAtt="True" then
							S=S+1
							if S=1 then
								SearEDAtt=rs2("Attribute")
							else
								SearEDAtt=SearEDAtt&","&rs2("Attribute")
							end if
						end if
						rs2.movenext
					loop
				end if
				rs2.close
				%>
                <TD style="BORDER-BOTTOM: #996600 1px solid" 
                width="35%">&nbsp;<%=SearEDAtt%></TD>
				<%
				rs1.movenext
				if not rs1.eof then
				td=td+1%>
                <TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center><%=trim(rs1("Attribute"))%></TD>
				<%
				daihao1=rs1("daihao")
				SearEDAtt=""
				S=0
				rs2.open "select Attribute,daihao from tblAttribute2 where AttributeID="&daihao1,conn,1,1
				if not rs2.eof then
					do while not rs2.eof
						SearAtt="("&daihao1&":"&rs2("daihao")&")"
						if SearchAtt="True" then
							S=S+1
							if S=1 then
								SearEDAtt=rs2("Attribute")
							else
								SearEDAtt=SearEDAtt&","&rs2("Attribute")
							end if
						end if
						rs2.movenext
					loop
				end if
				rs2.close
				%>
                <TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" 
                width="35%">&nbsp;<%=SearEDAtt%></TD>
				<%
				rs1.movenext
				else
					response.write "<td align=middle style='BORDER-BOTTOM: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-RIGHT: #996600 1px solid' vAlign=center>审批单位</td><td style='BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid' width='35%'>&nbsp;"&ShenpiUnit&"<td>"
					exit do
				end if
				%>
			  </TR>
		<%
	loop
end if
if (td mod 2)=0 then
%>
<tr>
<td align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center>审批单位</td>
<td colspan=3 style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" width="35%">&nbsp;<%=ShenpiUnit%><td>
</tr>
<%
end if
set rs1=nothing
%>