<form name=f1 METHOD="POST">
<%
OpenDB objConn, "xxxx"
Set RSClass = objConn.Execute("select * from class Order by fldClass")
If RSClass.EOF Then
Response.Write "噢,没有记录!<BR>"
Else
Response.Write "<select NAME=""class"" style=""FONT-SIZE: 9pt"" SIZE=10"
" ONCHANGE=""classselected(this);"" >"
sjavascript = "function classselected(elem){" &_
vbCrlf
"for (var i = document.f1.sort.options.length; i >= 0; i--){"
"document.f1.sort.options[i] = null;"
vbCrlf
Do Until RSClass.EOF
If sLastClass <> RSClass("fldClass") Then
sLastClass = RSClass("fldClass")
Response.Write "<OPTION VALUE=" & RSClass("fldID") & ">" & sLastClass & "</OPTION>"
sjavascript = sjavascript & "}"
"if (elem.options[elem.selectedIndex].value=="
RSClass("fldID") & "){"
End If
sjavascript = sjavascript
"document.f1.sort.options[document."
"f1.sort.options.length] = new Option('"
RSClass("fldSort") & "','" & RSClass("fldID") & "');"
vbCrlf
RSClass.MoveNext
Loop
Response.Write "</select>"
Response.Write "<select NAME=""sort"" style=""FONT-SIZE: 9pt"" SIZE=10>"
Response.Write "<OPTION>请选择</OPTION>"
Response.Write "</select>"
sjavascript = sjavascript & "}" & "}"
Response.Write "<SCR" & "IPT LANGUAGE=""javascript"">"
Response.Write sjavascript & "</SCR" & "IPT>"
End If
RSClass.Close
Set RSClass = Nothing
%>
</form>
在把大量的XML作为POST数据的一部分发送给你的IIS服务器的时候——诸如在ASP表单...
如果你爱一个人,就让他写SQL,因为那是天堂。 如果你恨一个人,就让他写SQL,因...
分析可能是: asp的一些保留字段导致,具体的大家可以参考这篇文章: ASP常见的...
一、现象与概念 1. 问题 在Servlet转发到JSP页面时,此时浏览器地址栏上显示的是...
本文将介绍由腾讯与欧洲顶级农业大学 WUR荷兰瓦赫宁根大学共同举办的第二届“国...
Ewebeditor及fckeditor,90%的网站都是采用这两种编辑器作为产品或者内容的说明...
苹果上周五推出了iOS 14.4.2,iPadOS 14.4.2和watchOS 7.3.3,和以往更新不同,...
FCKeditor是现在最为流行的开源编辑器,SyntaxHighlighter是一个用JS实现的代码...
JDK1.8中的ConcurrentHashMap源码分析 一、容器初始化 1、源码分析 在jdk8的Conc...
本文转载自微信公众号「DBA闲思杂想录」,作者潇湘隐者。转载本文请联系DBA闲思...