📄 classalb.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<body bgColor="transparent" style="font-size:9pt;">
<%
TypeID=Trim(Request.QueryString("ID"))
Dim RS,I
Set RS= Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM deeptree Where parentid=" & TypeID & ""
RS.Open SQL,conn,1,1
if not RS.eof then
Response.Write " 所属二类： <select size='1' name='BigClassB' ID='BigClassB' style='background-color:#DDDDDD' OnChange='H.value=this.options[this.selectedIndex].value'>"
Do While Not RS.Eof
Response.Write "<option value='"&RS("ID")&"'>┣"&RS("content")&"</option>"
RS.MoveNext
Loop
Response.Write "</select>"
else
Response.Write " 所属二类： <select size='1' name='BigClassB' ID='BigClassB' style='background-color:#DDDDDD' OnChange='H.value=this.options[this.selectedIndex].value'>"
Response.Write "<option value=''>暂无栏目</option>"
end if
RS.Close
Set RS=Nothing
%>
<input type="hidden" name="H">
<%
Response.Write "<script Language='vbscript'>"
Response.Write "H.value=BigClassB.options(BigClassB.selectedIndex).value"
Response.Write "</script>"
%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -