att2.asp

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

<%
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
%>
			  <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>
                <TD style="BORDER-BOTTOM: #996600 1px solid" 
                width="35%">
				<%
				td=td+1
				rs2.open "select daihao,Attribute from tblAttribute2 where AttributeID="&rs1("daihao"),conn,1,1
					if not rs2.eof then
						response.write "<select name='Attribute'>"
						response.write "<option value='("&trim(rs1("daihao"))&":0)'></option>"
						do while not rs2.eof
							SearAtt="("&rs1("daihao")&":"&rs2("daihao")&")"
							%>
							<option value="<%="("&trim(rs1("daihao"))&":"&trim(rs2("daihao"))&")"%>" <%if SearchAtt="True" then
							response.write "selected"
							end if%>><%=trim(rs2("Attribute"))%></option>
							<%
							rs2.movenext
						loop
						response.write "</select>"
					else
						response.write "&nbsp;"
					end if
				rs2.close
				rs1.movenext
				%>
				</TD>
				<%if not rs1.eof then%>
                <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>
                <TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" 
                width="35%">
				<%
				td=td+1
				rs2.open "select daihao,Attribute from tblAttribute2 where AttributeID="&rs1("daihao"),conn,1,1
					if not rs2.eof then
						if trim(rs1("daihao"))=10 then
							response.write "<select name='Attribute' Multiple size=5>"
						else
							response.write "<select name='Attribute'>"
						end if
						response.write "<option value='("&trim(rs1("daihao"))&":0)'></option>"
						do while not rs2.eof
							SearAtt="("&rs1("daihao")&":"&rs2("daihao")&")"
							%>
							<option value="<%="("&trim(rs1("daihao"))&":"&trim(rs2("daihao"))&")"%>" <%if SearchAtt="True" then
							response.write "selected"
							end if%>><%=trim(rs2("Attribute"))%></option>
							<%
							rs2.movenext
						loop
						response.write "</select>"
					else
						response.write "&nbsp;"
					end if
				rs2.close
				rs1.movenext
				%>
				</TD>
				<%
				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%'><input type=text name=ShenpiUnit value='"&ShenpiUnit&"' size=32><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%"><input type=text name=ShenpiUnit value="<%=ShenpiUnit%>" size=32><td>
</tr>
<%
end if
set rs1=nothing
%>