📄 aa_prclass.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_PrClass.asp?Action=Add>添加产品分类</A>　|　<A HREF=Aa_PrClass.asp?Action=Manage>产品分类列表</A>　|　<A HREF=Aa_PrClass.asp?Action=Merges>合并分类</A>"
Table_List="Tx_PrClass"
Table_Page="Aa_PrClass"
Table_formPage="Aa_PrClass"
Select Case Action
Case "Add"
Call Page_AdminFlag(31)
Page_BootmName="添加产品分类"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_PrClass.asp?Action=sAdd>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>分类名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Class_Name TYPE=text id=Class_Name size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR><TD HEIGHT=30 CLASS=Table8>所属类别：</TD>"&_
         "<TD CLASS=Table8><select NAME=ParentID id=ParentID><OPTION VALUE='0'>无（作为一级分类）　</OPTION>"
strIfx = "</select></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=90 CLASS=Table8>类别介绍：</TD>"&_
         "<TD CLASS=Table8><TEXTAREA NAME=Class_Content cols=44 rows=5 id=Class_Content></TEXTAREA>　　100个字以内，HTML禁用</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>首页显示：</TD>"&_
         "<TD CLASS=Table8><INPUT CLASS=radio_all NAME=Class_Index TYPE=checkbox id=Class_Index VALUE=1 checked>　　只对一级菜单有效</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>分类审核：</TD>"&_
         "<TD CLASS=Table8><INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='1' checked> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='0'>取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit id=ok CLASS=submit_all VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Adds"
Call Page_AdminFlag(31)
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_PrClass Where Class_Id=" & Id
Rs.open Sql,Conn,1,1
IF Rs("Class_ParentPath")<>"0" Then
arrClassId=split(Rs("Class_ParentPath"),"|")
For intTemp=0 to ubound(arrClassId)
Set Rs_n=server.createobject("adodb.recordset")
Sql="Select * From Tx_PrClass Where Class_Id=" & arrClassId(intTemp)
Rs_n.open Sql,Conn,1,1
Class_Name=Class_Name & Rs_n("Class_Name") & " > " 
Rs_n.close
Set Rs_n=Nothing
Next
End IF
Class_Name=Class_Name & Rs("Class_Name")
Rs.close
Set Rs=Nothing
Page_BootmName=Class_Name & " > 添加子类"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_PrClass.asp?Action=sAdd>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>分类名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Class_Name TYPE=text id=Class_Name size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR><TD HEIGHT=30 CLASS=Table8>所属类别：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=ParentID TYPE=hidden id=ParentID VALUE='" & Id & "'>" & Class_Name & ""&_
         "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=90 CLASS=Table8>类别介绍：</TD>"&_
         "<TD CLASS=Table8><TEXTAREA NAME=Class_Content cols=44 rows=5 id=Class_Content></TEXTAREA>　　100个字以内，HTML禁用</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>首页显示：</TD>"&_
         "<TD CLASS=Table8><INPUT CLASS=radio_all NAME=Class_Index TYPE=checkbox id=Class_Index VALUE=1 checked>　　只对一级菜单有效</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>分类审核：</TD>"&_
         "<TD CLASS=Table8><INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='1' checked> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='0'>取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(32)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_PrClass Where Class_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="产品分类修改 > " & Rs_edit("Class_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Class_Index")=1 THEN checked="checked"
