admin_soft_class.asp

来自「适适合做个人、学校、公司、政府等站点一个灵活性很好的网站原代码」· ASP 代码 · 共 1,312 行 · 第 1/4 页
ASP
1,312 行
<!--#include file = "conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<% CheckAdmin2 %>
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<!--#include file="Admin_all_soft.asp" -->
<%
    dim Action,ParentID,SkinID,LayoutID,BrowsePurview,AddPurview,i,FoundErr,ErrMsg
    dim SkinCount,LayoutCount
    Action=trim(Request("Action"))
    ParentID=trim(request("ParentID"))
    if ParentID="" then
	ParentID=0
    else
	ParentID=CLng(ParentID)
    end if
%>
<%
    if Action="Add" then
	call AddClass()
	call Main()
    elseif Action="SaveAdd" then
	call SaveAdd()
    elseif Action="Del" then
	call DeleteClass()
    elseif Action="Modify" then
	call Modify()
	call Main()
    elseif Action="SaveModify" then
	call SaveModify()
    elseif Action="Clear" then
	call ClearClass()
    elseif Action="UpOrder" then 
	call UpOrder() 
    elseif Action="DownOrder" then 
	call DownOrder() 
    elseif Action="Order" then
	call Order()
    elseif Action="UpOrderN" then 
	call UpOrderN() 
    elseif Action="DownOrderN" then 
	call DownOrderN() 
    elseif Action="OrderN" then
	call OrderN()
    else
	call AddClass()
	call Main()
    end if
    if FoundErr=True then
	call WriteErrMsg()
    end if
%>
<% Sub AddClass() %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
    function check()
    {
    if (document.form1.ClassName.value=="")
    {
    alert("栏目名称不能为空！");
	document.form1.ClassName.focus();
	return false;
    }
    }
</script>
<table width="690" border="0" align=center cellpadding="3" cellspacing="1" bgcolor="#DEDFDE">
  <form name="form1" method="post" action="Admin_Soft_Class.asp" onsubmit="return check()">
    <tr bgcolor="#F7F7F7">
      <td colspan="3" align="center"><STRONG>添 加 下 载 栏 目</STRONG></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="200">所属栏目分类：</td>
      <td><select name="ParentID">
          <%call SoftClass_Option(0,ParentID)%>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td>新加栏目名称：</td>
      <td><input name="ClassName" type="text" class="input_text" size="30" maxlength="30"></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td>&nbsp;</td>
      <td><input name="Action" type="hidden" id="Action" value="SaveAdd"><input type="submit" name="Submit" value="　提　交　" class="input_submit">　　　
        <input type="reset" name="Submit" value="　重　置　" class="input_submit"></td>
    </tr>
  </form>
</table>
<% End Sub %>
<%
    Sub Main()
	dim arrShowLine(10)
	for i=0 to ubound(arrShowLine)
		arrShowLine(i)=False
	next
	dim sqlClass,rsClass,i,iDepth
	sqlClass="select * From SoftClass order by RootID,OrderID"
	set rsClass=server.CreateObject("adodb.recordset")
	rsClass.open sqlClass,Conn,1,1

%>
<br><br>
<div align="center">
<table width="690"  border="0" cellpadding="0" cellspacing="1" bgcolor="#DEDFDE">
  <tr bgcolor="#F7F7F7">
    <td height="25"><div align="center"><strong>栏目名称</strong></div></td>
    <td width="80"><div align="center"><a href="Admin_Soft_Class.asp?Action=Order"><font color="#FF0000">一级栏目排序</font></a></div></td>
    <td width="80"><div align="center"><a href="Admin_Soft_Class.asp?Action=OrderN"><font color="#FF0000">N级栏目排序</font></a></div></td>
    <td width="80"><div align="center"><strong>添加子栏目</strong></div></td>
    <td width="70"><div align="center"><strong>修改栏目</strong></div></td>
    <td width="100"><div align="center"><strong>清空栏目下软件</strong></div></td>
    <td width="50"><div align="center"><strong>删除</strong></div></td>
  </tr>

<%
    If Not rsClass.Eof Then
    Do While Not rsClass.Eof
%>  
  
  <tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F7F8F8'">
    <td>
