如何根据选择下拉列表来变换相应的内容~

比较简单的做法是SelectedIndex
然后加个判定

非常感谢 yms123 斑竹的帮助~~~ 我就是想要这样的代码写法！~

不过有些问题：
我这样的改的

........
........
前面都是按斑竹说的代码，就下面
[bo] <%
       IF ClsValue<>"" Then

          '这里写获取ClsValue（下拉列表框选择值)后的代码
       End IF
    %>[/bo]

改成
[bo]<%
       IF ClsValue<>"" Then
<%
exec="select top 5 * from news order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.write("暂时没有数据")
else
do while not rs.eof
%>
                <table><tr><td>
               <%response.write(Setlen(rs("news_head"),18))%>
                </td></tr></table>
<% rs.movenext
loop
end if
%>'这里写获取ClsValue（下拉列表框选择值)后的代码
       End IF
    %>[/bo]

后提示错误阿

[bo]提示如下：[/bo]
ClsValue=Reuqest("clsValue");
<%
IF ClsValue<>"" Then
<%
exec="select top 5 * from news order by id desc "[0]Script error detected at line 1150,col[35].
Source line: ClsValue=Reuqest("clsValue");
Description: 语句未结束

这是咋回事啊？？

[[it] 本帖最后由 sjzfls 于 2008-10-28 00:09 编辑 [/it]]

yms123 版主在吗？ 帮忙看看啊 ~~~~~~~

斑竹
有些问题啊，就是如果这样写
<%
       IF ClsValue<>"" Then
.....

虽然不提示错误但  不显示数据，就是无论是“小学”，还是“初中”选项下，都没内容~~

如果写成：
<%
       Dim ClsValue
       ClsValue=Reuqest("clsValue");
       IF ClsValue<>"" Then
.......

则提示
Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/right.asp，行305

ClsValue=Reuqest("clsValue");
----------------------------^

依然有问题，去掉 ; 后

提示

类型不匹配: 'Reuqest'

太粗心了 ~~~  我是头猪！！！

修改后现在显示是 正常了~ 可是在相对应的项目下面不显示数据，就是无论是“小学”，还是“初中”选项下，都没内容~~

老大，还是出现了问题，就是现在数据都出来了，无论点击“小学”，还是“初中”选项下，内容都不变，全部都读出来了~~（并且选项也不能变换了，点击“初中”，还是显示“小学”选项卡）

我最终的修改代码如下：
<script language="javascript">
function newsclass_Change(clsValue)
{
  var Url=self.location.href;
  if(Url.indexOf("clsValue")==-1)
  {
     if(Url.indexOf('?')==-1)
        self.location=Url+"?clsValue="+clsValue;
     else
        self.location=Url+"&clsValue="+clsValue;
  }
  else
  {
     Url=Url.replace("clsValue=<%=Request("clsValue")%>","clsValue="+clsValue);
     self.location=Url;
  }
}
</script>
<select name="newsclass" id="newsclass" style="width:85px" onChange="newsclass_Change(this.options[this.selectedIndex].value);">
<% '从newsclass表中读取类别                                                                        
        Set Rs1 = Server.CreateObject("ADODB.RecordSet")
        Sql1="Select * From newsclass where class in(5,6,7) order by id asc"
        Rs1.Open Sql1,conn,3,3
        Do While not Rs1.EOF
        Response.Write "<option value=" & Rs1("class") & ">" & Rs1("title") & "</option>"
        Rs1.MoveNext
        Loop
        Rs1.Close
        Set Rs1=nothing
      %>
</select>
<%Dim ClsValue
       ClsValue=Request("clsValue")
       IF ClsValue<>"" Then%>

<%
exec="select top 5 * from news where class in(5,6,7) order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.write("暂时没有数据")
else
do while not rs.eof
%>
<%
response.write(Setlen(rs("news_head"),18))
%>
<% rs.movenext
loop
end if
%>
<%end if%>

麻烦老大了~~~