att.asp

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

<!--#include file="conn.asp"-->
<%
Att=Attribute
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
rs1.open "select ID,Attribute from tblAttribute order by ID",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>
				<% if Att<>"" then
				SearAtt=trim(rs1("Attribute"))%>
				<!--#include file="SearAtt.asp"-->
				<%end if%>
                <TD style="BORDER-BOTTOM: #996600 1px solid" 
                width="35%">
				<%
				td=td+1
				rs2.open "select Attribute from tblAttribute2 where AttributeID="&rs1("ID"),conn,1,1
					if not rs2.eof then
						response.write "<select name='Attribute'>"
						response.write "<option value=''></option>"
						do while not rs2.eof
							%>
							<option value="<%="("&trim(rs1("Attribute"))&":"&trim(rs2("Attribute"))&")"%>" <%if trim(rs2("Attribute"))=SearEDAtt then
							response.write "selected"
							end if%>><%=trim(rs2("Attribute"))%></option>
							<%
							rs2.movenext
						loop
						response.write "</select>"
					else
						response.write "<input type='text' name='Attribute' value=''>"
					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>
				<% if Att<>"" then
				SearAtt=trim(rs1("Attribute"))%>
				<!--#include file="SearAtt.asp"-->
				<%end if%>
                <TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" 
                width="35%">
				<%
				td=td+1
				rs2.open "select Attribute from tblAttribute2 where AttributeID="&rs1("ID"),conn,1,1
					if not rs2.eof then
						response.write "<select name='Attribute'>"
						response.write "<option value=''></option>"
						do while not rs2.eof
							%>
							<option value="<%="("&trim(rs1("Attribute"))&":"&trim(rs2("Attribute"))&")"%>" <%if trim(rs2("Attribute"))=SearEDAtt then
							response.write "selected"
							end if%>><%=trim(rs2("Attribute"))%></option>
							<%
							rs2.movenext
						loop
						response.write "</select>"
					else
						response.write "<input type='text' name='Attribute' value=''>"
					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=Attribute value='' 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=Attribute value="" size=32><td>
</tr>
<%
end if
set rs1=nothing
%>
<!--#include file="close.asp"-->