admin_label.asp

个人网站比较简短

                Response.Write "&ListType=" & ListType
            End If
            Response.Write "' onclick=""return confirm('真的要删除此标签吗？如果有文件或模板中使用此标签，请注意修改过来呀！');"">删除</a>"
            Response.Write "    </td>"
            Response.Write "  </tr>"
            iCount = iCount + 1
            If iCount >= MaxPerPage Then Exit Do
            rsLabel.MoveNext
        Loop
        Response.Write "</table></form>"
        rsLabel.Close
        Set rsLabel = Nothing
        Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个标签", True)
    End If
End Sub

Sub ShowJSLabel(LabelType)
    Dim TrueSiteUrl
    TrueSiteUrl = Trim(Request.ServerVariables("HTTP_HOST"))
    Response.Write "<script language = 'JavaScript'>" & vbCrLf
    Response.Write "function addclass(){" & vbCrLf
    Response.Write "    var select=document.myform.LabelClassList;" & vbCrLf
    Response.Write "    for(i=0;i<select.length;i++){" & vbCrLf
    Response.Write "        if(document.myform.LabelClassList[i].selected==true){" & vbCrLf
    Response.Write "            document.myform.LabelClass.value=document.myform.LabelClassList[i].value;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckForm(){" & vbCrLf
    Response.Write "  if (document.myform.LabelName.value==''){" & vbCrLf
    Response.Write "     alert('标签名称不能为空！');" & vbCrLf
    Response.Write "     document.myform.LabelName.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (document.myform.LabelIntro.value==''){" & vbCrLf
    If LabelType = 0 Then
        Response.Write "     alert('标签简介不能为空！');" & vbCrLf
    ElseIf LabelType = 1 Or LabelType = 3 Then
        Response.Write "     alert('查询语句不能为空！');" & vbCrLf
    Else
        Response.Write "     alert('连接地址不能为空！');" & vbCrLf
    End If
    Response.Write "     document.myform.LabelIntro.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (document.myform.Priority.value==''){" & vbCrLf
    Response.Write "     alert('优先等级不能为空！');" & vbCrLf
    Response.Write "     document.myform.Priority.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf

    If LabelType <> 2 Then
        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

        If (LabelType = 1 Or LabelType = 3) And (Action = "AddDyna2" Or Action = "Modify") Then
            Response.Write "function addfield(fieldname,num,dbname,dbtype){" & vbCrLf
            Response.Write "    myform.LabelContent.focus();" & vbCrLf
            Response.Write "    var str = document.selection.createRange();" & vbCrLf
            Response.Write "    var link=""Admin_pfield.asp?fieldname="" + fieldname + ""&num=""+ num + ""&dbname="" + dbname +""&dbtype="" + dbtype;" & vbCrLf
            Response.Write "    var arr=showModalDialog(link,'','dialogWidth:300px; dialogHeight:180px; help: no; scroll: no; status: no');" & vbCrLf
            Response.Write "    if (arr != null){" & vbCrLf
            Response.Write "        str.text = arr;" & vbCrLf
            Response.Write "        document.myform.LabelContent2.value=document.myform.LabelContent.value;" & vbCrLf
            Response.Write "        editor.HtmlEdit.document.body.innerHTML=document.myform.LabelContent2.value;" & vbCrLf
            Response.Write "    }" & vbCrLf
            Response.Write "}" & vbCrLf
            Response.Write "function addfield2(fiele1){" & vbCrLf
            Response.Write "    myform.LabelContent.focus();" & vbCrLf
            Response.Write "    var str = document.selection.createRange();" & vbCrLf
            Response.Write "    if (fiele1 != null){" & vbCrLf
            Response.Write "        str.text = ""{input("" + fiele1 + "")}"";" & vbCrLf
            Response.Write "        document.myform.LabelContent2.value=document.myform.LabelContent.value;" & vbCrLf
            Response.Write "        editor.HtmlEdit.document.body.innerHTML=document.myform.LabelContent2.value;" & vbCrLf
            Response.Write "    }" & vbCrLf
            Response.Write "}" & vbCrLf
        End If
        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 "        Content= editor.HtmlEdit.document.body.innerHTML" & vbCrLf
        Response.Write "        regEx.Pattern = ""\<IMG(.[^\<]*?)\}['|""""]\>""" & vbCrLf
        Response.Write "        Set Matches = regEx.Execute(Content)" & 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 "                Content = Replace(Content, Match.Value, ""<!--"" & strTemp2 & ""-->"")" & vbCrLf
        Response.Write "            Next" & vbCrLf
        Response.Write "        Next" & vbCrLf
        Response.Write "        regEx.Pattern = ""\<IMG(.[^\<]*?)\$\>""" & vbCrLf
        Response.Write "        Set Matches = regEx.Execute(Content)" & 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