📄 admin_page.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
    Response.Write "function CheckForm(){" & vbCrLf
    Response.Write "  if (document.myform.ClassName.value==''){" & vbCrLf
    Response.Write "     alert('分类名称不能为空！');" & vbCrLf
    Response.Write "     document.myform.ClassName.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  return true;  " & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub

Sub AddClass()
    Call ShowJSClass

    Response.Write "<form action='Admin_Page.asp' method='post' name='myform' id='myform' onSubmit='return CheckForm();'>"
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title' height='22'>"
    Response.Write "    <td align='center'><strong>添 加 自 定 义 分 类</font></strong></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>"
    Response.Write "       <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
    Response.Write "        <tr>"
    Response.Write "          <td width='100' align='center'><strong>分类名称：</strong></td>"
    Response.Write "          <td><input name='ClassName' type='text' id='ClassName' size='30' maxlength='50'> <font color='#FF0000'>请输入本分类的名称</font></td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>"
    Response.Write "       <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
    Response.Write "        <tr>"
    Response.Write "         <td width='100' align='center'><strong>分类简介：</strong></td>"
    Response.Write "         <td><textarea name='ClassIntro' cols='80' rows='3' id='ClassIntro'></textarea></td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40'  align='center'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveClass'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value=' 添 加 '>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
End Sub

Sub ModifyClass()
    Dim ClassID, sqlClass, rsClass
    
    ClassID = Trim(Request("ClassID"))
    If ClassID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>参数丢失！</li>"
        Exit Sub
    Else
        ClassID = PE_CLng(ClassID)
    End If
    sqlClass = "select * from PE_PageClass where ID=" & ClassID
    Set rsClass = Conn.Execute(sqlClass)
    If rsClass.BOF And rsClass.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>找不到指定的标签！</li>"
        rsClass.Close
        Set rsClass = Nothing
        Exit Sub
    End If
        
    Call ShowJSClass
    
    Response.Write "<form action='Admin_Page.asp' method='post' name='myform' id='myform' onSubmit='return CheckForm();'>"
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title' height='22'>"
    Response.Write "      <td  align='center'><strong>修 改 自 定 义 项 目</strong></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>"
    Response.Write "       <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
    Response.Write "        <tr>"
    Response.Write "          <td width='100' align='center'><strong>分类名称：</strong></td>"
    Response.Write "          <td><input name='ClassName' type='text' id='ClassName' size='30' maxlength='50' value='" & rsClass("ClassName") & "'> <font color='#FF0000'>请输入本分类名称</font></td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>"
    Response.Write "       <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
    Response.Write "        <tr>"
    Response.Write "         <td width='100' align='center'><strong>分类简介：</strong></td>"
    Response.Write "         <td><textarea name='ClassIntro' cols='80' rows='3' id='ClassIntro'>" & rsClass("ClassIntro") & "</textarea></td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40'  align='center'><input name='ClassID' type='hidden' id='ClassID' value='" & ClassID & "'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveModifyClass'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value=' 保存修改结果 '>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
    rsClass.Close
    Set rsClass = Nothing
End Sub