<% 
	iDepth=rsClass("Depth")
	if rsClass("NextID")>0 then
		arrShowLine(iDepth)=True
	else
		arrShowLine(iDepth)=False
	end if
	if iDepth>0 then
	  	for i=1 to iDepth 
			if i=iDepth then 
				if rsClass("NextID")>0 then 
					response.write "<img src='images/tree_line1.gif' width='17' height='16' valign='abvmiddle'>" 
				else 
					response.write "<img src='images/tree_line2.gif' width='17' height='16' valign='abvmiddle'>" 
				end if 
			else 
				if arrShowLine(i)=True then
					response.write "<img src='images/tree_line3.gif' width='17' height='16' valign='abvmiddle'>" 
				else
					response.write "<img src='images/tree_line4.gif' width='17' height='16' valign='abvmiddle'>" 
				end if
			end if 
	  	next 
	  end if 
	  if rsClass("Child")>0 then 
	  	response.write "<img src='Images/tree_folder4.gif' width='15' height='15' valign='abvmiddle'>" 
	  else 
	  	response.write "<img src='Images/tree_folder3.gif' width='15' height='15' valign='abvmiddle'>" 
	  end if 
	  if rsClass("Depth")=0 then 
	  	response.write "<b>" 
	  end if 
	  response.write "<a href='Admin_Soft_Class.asp?Action=Modify&ClassID=" & rsClass("ClassID") & "'>" & rsClass("ClassName") & "</a>"
	  if rsClass("Child")>0 then 
	  	response.write "（" & rsClass("Child") & "）" 
	  end if
%>
</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td><div align="center"><a href="Admin_Soft_Class.asp?Action=Add&ParentID=<%=rsClass("ClassID")%>">添加子栏目</a></div></td>
    <td><div align="center"><a href="Admin_Soft_Class.asp?Action=Modify&ClassID=<%=rsClass("ClassID")%>">修改栏目</a></div></td>
    <td><div align="center"><a href="Admin_Soft_class.asp?Action=Clear&ClassID=<%=rsClass("ClassID")%>" onClick="return ConfirmDel3();">清空栏目下资源</a></div></td>
    <td><div align="center"><a href="Admin_Soft_Class.asp?Action=Del&ClassID=<%=rsClass("ClassID")%>" onClick="<%if rsClass("Child")>0 then%>return ConfirmDel1();<%else%>return ConfirmDel2();<%end if%>">删除</a></div></td>
  </tr>
<%
    rsClass.MoveNext
    Loop
    Else
    Response.Write "<tr><td colspan='5' bgcolor='#ffffff'><div align='center'>暂无栏目分类信息！！</div></td></tr>"
    End If
%>
</table>
<script language="JavaScript" type="text/JavaScript">
function ConfirmDel1()
{
   alert("此栏目下还有子栏目，必须先删除下属子栏目后才能删除此栏目！");
   return false;
}
function ConfirmDel2()
{
   if(confirm("删除栏目将同时删除此栏目中的所有软件信息，并且不能恢复！确定要删除此栏目吗？"))
     return true;
   else
     return false;
}
function ConfirmDel3()
{
   if(confirm("清空栏目将把栏目（包括子栏目）的所有软件放入回收站中！确定要清空此栏目吗？"))
     return true;
   else
     return false;
}
</script>
<% End Sub %>
<%
    Sub Modify()
	dim ClassID,sql,rsClass,i
	dim SkinID,LayoutID,BrowsePurview,AddPurview
	ClassID=trim(request("ClassID"))
	if ClassID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	else
		ClassID=CLng(ClassID)
	end if
	sql="select * From SoftClass where ClassID=" & ClassID
	set rsClass=server.CreateObject ("Adodb.recordset")
	rsClass.open sql,Conn,1,3
	if rsClass.bof and rsClass.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的栏目！</li>"
	else
%>
<table width="690" border="0" align=center cellpadding="3" cellspacing="1" bgcolor="#DEDFDE" class="border">
  <form name="form1" method="post" action="Admin_Soft_Class.asp">
    <tr bgcolor="#F7F7F7">
      <td colspan="3" align="center"><STRONG>修 改 下 载 栏 目</STRONG></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="200">修改所属栏目分类：</td>
      <td><select name="ParentID">
          <%call SoftClass_Option(0,rsClass("ParentID"))%>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td>当前所属栏目：</td>
      <td>
<%
	if rsClass("ParentID")<=0 then
	  	response.write "无（作为一级栏目）"
	else
    	dim rsParent,sqlParent
		sqlParent="Select * From SoftClass where ClassID in (" & rsClass("ParentPath") & ") order by Depth"
		set rsParent=server.CreateObject("adodb.recordset")
		rsParent.open sqlParent,Conn,1,1
		do while not rsParent.eof
			for i=1 to rsParent("Depth")
				response.write "&nbsp;&nbsp;&nbsp;"
			next
			if rsParent("Depth")>0 then
				response.write "└"
			end if
			response.write "&nbsp;" & rsParent("ClassName") & "<br>"
			rsParent.movenext
		loop
		rsParent.close
		set rsParent=nothing
	end if
%>
</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td>修改栏目名称：</td>
      <td><input name="ClassName" type="text" class="input_text" size="30" maxlength="30"value="<%=rsClass("ClassName")%>"> <input name="ClassID" type="hidden" id="ClassID" value="<%=rsClass("ClassID")%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td>&nbsp;</td>
      <td><input name="Action" type="hidden" id="Action" value="SaveModify"><input type="submit" name="Submit" value="　提　交　" class="input_submit">　　　
        <input type="reset" name="Submit" value="　重　置　" class="input_submit"></td>
    </tr>
  </form>
</table>
<%
    end if
    rsClass.close
    set rsClass=nothing
    End Sub
%>
<%
    sub Order() 
	dim sqlClass,rsClass,i,iCount,j
	sqlClass="select * From SoftClass where ParentID=0 order by RootID" 
	set rsClass=server.CreateObject("adodb.recordset") 
	rsClass.open sqlClass,Conn,1,1 
	iCount=rsClass.recordcount 
%>
<table width="690" border="0" align=center cellpadding="3" cellspacing="1" bgcolor="#DEDFDE">
	<tr bgcolor="#F7F7F7">
	  <td colspan="4" align="center" class="title"><strong>一 级 栏 目 排 序</strong></td> 
  </tr> 
<% 
    j=1 
    do while not rsClass.eof
%> 
  <tr bgcolor="#FFFFFF" class="tdbg" style="padding: 0px 2px;" onmouseover="this.style.backgroundColor='#F7F8F8'" onmouseout="this.style.backgroundColor=''"> 
      <td width="200">&nbsp;<%=rsClass("ClassName")%></td> 
<% 
	if j>1 then 
  		response.write "<form action='Admin_Soft_Class.asp?Action=UpOrder' method='post'><td width='150'>" 
		response.write "<select name=MoveNum size=1 class='input_submit'><option value=0>向上移动</option>" 
		for i=1 to j-1 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=ClassID value="&rsClass("ClassID")&">"
		response.write "<input type=hidden name=cRootID value="&rsClass("RootID")&">&nbsp;<input type=submit name=Submit value=修&nbsp;改 class='input_submit'>" 
		response.write "</td></form>" 
	else 
		response.write "<td width='150'>&nbsp;</td>" 
	end if 
	if iCount>j then 
  		response.write "<form action='Admin_Soft_Class.asp?Action=DownOrder' method='post'><td width='150'>" 
		response.write "<select name=MoveNum size=1 class='input_submit'><option value=0>向下移动</option>" 
		for i=1 to iCount-j 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=ClassID value="&rsClass("ClassID")&">"
		response.write "<input type=hidden name=cRootID value="&rsClass("RootID")&">&nbsp;<input type=submit name=Submit value=修&nbsp;改 class='input_submit'>" 
		response.write "</td></form>"
	else
		response.write "<td width='150'>&nbsp;</td>"
	end if
%>
      <td>&nbsp;</td>
  </tr>
<%
	j=j+1
	rsClass.movenext
    loop
%>
</table>
<%
	rsClass.close
	set rsClass=nothing
admin_soft_class.asp - 源码说明

本页面展示了「适适合做个人、学校、公司、政府等站点一个灵活性很好的网站原代码」中的 admin_soft_class.asp 源码文件，采用 ASP 编程语言编写，共 1,312 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与站点相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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