admin_photojs.asp

个人网站比较简短

    ShowClassName = PE_CLng(Trim(Request("ShowClassName")))
    ShowAuthor = PE_CLng(Trim(Request("ShowAuthor")))
    ShowDateType = PE_CLng(Trim(Request("ShowDateType")))
    ShowHits = PE_CLng(Trim(Request("ShowHits")))
    ShowHotSign = PE_CLng(Trim(Request("ShowHotSign")))
    ShowNewSign = PE_CLng(Trim(Request("ShowNewSign")))
    ShowTips = PE_CLng(Trim(Request("ShowTips")))
    OpenType = PE_CLng(Trim(Request("OpenType")))
    UrlType = PE_CLng(Trim(Request("UrlType")))
    ShowPropertyType = PE_CLng(Trim(Request("ShowPropertyType")))
    Author = ReplaceBadChar(Trim(Request("Author")))
    Cols = PE_CLng1(Trim(Request("Cols")))
    CssNameA = ReplaceBadChar(Trim(Request("CssNameA")))
    CssName1 = ReplaceBadChar(Trim(Request("CssName1")))
    CssName2 = ReplaceBadChar(Trim(Request("CssName2")))
    ContentType = PE_CLng(Trim(Request("ContentType")))

    If JsName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>JS代码名称不能为空！</li>"
    Else
        JsName = ReplaceBadChar(JsName)
        Set trs = Conn.Execute("select * from PE_JsFile where ChannelID=" & ChannelID & " and ID<>" & ID & " and JsName='" & JsName & "'")
        If Not (trs.BOF And trs.EOF) Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>指定的JS代码名称已经存在！</li>"
        End If
        Set trs = Nothing
    End If
    If JsFileName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>JS文件名不能为空！</li>"
    Else
        If IsValidJsFileName(JsFileName, ContentType) = False Then
            FoundErr = True
            If ContentType = 0 Then
                ErrMsg = ErrMsg & "<li>你输入了非法的JS文件名！</li>"
            Else
                ErrMsg = ErrMsg & "<li>你输入了非法的Html文件名！</li>"
            End If
        Else
            Set trs = Conn.Execute("select * from PE_JsFile where ChannelID=" & ChannelID & " and ID<>" & ID & " and JsFileName='" & JsFileName & "'")
            If Not (trs.BOF And trs.EOF) Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>指定的JS文件名已经存在！</li>"
            End If
            Set trs = Nothing
        End If
    End If
    If PhotoNum <= 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>" & ChannelShortName & "数目必须大于0！</li>"
    End If
    If ClassID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>所属栏目不能指定为外部栏目！</li>"
    Else
        ClassID = PE_CLng(ClassID)
    End If
    If FoundErr = True Then Exit Sub

    Config = ShowType & "|" & PhotoNum & "|" & ClassID & "|" & IncludeChild & "|" & IsHot & "|" & IsElite & "|" & DateNum & "|" & OrderType & "|" & TitleLen & "|" & ContentLen & "|" & ShowClassName & "|" & ShowAuthor & "|" & ShowDateType & "|" & ShowHits & "|" & ShowHotSign & "|" & ShowNewSign & "|" & ShowTips & "|" & OpenType & "|" & UrlType & "|" & ShowPropertyType & "|" & SpecialID & "|" & Author & "|" & Cols & "|" & CssNameA & "|" & CssName1 & "|" & CssName2

    Set rsJs = Server.CreateObject("ADODB.Recordset")
    If Action = "SaveAdd" Then
        sqlJs = "select top 1 * from PE_JsFile"
        rsJs.Open sqlJs, Conn, 1, 3
        rsJs.addnew
        rsJs("JsType") = 0
        rsJs("ChannelID") = ChannelID
    Else
        sqlJs = "select * from PE_JsFile where ID=" & ID
        rsJs.Open sqlJs, Conn, 1, 3
        If rsJs.BOF And rsJs.EOF Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>找不到指定的JS文件！</li>"
            rsJs.Close
            Set rsJs = Nothing
            Exit Sub
        End If
    End If
    rsJs("JsName") = JsName
    rsJs("JsReadme") = JsReadme
    rsJs("JsFileName") = JsFileName
    rsJs("Config") = Config
    rsJs("ContentType") = ContentType
    rsJs.Update
    rsJs.Close
    Set rsJs = Nothing
    
    Call WriteSuccessMsg("保存JS文件设置成功！", "Admin_PhotoJS.asp?ChannelID=" & ChannelID)
    Call CreateJS(ID)
End Sub

