b.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"--> 

<% 
 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"<div align='center' style='font-size:9pt;font-family: 宋体'>"
     Response.Write "<select size='1' name='BigClassB' ID='BigClassB'  OnChange='H.value=this.options[this.selectedIndex].value'>" 
     Do While Not RS.Eof 
     Response.Write "<option value='" & RS("ID") & "'>" & RS("content") & "</option>" 
     Response.Write"</div>"
     RS.MoveNext 
     Loop 
     Response.Write "</select>"
	 else 
	 Response.Write"<div align='center' style='font-size:9pt;font-family: 宋体' >"
     Response.Write "<select size='1' name='BigClassB' ID='BigClassB'  OnChange='H.value=this.options[this.selectedIndex].value'>" 
     Response.Write "<option value=''>暂无栏目</option>" 
     Response.Write"</div>"
	 end if 
     RS.Close 
     Set RS=Nothing 
%><style type="text/css">
<!--
body {
	background-color: #F0F0F0;
}
-->
</style> 
<input type="hidden" name="H"> 
<% 
Response.Write "<script Language='vbscript'>" 
Response.Write "H.value=BigClassB.options(BigClassB.selectedIndex).value"
Response.Write "</script>"
%>