IF Rs_edit("Class_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_PrClass.asp?Action=sEdit&Id=" & Id & ">"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>分类名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Class_Name TYPE=text id=Class_Name size=45 VALUE=" & Rs_edit("Class_Name") & "> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR><TD HEIGHT=30 CLASS=Table8>所属类别：</TD>"&_
         "<TD CLASS=Table8><select NAME=ParentID id=ParentID><OPTION VALUE='" & Rs_edit("ParentID") & "'>不改变产品类别　　</OPTION>"
strIfx = "</select></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=90 CLASS=Table8>类别介绍：</TD>"&_
         "<TD CLASS=Table8><TEXTAREA NAME=Class_Content cols=44 rows=5 id=Class_Content>" & Rs_edit("Class_Content") & "</TEXTAREA>　　100个字以内，HTML禁用</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>首页显示：</TD>"&_
         "<TD CLASS=Table8><INPUT CLASS=radio_all NAME=Class_Index TYPE=checkbox id=Class_Index VALUE=1 " & checked & ">　　只对一级菜单有效</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>分类审核：</TD>"&_
         "<TD CLASS=Table8><INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='1' " & checked1 & "> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT CLASS=submit_all NAME=ok TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Manage"
Call Page_AdminFlag(32)
Page_BootmName="产品分类列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
PageClassM=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD HEIGHT=23 CLASS=Table6>分类名称</TD><TD WIDTH=8% CLASS=Table6>属性</TD><TD WIDTH=13% CLASS=Table6>排序</TD><TD WIDTH=26% CLASS=Table6>操作</TD></TR>"
strIfb = "</TABLE>"
Call Page_aTable(0,0)
Case "Merges"
Call Page_AdminFlag(31)
Page_BootmName="添加产品分类"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
PageClass=1
PageClassy=PageClass
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=Aa_PrClass.asp?Action=Merges>"&_
         "<TD HEIGHT=40 CLASS=Table8>将分类："&_
         "<select NAME=OldClassId id=OldClassId><OPTION VALUE=''>请选择原分类....</OPTION>"
strIfx = "</select> 合并到 <select NAME=NewClassId id=NewClassId><OPTION VALUE=''>请选择目标分类..</OPTION>"
strIfb = "</select>，并删除原分类</TD></TR>"&_
         "<TR>"&_
         "<TD HEIGHT=35 ALIGN=center CLASS=Table8><INPUT TYPE=submit NAME=Submit VALUE=提交资料></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "sAdd"
Set Rs=server.createobject("adodb.recordset")
Sql="select * from Tx_PrClass Where ParentID=" & Request.form("ParentID") & " and Class_Name='" & Request.form("Class_Name") & "'" 
Rs.open Sql,Conn,1,1
crecordcount=Rs.Recordcount
Rs.close
Set Rs=Nothing
IF Request.form("Class_Name")="" THEN
Errorst="请输入产品分类名称！"
founderr=True
ElseIF crecordcount<>0 THEN
Errorst="同分类下已有相同分类，请重新输入分类名称！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
        ParentID=int(Request.form("ParentID"))
        Parent=ParentID
        Do While ParentID>0
            ParentID=Conn.Execute("Select ParentID from Tx_PrClass Where Class_Id=" & ParentID)(0)
            IF ParentID>0 THEN
                Parent=ParentID & "|" & Parent
            End IF
        Loop
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_PrClass"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("ParentID")=Request.form("ParentID")
		Rs("Class_Name")=Request.form("Class_Name")
		Rs("Class_Content")=nohtml(Request.form("Class_Content"))
	    Rs("Class_ParentPath")=Parent
        Rs("Class_Flag")=Request.form("Class_Flag")
		IF Request.form("Class_Index")=1 THEN
        Rs("Class_Index")=1
		Else
        Rs("Class_Index")=0
		End IF
        Set Rs_Old=server.createobject("adodb.recordset")
        Sql="select * from Tx_PrClass where ParentID=" & Rs("ParentID") & " order by Class_Order desc" 
        Rs_Old.open Sql,Conn,1,1
        IF Rs_Old.Recordcount=0 Then
        ClassOrder=1
        Else
        ClassOrder=Rs_Old("Class_Order")+1
        End IF
        Rs_Old.close
		Set Rs_Old=noting
		Rs("Class_Order")=ClassOrder
		Rs.update
		Rs.close
		Set Rs=Nothing
        ToHistory="Aa_PrClass.asp?Action=Manage"
12 下一页
⌨️ 快捷键说明

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