user_soft_code.asp

个人网站比较简短

            PresentExp = tClass("PresentExp")
            DefaultItemPoint = tClass("DefaultItemPoint")
            DefaultItemChargeType = tClass("DefaultItemChargeType")
            DefaultItemPitchTime = tClass("DefaultItemPitchTime")
            DefaultItemReadTimes = tClass("DefaultItemReadTimes")
            DefaultItemDividePercent = tClass("DefaultItemDividePercent")

            If Child > 0 And tClass("EnableAdd") = False Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>指定的栏目不允许添加" & ChannelShortName & "</li>"
            End If
            If tClass("ClassType") = 2 Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>不能指定为外部栏目</li>"
            End If
            Dim CheckParentPath
            If ParentID > 0 Then
                CheckParentPath = ChannelDir & "all," & ParentPath & "," & ClassID
            Else
                CheckParentPath = ChannelDir & "all," & ClassID
            End If
            If CheckPurview_Class(arrClass_Input, CheckParentPath) = False Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>对不起，你没有此栏目的相应操作权限！</li>"
            End If
        End If
        Set tClass = Nothing
    End If
    
    If SoftName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>" & ChannelShortName & "名称不能为空</li>"
    End If

    If Author = "" Then Author = XmlText("BaseText", "DefAuthor", "佚名")
    If CopyFrom = "" Then CopyFrom = XmlText("BaseText", "DefCopyFrom", "本站原创")
    Keyword = ReplaceBadChar(Keyword)
    If Keyword = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请输入" & ChannelShortName & "关键字</li>"
    Else
        Call SaveKeyword(Keyword)
    End If
    If FoundInArr(arrEnabledTabs, "SoftParameter", ",") = True Then
        If SoftType = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>" & ChannelShortName & "类别不能为空</li>"
        End If
        If SoftLanguage = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>" & ChannelShortName & "语言不能为空</li>"
        End If
        If CopyrightType = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>授权形式不能为空</li>"
        End If
        If OperatingSystem = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>" & ChannelShortName & "平台不能为空</li>"
        End If
    End If
    If DownloadUrls = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>" & ChannelShortName & "下载地址不能为空</li>"
    End If

    Dim rsField
    Set rsField = Conn.Execute("select * from PE_Field where ChannelID=" & ChannelID & " or ChannelID=-2")
    Do While Not rsField.EOF
        If rsField("EnableNull") = False Then
            If Trim(Request(rsField("FieldName"))) = "" Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>请输入" & rsField("Title") & "！</li>"
            End If
        End If
        rsField.MoveNext
    Loop
    
    If FoundErr = True Then
        Exit Sub
    End If

    If Status < 0 Then
        Status = -1
    Else
        If CheckLevel = 0 Or NeedlessCheck = 1 Then
            Status = 3
        Else
            Status = 0
        End If
    End If
    
    SoftName = PE_HTMLEncode(SoftName)
    SoftVersion = PE_HTMLEncode(SoftVersion)
    SoftType = PE_HTMLEncode(SoftType)
    SoftLanguage = PE_HTMLEncode(SoftLanguage)
    CopyrightType = PE_HTMLEncode(CopyrightType)
    OperatingSystem = PE_HTMLEncode(OperatingSystem)
    DemoUrl = PE_HTMLEncode(DemoUrl)
    RegUrl = PE_HTMLEncode(RegUrl)
    SoftPicUrl = PE_HTMLEncode(SoftPicUrl)
    Keyword = "|" & ReplaceBadChar(Keyword) & "|"
    DecompressPassword = PE_HTMLEncode(DecompressPassword)

    Set rsSoft = Server.CreateObject("adodb.recordset")
    If Action = "SaveAdd" Then
        If Session("SoftName") = SoftName And DateDiff("S", Session("AddTime"), Now()) < 100 Then
            FoundErr = True
            ErrMsg = "<li>请不要重复添加同一" & ChannelItemUnit & ChannelShortName & "</li>"
            Exit Sub
        Else
            Session("SoftName") = SoftName
            Session("AddTime") = Now()
            If MaxPerDay > 0 Then
                Set trs = Conn.Execute("select count(SoftID) from PE_Soft where Inputer='" & UserName & "' and DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")=0")
                If trs(0) >= MaxPerDay Then
                    FoundErr = True
                    ErrMsg = ErrMsg & "<li>您今天发表的" & ChannelShortName & "已经达到了上限！</li>"
                End If
                Set trs = Nothing
                If FoundErr = True Then Exit Sub
            End If
            
            sql = "select top 1 * from PE_Soft"
            rsSoft.Open sql, Conn, 1, 3
            rsSoft.addnew
            SoftID = PE_CLng(Conn.Execute("select max(SoftID) from PE_Soft")(0)) + 1
            Conn.Execute ("insert into PE_InfoS (ModuleType,ItemID,SpecialID) values (2," & SoftID & "," & SpecialID & ")")
            rsSoft("SoftID") = SoftID
            rsSoft("ChannelID") = ChannelID
            rsSoft("ClassID") = ClassID
            rsSoft("SoftName") = SoftName
            rsSoft("SoftVersion") = SoftVersion
            rsSoft("SoftType") = SoftType
            rsSoft("SoftLanguage") = SoftLanguage
            rsSoft("CopyrightType") = CopyrightType
            rsSoft("OperatingSystem") = OperatingSystem
            rsSoft("Author") = Author
            rsSoft("CopyFrom") = CopyFrom
            rsSoft("DemoUrl") = DemoUrl
            rsSoft("RegUrl") = RegUrl
            rsSoft("SoftPicUrl") = SoftPicUrl
            rsSoft("SoftIntro") = SoftIntro
            rsSoft("Keyword") = Keyword
            rsSoft("Hits") = 0
            rsSoft("DayHits") = 0
            rsSoft("WeekHits") = 0
            rsSoft("MonthHits") = 0
            rsSoft("Stars") = 0
            rsSoft("UpdateTime") = Now()
            rsSoft("Status") = Status
            rsSoft("OnTop") = False
            rsSoft("Elite") = False
            rsSoft("DecompressPassword") = DecompressPassword
            rsSoft("SoftSize") = SoftSize
            rsSoft("DownloadUrl") = DownloadUrls
            rsSoft("Inputer") = Inputer
            rsSoft("Editor") = Inputer
            rsSoft("SkinID") = 0
            rsSoft("TemplateID") = 0
            rsSoft("Deleted") = False
            PresentExp = CLng(PresentExp * PresentExpTimes)
            rsSoft("PresentExp") = PresentExp
            rsSoft("InfoPoint") = DefaultItemPoint
            rsSoft("VoteID") = 0
            rsSoft("InfoPurview") = 0
            rsSoft("arrGroupID") = ""
            rsSoft("ChargeType") = DefaultItemChargeType
            rsSoft("PitchTime") = DefaultItemPitchTime
            rsSoft("ReadTimes") = DefaultItemReadTimes
            rsSoft("DividePercent") = DefaultItemDividePercent
            
            If Not (rsField.BOF And rsField.EOF) Then
                rsField.MoveFirst
                Do While Not rsField.EOF
                    If Trim(Request(rsField("FieldName"))) <> "" Or rsField("EnableNull") = True Then
                        rsSoft(Trim(rsField("FieldName"))) = Trim(Request(rsField("FieldName")))
                    End If
                    rsField.MoveNext
                Loop
            End If
            Set rsField = Nothing

            If BlogFlag = True Then '写入BLOGID
                Dim blogid
                Set blogid = Conn.Execute("select top 1 ID from PE_Space where Type=1 and UserID=" & UserID)
                If blogid.BOF And blogid.EOF Then
                    rsSoft("BlogID") = 0
                Else
                    rsSoft("BlogID") = blogid("ID")
                End If
                Set blogid = Nothing
            End If

            rsSoft.Update
            If CheckLevel = 0 Or NeedlessCheck = 1 Then
                Conn.Execute ("update PE_Channel set ItemCount=ItemCount+1,ItemChecked=ItemChecked+1 where ChannelID=" & ChannelID & "")
                Conn.Execute ("update PE_Class set ItemCount=ItemCount+1 where ClassID=" & ClassID & "")
                If rsSoft("Status") = 3 Then
                    Conn.Execute ("update PE_User set PostItems=PostItems+1,PassedItems=PassedItems+1,UserExp=UserExp+" & PresentExp & " where UserName='" & UserName & "'")
                End If
            Else
                Conn.Execute ("update PE_Channel set ItemCount=ItemCount+1 where ChannelID=" & ChannelID & "")
                Conn.Execute ("update PE_User set PostItems=PostItems+1 where UserName='" & UserName & "'")
            End If
        End If
    ElseIf Action = "SaveModify" Then
        If SoftID = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>不能确定" & ChannelShortName & "ID的值</li>"
        Else
            sql = "select * from PE_Soft where Inputer='" & UserName & "' and Deleted=" & PE_False & " and SoftID=" & SoftID
            rsSoft.Open sql, Conn, 1, 3
            If rsSoft.BOF And rsSoft.EOF Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>找不到此" & ChannelShortName & "，可能已经被其他人删除。</li>"
            Else
                If rsSoft("Status") > 0 And EnableModifyDelete = 0 Then
                    FoundErr = True
                    ErrMsg = ErrMsg & "<li>" & ChannelShortName & "已经被审核通过，您不能再进行修改！</li>"
                Else
                    Conn.Execute ("delete from PE_InfoS where ModuleType=2 and ItemID=" & SoftID)