<!--#include file=achky.asp -->
<!--#include file=../../include/conn.asp -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>管 理 界 面</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
-->
</style>
<base target=main>
</head>
<body leftmargin="0" bgcolor="#FFFFFF" topmargin="0">
<div align="left">
<form action="Aruku.asp" method=post name="form1" id="form1">
<table border="1" cellpadding="0" cellspacing="0" width="604" height="394">
<tr>
<td width="16" height="369" valign="top" bgcolor="#D5DDEA" rowspan="7"> </td>
<td width="582" height="36" valign="middle" bgcolor="#D5DDEA">
<p align="center"><font size="2"> </font><font size="4" color="#FF0000">增 加 信 息</font>
</td>
</tr>
<tr>
<td width="582" height="3" valign="bottom" bgcolor="#D5DDEA"><font size="2">
</font></td>
</tr>
<tr>
<td width="582" height="20" valign="top" bgcolor="#D5DDEA"><font size="2">
标 题:
<input type="text" name="title" size="57">
</font></td>
</tr>
<tr>
<td width="582" height="227" valign="top" bgcolor="#D5DDEA">
<p align="center"><font size="3">内 容:</font><font size="3"><br>
</font><font size="2">
<br>
<textarea rows="11" name="content" cols="77"></textarea>
</font></p> </td>
</tr>
<tr >
<td width="582" valign="middle" bgcolor="#D5DDEA" heitht="1">
<p> </p>
<p><font size="2">日 期:
<input name="addtime" type="text" value="<% =now %>" size="27">
</font></p>
<p align="left"> </td>
</tr>
<tr>
<td bgcolor="#D5DDEA" heitht="1"><font size=2>选 择 类 别:</font><span class="style3">
<select size="1" class="style3" id="select2" name=select >
<option selected value="出租转让">出租转让</option>
<option value="积压物资">积压物资</option>
<option value="商务合作">商务合作</option>
<option value="求租求购">求租求购</option>
</select>
<select name="scid" size="1">
<%
dim bc
bc='select.value'
set rs0 =server.createobject("adodb.recordset")
sql0="select * from no1 where " no1name='"&bc&"'"
rs0.open sql0,conn,1,1
set rs =server.createobject("adodb.recordset")
sql="select * from no2 where no1id='"&rs0("no1id")&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<option selected>请选择类别</option>"
else
do while not rs.eof
response.Write "<option value="&rs("no2id")&">"&rs("no2name")&"</option>"
rs.movenext
Loop
end if
%>
</select>////两个select
<%
rs.close
rs0.close
set rs=nothing
set rs0=nothing
%>
<input type=hidden name=bcid value="<%=rs0("no1id")%>">
</span></td>
</tr>
<tr>
<td width="582" height="1" valign="top" bgcolor="#D5DDEA">
<p align="center"> <br>
<input type="submit" value="提交" name="B1">
<input type="reset" value="全部重写" name="B2">
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
先谢谢啦!!呵呵。。。。