📄 as_products.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
字号:
<%@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)
Select Case Action
Case "Add"
IF Request.form("Products_ClassId")<>"" THEN
Set Rs=server.createobject("adodb.recordset")
    Sql="Select * from Tx_PrClass Where ParentID=" & Request.form("Products_ClassId") 
    Rs.open Sql,Conn,1,1
	crecordcount=Rs.recordcount
	Rs.close
Set Rs=Nothing
End IF
IF Request.form("Products_Name")="" THEN
Errorst="请输入产品名称！"
founderr=True
ElseIF Request.form("Products_ClassId")="" THEN
Errorst="请选择产品所属分类！"
founderr=True
ElseIF crecordcount<>0 THEN
Errorst="产品所属类别不能有下属子类！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Money")) and Request.form("Products_Money")<>"" THEN
Errorst="错误的参数（产品价格请输入数字）！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="请选输入产品介绍！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Count")) THEN
Errorst="错误的参数（浏览次数请输入数字）！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	ContentFile=Replace(Request.form("PicUrl"),"../","")
	ContentFile=split(ContentFile,"|")
	For intTemp=0 to ubound(ContentFile)
        IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
			UploadFile=ContentFile(intTemp) & "|" & UploadFile
        End IF
	next
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Products"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Products_ClassId")=Request.form("Products_ClassId")
		Rs("Products_Name")=Request.form("Products_Name")
		Rs("Products_Code")=Request.form("Productse_Code")
		Rs("Products_Content")=replace(Request.form("Content"),replace(ToHistorys,"As_Products.asp",""),"")
		Rs("Products_Model")=Request.form("Products_Model")
		Rs("Products_Pic")=Request.form("Products_Pic")
		Rs("Products_Specification")=Request.form("Products_Specification")
		Rs("Products_Money")=Request.form("Products_Money")
		Rs("Products_Flag")=Request.form("Products_Flag")
		Rs("Products_Count")=Request.form("Products_Count")
		Rs("UploadFiles")=UploadFile
		IF Request.form("Products_Index")=1 THEN
		    Rs("Products_Index")=1
		Else
		    Rs("Products_Index")=0
		End IF
		IF Request.form("Products_Top")=1 THEN
		    Rs("Products_Top")=1
		Else
		    Rs("Products_Top")=0
		End IF
		Rs("Products_Date")=Now()
		Rs("Products_Add")=session("Loginadmin")
		Rs.update
		session("Content")=""
		ToHistory="Aa_Products.asp?Action=S&Id=" & Rs("Products_Id")
		Rs.close
		Set Rs=Nothing
		saveok="产品：[ " & Request.form("Products_Name") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "Edit"
Set Rs=server.createobject("adodb.recordset")
    Sql="Select * from Tx_PrClass Where ParentID=" & Request.form("Products_ClassId") 
    Rs.open Sql,Conn,1,1
	crecordcount=Rs.recordcount
	Rs.close
Set Rs=Nothing
IF Request.form("Products_Name")="" THEN
Errorst="请输入产品名称！"
founderr=True
ElseIF crecordcount<>0 THEN
Errorst="产品所属类别不能有下属子类！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Money")) and Request.form("Products_Money")<>"" THEN
Errorst="错误的参数（产品价格请输入数字）！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="请选输入产品介绍！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Count")) 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_Id=" & Id
	        Rs.open Sql,Conn,1,1
			ContentFile=Rs("UploadFiles")
		Rs.close
		Set Rs=Nothing
	    ContentFile=Replace(Request.form("PicUrl"),"../","") & ContentFile
		ContentFile=split(ContentFile,"|")
		For intTemp=0 to ubound(ContentFile)
            IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
			    UploadFile=ContentFile(intTemp) & "|" & UploadFile
            End IF
		Next
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Products Where Products_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Products_ClassId")=Request.form("Products_ClassId")
		Rs("Products_Name")=Request.form("Products_Name")
		Rs("Products_Code")=Request.form("Productse_Code")
		Rs("Products_Content")=replace(Request.form("Content"),replace(ToHistorys,"As_Products.asp",""),"")
		Rs("Products_Model")=Request.form("Products_Model")
		Rs("Products_Pic")=Request.form("Products_Pic")
		Rs("Products_Specification")=Request.form("Products_Specification")
		Rs("Products_Money")=Request.form("Products_Money")
		Rs("Products_Flag")=Request.form("Products_Flag")
		Rs("Products_Count")=Request.form("Products_Count")
		Rs("UploadFiles")=UploadFile
		IF Request.form("Products_Index")=1 THEN
		    Rs("Products_Index")=1
		Else
		    Rs("Products_Index")=0
		End IF
		IF Request.form("Products_Top")=1 THEN
		    Rs("Products_Top")=1
		Else
		    Rs("Products_Top")=0
		End IF
		IF Request.form("NewTime")=1 THEN
		    Rs("Products_Date")=Now()
		End IF
		Rs.update
		session("Content")=""
		Rs.close
		Set Rs=Nothing
		ToHistory="Aa_Products.asp?Action=S&Id=" & Id
		saveok="产品：[ " & Request.form("Products_Name") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "Del"
    DelCount=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=1 And Cret_ClassId=" & Id)(0)
    DelNamet=Conn.Execute("Select Products_Name from Tx_Products Where Products_Id=" & Id)(0)
    Conn.Execute "Delete From Tx_Products Where Products_Id=" & Id
    Conn.Execute "Delete From Tx_Cret Where Cret_Class=1 And Cret_ClassId=" & Id
    ToHistory="Aa_Products.asp?Action=Manage"
    saveok="产品[" & DelNamet & "]及其下属" & DelCount & "条评论已删除！"
    Call Form_Saveok()
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Products where Products_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("Products_Flag")=1 THEN
		    Rs("Products_Flag")=0
		saveok="产品：[ " & Rs("Products_Name") & " ] 已取消审核！"
		Else
		    Rs("Products_Flag")=1
		saveok="产品：[ " & Rs("Products_Name") & " ] 已通过审核！"
		End IF
		Rs.update
		Rs.close
		Set Rs=Nothing
		ToHistory=VisitorsForm
	    Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	DelCount=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=1 And Cret_ClassId in (" & Request.form("Id") & ")")(0)
    Conn.Execute "Delete From Tx_Products Where Products_Id in (" & Request.form("Id") & ")"
    Conn.Execute "Delete From Tx_Cret Where Cret_Class=1 And Cret_ClassId in (" & Request.form("Id") & ")"
    ToHistory=VisitorsForm
    saveok="已删除" & ubound(split(Request.form("Id"),",")) & "个产品，并同时删除它们下属" & DelCount & "条评论！"
    Call Form_Saveok()
End IF
Case "Products_Index"
    Set Rs=server.Createobject("Adodb.Recordset")
        Sql="Select * From Tx_Products Where Products_Id=" & Id
        Rs.open Sql,Conn,1,3
        IF Rs("Products_Index")=1 Then
            Rs("Products_Index")=0
			saveok="产品：" & Rs("Products_Name") & " 已设为推荐产品！"
        Else
            Rs("Products_Index")=1
			saveok="产品：" & Rs("Products_Name") & " 已取消推荐！"
        End IF
        Rs.upDate
    Rs.close
	Set Rs=Nothing
    ToHistory=VisitorsForm
    Call Form_Saveok()
Case "Products_Top"
    Set Rs=server.Createobject("Adodb.Recordset")
        Sql="Select * From Tx_Products Where Products_Id=" & Id
        Rs.open Sql,Conn,1,3
        IF Rs("Products_Top")=1 Then
            Rs("Products_Top")=0
			saveok="产品：" & Rs("Products_Name") & " 已设为热门产品！"
        Else
            Rs("Products_Top")=1
			saveok="产品：" & Rs("Products_Name") & " 已取消热门！"
        End IF
        Rs.upDate
    Rs.close
	Set Rs=Nothing
    ToHistory=VisitorsForm
    Call Form_Saveok()
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_Products Set Products_Flag=1 Where Products_Id in (" & Request.form("Id") & ")"
	ToHistory=VisitorsForm
    saveok="已通过审核！"
    Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="请选择要取消审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_Products Set Products_Flag=0 Where Products_Id in (" & Request.form("Id") & ")"
		ToHistory=VisitorsForm
    saveok="已取消审核！"
    Call Form_Saveok()
End IF
Case "EditClass"
IF Request.form("NewClassId")<>"" THEN
Set Rs=server.createobject("adodb.recordset")
    Sql="Select * from Tx_PrClass Where ParentID=" & Request.form("NewClassId") 
    Rs.open Sql,Conn,1,1
	crecordcount=Rs.recordcount
	Rs.close
Set Rs=Nothing
End IF
IF Request.form("Id")="" THEN
Errorst="请选择要移动的产品！"
founderr=True
ElseIF Request.form("NewClassId")="" THEN
Errorst="请选择移动到的分类！"
founderr=True
ElseIF crecordcount<>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_Id in (" & Request.form("Id") & ")"
            Rs.open Sql,Conn,1,3
            while not Rs.eof
                Rs("Products_ClassId")=Request.form("NewClassId")
            Rs.moveNext
            Wend
        Rs.close
	    Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="产品转换分类成功 ！"
        Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明

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