如何根据选择下拉列表来变换相应的内容~ - ASP技术论坛

第 11 楼

得分:0

[bo][un]sjzfls[/un] 在 2008-10-29 15:48 的发言：[/bo]

依然有问题，去掉 ; 后

提示

类型不匹配: 'Reuqest'

Reuqest Request

第 12 楼

得分:0

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

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

第 13 楼

得分:0

第 14 楼

得分:0

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

我最终的修改代码如下：
<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%>

麻烦老大了~~~

第 15 楼

得分:0

程序代码：

<select name="newsclass" style="width:85px" onChange="location.href='?clsValue='+this.value">
<%
dim ClsValue
ClsValue=Request("clsValue")                                                                   
Set Rs1=conn.execute("Select * From newsclass where class in(5,6,7) order by id asc")
While Not Rs1.Eof
IF ClsValue=Rs1("class") Then
    Response.Write("<option value="&Rs1("class")&" selected>"&Rs1("title")&"</option>")
Else
    Response.Write("<option value="&Rs1("class")&">"&Rs1("title")&"</option>")
End IF
Rs1.MoveNext
Wend
Rs1.Close
%>
</select>
<%
IF ClsValue<>"" Then
Set Rs=conn.execute("select top 5 * from news where class in(5,6,7) order by id desc")
IF Rs.Eof and Rs.Bof Then
    Response.Write("暂时没有数据")
Else
While Not Rs.Eof
    Response.Write(Setlen(Rs("news_head"),18))
Rs.MoveNext
Wend
End IF
Rs.Close
End IF
%>

[编程论坛] ASP超级群：49158383 敲门暗号：ASP编程
龍艺博客 http://www.