admin_page.asp

个人网站比较简短

                PE_Content.Init
                strHTML = PE_Content.GetCustomFromTemplate(strHTML)
                strHTML = PE_Content.GetPicFromTemplate(strHTML)
                strHTML = PE_Content.GetListFromTemplate(strHTML)
                strHTML = PE_Content.GetSlidePicFromTemplate(strHTML)
    
                Set PE_Content = New Soft
                PE_Content.Init
                strHTML = PE_Content.GetCustomFromTemplate(strHTML)
                strHTML = PE_Content.GetPicFromTemplate(strHTML)
                strHTML = PE_Content.GetListFromTemplate(strHTML)
                strHTML = PE_Content.GetSlidePicFromTemplate(strHTML)
    
                Set PE_Content = New Photo
                PE_Content.Init
                strHTML = PE_Content.GetPicFromTemplate(strHTML)
                strHTML = PE_Content.GetListFromTemplate(strHTML)
                strHTML = PE_Content.GetSlidePicFromTemplate(strHTML)
                Set PE_Content = Nothing

                Set PE_Content = New Product
                PE_Content.Init
                strHTML = PE_Content.GetPicFromTemplate(strHTML)
                strHTML = PE_Content.GetListFromTemplate(strHTML)
                strHTML = PE_Content.GetSlidePicFromTemplate(strHTML)
                strHTML = PE_Content.GetCustomFromTemplate(strHTML)

                Set PE_Content = Nothing

                If fso.FolderExists(Server.MapPath(Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir))) = False Then
                    fso.CreateFolder Server.MapPath(Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir))
                End If
                Call WriteToFile(Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName"), strHTML)
            End If
        End If
        rsPage.Close
        Set rsPage = Nothing
    End If
End Sub

Sub CreateClassFile()
    Dim ClassID, ClassName, PageID, rsClass, rsPage2
    ClassID = PE_CLng(Trim(Request("ClassID")))
    If ClassID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<br><li>参数丢失！</li>"
        Exit Sub
    End If
    Set rsClass = Conn.Execute("select ClassName from PE_PageClass where ID=" & ClassID)
    If Not (rsClass.BOF And rsClass.EOF) Then
        Set rsPage2 = Conn.Execute("select ID from PE_Page where ClassName='" & rsClass("ClassName") & "'")
        Do While Not rsPage2.EOF
            Call CreateFile(rsPage2("ID"))
            rsPage2.movenext
        Loop
        rsPage2.Close
        Set rsPage2 = Nothing
    End If
    rsClass.Close
    Set rsClass = Nothing
End Sub

Function GetClassList(iClassName)
    Dim optiTemp, rsOpti
    Set rsOpti = Conn.Execute("select ClassName from PE_PageClass order by ID desc")
    If rsOpti.BOF And rsOpti.EOF Then
        optiTemp = "<option value='0'>请先添加一个分类</option>"
    Else
        Do While Not rsOpti.EOF
            optiTemp = optiTemp & "<option value='" & rsOpti("ClassName") & "'"
            If iClassName = rsOpti("ClassName") Then optiTemp = optiTemp & " selected"
            optiTemp = optiTemp & ">" & rsOpti("ClassName") & "</option>"
            rsOpti.movenext
        Loop
    End If
    GetClassList = optiTemp
End Function

Sub ShowJSPage()
    Dim TrueSiteUrl
    TrueSiteUrl = Trim(Request.ServerVariables("HTTP_HOST"))
    Response.Write "<script language = 'JavaScript'>" & vbCrLf
    Response.Write "function changetype(itype){" & vbCrLf
    Response.Write " if (itype==0){" & vbCrLf
    Response.Write "     pathdiv.style.display='';" & vbCrLf
    Response.Write "     document.getElementById('itext').innerHTML='<strong>页面简介：</strong>';" & vbCrLf
    Response.Write "     if (document.myform.PageIntro.value=='参数一|0|false|0'){;" & vbCrLf
    Response.Write "         document.myform.PageIntro.value='';" & vbCrLf
    Response.Write "     }" & vbCrLf
    Response.Write "     pathdiv2.style.display='none';" & vbCrLf
    Response.Write " }else{" & vbCrLf
    Response.Write "     pathdiv.style.display='none';" & vbCrLf
    Response.Write "     document.getElementById('itext').innerHTML='<strong>参数声明：</strong>';" & vbCrLf
    Response.Write "     if (document.myform.PageIntro.value==''){;" & vbCrLf
    Response.Write "         document.myform.PageIntro.value='参数一|0|false|0';" & vbCrLf
    Response.Write "     }" & vbCrLf
    Response.Write "     pathdiv2.style.display='';" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckForm(){" & vbCrLf
    Response.Write "  if (document.myform.PageName.value==''){" & vbCrLf
    Response.Write "     alert('页面名称不能为空！');" & vbCrLf
    Response.Write "     document.myform.PageName.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  document.myform.LabelContent2.value=editor.HtmlEdit.document.body.innerHTML; " & vbCrLf
    Response.Write "  if (document.myform.LabelContent.value==''){" & vbCrLf
    Response.Write "     alert('页面内容不能为空！');" & vbCrLf
    Response.Write "     document.myform.LabelContent.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (Strsave==""B""){" & vbCrLf
    Response.Write "      setContent (""get"",1);" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  return true;  " & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<script language=""VBScript"">" & vbCrLf
    Response.Write "    Dim regEx, Match, Matches, StrBody,strTemp,strMatch,arrMatch,i,Strsave" & vbCrLf
    Response.Write "    Dim Content,arrContent" & vbCrLf
    Response.Write "    Set regEx = New RegExp" & vbCrLf
    Response.Write "    regEx.IgnoreCase = True" & vbCrLf
    Response.Write "    regEx.Global = True" & vbCrLf
    Response.Write "    Strsave=""A""" & vbCrLf
    '=================================================
    '作  用：排序html
    '=================================================
    Response.Write "Function  Resumeblank(byval Content)" & vbCrLf
    Response.Write " Dim strHtml,strHtml2,Num,Numtemp,Strtemp" & vbCrLf
    Response.Write "   strHtml=Replace(Content, ""<DIV"", ""<div"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""</DIV>"", ""</div>"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<TABLE"", ""<table"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""</TABLE>"", vbCrLf & ""</table>""& vbCrLf)" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<TBODY>"", """")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""</TBODY>"","""" & vbCrLf)" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<TR"", ""<tr"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""</TR>"", vbCrLf & ""</tr>""& vbCrLf)" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<TD"", ""<td"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""</TD>"", ""</td>"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<!--"", vbCrLf & ""<!--"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<SELECT"",vbCrLf & ""<Select"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""</SELECT>"",vbCrLf & ""</Select>"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<OPTION"",vbCrLf & ""  <Option"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""</OPTION>"",""</Option>"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<INPUT"",vbCrLf & ""  <Input"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""<script"",vbCrLf & ""<script"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""&amp;"",""&"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""{$--"",vbCrLf & ""<!--$"")" & vbCrLf
    Response.Write "   strHtml=Replace(strHtml, ""--}"",""$-->"")" & vbCrLf
    Response.Write "   arrContent = Split(strHtml,vbCrLf)" & vbCrLf
    Response.Write "    For i = 0 To UBound(arrContent)" & vbCrLf
    Response.Write "        Numtemp=false" & vbCrLf
    Response.Write "        if Instr(arrContent(i),""<table"")>0 then" & vbCrLf
    Response.Write "            Numtemp=True" & vbCrLf
    Response.Write "            if Strtemp<>""<table"" and Strtemp <>""</table>"" then" & vbCrLf
    Response.Write "              Num=Num+2" & vbCrLf
    Response.Write "            End if " & vbCrLf
    Response.Write "            Strtemp=""<table""" & vbCrLf
    Response.Write "        elseif Instr(arrContent(i),""<tr"")>0 then" & vbCrLf
    Response.Write "            Numtemp=True" & vbCrLf
    Response.Write "            if Strtemp<>""<tr"" and Strtemp<>""</tr>"" then" & vbCrLf
    Response.Write "              Num=Num+2" & vbCrLf
    Response.Write "            End if " & vbCrLf
    Response.Write "            Strtemp=""<tr""" & vbCrLf
    Response.Write "        elseif Instr(arrContent(i),""<td"")>0 then" & vbCrLf
    Response.Write "            Numtemp=True" & vbCrLf
    Response.Write "            if Strtemp<>""<td"" and Strtemp<>""</td>"" then" & vbCrLf
    Response.Write "              Num=Num+2" & vbCrLf
    Response.Write "            End if " & vbCrLf
    Response.Write "            Strtemp=""<td""" & vbCrLf
    Response.Write "        elseif Instr(arrContent(i),""</table>"")>0 then" & vbCrLf
    Response.Write "            Numtemp=True" & vbCrLf
    Response.Write "            if Strtemp<>""</table>"" and Strtemp<>""<table"" then" & vbCrLf
    Response.Write "              Num=Num-2" & vbCrLf
    Response.Write "            End if " & vbCrLf
    Response.Write "            Strtemp=""</table>""" & vbCrLf
    Response.Write "        elseif Instr(arrContent(i),""</tr>"")>0 then" & vbCrLf
    Response.Write "            Numtemp=True" & vbCrLf
    Response.Write "            if Strtemp<>""</tr>"" and Strtemp<>""<tr"" then" & vbCrLf
    Response.Write "              Num=Num-2" & vbCrLf
    Response.Write "            End if " & vbCrLf
    Response.Write "            Strtemp=""</tr>""" & vbCrLf
    Response.Write "        elseif Instr(arrContent(i),""</td>"")>0 then" & vbCrLf
    Response.Write "            Numtemp=True" & vbCrLf
    Response.Write "            if Strtemp<>""</td>"" and Strtemp<>""<td"" then" & vbCrLf
    Response.Write "              Num=Num-2" & vbCrLf
    Response.Write "            End if " & vbCrLf
    Response.Write "            Strtemp=""</td>""" & vbCrLf
    Response.Write "        elseif Instr(arrContent(i),""<!--"")>0 then" & vbCrLf
    Response.Write "            Numtemp=True" & vbCrLf
    Response.Write "        End if" & vbCrLf
    Response.Write "        if Num< 0 then Num = 0" & vbCrLf
    Response.Write "        if trim(arrContent(i))<>"""" then" & vbCrLf
    Response.Write "            if i=0 then" & vbCrLf
    Response.Write "                strHtml2= string(Num,"" "") & arrContent(i) " & vbCrLf
    Response.Write "            elseif Numtemp=True then" & vbCrLf
    Response.Write "                strHtml2= strHtml2 & vbCrLf & string(Num,"" "") & arrContent(i) " & vbCrLf
    Response.Write "            else" & vbCrLf
    Response.Write "                strHtml2= strHtml2 & vbCrLf & arrContent(i) " & vbCrLf
    Response.Write "            end if" & vbCrLf
    Response.Write "        end if" & vbCrLf
    Response.Write "      Next" & vbCrLf
    Response.Write "      Resumeblank=strHtml2" & vbCrLf
    Response.Write "    End function" & vbCrLf
    Response.Write "    function setContent(zhi,TpyeTemplate)" & vbCrLf
    Response.Write "      if zhi=""get"" then" & vbCrLf
    Response.Write "        if Strsave=""A"" then Exit Function" & vbCrLf
    Response.Write "        Strsave=""A""" & vbCrLf
    Response.Write "        TemplateContent= document.myform.LabelContent.value" & vbCrLf
    Response.Write "        TemplateContent2= editor.HtmlEdit.document.body.innerHTML" & vbCrLf
    Response.Write "        if TemplateContent="""" then " & vbCrLf
    Response.Write "            alert ""您删除了代码框网页，请您务必填写网页 ！""" & vbCrLf
    Response.Write "            Exit function" & vbCrLf
    Response.Write "        End if" & vbCrLf
    Response.Write "        if Instr(TemplateContent,""<body>"")=0 then" & vbCrLf
    Response.Write "            regEx.Pattern = ""(\<body)(.[^\<]*)(\>)""" & vbCrLf
    Response.Write "            Set Matches = regEx.Execute(TemplateContent)" & vbCrLf
    Response.Write "            For Each Match In Matches" & vbCrLf
    Response.Write "                StrBody = Match.Value" & vbCrLf
    Response.Write "            Next" & vbCrLf
    Response.Write "        Else" & vbCrLf
    Response.Write "            StrBody=""<body>"" " & vbCrLf
    Response.Write "        End if" & vbCrLf
    Response.Write "        arrContent = Split(TemplateContent, StrBody)" & vbCrLf
    Response.Write "        if Instr(TemplateContent,""<body"")>0 then" & vbCrLf
    Response.Write "            Content1 = arrContent(0) & StrBody" & vbCrLf
    Response.Write "        End if" & vbCrLf
    Response.Write "        regEx.Pattern = ""\<IMG(.[^\<]*?)\}['|""""]\>""" & vbCrLf
    Response.Write "        Set Matches = regEx.Execute(TemplateContent2)" & vbCrLf
    Response.Write "        For Each Match In Matches" & vbCrLf
    Response.Write "            regEx.Pattern = ""\{\$(.*)\}""" & vbCrLf
    Response.Write "            Set strTemp = regEx.Execute(replace(Match.Value,"" "",""""))" & vbCrLf
    Response.Write "            For Each Match2 In strTemp" & vbCrLf
    Response.Write "                strTemp2 = Replace(Match2.Value, ""?"", """""""")" & vbCrLf
    Response.Write "                TemplateContent2 = Replace(TemplateContent2, Match.Value, ""<!--"" & strTemp2 & ""-->"")" & vbCrLf
    Response.Write "            Next" & vbCrLf
    Response.Write "        Next" & vbCrLf
    Response.Write "        regEx.Pattern = ""\<IMG(.[^\<]*?)\$\>""" & vbCrLf
    Response.Write "        Set Matches = regEx.Execute(TemplateContent2)" & vbCrLf
    Response.Write "        For Each Match In Matches" & vbCrLf
    Response.Write "            regEx.Pattern = ""\#(.*)\#""" & vbCrLf
    Response.Write "            Set strTemp = regEx.Execute(Match.Value)" & vbCrLf
    Response.Write "            For Each Match2 In strTemp" & vbCrLf
    Response.Write "                strTemp2 = Replace(Match2.Value, ""&amp;"", ""&"")" & vbCrLf
    Response.Write "                strTemp2 = Replace(strTemp2, ""#"", """")" & vbCrLf
    Response.Write "                strTemp2 = Replace(strTemp2,""&13;&10;"",vbCrLf)" & vbCrLf
    Response.Write "                strTemp2 = Replace(strTemp2,""&9;"",vbTab)" & vbCrLf
    Response.Write "                strTemp2 = Replace(strTemp2, ""[!"", ""<"")" & vbCrLf
    Response.Write "                strTemp2 = Replace(strTemp2, ""!]"", "">"")" & vbCrLf
    Response.Write "                TemplateContent2 = Replace(TemplateContent2, Match.Value, strTemp2)" & vbCrLf
    Response.Write "            Next" & vbCrLf
    Response.Write "        Next" & vbCrLf
    Response.Write "        TemplateContent2=Replace(TemplateContent2, ""http://" & TrueSiteUrl & InstallDir & """,""{$InstallDir}"")" & vbCrLf
    Response.Write "        TemplateContent2=Replace(TemplateContent2, ""http://" & LCase(TrueSiteUrl) & LCase(InstallDir) & """,""{$InstallDir}"")" & vbCrLf
    Response.Write "        TemplateContent2=Resumeblank(TemplateContent2)" & vbCrLf
    Response.