?? aa_prclass.asp

?? 臺訊企業精美版.適合企事業單位用.方便易學.不會做網站也能建網站.
?? ASP
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
		saveok="產品分類：[ " & Request.form("Class_Name") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "sEdit"
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
Set Rs=server.createobject("adodb.recordset")
Sql="select * from Tx_PrClass Where Class_Id=" & Request.form("ParentID")
Rs.open Sql,Conn,1,1
IF Rs.Recordcount<>0 THEN
oClassParentPath=Rs("Class_ParentPath")
End IF
Rs.close
Set Rs=Nothing
IF Request.form("Class_Name")="" THEN
Errorst="請輸入產品分類名稱！"
founderr=True
ElseIF instr(oClassParentPath,Id) 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 where Class_Id=" & Id
        Rs.open Sql,Conn,1,3
		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
		Rs.update
		Rs.close
		Set Rs=Nothing
        Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_PrClass Where Class_ParentPath like '%" & Id & "%'"
            Rs.Open Sql,Conn,1,3
            While Not Rs.eof
			aParentPath=split(Rs("Class_ParentPath"),"|")
            For intTemp=0 to ubound(aParentPath)
			    IF aParentPath(intTemp)=Id THEN
					Exit For
				End IF
			    Rs("Class_ParentPath")=replace(Rs("Class_ParentPath"),aParentPath(intTemp)&"|","")
			Next
			IF Parent<>"0" THEN
			Rs("Class_ParentPath")=Parent & "|" & Rs("Class_ParentPath")
			End IF
            Rs.moveNext
            Wend
        Rs.close
		Set Rs=Nothing
		ToHistory="Aa_PrClass.asp?Action=Edit&Id=" & Id
		saveok="產品分類：[ " & Request.form("Class_Name") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "EditOrder"
IF Not isnumeric(Request.form("ClassOrder")) THEN
Errorst="錯誤的參數（請輸入數字）！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
	    NewOrder=Request.form("ClassOrder")
	    Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_PrClass Where Class_Id=" & Id
            Rs.open Sql,Conn,1,3
            OldOrder=Rs("Class_Order")
		    ClassName=Rs("Class_Name")
		    ClassParentID=Rs("ParentID")
	        IF NewOrder="" Then
		        Rs("Class_Order")=Rs("Class_Order")
	        Else
		        Rs("Class_Order")=NewOrder
	        End IF
		    Rs.update
		Rs.close
		Set Rs=Nothing
	    Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_PrClass where ParentID=" & ClassParentID & " And Class_Order>=" & NewOrder & " and Class_Id<>" & Id & " order by Class_Order"
            Rs.open Sql,Conn,1,3
	        IF Rs.Recordcount<>0 Then
	            IF Rs("Class_Order")<NewOrder+1 Then
                    While Not Rs.eof
		                Rs("Class_Order")=Rs("Class_Order")+1
	                    Rs.moveNext
                    Wend
	            End IF
	        End IF
	    Rs.close
		Set Rs=Nothing
		ToHistory="Aa_PrClass.asp?Action=Manage"
		saveok="產品分類：[ " & ClassName & " ]，原序號為" & OldOrder & "，現序號為" & NewOrder & "！"
	    Call Form_Saveok()
End IF
Case "Del"
    Set Rs=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_PrClass where ParentID=" & Id
    Rs.open Sql,Conn,1,1
        crecordcount=Rs.Recordcount
    Rs.close
    Set Rs=Nothing
    IF crecordcount<>0 THEN
        Errorst="您要刪除的分類有下屬子類，請先刪除子類！"
        founderr=True
    End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
        BoardName=Conn.Execute ("Select Class_Name From Tx_PrClass where Class_Id=" & Id)(0)
        Set Rs=server.Createobject("Adodb.Recordset")
        Sql="Select * from Tx_Products where Products_ClassId=" & Id
        Rs.open Sql,Conn,1,1
		crecordcountP=Rs.Recordcount
		    While Not Rs.eof
		        Conn.Execute "Delete From Tx_Cret Where Cret_Class=1 And Cret_ClassId=" & Rs("Products_Id")
			Rs.MoveNext
			Wend
		Rs.Close
		Set Rs=Nothing
        Conn.Execute "Delete from Tx_Products where Products_ClassId=" & Id
        Conn.Execute "Delete from Tx_PrClass where Class_Id=" & Id
		ToHistory="Aa_PrClass.asp?Action=Manage"
		IF crecordcountP<>0 THEN
		    saveok="產品分類[ " & BoardName & " ]已刪除，并同時刪除下屬" & crecordcountP & "個產品及這些產品的評論！"
		Else
		    saveok="產品分類[ " & BoardName & " ]刪除成功！"
		End IF
	    Call Form_Saveok()
	End IF
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_PrClass where Class_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("Class_Flag")=1 THEN
		    Rs("Class_Flag")=0
		saveok="產品分類：[ " & Rs("Class_Name") & " ] 已取消審核！"
		Else
		    Rs("Inform_Flag")=1
		saveok="產品分類：[ " & Rs("Class_Name") & " ] 已通過審核！"
		End IF
		Rs.update
		Rs.close
		Set Rs=Nothing
		ToHistory=Request.servervariables("http_referer")
	    Call Form_Saveok()
Case "Merges"
    IF Request.form("NewClassId")<>"" THEN
        Set Rs=server.Createobject("Adodb.Recordset")
        Sql="Select * From Tx_PrClass where Class_Id=" & Request.form("NewClassId")
        Rs.open Sql,Conn,1,1
            IF Rs.Recordcount<>0 THEN
                ClassParentPath=Rs("Class_ParentPath")
            End IF
        Rs.close
        Set Rs=Nothing
        Set Rs=server.Createobject("Adodb.Recordset")
        Sql="Select * From Tx_PrClass Where ParentID=" & Request.form("NewClassId")
        Rs.open Sql,Conn,1,1
            NewClassId=Rs.Recordcount
        Rs.close
        Set Rs=Nothing
    End IF
    IF Request.form("OldClassId")<>"" THEN
        Set Rs=server.Createobject("Adodb.Recordset")
        Sql="Select * From Tx_PrClass Where ParentID=" & Request.form("OldClassId")
        Rs.open Sql,Conn,1,1
            OldClassId=Rs.Recordcount
        Rs.close
        Set Rs=Nothing
    End IF
    IF Request.form("OldClassId")="" THEN
        Errorst="請選擇原產品分類！"
        founderr=True
    ElseIF Request.form("NewClassId")="" THEN
        Errorst="請選擇目標分類！"
        founderr=True
    ElseIF Request.form("OldClassId")=Request.form("NewClassId") THEN
        Errorst="自己怎么可能吃自己呢？"
        founderr=True
    ElseIF instr(ClassParentPath,Request.form("OldClassId")) THEN
        Errorst="不能將數據合并到子類中！"
        founderr=True
    ElseIF OldClassId<>0 THEN
        Errorst="原分類不能有下屬子類！"
        founderr=True
    ElseIF NewClassId<>0 THEN
        Errorst="目標分類不能有下屬子類！"
        founderr=True
    End IF	
    IF founderr=True THEN
        Call Form_Error()
    Else	
        Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * from Tx_Products where Products_ClassId=" & Request.form("OldClassId")
            Rs.open Sql,Conn,1,3
            While Not Rs.eof
                Rs("Products_ClassId")=Request.form("NewClassId")
            Rs.moveNext
            Wend
        Rs.close
		Set Rs=Nothing
		Conn.Execute "Delete from Tx_PrClass Where Class_Id=" & Request.form("OldClassId")
		ToHistory="Aa_PrClass.asp?Action=Merges"
		saveok="數據合并成功！"
	    Call Form_Saveok()
	End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
上一頁 12
?? 文件大小 2789 K
?? 上傳用戶 gsxyndll
?? 所屬分類其他
??? 相關標簽

#網站 #單位
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? aa_prclass.asp

?? 快捷鍵說明
