关于asp的一个语法问题。

[bsk_bg]

<%
......

  SmallClassList = SmallClassList & "<option value='"&rsCl("id")&"' if '"&rscl("id")&"'='"&rs("bigtype")&"' then "&selected&" end if>"&rsCl("smallgroupname")&"</option>" 

......

%>

上面语句中加红部分我想实现判断。 在这里出错误。烦请高手指正一下这里的正确写法。谢谢

也就是判断这句话：if '"&rscl("id")&"'='"&rs("bigtype")&"' then "&selected&" end if

[hookee]

<%
SmallClassList = SmallClassList & "<option value='" & rsCl("id") & "'" 
if rscl("id").value = rs("bigtype").value then
  SmallClassList = SmallClassList & " selected"
end if
SmallClassList = SmallClassList & ">" & rsCl("smallgroupname") & "</option>" 
%>

[王诚豪]

<%
SmallClassList = SmallClassList & "<option value='" & rsCl("id") & "'"
if rscl("id") = rs("bigtype").value then
SmallClassList = SmallClassList & " selected"
end if
SmallClassList = SmallClassList & ">" & rsCl("smallgroupname") & "</option>"
%>

[王诚豪]

<% 
SmallClassList = SmallClassList & " <option value='" & rsCl("id") & "'" 
if rscl("id") = rs("bigtype").value then 
  SmallClassList = SmallClassList & " selected" 
end if 
SmallClassList = SmallClassList & ">" & rsCl("smallgroupname") & " </option>" 
%>

[bsk_bg]

  <% 
Dim SubClsCount, rsCl 
Set rsCl = Server.Createobject("Adodb.Recordset")  

rsCl.Open "Select * From [smallgroup]  Order By id",Conn,1,1   


%>  
<script language = "JavaScript">  
var TCount = 0;  
subCls = new Array();  
<%  
SubClsCount = 0 
Do While Not rsCl.Eof  
 %> 

 subCls[<%=SubClsCount%>] = new Array("<%=Trim(rsCl("id"))%>","<%=rsCl("biggroupid")%>","<%=Trim(rsCl("smallgroupname"))%>");  
 <%  
 SubClsCount = SubClsCount + 1 
 rsCl.Movenext  
Loop  
rsCl.Close 
Set rsCl = Nothing 
%>  
TCount=<%=SubClsCount%>;  
function changelocation(locationid)  
{  
 document.getElementById("SmallClassID").length = 0;  
 var locationid = locationid;  
 var i; 
 for (i=0;i < TCount; i++)  
 {  
  if (subCls[i][1] == locationid)  
  {  
   
   document.getElementById("SmallClassID").options[document.getElementById("SmallClassID").length] = new Option(subCls[i][2], subCls[i][0]);  
  } 
 } 
 if (document.getElementById("SmallClassID").options.length <= 0) 
 { 
  document.getElementById("SmallClassID").options[document.getElementById("SmallClassID").length] = new Option("暂无小类", 0); 
 } 
}  
</script> 
			   <% 
Dim SelClassID 
Set rsCl = Server.Createobject("Adodb.Recordset")  
'if rs("bigtype") <> "" then
'rsCl.Open "Select * From [biggroup] where id="&rs("bigtype")&" Order By id",Conn,1,1      
'else
rsCl.Open "Select * From [biggroup] Order By id",Conn,1,1  
'end if 
If rsCl.Eof And rsCl.Bof Then  
 Response.Write "请添加顶级（大）类别!"  
 'Response.End() 
Else 
 %> 

 <select style="width:110px;height:16px;border:#7e9eb7 solid 1px" name="BigClassID" size="1" id="BigClassID" onChange="changelocation(document.getElementById('BigClassID').options[document.getElementById('BigClassID').selectedIndex].value)"> 
 
    <% 
 SelClassID = rsCl("id")  
 Do While Not rsCl.Eof  
  %> 
  
    <option value="<%=rsCl("id")%>" <%if rscl("id")=rs("bigtype") then%>selected<%end if%>><%=rsCl("biggroupname")%></option> 

	
	<%  
  rsCl.Movenext  
 Loop  
 %> 
 </select> 
 <% 
End If  
rsCl.Close  
%> <% 
Dim SmallClassList 
Set rsCl4 = Server.Createobject("Adodb.Recordset")  
rsCl4.Open "Select * From [biggroup] Order By id desc",Conn,1,1      '大类 
If rsCl4.Eof And rsCl4.Bof Then  
response.Write("暂无分类")
else
SmallClassList = "<select name=SmallClassID id=SmallClassID style=width:170px;height:16px;border:#7e9eb7 solid 1px>" 
'if rs("smalltype") <> "" then
'rsCl.Open "Select * From [smallgroup] Where biggroupid = "&SelClassID&" and id="&rs("smalltype")&"  Order By  id desc" ,Conn,1,1    '小类 
'else
rsCl.Open "Select * From [smallgroup] Where biggroupid = "&SelClassID&"   Order By  id desc" ,Conn,1,1    '小类 

'end if 
If Not (rsCl.Eof And rsCl.Bof) Then  
 Do While Not rsCl.Eof 
 SmallClassList = SmallClassList & "<option value='" & rsCl("id") & "'" 
if rscl("id") = rs("bigtype") then
  SmallClassList = SmallClassList & " selected"
end if
SmallClassList = SmallClassList & ">" & rsCl("smallgroupname") & "</option>" 

  rsCl.Movenext  
 Loop  
Else 
 SmallClassList = SmallClassList & "<option value='0'>暂无小类</option>" 
End If  
rsCl.Close  
Set rsCl = Nothing 
SmallClassList = SmallClassList & "</select>" 
Response.Write(SmallClassList) 
end if 
rscl4.close
set rscl4=nothing
%>          

楼上的方法用了不行。。。 我这是一个无刷新二级菜单。当修改时。要出现当前选择的类别。 请高手帮忙。大类现在能出现，只是二级类出现不了正确选项

[bsk_bg]

急急急。。高手来帮下忙

[liaojiafan]

SmallClassList = SmallClassList & "<option value='"&Cstr(rsCl("id"))&"'"
if Cstr(rscl("id"))=Cstr(rs("bigtype")) then
SmallClassList = SmallClassList & "selected"
end if
SmallClassList = SmallClassList & " >" & Cstr(rsCl("smallgroupname")) & "</option>"
试一下这句行不行

[bsk_bg]

楼上只看顶楼了吧。

看7楼的问题。。我更新上来的问题

[bsk_bg]

怎么没人回答啊。郁闷中......


小类接收不到值 ，高手帮指点一下。



SmallClassList = SmallClassList & "<option value='" & rsCl("id") & "'"
if rscl("id") = rs("bigtype") then
SmallClassList = SmallClassList & " selected"
end if
SmallClassList = SmallClassList & ">" & rsCl("smallgroupname") & "</option>"


小类的值也改了

把bigtype 改成smalltype了

[lzp4881]

if rscl("id")=rs("bigtype") then
ss="selected"
else
ss=""
end if
SmallClassList = SmallClassList & "<option value='"&rsCl("id")&"' <%=ss%> >"&rsCl("smallgroupname")&"</option>"

......

%>