Sub SaveClass()
    Dim ClassID, ClassName, ClassIntro, tempClassName
    Dim rsClass, sqlClass, trs
    ClassID = Trim(Request.Form("ClassID"))
    ClassName = Trim(Request.Form("ClassName"))
    ClassIntro = Trim(Request.Form("ClassIntro"))

    If Action = "SaveModifyClass" Then
        If ClassID = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<br><li>请指定ClassID</li>"
            Exit Sub
        Else
            ClassID = PE_CLng(ClassID)
        End If
    End If
    
    If ClassName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>分类名称不能为空！</li>"
    Else
        ClassName = ReplaceBadChar(ClassName)
    End If
    
    If FoundErr = True Then Exit Sub
            
    If Action = "SaveModifyClass" Then
        sqlClass = "select * from PE_PageClass where ID=" & ClassID
        Set rsClass = Server.CreateObject("ADODB.Recordset")
        rsClass.Open sqlClass, Conn, 1, 3
            tempClassName = rsClass("ClassName")
            rsClass("ClassName") = ClassName
            rsClass("ClassIntro") = ClassIntro
        rsClass.Update
        sqlClass = "select * from PE_Page where ClassName='" & tempClassName & "'"
        Set rsClass = Server.CreateObject("ADODB.Recordset")
        rsClass.Open sqlClass, Conn, 1, 3
        Do While Not rsClass.EOF
            rsClass("ClassName") = ClassName
            rsClass.Update
            rsClass.movenext
        Loop
        rsClass.Close
        Set rsClass = Nothing
        Call WriteSuccessMsg("修改自定义分类成功！", ComeUrl & "")
    Else
        sqlClass = "select top 1 * from PE_PageClass where ClassName='" & ClassName & "'"
        Set rsClass = Server.CreateObject("ADODB.Recordset")
        rsClass.Open sqlClass, Conn, 1, 3
        If rsClass.BOF And rsClass.EOF Then
            rsClass.addnew
            rsClass("ClassName") = ClassName
            rsClass("ClassIntro") = ClassIntro
            rsClass("ClassType") = 1
            rsClass.Update
            rsClass.Close
            Set rsClass = Nothing
        Else
            FoundErr = True
            ErrMsg = ErrMsg & "<br><li>请指定ClassID</li>"
            rsClass.Close
            Set rsClass = Nothing
            Exit Sub
        End If
        Call WriteSuccessMsg("保存自定义分类成功！", ComeUrl & "")
    End If
End Sub

Sub DelClass()
    Dim ClassID, sqlClass, rsClass, rsPage
    ClassID = Trim(Request("ClassID"))
    If ClassID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>参数丢失！</li>"
        Exit Sub
    Else
        ClassID = PE_CLng(ClassID)
    End If
    sqlClass = "select * from PE_PageClass where ID=" & ClassID
    Set rsClass = Server.CreateObject("ADODB.Recordset")
    rsClass.Open sqlClass, Conn, 1, 3
    If rsClass.BOF And rsClass.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>找不到指定的分类！</li>"
        rsClass.Close
        Set rsClass = Nothing
        Exit Sub
    Else
        sqlClass = "select * from PE_Page where ClassName='" & rsClass("ClassName") & "'"
        Set rsPage = Server.CreateObject("ADODB.Recordset")
        rsPage.Open sqlClass, Conn, 1, 3
        If Not (rsPage.BOF And rsPage.EOF) Then
            Do While Not rsPage.EOF
                If ObjInstalled_FSO = True Then
                    If fso.FileExists(Server.MapPath(rsPage("PageUrl") & rsPage("PageFileName"))) Then
                        fso.DeleteFile Server.MapPath(rsPage("PageUrl") & rsPage("PageFileName"))
                    End If
                End If
                rsPage.Delete
                rsPage.Update
                rsPage.movenext
            Loop
        End If
        rsPage.Close
        Set rsPage = Nothing
    End If
    rsClass.Delete
    rsClass.Update
    rsClass.Close
    Set rsClass = Nothing
End Sub

Sub CreateFile(iPageID)
    If ObjInstalled_FSO = True Then
        Dim PageID, sqlPage, rsPage, tPageContent

        If iPageID = "" Then
            PageID = Trim(Request("PageID"))
        Else
            PageID = iPageID
        End If
        If PageID = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<br><li>参数丢失！</li>"
            Exit Sub
        Else
            PageID = PE_CLng(PageID)
        End If
        sqlPage = "select PageName,PageUrl,PageFileName,PageContent from PE_Page where ID=" & PageID
        Set rsPage = Server.CreateObject("ADODB.Recordset")
        rsPage.Open sqlPage, Conn, 1, 1
        If rsPage.BOF And rsPage.EOF Then
            FoundErr = True
            ErrMsg = ErrMsg & "<br><li>找不到指定的页面！</li>"
            rsPage.Close
            Set rsPage = Nothing
            Exit Sub
        Else
            If Trim(rsPage("PageFileName") & "") <> "" Then
                strHTML = rsPage("PageContent")
                Call ReplaceCommonLabel

                strHTML = Replace(strHTML, "{$ShowPath}", rsPage("PageName"))
                strHTML = Replace(strHTML, "{$MenuJS}", GetMenuJS("", False))
                strHTML = Replace(strHTML, "{$Skin_CSS}", GetSkin_CSS(0))
        
                Dim PE_Content
                Set PE_Content = New Article
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -