admin_page.asp

个人网站比较简短

            CurrentPage = 1
        End If
    End If

    Do While Not rsPage.EOF
        Response.Write "  <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
        Response.Write "    <td align='center'>" & rsPage("ID") & "</td>"
        Response.Write "    <td align='center'>" & rsPage("PageName") & "</td>"
        If Trim(rsPage("PageFileName") & "") = "" Then
            Response.Write "    <td align='center'><a href='" & InstallDir & "showpage.asp?id=" & rsPage("ID") & "' target='_blank'>" & InstallDir & "showpage.asp?id=" & rsPage("ID") & "</a></td>"
            Response.Write "    <td colspan='2'><a href='" & InstallDir & "showpage.asp?id=" & rsPage("ID") & "' target='_blank'>" & PE_HTMLEncode(rsPage("PageIntro")) & "</a></td>"
            Response.Write "    <td align='center'>"
        Else
            On Error Resume Next
            If ObjInstalled_FSO = True Then
                If fso.FileExists(Server.MapPath(Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName"))) Then
                    Response.Write "    <td align='center'><a href='" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "' target='_blank'>" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "</a></td>"
                        Response.Write "    <td><a href='" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "' target='_blank'>" & PE_HTMLEncode(rsPage("PageIntro")) & "</a></td>"
                    Response.Write "    <td align='center'><b>√</b></td>"
                Else
                    Response.Write "    <td align='center'><a href='Admin_Page.asp?Action=Modify&PageID=" & rsPage("ID") & "'>" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "</a></td>"
                    Response.Write "    <td><a href='Admin_Page.asp?Action=Modify&PageID=" & rsPage("ID") & "'>" & PE_HTMLEncode(rsPage("PageIntro")) & "</a></td>"
                    Response.Write "    <td align='center'><font color=red><b>×</b></font></td>"
                End If
            Else
                Response.Write "    <td align='center'><a href='Admin_Page.asp?Action=Modify&PageID=" & rsPage("ID") & "'>" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "</a></td>"
                Response.Write "    <td><a href='Admin_Page.asp?Action=Modify&PageID=" & rsPage("ID") & "'>" & PE_HTMLEncode(rsPage("PageIntro")) & "</a></td>"
                Response.Write "    <td align='center'><font color=red><b>×</b></font></td>"
            End If
            Response.Write "    <td align='center'>"
            If Err Then
                Response.Write "<font color=red>路径错</font>&nbsp;&nbsp;"
            Else
                Response.Write "<a href='Admin_Page.asp?Action=CreateFile&PageID=" & rsPage("ID") & "'>生成</a>&nbsp;&nbsp;"
            End If
        End If
        Response.Write "<a href='Admin_Page.asp?Action=ModifyPage&PageID=" & rsPage("ID") & "'>修改</a>&nbsp;&nbsp;"
        Response.Write "<a href='Admin_Page.asp?Action=DelPage&PageID=" & rsPage("ID") & "' onclick=""return confirm('真的要删除此页面吗？');"">删除</a>&nbsp;&nbsp;"
        If Trim(rsPage("PageFileName") & "") = "" Then
            Response.Write "<a href='Admin_Label.asp?Action=AddCai&PageUrl=" & InstallDir & "showpage.asp?id=" & rsPage("ID") & "'>定义标签</a>"
        ElseIf Not Err Then
            Response.Write "<a href='Admin_Label.asp?Action=AddCai&PageUrl=" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "'>定义标签</a>"
        End If
        Response.Write "    </td>"
        Response.Write "  </tr>"
        iCount = iCount + 1
        If iCount >= MaxPerPage Then Exit Do
        rsPage.movenext
    Loop
    rsPage.Close
    Set rsPage = Nothing
    Response.Write "</table>"
    Response.Write "</form>"
    Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个页面", True)
End Sub

Sub AddPage()
    Dim ClassName, strHead, Content
    
    ClassName = ReplaceBadChar(Trim(Request("ClassName")))
    
    '加入模板预定头部 在添加时用到
    strHead = "<html>" & vbCrLf
    strHead = strHead & "<head>" & vbCrLf
    strHead = strHead & "<title>新模板标题</title>" & vbCrLf
    strHead = strHead & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
    strHead = strHead & "{$Skin_CSS} {$MenuJS}" & vbCrLf
    strHead = strHead & "</head>" & vbCrLf
    strHead = strHead & "<body leftmargin=0 topmargin=0 onmousemove='HideMenu()'>" & vbCrLf
    strHead = strHead & vbCrLf & "<!-- 请输入您要设计的代码 -->" & vbCrLf
    strHead = strHead & vbCrLf & "</body>" & vbCrLf
    strHead = strHead & "</html>" & vbCrLf
        
    '替换头部标签 Content 为替换后头部文件，用于编辑器显示css
    
    Content = Replace(strHead, "{$Skin_CSS}", GetSkin_CSS(0))
    Content = Replace(Content, "{$MenuJS}", GetMenuJS("", False))
    Content = Replace(Content, "{$InstallDir}", InstallDir)
    
    Call ShowJSPage
      
    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='PageName' type='text' id='PageName' 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><select name='ClassName' id='ClassName'>" & GetClassList(ClassName) & "</select><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><input name='PType' type='radio' value='0' onClick=""changetype(0);"" checked>静态页面 <input name='PType' type='radio' value='1' onClick=""changetype(1);"">动态页面</td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tbody id='pathdiv'><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='PageUrl' type='text' id='PageUrl' size='30' maxlength='100'><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><input name='PageFileName' type='text' id='PageFileName' size='30' maxlength='50' value=''><font color='#FF0000'>请输入生成文件名(不填写为ASP方式)</font></td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr></tbody>"
    Response.Write "    <tbody id='pathdiv2' style='display:none'><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><br><font color=red>不选为开放页面</font></td>"
    Response.Write "          <td>" & GetUserGroup("", "") & "</td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr></tbody>"
    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'><div id='itext'><strong>页面简介：</strong></div></td>"
    Response.Write "          <td><textarea name='PageIntro' cols='80' rows='5' id='PageIntro'></textarea></td>"
    Response.Write "        </tr>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    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 >&nbsp;&nbsp;"
    Response.Write "        <textarea name='LabelContent' class='body2'   ROWS='10' COLS='108' onMouseUp=""setContent('get',1)"">" & strHead & "</textarea>"
    Response.Write "     </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "     <td >&nbsp;"
    Response.Write "        <textarea name='LabelContent2'  style='display:none' >" & Server.HTMLEncode(Content) & "</textarea>"
    Response.Write "        <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=1&TemplateType=0&tContentid=LabelContent2' frameborder='1' scrolling='no' width='780' height='400' ></iframe>"
    Response.Write "     </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40'  align='center'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SavePage'>"
    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 ModifyPage()
    Dim PageID, sqlPage, rsPage, EditLabelContent, LabelContent, strTemp
    
    PageID = Trim(Request("PageID"))
    If PageID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>参数丢失！</li>"
        Exit Sub
    Else
        PageID = PE_CLng(PageID)
    End If

    '检查新增权限字段是否存在
    Dim i, dbrr
    Set rsPage = Conn.Execute("select top 1 * from PE_Page")
    For i = 0 To rsPage.Fields.Count - 1
        If rsPage.Fields(i).name = "arrGroupID" Then
            dbrr = True
        End If
    Next
    rsPage.Close
    Set rsPage = Nothing
    If dbrr <> True Then
        If SystemDatabaseType = "SQL" Then
            Conn.Execute ("alter table PE_Page add arrGroupID nvarchar(255) null")
        Else
            Conn.Execute ("alter table PE_Page add arrGroupID varchar(255) null")
        End If
    End If

    sqlPage = "select * from PE_Page where ID=" & PageID
    Set rsPage = Conn.Execute(sqlPage)
    If rsPage.BOF And rsPage.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>找不到指定的标签！</li>"
        rsPage.Close
        Set rsPage = Nothing
        Exit Sub
    End If

    '解决文本框重复问题
    LabelContent = rsPage("PageContent")
    regEx.Pattern = "(\<\/textarea\>)"
    LabelContent = regEx.Replace(LabelContent, "[/textarea]")
    
    EditLabelContent = rsPage("PageContent")
    EditLabelContent = Replace(EditLabelContent, "<!--{$", "{$")
    EditLabelContent = Replace(EditLabelContent, "}-->", "}")
     
    '图片替换JS
    regEx.Pattern = "(\<Script)(.[^\<]*)(\<\/Script\>)"
    Set Matches = regEx.Execute(EditLabelContent)
    For Each Match In Matches
        strTemp = Replace(Match.value, "<", "[!")
        strTemp = Replace(strTemp, ">", "!]")
        strTemp = Replace(strTemp, "'", """")
        strTemp = "<IMG alt='#" & strTemp & "#' src=""" & InstallDir & "editor/images/jscript.gif"" border=0 $>"
        EditLabelContent = Replace(EditLabelContent, Match.value, strTemp)
    Next
        
    '图片替换超级标签
    regEx.Pattern = "(\{\$GetPicArticle|\{\$GetArticleList|\{\$GetSlidePicArticle|\{\$GetPicSoft|\{\$GetSoftList|\{\$GetSlidePicSoft|\{\$GetPicPhoto|\{\$GetPhotoList|\{\$GetSlidePicPhoto|\{\$GetPicProduct|\{\$GetProductList|\{\$GetSlidePicProduct)\((.*?)\)\}"
    EditLabelContent = regEx.Replace(EditLabelContent, "<IMG src=""" & InstallDir & "editor/images/label.gif"" border=0 zzz='$1($2)}'>")
    
    Call ShowJSPage
    
    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>"