三级联动菜单免刷新加载
<% Option Explicit %>
<!--#include file="../library/class/DBControl.class.asp" -->
<!--#include file="../../config/PConst.asp" -->
<!--#include file="../library/function/Function.asp" -->
<%
Dim DBC,CollectConn
Dim SelectPath
Set DBC = New DataBaseClass
Set CollectConn = DBC.OpenConnection()
Set DBC = Nothing
SelectPath = "/"
Dim Rs
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link href="/skin/CSS/css.css" rel="stylesheet">
<body onselectstart="return false;" onClick="SelectSite();" leftmargin="0" topmargin="0">
<%
Dim TempletDirectory,intDepth,strSql,objRs
Dim ClassID0,ClassID1,intClassID,ClassList0,ClassList1,ClassList2
TempletDirectory = "/"
intClassID = Request.QueryString("ClassID")
intDepth = Request.QueryString("Depth")
If intClassID="" Or Not IsNumeric(intClassID) Then
intClassID = 0
Else
intClassID = CInt(intClassID)
End If
If intDepth = "" Or Not IsNumeric(intDepth) Then
intDepth = 0
Else
intDepth=CInt(intDepth)
End If
Set objRs = Server.CreateObject("ADODB.RecordSet")
If intDepth = 0 Then
ClassID0 = intClassID
Else
ClassID1=intClassID
strSql = "Select Parent From Bj_Class Where Id="&ClassID1
objRs.Open strSql,CollectConn,1,1
If Not objRs.EOF Then
ClassID0 = ObjRs("Parent")
End If
objRs.CLose
End If
strSql = "Select Id,Title From Bj_Class Where Depth=0 Order By Id"
objRs.Open strSql,CollectConn,1,1
Do While Not objRs.EOF
If ClassID0 = objRs("Id") Then
ClassList0 = ClassList0 & "<option value=""ss.asp?Depth=0&ClassID="&ObjRs("ID")&""""&" selected>" & ObjRs("Title") & "</option>"
Else
ClassList0 = ClassList0 & "<option value=""ss.asp?Depth=0&ClassID="&ObjRs("ID")&""""&">" & ObjRs("Title") & "</option>"
End If
objRs.Movenext()
Loop
objRs.CLose
If Request.QueryString("Depth")="1" And Request.QueryString("ClassId")="0" Then
ClassID0=-1
ClassID1=-1
End If
If Request.QueryString("ClassId")<>"" Then
strSql = "Select Id,Title From Bj_Class Where Parent="&ClassID0
Else
strSql = "Select Id,Title From Bj_Class Where Parent=-1"
End If
objRs.Open strSql,CollectConn,1,1
Do While Not objRs.EOF
If ClassID1 = objRs("Id") Then
ClassList1 = ClassList1 & "<option value=""ss.asp?Depth=1&ClassID="&ObjRs("ID")&"""" &" selected>" & ObjRs("Title") & "</option>"
Else
ClassList1 = ClassList1 & "<option value=""ss.asp?Depth=1&ClassID="&ObjRs("ID")&""""&">" & ObjRs("Title") & "</option>"
End If
objRs.Movenext()
Loop
objRs.CLose
If intDepth = 1 Then
strSql = "Select Id,Title From Bj_Class Where Parent="&ClassID1
objRs.Open strSql,CollectConn,1,1
Do While Not objRs.EOF
ClassList2 = ClassList2 & "<option value="""&ObjRs("ID")&"""" & ">" & ObjRs("Title") & "</option>"
objRs.Movenext()
Loop
objRs.CLose
End If
Set objRs = Nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<form name="AddSiteForm" method="post" action=""><input name="vs" type="hidden" id="vs2" value="add">
<tr>
<td height="26"> <div align="center">目标栏目</div></td>
<td>
<select name="ClassId0" style="width:30%;" id="select" onChange="javascript:location.href=this.options[this.selectedIndex].value;">
<option value="ss.asp?Depth=0&ClassID=0">一级分类</option>
<% = ClassList0 %>
</select>--
<select name="ClassId1" style="width:30%;" id="select" onChange="javascript:location.href=this.options[this.selectedIndex].value;">
<option value="ss.asp?Depth=1&ClassID=0">二级分类</option>
<% = ClassList1 %>
</select>--
<select name="ClassID2" style="width:30%;" id="select">
<option value="">三级分类</option>
<% = ClassList2 %>
</select>
</td>
</tr>
</form>
</table>
</body>
</html>
<%
Set CollectConn = Nothing
%>
