?? as_down.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("Down_ClassId")<>"" THEN
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_DoClass Where ParentID=" & request.form("Down_ClassId")
Rs.open Sql,Conn,1,1
crecordcount=Rs.recordcount
Rs.Close
Set Rs=Nothing
End IF
IF request.form("Down_Name")="" THEN
Errorst="請輸入軟件名稱！"
founderr=true
ElseIF request.form("Down_ClassId")="" THEN
Errorst="請選擇軟件所屬分類！"
founderr=true
ElseIF crecordcount<>0 THEN
Errorst="軟件所屬類別不能有下屬子類！"
founderr=true
ElseIF request.form("Down_Content")="" THEN
Errorst="請選輸入軟件介紹！"
founderr=true
ElseIF not isnumeric(request.form("Down_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_Down"
Rs.open Sql,Conn,1,3
Rs.addnew
Rs("Down_ClassId")=request.form("Down_ClassId")
Rs("Down_Name")=request.form("Down_Name")
Rs("Down_Edition")=request.form("Down_Edition")
Rs("Down_Size")=request.form("Down_Size")
Rs("Down_Size1")=request.form("Down_Size1")
Rs("Down_Address1")=request.form("Down_Address1")
Rs("Down_Address2")=request.form("Down_Address2")
Rs("Down_Category")=request.form("Down_Category")
Rs("Down_Language")=request.form("Down_Language")
Rs("Down_IsAuthorized")=request.form("Down_IsAuthorized")
Rs("Down_Platform")=request.form("Down_Platform")
Rs("Down_Demonstrates")=request.form("Down_Demonstrates")
Rs("Down_Registers")=request.form("Down_Registers")
Rs("Down_Content")=dvHTMLEncode(request.form("Down_Content"))
Rs("Down_Count")=request.form("Down_Count")
Rs("Down_Flag")=request.form("Down_Flag")
IF request.form("Down_Top")=1 THEN
Rs("Down_Top")=1
Else
Rs("Down_Top")=0
End IF
Rs("Down_Add")=session("Loginadmin")
Rs("Down_Date")=Now()
Rs.update
ToHistory="Aa_Down.asp?Action=S&Id=" & Rs("Down_Id")
Rs.Close
Set Rs=Nothing
saveok="軟件：[ " & request.form("Down_Name") & " ] 添加成功！"
Call Form_Saveok()
End IF
case "Edit"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_DoClass Where ParentID=" & request.form("Down_ClassId")
Rs.open Sql,Conn,1,1
crecordcount=Rs.recordcount
Rs.Close
Set Rs=Nothing
IF request.form("Down_Name")="" THEN
Errorst="請輸入軟件名稱！"
founderr=true
ElseIF crecordcount<>0 THEN
Errorst="軟件所屬類別不能有下屬子類！"
founderr=true
ElseIF request.form("Down_Content")="" THEN
Errorst="請選輸入軟件介紹！"
founderr=true
ElseIF not isnumeric(request.form("Down_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_Down where Down_Id=" & Id
Rs.open Sql,Conn,1,3
Rs("Down_ClassId")=request.form("Down_ClassId")
Rs("Down_Name")=request.form("Down_Name")
Rs("Down_Edition")=request.form("Down_Edition")
Rs("Down_Size")=request.form("Down_Size")
Rs("Down_Size1")=request.form("Down_Size1")
Rs("Down_Address1")=request.form("Down_Address1")
Rs("Down_Address2")=request.form("Down_Address2")
Rs("Down_Category")=request.form("Down_Category")
Rs("Down_Language")=request.form("Down_Language")
Rs("Down_IsAuthorized")=request.form("Down_IsAuthorized")
Rs("Down_Platform")=request.form("Down_Platform")
Rs("Down_Demonstrates")=request.form("Down_Demonstrates")
Rs("Down_Registers")=request.form("Down_Registers")
Rs("Down_Content")=dvHTMLEncode(request.form("Down_Content"))
Rs("Down_Count")=request.form("Down_Count")
Rs("Down_Flag")=request.form("Down_Flag")
IF request.form("Down_Top")=1 THEN
Rs("Down_Top")=1
Else
Rs("Down_Top")=0
End IF
IF request.form("NewTime")=1 THEN
Rs("Down_Date")=Now()
End IF
Rs.update
Rs.Close
Set Rs=Nothing
ToHistory="Aa_Down.asp?Action=S&Id=" & Id
saveok="軟件：[ " & request.form("Down_Name") & " ] 修改成功！"
Call Form_Saveok()
End IF
case "Del"
DelCount=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=3 And Cret_ClassId=" & Id)(0)
DelNamet=Conn.Execute("Select Down_Name from Tx_Down Where Down_Id=" & Id)(0)
Conn.execute "Delete From Tx_Down Where Down_Id=" & Id
Conn.Execute "Delete From Tx_Cret Where Cret_Class=3 And Cret_ClassId=" & Id
ToHistory="Aa_Down.asp?Action=Manage"
saveok="軟件[" & DelNamet & "]及其下屬" & DelCount & "條評論已刪除！"
Call Form_Saveok()
case "Flag"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Down where Down_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Down_Flag")=1 THEN
Rs("Down_Flag")=0
saveok="軟件：[ " & Rs("Down_Name") & " ] 已取消審核！"
Else
Rs("Down_Flag")=1
saveok="軟件：[ " & Rs("Down_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=3 And Cret_ClassId in (" & Request.form("Id") & ")")(0)
Conn.execute "Delete From Tx_Down Where Down_Id in (" & request.form("Id") & ")"
Conn.Execute "Delete From Tx_Cret Where Cret_Class=3 And Cret_ClassId in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已刪除" & ubound(split(Request.form("Id"),",")) & "個軟件，并同時刪除它們下屬" & DelCount & "條評論！"
Call Form_Saveok()
End IF
case "Down_Top"
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Down Where Down_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Down_Top")=1 Then
Rs("Down_Top")=0
saveok="軟件：" & Rs("Down_Name") & " 已設為熱門軟件！"
Else
Rs("Down_Top")=1
saveok="軟件：" & Rs("Down_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_Down Set Down_Flag=1 Where Down_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_Down Set Down_Flag=0 Where Down_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_DoClass 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_Down Where Down_Id in (" & request.form("Id") & ")"
Rs.open Sql,Conn,1,3
While Not Rs.Eof
Rs("Down_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 + -