📄 admin_label.asp
字号:
Response.Write " strTemp2 = Replace(strTemp2, ""!]"", "">"")" & vbCrLf
Response.Write " Content = Replace(Content, Match.Value, strTemp2)" & vbCrLf
Response.Write " Next" & vbCrLf
Response.Write " Next" & vbCrLf
Response.Write " Content=Replace(Content, ""http://" & TrueSiteUrl & InstallDir & """,""{$InstallDir}"")" & vbCrLf
Response.Write " Content=Replace(Content, ""http://" & LCase(TrueSiteUrl) & LCase(InstallDir) & """,""{$InstallDir}"")" & vbCrLf
Response.Write " Content=Resumeblank(Content)" & vbCrLf
Response.Write " Content=Replace(Content,""{$InstallDir}{$rsClass_ClassUrl}"",""{$rsClass_ClassUrl}"")" & vbCrLf
Response.Write " regEx.Pattern = ""\{\$InstallDir\}editor.asp(.[^\<]*?)\#""" & vbCrLf
Response.Write " Content = regEx.Replace(Content, ""#"")" & vbCrLf
Response.Write " document.myform.LabelContent.value=Content" & vbCrLf
Response.Write " Else" & vbCrLf
Response.Write " if Strsave=""B"" then Exit Function" & vbCrLf
Response.Write " Strsave=""B""" & vbCrLf
Response.Write " Content= document.myform.LabelContent.value" & vbCrLf
Response.Write " if Content="""" then " & vbCrLf
Response.Write " alert ""您删除了代码框网页，请您务必填写网页 ！""" & vbCrLf
Response.Write " Exit function" & vbCrLf
Response.Write " " & vbCrLf
Response.Write " End if" & vbCrLf
Response.Write " if Instr(TemplateContent,""<body>"") <> 0 then" & vbCrLf
Response.Write " alert ""您加载的自定义标签包含<body> ！这是不能牵套在自定义标签内的！""" & vbCrLf
Response.Write " Exit function" & vbCrLf
Response.Write " End if" & vbCrLf
Response.Write " Content = Replace(Content, ""<!--{$"", ""{$"")" & vbCrLf
Response.Write " Content = Replace(Content, ""}-->"", ""}"")" & vbCrLf
Response.Write " '图片替换JS" & vbCrLf
Response.Write " regEx.Pattern = ""(\<Script)([\s\S]*?)(\<\/Script\>)""" & vbCrLf
Response.Write " Set Matches = regEx.Execute(Content)" & vbCrLf
Response.Write " For Each Match In Matches" & vbCrLf
Response.Write " strTemp = Replace(Match.Value, ""<"", ""[!"")" & vbCrLf
Response.Write " strTemp = Replace(strTemp, "">"", ""!]"")" & vbCrLf
Response.Write " strTemp = Replace(strTemp, ""'"", ""′"")" & vbCrLf
Response.Write " strTemp = ""<IMG alt='#"" & strTemp & ""#' src=""""" & InstallDir & "editor/images/jscript.gif"""" border=0 $>""" & vbCrLf
Response.Write " Content = Replace(Content, Match.Value, strTemp)" & vbCrLf
Response.Write " Next" & vbCrLf
Response.Write " '图片替换超级标签" & vbCrLf
Response.Write " regEx.Pattern = ""(\{\$GetPicArticle|\{\$GetArticleList|\{\$GetSlidePicArticle|\{\$GetPicSoft|\{\$GetSoftList|\{\$GetSlidePicSoft|\{\$GetPicPhoto|\{\$GetPhotoList|\{\$GetSlidePicPhoto|\{\$GetPicProduct|\{\$GetProductList|\{\$GetSlidePicProduct)\((.*?)\)\}""" & vbCrLf
Response.Write " Content = regEx.Replace(Content, ""<IMG src=""""" & InstallDir & "editor/images/label.gif"""" border=0 zzz='$1($2)}'>"")" & vbCrLf
Response.Write " regEx.Pattern = ""\{\$InstallDir\}""" & vbCrLf
Response.Write " Set Matches = regEx.Execute(Content)" & vbCrLf
Response.Write " For Each Match In Matches" & vbCrLf
Response.Write " Content = Replace(Content, Match.Value, ""http://" & TrueSiteUrl & InstallDir & """)" & vbCrLf
Response.Write " Next" & vbCrLf
Response.Write " editor.HtmlEdit.document.body.innerHTML=Content" & vbCrLf
Response.Write " editor.showBorders()" & vbCrLf
Response.Write " End if" & vbCrLf
Response.Write " End function" & vbCrLf
Response.Write " function setstatus()" & vbCrLf '为323 版兼容editor.asp 无效过程
Response.Write " end function" & vbCrLf
Response.Write "</script>" & vbCrLf
Else
Response.Write " return true; " & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
End If
End Sub
Sub Add(AddType)
Call ShowJSLabel(AddType)
Response.Write "<form action='Admin_Label.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'>"
If AddType = 0 Then
Response.Write " <td align='center'><strong>添 加 静 态 标 签</strong></td>"
ElseIf AddType = 2 Then
Response.Write " <td align='center'><strong>添 加 采 集 标 签 <font color=#aaffaa>（本标签类型消耗资源较大，推荐独立服务器用户使用）</font></strong></td>"
End If
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>{$MY_<input name='LabelName' type='text' id='LabelName' size='30' maxlength='50'>}</td>"
Response.Write " <td width='10'></td>"
Response.Write " <td><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 colspan='3'><input name='LabelClass' type='text' id='LabelClass' size='30' maxlength='50'> " & getlabelclass(AddType) & "</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%' >"
If AddType = 0 Then
Response.Write " <tr><td width='100' align='center'><strong>标签简介：</strong></td>"
Response.Write " <td><textarea name='LabelIntro' cols='96' rows='4' id='LabelIntro'></textarea></td></tr>"
Response.Write " </table></tr>" & vbCrLf
ElseIf AddType = 2 Then
Response.Write " <tr><td width='100' align='center'><strong>采集方式：</strong></td>"
Response.Write " <td><INPUT TYPE='radio' NAME='CaiType' value='0' checked onClick=""adv.style.display='none'"">快速 <INPUT TYPE='radio' NAME='CaiType' value='1' onClick=""adv.style.display=''"">高级</td></tr>"
Response.Write " <tr><td width='100' align='center'><strong>连接地址：</strong></td>"
If Trim(Request("PageUrl")) = "" Then
Response.Write " <td><textarea name='LabelIntro' cols='96' rows='4' id='LabelIntro'>http://</textarea></td></tr>"
Else
Response.Write " <td><textarea name='LabelIntro' cols='96' rows='4' id='LabelIntro'>" & Trim(Request("PageUrl")) & "</textarea></td></tr>"
End If
Response.Write " </table></tr>" & vbCrLf
Response.Write " <script language=""JavaScript"">" & vbCrLf
Response.Write " <!--" & vbCrLf
Response.Write " function setFileFileds(num){" & vbCrLf
Response.Write " for(var i=1,str="""";i<=9;i++){" & vbCrLf
Response.Write " eval(""objFiles"" + i +"".style.display='none';"")" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " for(var i=1,str="""";i<=num;i++){" & vbCrLf
Response.Write " eval(""objFiles"" + i +"".style.display='';"")" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " //-->" & vbCrLf
Response.Write " </script>" & vbCrLf
Response.Write "<tbody id='adv' style='display:none'><tr class=""tdbg""><td>" & vbCrLf
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' >" & vbCrLf
Response.Write " <tr><td width='100' align='center'><strong> 编码格式： </strong></td>" & vbCrLf
Response.Write " <td>GB2312：<INPUT TYPE='radio' NAME='Code' value=0 checked> UTF-8：<INPUT TYPE='radio' NAME='Code' value=1> Big5：<INPUT TYPE='radio' NAME='Code' value=2><font color=red> * </font> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td width='100' align='center'><strong> 开始字符： </strong></td>" & vbCrLf
Response.Write " <td> <TEXTAREA NAME='LableStart' ROWS='' COLS='' style='width:400px;height:50px'></TEXTAREA><font color=red> * </font></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td width='100' align='center'><strong> 结束字符： </strong></td>" & vbCrLf
Response.Write " <td> <TEXTAREA NAME='LableEnd' ROWS='' COLS='' style='width:400px;height:50px'></TEXTAREA><font color=red> * </font></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td width='100' align='center'><strong> 替换项目： </strong></td>"
Response.Write " <td>" & vbCrLf
Response.Write " <select name=""ReplaceNum"" onChange=""setFileFileds(this.value)"">" & vbCrLf
Response.Write " <option value=""0"">0</option>" & vbCrLf
Response.Write " <option value=""1"">1</option>" & vbCrLf
Response.Write " <option value=""2"">2</option>" & vbCrLf
Response.Write " <option value=""3"">3</option>" & vbCrLf
Response.Write " <option value=""4"">4</option>" & vbCrLf
Response.Write " <option value=""5"">5</option>" & vbCrLf
Response.Write " <option value=""6"">6</option>" & vbCrLf
Response.Write " <option value=""7"">7</option>" & vbCrLf
Response.Write " <option value=""8"">8</option>" & vbCrLf
Response.Write " <option value=""9"">9</option>" & vbCrLf
Response.Write " </select>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td width='100' align='center'> </td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' align='center'>" & vbCrLf
Dim i
For i = 1 To 9
Response.Write " <tr class=""tdbg"" onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">" & vbCrLf
Response.Write " <td class=""tdbg"" id=""objFiles" & i & """ valign='top' style=""display:'none'"">" & vbCrLf
Response.Write i
Response.Write " 将字符：<TEXTAREA NAME='ReplaceQuilt" & i & "' ROWS='' COLS='' style='width:250px;height:30px'></TEXTAREA>"
Response.Write " 替换为：<TEXTAREA NAME='ReplaceWith" & i & "' ROWS='' COLS='' style='width:250px;height:30px'></TEXTAREA>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Next
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td width='100' align='center'><strong> 链接后缀： </strong></td>" & vbCrLf
Response.Write " <td> <input name=""UpFileType"" type=""text"" id=""UpFileType"" size=""80"" maxlength=""50"" Value=""gif|jpg|jpeg|jpe|bmp|png|swf|mid|mp3|wmv|asf|avi|mpg|ram|rm|ra|rmvb|html|asp|shtml|jsp|shtml|htm|php|cgi""> <font color=red> * </font> <font color='blue'>注：用|分割</font><br>" & vbCrLf
Response.Write " <font color='blue'>说明:将采集链接的相对地址转换为绝对地址,请在上面输入要转换链接的后缀。</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td width='100' align='center'><strong>过滤选项： </strong></td>"
Response.Write " <td>"
Response.Write " <input name=""Script_Iframe"" type=""checkbox"" id=""Script_Iframe"" value=""1"">Iframe" & vbCrLf
Response.Write " <input name=""Script_Object"" type=""checkbox"" id=""Script_Object"" value=""1"">Object" & vbCrLf
Response.Write " <input name=""Script_Script"" type=""checkbox"" id=""Script_Script"" value=""1"">Script" & vbCrLf
Response.Write " <input name=""Script_Class"" type=""checkbox"" id=""Script_Class"" value=""1"">Style" & vbCrLf
Response.Write " <input name=""Script_Div"" type=""checkbox"" id=""Script_Div"" value=""1"">Div" & vbCrLf
Response.Write " <input name=""Script_Table"" type=""checkbox"" id=""Script_Table"" value=""1"">Table" & vbCrLf
Response.Write " <input name=""Script_Tr"" type=""checkbox"" id=""Script_tr"" value=""1"">Tr" & vbCrLf
Response.Write " <input name=""Script_td"" type=""checkbox"" id=""Script_td"" value=""1"">Td" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <input name=""Script_Span"" type=""checkbox"" id=""Script_Span"" value=""1"">Span" & vbCrLf
Response.Write " <input name=""Script_Img"" type=""checkbox"" id=""Script_Img"" value=""1"">Img " & vbCrLf
Response.Write " <input name=""Script_Font"" type=""checkbox"" id=""Script_Font"" value=""1"">FONT " & vbCrLf
Response.Write " <input name=""Script_A"" type=""checkbox"" id=""Script_A"" value=""1"">A " & vbCrLf
Response.Write " <input name=""Script_Html"" type=""checkbox"" id=""Script_Html"" value=""1"">Html" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr></table></td></tr></tbody>" & vbCrLf
End If
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='Priority' type='text' id='Priority' size='5' maxlength='5'></td>"
Response.Write " <td width='10'></td>"
Response.Write " <td><font color='#FF0000'>数字越小，优先级越高。当标签中再嵌套调用其他标签时，就需要决定标签的优先级。<br>系统按照如下顺序来替换标签：自定义标签-->系统通用标签-->频道标签</font></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
If AddType = 0 Then
Response.Write " <tr class='title' height='22'>"
Response.Write " <td align='center'><strong>标 签 内 容</strong></td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -