在线咨询！！！
我现在是做一个信息发布的系统，一个表为信息类别的表（名为sort，里面只有两个字段，一个字段是记录类别的名称），一个是信息的内容（记录该信息的所有内容），当点击一条信息时，要在下拉框中显示出表sort中记录类别这个字段的所有内容，而在其它框中只显示出该信息的内容这条记录，不知如何编写！！！请教各位，若可行，即加分！！
问题点数：100、回复次数：11Top
1 楼net_lover（【孟子E章】）回复于 2002-12-14 16:10:14 得分 30
1，先去出来
2，循环写"<option>"Top
2 楼chinesefeng（chinesefeng）回复于 2002-12-14 16:15:16 得分 0
不太明白，能详细点吗？Top
3 楼luoxd（东晓）回复于 2002-12-14 16:22:38 得分 30
1、使用recordset把记录取出来
2、使用while 循环<option>
下面是我做的信息管理系中的代码：<select name="xi">
<%
sql2="select 系ID,系名 from 系表"
rs.Open sql2,con
while not rs.EOF
%>
<option value=<%=rs("系ID")%>><%=rs("系名")%></option>
<%
rs.MoveNext
wend
rs.Close
%>
</select>
Top
4 楼chinesefeng（chinesefeng）回复于 2002-12-14 16:30:06 得分 0
<%
dim sql,rs,Caption,Content,Id
Id=request("Id")
set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT n.Nid,n.Caption,n.Content, n.JoinTime, n.Amout,n.Id,s.Sid,s.Sort FROM News as n INNER JOIN Sort as s ON n.Nid = s.Sid where Id="+Id
rs.Open sql,conn,1,1
%>
<body>
<form name="form1" action="Modify_News_Save.asp" method=post ID="Form1">
<table width="100%" height="233" border="0" cellpadding="0" cellspacing="0" ID="Table1">
<tr valign=top>
<td width="100%" align=center height="46" colspan="2" class="font1">修 改 新 闻</td>
</tr>
<tr>
<td valign=top height="22" colspan="2">
类别:
<select name="SID" size="1" ID="Select1">
<%
while not rs.EOF
Response.Write "<option value=""" & rs("SID") & """>" & rs("Sort") & "</option>"
rs.MoveNext()
wend
rs.Move (Id)
%>
</select>
</td>
</tr>
<tr valign=top>
<td height="46" colspan="2">
<br>
标题:
<input type=text name="Caption" id="Caption" value="<%=rs("Caption")%>" size="42">
</td>
</tr>
<tr valign=top>
<td height="119" valign=top>内容:</td>
<td><textarea name="content" rows="16" cols="66" ID="Textarea1"><%=rs("Content")%></textarea></td>
</tr>
<tr>
<td colspan="2" align=center>
<br>
<input type=hidden name="ID" id="ID" value="<%=ID%>">
<input type=button name="submit1" value="提交" onclick="submission()" ID="Button1">
<input type=reset name="reset1" value="重写" ID="Reset1">
</td>
</tr>
</table>
</form>
</body>
</html>
<%
set rs = nothing
conn.close()
set conn = nothing
%>
请帮我看一下，这样子能实现吗？Top
5 楼luoxd（东晓）回复于 2002-12-14 16:41:02 得分 10
如果取数据无错,应该能够实现Top
6 楼chinesefeng（chinesefeng）回复于 2002-12-14 16:48:32 得分 0
不过提示rs.Move (Id) 这句有错呀，不知错在哪了？？？！！！
Top
7 楼luoxd（东晓）回复于 2002-12-14 17:00:09 得分 10
你把rs.Open sql,conn,1,1
改成 rs.open sql,conn,3,1
1是使用前向游标打开，要定位记录使用3（静态游标）打开记录。Top
8 楼chinesefeng（chinesefeng）回复于 2002-12-14 17:11:05 得分 0
不行呀！！！还是会出错！！！还是在rs.Move (Id) 这句有错呀
错误类型：
Provider (0x80020005)
Top
9 楼jtmoon（逍遥小贼）回复于 2002-12-14 17:23:28 得分 0
rs.MoveNext() --〉 rs.MoveNextTop
10 楼chinesefeng（chinesefeng）回复于 2002-12-14 17:30:41 得分 0
哎，还是不行呀，我是哪出错了！！！能不能详细点？？！！！Top
11 楼luoxd（东晓）回复于 2002-12-14 18:13:12 得分 20
在rs.move()前加一条语句：
rs.movefirst
Top
