asp 的三级联动

 <%
Sub NewUrl (Dialog,Text,Url)
 Dim FileName_c,Postion_c
 FileName_c = Request.ServerVariables("script_name")  
 Postion_c  = InstrRev(FileName_c,"/")+1  
 FileName_c = Mid(FileName_c,Postion_c)
 IF Url = "Current" Then Url = FileName_c '获取当前文件名
 IF Dialog = 0 Then
  Response.Redirect (Url)
 Else
  IF Url = "Backlash" Then
   Response.Write ("<script language='JavaScript'>" & vbcrlf)
   Response.Write ("alert('" & Text & "');" & vbcrlf)
   Response.Write ("history.back(-1);" & vbcrlf)
   Response.Write ("</script>" & vbcrlf)
  Else
   Response.Write ("<script language='JavaScript'>" & vbcrlf)
   Response.Write ("alert('" & Text & "');" & vbcrlf)
   Response.Write ("window.location.replace('" & Url & "')" & vbcrlf)
   Response.Write ("</script>" & vbcrlf)
  End IF
 End IF
 Response.End()
End Sub

Dim ColumnType : ColumnType = 2 '栏目类型:0栏目内容分类,1新闻分类,2产品分类
IF Trim(Request.Form("Action")) = "Add" Then
 Dim Parent,ParentID1,ParentID2,ColumnName,ColumnSort
 ColumnName = Trim(Request.Form("ColumnName"))
 ColumnSort = Trim(Request.Form("ColumnSort"))
 IF Not CheckNum(ColumnSort) Then Call NewUrl (1,"排序字段必须为数字！","Backlash")
 ColumnSort = Cint(ColumnSort)
 Parent = Trim(Request.Form("Parent"))'以数组(一级类ID,二级类ID)的形式获取父级栏目ID
 Parent = Split(Parent,",")
 ParentID1 = Cint(Parent(0))
 ParentID2 = Cint(Parent(1))
 IF ColumnName = "" Then Call NewUrl (1,"添加失败，栏目名称必须填写！","Backlash")
 IF Not CheckNum(ColumnSort) Then Call NewUrl (1,"添加失败，栏目排序必须为数字！","Backlash")
 Set Rs = Server.Createobject("Adodb.Recordset")
 Rs.Open "Song_Column",Conn,1,3
 Rs.AddNew
 Rs("ColumnType") = ColumnType
 Rs("ParentID1") = ParentID1
 Rs("ParentID2") = ParentID2
 Rs("ColumnName") = HTMLEncode(ColumnName)
 Rs("ColumnSort") = ColumnSort
 RS("ColumnTime") = date()
 Rs.UpDate
 Rs.Close
 Set Rs = Nothing
 Call NewUrl (1,"操作成功，新的产品栏目已经添加！","21.asp")
End IF
%>
<script language="javascript">
function check(){
 for(i=0;i<document.all.Lang.length;i++) {
  if(document.all.Lang(i).checked) {
   document.all.ParentCn.style.display='none';
   document.all.ParentEn.style.display='';
  } else {
   document.all.ParentCn.style.display='';
   document.all.ParentEn.style.display='none';
  }
 }
}
</script>
<%if request("action")="" then%>
<form name="form1" method="post" action="21.asp">
<table width="60%" border="1" align="center" cellpadding="3" cellspacing="0">
<tr>
<td colspan="4" align="center"><span class="STYLE1">添加分类</span></td>
</tr>
<tr>
<td width="27%" align="center"><span class="STYLE1">所属分类：</span></td>
<td width="36%" colspan="2">
  <span class="STYLE1">

  <%
Dim Rs2,Rs3
'Cn-------
Response.Write("<select name=""Parent"" id=""Parent"">" & vbcrlf)
Response.Write("<option value=""0"" selected=""selected"">==选择产品所属栏目==</option>" & vbcrlf)
Set Rs = Server.Createobject("Adodb.Recordset")
Sql = "Select ID,ParentID1,ParentID2,ColumnName from Song_Column where ColumnType = " & ColumnType & " And ParentID1 = 0 " '一级
Sql = Sql & "Order by ColumnSort Desc,ID ASC"
Rs.Open Sql,Conn,1,1
Do While Not Rs.EOF
Response.Write("<option value=""" & Rs(0) & ",0,0"">" & Rs(3) & "</option>" & vbcrlf) '一级,以数组(一级ID,0,0)的形式提交
Set Rs2 = Server.Createobject("Adodb.Recordset")
Sql = "Select ID,ParentID1,ParentID2,ColumnName from Song_Column where  ColumnType = " & ColumnType & " And ParentID1 = " & Rs(0) & " And ParentID2 = 0 " '二级
Sql = Sql & "Order by ColumnSort Desc,ID ASC"
Rs2.Open Sql,Conn,1,1
Do While Not Rs2.EOF
  Response.Write("<option value=""" & Rs(0) & "," & Rs2(0) & ",0"">&nbsp;&nbsp;┣&nbsp;" & Rs2(3) & "</option>" & vbcrlf) '二级,以数组(一级ID,二级ID,0)的形式提交
  Set Rs3 = Server.Createobject("Adodb.Recordset")
  Sql = "Select ID,ParentID1,ParentID2,ColumnName from Song_Column where ColumnType = " & ColumnType & " And ParentID1 = " & Rs(0) & " And ParentID2 = " & Rs2(0) & " " '三级
  Sql = Sql & "Order by ColumnSort Desc,ID ASC"
  Rs3.Open Sql,Conn,1,1
  Do While Not Rs3.EOF
   Response.Write("<option value=""" & Rs(0) & "," & Rs2(0) & "," & Rs3(0) & """>&nbsp;&nbsp;&nbsp;&nbsp;┣&nbsp;" & Rs3(3) & "</option>" & vbcrlf) '三级,以数组(一级ID,二级ID,三级ID)的形式提交
   Rs3.MoveNext
  Loop
  Rs3.Close
  Set Rs3 = Nothing
  Rs2.MoveNext
Loop
Rs2.Close
Set Rs2 = Nothing
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Response.Write("</select>" & vbcrlf)

%>
  </span></td>
<td width="37%"><span class="STYLE1">选择新添分类所属分类</span></td>
</tr>

<tr>
<td align="center"><span class="STYLE1">分类名称：</span></td>
<td colspan="2"><input type="text" name="columnname" id="columnname"></td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center"><span class="STYLE1">排序：</span></td>
<td colspan="2"><input name="ColumnSort" type="text" id="ColumnSort" value="0" size="5">
  <input name="Action" type="hidden" id="Action" value="Add" /></td>
<td><span class="STYLE1">值越大越排列在前</span></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="button" id="button" value="提交"></td>
<td colspan="2" align="center"><input type="reset" name="button2" id="button2" value="重置"></td>
</tr>
</table>
</form>
<% end if%>