<formname=f1METHOD="POST"><%OpenDBobjConn,"xxxx"SetRSClass=objConn.Execute("select*fromclassOrderbyfldClass")IfRSClass.EOFThenResponse.Write"噢,没有记录!<BR>"ElseResponse.Write"<selectNAME=""class""style=""FONT-SIZE:9pt""SIZE=10""ONCHANGE=""classselected(this);"">"sjavascript="fu...

<selectname="XlSheet"><%vOptions="<option></option>"DoWhileNotoSchemaRs.EOF IfoSchemaRs("TABLE_TYPE")="SYSTEMTABLE"Then   vOptions=vOptions&"<option>"&_      Server.htmlEncode(oSchemaRs("TABLE_NAME"))&_ &nb...

SubDoDropDown(Arr(),strSelName,onchange,strSelected,strexclude)Dimi   ifstrSelected<>""then      swaparr,strSelected   endif   response.write"<selectNAME='"&strSelName&"'SIZE=1ONCHANGE='"&onchange&"'&...