欢迎高手们来讨论---很有趣

1:首先是表单中的下拉列表:

<form name="jiaoshi" >

<%

sql = "select * from room"

set rs = server.createobject("adodb.recordset")

rs.open sql,conn,1,1

%>

<select name="jiaoshi" >

<option value="" selected>请选择</option>

<%

do while not rs.eof

%>

<option value="<%=trim(rs("ro_name"))%>"><%=rs("ro_name")%></option>

<%

i=i+1

rs.movenext

loop

rs.close

set rs = nothing

%> </select>

</form>

2:是下拉列表的onchange事件:

<SCRIPT LANGUAGE="VBScript">

<!--

sub zhouci_onchange

if xueqi.xueqi.value = "" Or jiaoshi.jiaoshi.value = "" Then

MsgBox "不能为空选项,请选择学期.教室和周次!", vbOKOnly, "信息提示"

zhouci.zhouzi.value=""

exit sub

else

wkn=1

Do While wkn <=35

strwkn=trim((wkn-1)+1)

select case wkn

case 1

<%

sqltxt = "select * from yyxx where ro_name='"&request("document.jiaoshi.jiaoshi.options.value")&"' and we_name='第一周' and weekday_name=1 and jie_ci=12"

set rs1 = server.createobject("adodb.recordset")

rs1.open sqltxt,conn,1,1

if rs1.recordcount<>0 then

%>

msgbox "<%=trim(rs1("js_name"))%>,"&document.jiaoshi.jiaoshi.options.value&""

document.form1.button1.value="<%=trim(rs1("js_name"))%>"

document.form1.button1.disabled=true

<%else%>

document.form1.button1.value="待定"

<%end if%>

end select

问题:

为什么ro_name='"&request("document.jiaoshi.jiaoshi.options.value")&"'取不到值啊

请高手们指教....