欢迎高手们来讨论---很有趣
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")&"'取不到值啊
请高手们指教....
