📄 as_down.asp

📁 整站源码jsp 有兴趣的可以看看
💻 ASP
字号:
<%@language=vbscript codepage=936 %>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：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("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 + -