Sub SaveJS_Pic()
    Dim ID, JsName, JsReadme, JsFileName, Config
    Dim ClassID, SpecialID, IncludeChild, PhotoNum, IsHot, IsElite, DateNum, OrderType, ShowType, ImgWidth, ImgHeight, TitleLen, ContentLen, ShowTips, Cols, UrlType
    Dim rsJs, sqlJs, trs
    Dim ContentType
    If Action = "SaveAddPic" Then
        ID = 0
    Else
        ID = PE_CLng(Trim(Request("ID")))
        If ID = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>参数丢失！</li>"
            Exit Sub
        End If
    End If
    JsName = Trim(Request("JsName"))
    JsReadme = Trim(Request("JsReadme"))
    JsFileName = Trim(Request("JsFileName"))
    ClassID = Trim(Request("ClassID"))
    SpecialID = PE_CLng(Trim(Request("SpecialID")))
    IncludeChild = PE_CLng(Trim(Request("IncludeChild")))
    PhotoNum = PE_CLng(Trim(Request("PhotoNum")))
    IsHot = PE_CLng(Trim(Request("IsHot")))
    IsElite = PE_CLng(Trim(Request("IsElite")))
    DateNum = PE_CLng(Trim(Request("DateNum")))
    OrderType = PE_CLng(Trim(Request("OrderType")))
    ShowType = PE_CLng(Trim(Request("ShowType")))
    ImgWidth = PE_CLng(Trim(Request("ImgWidth")))
    ImgHeight = PE_CLng(Trim(Request("ImgHeight")))
    TitleLen = PE_CLng(Trim(Request("TitleLen")))
    ContentLen = PE_CLng(Trim(Request("ContentLen")))
    ShowTips = PE_CLng(Trim(Request("ShowTips")))
    Cols = PE_CLng1(Trim(Request("Cols")))
    UrlType = PE_CLng(Trim(Request("UrlType")))
    ContentType = PE_CLng(Trim(Request("ContentType")))
    
    If JsName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>JS代码名称不能为空！</li>"
    Else
        JsName = ReplaceBadChar(JsName)
        Set trs = Conn.Execute("select * from PE_JsFile where ChannelID=" & ChannelID & " and ID<>" & ID & " and JsName='" & JsName & "'")
        If Not (trs.BOF And trs.EOF) Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>指定的JS代码名称已经存在！</li>"
        End If
        Set trs = Nothing
    End If
    If JsFileName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>JS文件名不能为空！</li>"
    Else
        If IsValidJsFileName(JsFileName, ContentType) = False Then
            FoundErr = True
            If ContentType = 0 Then
                ErrMsg = ErrMsg & "<li>你输入了非法的JS文件名！</li>"
            Else
                ErrMsg = ErrMsg & "<li>你输入了非法的Html文件名！</li>"
            End If
        Else
            Set trs = Conn.Execute("select * from PE_JsFile where ChannelID=" & ChannelID & " and ID<>" & ID & " and JsFileName='" & JsFileName & "'")
            If Not (trs.BOF And trs.EOF) Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>指定的JS文件名已经存在！</li>"
            End If
            Set trs = Nothing
        End If
    End If
    If ClassID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>所属栏目不能指定为外部栏目！</li>"
    Else
        ClassID = PE_CLng(ClassID)
    End If
    If PhotoNum <= 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>" & ChannelShortName & "数目必须大于0！</li>"
    End If
    If FoundErr = True Then Exit Sub

    Config = ClassID & "|" & IncludeChild & "|" & PhotoNum & "|" & IsHot & "|" & IsElite & "|" & DateNum & "|" & OrderType & "|" & ShowType & "|" & ImgWidth & "|" & ImgHeight & "|" & TitleLen & "|" & ContentLen & "|" & ShowTips & "|" & Cols & "|" & UrlType & "|" & SpecialID

    Set rsJs = Server.CreateObject("ADODB.Recordset")
    If Action = "SaveAddPic" Then
        sqlJs = "select top 1 * from PE_JsFile"
        rsJs.Open sqlJs, Conn, 1, 3
        rsJs.addnew
        rsJs("JsType") = 1
        rsJs("ChannelID") = ChannelID
    Else
        sqlJs = "select * from PE_JsFile where ID=" & ID
        rsJs.Open sqlJs, Conn, 1, 3
        If rsJs.BOF And rsJs.EOF Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>找不到指定的JS文件！</li>"
            rsJs.Close
            Set rsJs = Nothing
            Exit Sub
        End If
    End If
    rsJs("JsName") = JsName
    rsJs("JsReadme") = JsReadme
    rsJs("JsFileName") = JsFileName
    rsJs("Config") = Config
    rsJs("ContentType") = ContentType
    rsJs.Update
    rsJs.Close
    Set rsJs = Nothing
    
    Call WriteSuccessMsg("保存JS文件设置成功！", "Admin_PhotoJS.asp?ChannelID=" & ChannelID)
    Call CreateJS(ID)
End Sub
%>