class.asp

asp无限分类之源码！适合于新手！ 这是一个实例！

<!--#include file="Admin_Top.asp"-->
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20%" align="center" valign="top"><!--#include file="Admin_Left.asp"--></td>
    <td width="80%">
<%
classaction=Trim(request("classaction"))
ClassName=Trim(request("classname"))
ClassCon=Trim(request("classcon"))
ClassOrderId=Trim(request("classorderid"))
ParentID=Trim(request("ParentID"))
'response.Write ParentID&","&classaction
If classaction="bigclassadd" then'增加大分类
   Call AddClass(0,ClassName,ClassCon,ClassOrderId)
ElseIf classaction="classadd" and Isnumeric(ParentID) then'增加普通分类
   Call AddClass(ParentID,ClassName,ClassCon,ClassOrderId)
ElseIf classaction="classedit" and Isnumeric(ParentID) then'修改分类
   Call EditClass(ParentID,ClassName,ClassCon,ClassOrderId)
ElseIf classaction="classdel" and Isnumeric(ParentID) then'删除分类
   Call DelClass(ParentID)
End If

If trim(request("action"))="classedit" and Isnumeric(ParentID) then
    Set EditClassRs = Server.CreateObject("ADODB.Recordset")
	EditClassSql="select * from Class where Classid="&ParentID
    EditClassRs.Open EditClassSql,conn,1,3
	If EditClassRs.Recordcount<>1 then
	   ErrorMsg("数据错误！")
	End If
	classnameStr=EditClassRs("ClassName")
	classconStr=EditClassRs("ClassCon")
	classorderidStr=EditClassRs("ClassOrderId")
	closeRs(EditClassRs)
End If
%>

	<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td class="fontblankB">分类管理</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td height="30"><form id="form1" name="form1" method="post" action="">
          <table border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="30" align="right"><%if trim(request("action"))="classadd" then%><font color="#FF0000">新增小</font><%elseif trim(request("action"))="classedit" then%><font color="#FF0000">修改</font><%else%><font color="#FF0000">新增根</font><%end if%>分类：</td>
              <td>&nbsp;</td>
              <td width="60" align="center">&nbsp;</td>
            </tr>
            <tr>
              <td height="30" align="right">分类名：</td>
              <td><input name="classname" type="text" class="inputclass" id="bigclassname" value="<%=classnameStr%>" /></td>
              <td align="center">&nbsp;</td>
            </tr>
            <tr>
              <td height="30" align="right">备注：</td>
              <td><input name="classcon" type="text" class="inputclass" id="bigclassCon" value="<%=classconStr%>" /></td>
              <td align="center">&nbsp;</td>
            </tr>
            <tr>
              <td height="30" align="right">排序ID：</td>
              <td><input name="classorderid" type="text" class="inputclass" id="bigclassorderid" size="5" value="<%=classorderidStr%>" /></td>
              <td align="center">&nbsp;</td>
            </tr>
            <tr>
              <td width="120" height="30" align="right">&nbsp;</td>
              <td colspan="2">
			  <%if trim(request("action"))<>"" then%>                
				<input name="classaction" type="hidden" id="classaction" value="<%=trim(request("action"))%>" />
				<input name="ParentID" type="hidden" id="ParentID" value="<%=ParentID%>" />
			  <%else%>
			    <input name="classaction" type="hidden" id="classaction" value="bigclassadd" />
			  <%end if%>
                <input type="submit" name="Submit" value="提交" />              </td>
              </tr>
          </table>
                </form>        </td>
      </tr>
    </table>
<%
Response.Write("<table border='0' cellspacing='0' cellpadding='0' width='300'>")
Set Rs = Conn.Execute("select * from Class where ParentID=0 order by ClassOrderId,ClassId")
Do While Not Rs.EOF
   Response.Write "<tr><td height='25'>|－<font class='fontblueB'>" & Rs("ClassName") & "</font>&nbsp;&nbsp;<a href='Class.asp?action=classadd&ParentID="&Rs("ClassID")&"'>增加</a>&nbsp;&nbsp;<a href='Class.asp?action=classedit&ParentID="&Rs("ClassID")&"'>修改</a></td></tr>"
   Call ViewClass(Rs("ClassID"),0)
   Rs.MoveNext   
loop
Rs.Close
set Rs=nothing
Response.Write("</table>")
%>	</td>
  </tr>
</table>
<!--#include file="Admin_Foot.asp"-->