📄 ntype.asp

📁 shopxp网上购物系统v6.6已经调试,百分百可用
💻 ASP
字号:
<!--#include file="../nUser/config.asp"-->
<!--#include file="../nUser/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Css.css" rel="stylesheet">
<title>目录树</title>
<script type="text/javascript">
function ConfirmDel()
{
   if(confirm("确认删除？确定要删除此栏目到回收站！！！"))
     return true;
   else
     return false;	 
}
</script>
</head>
<%
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
Dim classSql,rs,parentid,classArr
parentid=Cint(request("classid"))
classSql = "Select id,nType,title,nNum from kheu_nType where nType="&parentid
Set rs = Conn.Execute(classSql)
if not rs.eof and not rs.bof then
	classArr=rs.GetRows()
	rs.close
	set rs = Nothing
else
	response.Write("没有分类，请先添加分类！<br><a href=""nType_add.asp?id=0"">&nbsp;&nbsp;添加==></a>")
	rs.close
	set rs = Nothing
	call connclose()
	response.End()
end if
Function GetChildClassList(ClassID,Str)
	Dim Sql,RsTempObj,TempImageStr,ImageStr
	TempImageStr = "<img src=""images/T.gif"" width=""18"" height=""18""><img src=""images/dir.gif"">"
	Sql = "Select id,nType,title,nNum from kheu_nType where nType=" & ClassID
	ImageStr = Str & "<img src=""Images/I.gif"" width=""18"" height=""18"">"
	Set RsTempObj = Conn.Execute(Sql)
	do while Not RsTempObj.Eof
		GetChildClassList = GetChildClassList & "<tr><td><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr class=""TempletItem"">"
		GetChildClassList = GetChildClassList & "<td>"&ImageStr&TempImageStr&"</td><td>-<a href=""nType_modi.asp?id="&RsTempObj("id")&""" title=""查看栏目详细信息"">"&RsTempObj("title")&"</a>("&RsTempObj("id")&"|"&RsTempObj("nNum")&")"
		GetChildClassList = GetChildClassList & "〖&nbsp;<a href=""nType_add.asp?id="&RsTempObj("id")&""" title=""添加子栏目"">添加</a>&nbsp;<a href=""nType_dele.asp?id="&RsTempObj("id")&""" title=""删除栏目"" onClick=""return ConfirmDel()"">删除</a>&nbsp;〗</td></tr></table></td></tr>"
		GetChildClassList = GetChildClassList & GetChildClassList(RsTempObj("id"),ImageStr)
		RsTempObj.MoveNext
	loop
	RsTempObj.close
	Set RsTempObj = Nothing
End Function
%>
<body topmargin="0" leftmargin="0">
      <table width="100%"  height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
                <tr>
                  <td bgcolor="#006699" onMouseOver="javascript:this.bgColor='#0066cc'" onMouseOut="javascript:this.bgColor='#006699'">
                  <div align="center" class="style1">
                  欢迎使用『秦直道』多用户博客管理系统V2.0版</div></td>
                </tr>
      </table>
     <table width="100%" height="22"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FF9900">
          <tr>
             <td><div align="center" class="style1">博客日志分类栏目管理</div></td>
          </tr>
     </table>           
<table width="100%"  border="0" cellspacing="0" cellpadding="0" style="border:1px solid #666666; ">  
  <tr>
    <td width="20" bgcolor="#F0EFEC">　</td>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
      <tr>
        <td bgcolor="#FFFFFF">
          <table border="0" cellspacing="0" cellpadding="0">
            <tr align="left" class="TempletItem">
              <td><img src="images/home.gif" width="22" height="22"></td>
              <td>系统根栏目&nbsp;( 生成全部目录 )</td>
            </tr>
        </table></td>
      </tr>
      <%
		for ii=0 to ubound(classArr,2)
	  %>
      <tr>
        <td bgcolor="#FFFFFF"><table border="0" cellspacing="0" cellpadding="0">
            <tr align="left" class="TempletItem">
              <td><img src="images/T.gif" width="18" height="18"><img src="images/<%=ii%>.gif"  width="22" height="22"></td>
              <td>-<%=classArr(2,ii)%>(<%=classArr(0,ii)%>|<%=classArr(3,ii)%> )
			  〖&nbsp;<a href="nType_add.asp?id=<%=classArr(0,ii)%>" title="添加子栏目">添加</a>&nbsp;〗
			  </td>
            </tr>
        </table></td>
      </tr>
      	<%
			Response.Write(GetChildClassList(classArr(0,ii),""))
		next
		%>
    </table></td> 
  </tr>
</table>
<br><br>
</body>
</html>
<%call connclose()%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -