?? as_products.asp
字號(hào):
<%@language=vbscript codepage=936 %>
<%
'***********************************************************************************
' 產(chǎn)品名稱：CSYS.COM.CN企業(yè)全站管理系統(tǒng)（V2007簡(jiǎn)體中文版）
' 聯(lián)系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.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 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="請(qǐng)輸入產(chǎn)品名稱！"
founderr=True
ElseIF Request.form("Products_ClassId")="" THEN
Errorst="請(qǐng)選擇產(chǎn)品所屬分類！"
founderr=True
ElseIF crecordcount<>0 THEN
Errorst="產(chǎn)品所屬類別不能有下屬子類！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Money")) and Request.form("Products_Money")<>"" THEN
Errorst="錯(cuò)誤的參數(shù)（產(chǎn)品價(jià)格請(qǐng)輸入數(shù)字）！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="請(qǐng)選輸入產(chǎn)品介紹！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Count")) THEN
Errorst="錯(cuò)誤的參數(shù)（瀏覽次數(shù)請(qǐng)輸入數(shù)字）！"
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 CS_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="產(chǎn)品：[ " & Request.form("Products_Name") & " ] 添加成功！"
Call Form_Saveok()
End IF
Case "Edit"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from 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="請(qǐng)輸入產(chǎn)品名稱！"
founderr=True
ElseIF crecordcount<>0 THEN
Errorst="產(chǎn)品所屬類別不能有下屬子類！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Money")) and Request.form("Products_Money")<>"" THEN
Errorst="錯(cuò)誤的參數(shù)（產(chǎn)品價(jià)格請(qǐng)輸入數(shù)字）！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="請(qǐng)選輸入產(chǎn)品介紹！"
founderr=True
ElseIF not isnumeric(Request.form("Products_Count")) THEN
Errorst="錯(cuò)誤的參數(shù)（瀏覽次數(shù)請(qǐng)輸入數(shù)字）！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From CS_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 CS_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="產(chǎn)品：[ " & 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 CS_Products Where Products_Id=" & Id)(0)
Conn.Execute "Delete From CS_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="產(chǎn)品[" & DelNamet & "]及其下屬" & DelCount & "條評(píng)論已刪除！"
Call Form_Saveok()
Case "Flag"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From CS_Products where Products_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Products_Flag")=1 THEN
Rs("Products_Flag")=0
saveok="產(chǎn)品：[ " & Rs("Products_Name") & " ] 已取消審核！"
Else
Rs("Products_Flag")=1
saveok="產(chǎn)品：[ " & Rs("Products_Name") & " ] 已通過(guò)審核！"
End IF
Rs.update
Rs.close
Set Rs=Nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="請(qǐng)選擇要?jiǎng)h除的對(duì)象！"
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 CS_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"),",")) & "個(gè)產(chǎn)品，并同時(shí)刪除它們下屬" & DelCount & "條評(píng)論！"
Call Form_Saveok()
End IF
Case "Products_Index"
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From CS_Products Where Products_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Products_Index")=1 Then
Rs("Products_Index")=0
saveok="產(chǎn)品：" & Rs("Products_Name") & " 已設(shè)為推薦產(chǎn)品！"
Else
Rs("Products_Index")=1
saveok="產(chǎn)品：" & 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 CS_Products Where Products_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Products_Top")=1 Then
Rs("Products_Top")=0
saveok="產(chǎn)品：" & Rs("Products_Name") & " 已設(shè)為熱門產(chǎn)品！"
Else
Rs("Products_Top")=1
saveok="產(chǎn)品：" & 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="請(qǐng)選擇要審核的對(duì)象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate CS_Products Set Products_Flag=1 Where Products_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已通過(guò)審核！"
Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="請(qǐng)選擇要取消審核的對(duì)象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate CS_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 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="請(qǐng)選擇要移動(dòng)的產(chǎn)品！"
founderr=True
ElseIF Request.form("NewClassId")="" THEN
Errorst="請(qǐng)選擇移動(dòng)到的分類！"
founderr=True
ElseIF crecordcount<>0 THEN
Errorst="產(chǎn)品所屬類別不能有下屬子類！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from CS_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="產(chǎn)品轉(zhuǎn)換分類成功 ！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -