admin_template.asp

个人网站比较简短

    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "</form>"

End Sub

'=================================================
'过程名：CommonLabel
'作  用：调用常用函数标签
'=================================================
Sub CommonLabel(ByVal TemplateType)
    Response.Write "        <table align='left' border='0' id='CommonLabel" & TemplateType & "' cellpadding='0' cellspacing='1' width='550' height='100%' >"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "           <td width='120'> 常用超级函数标签:</td>"
    Response.Write "           <td width='1' bgcolor='#ACA899'></td><td width='2'></td>"
    Response.Write "           <td>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetArticleList','文章列表函数标签',1,'GetList',800,700," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetArticleList.gif' border='0' width='18' height='18' alt='显示文章标题等信息'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetPicArticle','显示图片文章标签',1,'GetPic',700,500," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetPicArticle.gif' border='0' width='18' height='18' alt='显示图片文章'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetSlidePicArticle','显示幻灯片文章标签',1,'GetSlide',700,500," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetSlidePicArticle.gif' border='0' width='18' height='18' alt='显示幻灯片文章'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_CustomListLabel.asp','CustomListLable','文章自定义列表标签',1,'GetArticleCustom',720,700," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetArticleCustom.gif' border='0' width='18' height='18' alt='文章自定义列表'></a>"
    Response.Write "           </td>"
    Response.Write "           <td width='1' bgcolor='#ACA899'></td><td width='2'></td>"
    Response.Write "           <td>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetSoftList','下载列表函数标签',2,'GetList',800,700," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetSoftList.gif' border='0' width='18' height='18' alt='显示软件标题'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetPicSoft','显示图片下载标签',2,'GetPic',700,500," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetPicSoft.gif' border='0' width='18' height='18' alt='显示图片下载'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetSlidePicSoft','显示幻灯片下载标签',2,'GetSlide',700,500," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetSlidePicSoft.gif' border='0' width='18' height='18' alt='显示幻灯片下载'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_CustomListLabel.asp','CustomListLable','下载自定义列表标签',2,'GetSoftCustom',720,700," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetSoftCustom.gif' border='0' width='18' height='18' alt='下载自定义列表'></a>"
    Response.Write "           </td>"
    Response.Write "           <td width='1' bgcolor='#ACA899'></td><td width='2'></td>"
    Response.Write "           <td>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetPhotoList','图片列表函数标签',3,'GetList',800,700," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetPhotoList.gif' border='0' width='18' height='18' alt='显示图片标题'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetPicPhoto','显示图片图文标签',3,'GetPic',700,550," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetPicPhoto.gif' border='0' width='18' height='18' alt='显示图片'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetSlidePicPhoto','显示幻灯片图片标签',3,'GetSlide',700,550," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetSlidePicPhoto.gif' border='0' width='18' height='18' alt='显示图片幻灯片'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_CustomListLabel.asp','CustomListLable','图片自定义列表标签',3,'GetPhotoCustom',720,700," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetPhotoList.gif' border='0' width='18' height='18' alt='图片自定义列表'></a>"
    Response.Write "           </td>"
    Response.Write "           <td width='1' bgcolor='#ACA899'></td><td width='2'></td>"
    Response.Write "           <td>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetProductList','商城列表函数标签',5,'GetList',800,750," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetProductList.gif' border='0' width='18' height='18' alt='显示商品标题'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetPicProduct','显示图片商城标签',5,'GetPic',700,600," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetPicProduct.gif' border='0' width='18' height='18' alt='显示商品图片'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_label.asp','GetSlidePicProduct','显示幻灯片商城标签',5,'GetSlide',700,460," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetSlidePicProduct.gif' border='0' width='18' height='18' alt='显示商品幻灯片'></a>"
    Response.Write "            <a href=""javascript:SuperFunctionLabel('../Editor/editor_CustomListLabel.asp','CustomListLable','商城自定义列表标签',5,'GetProductCustom',720,700," & TemplateType & ")"" ><img src='../Editor/images/LabelIco/GetProductCustom.gif' border='0' width='18' height='18' alt='商品自定义列表'></a>"
    Response.Write "           </td>"
    Response.Write "           <td width='1' bgcolor='#ACA899'></td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
End Sub
'=================================================
'过程名：ADD
'作  用：添加模板
'=================================================
Sub Add()

    Dim Num, strHead, Content
    Dim rsTemplateProject
    
    TemplateType = Request.QueryString("TemplateType")
    ProjectName = Request.QueryString("ProjectName")

    '返回js代码 num 为 大类或小类
    If TemplateType = 2 Then
        Num = 2
    Else
        Num = 1
    End If
    
    '加入模板预定头部 在添加时用到
    
    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}", "<link href='" & InstallDir & "Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>")
    Content = Replace(Content, "{$MenuJS}", "<script language='JavaScript' type='text/JavaScript' src='" & InstallDir & "js/menu.js'></script>")
    Content = Replace(Content, "{$InstallDir}", InstallDir)
    '预写3000行
    Dim strContenttemp, i
    For i = 1 To 3000
        If strContenttemp = "" Then
            strContenttemp = i & vbCrLf
        Else
            strContenttemp = strContenttemp & i & vbCrLf
        End If
    Next
   
    '调入js处理过程
    Call StrJS_Template
            
    Response.Write "<form name='form1' method='post' action='Admin_Template.asp' >"
    Response.Write "  <table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' colspan='2' align='center'><strong>添 加 新 模 板</strong></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>&nbsp;&nbsp;<strong> 选择方案： </strong><select name='ProjectName' id='ProjectName' onChange=""window.location.href='Admin_Template.asp?ChannelID=" & ChannelID & "&Action=Add&TemplateType=" & TemplateType & "&TempType=" & TempType & "&ProjectName='+this.value"">" & GetProject_Option(ProjectName) & "</select></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>&nbsp;&nbsp;<strong> 模板类型： </strong><select name='TemplateType' id='TemplateType' onChange=""window.location.href='Admin_Template.asp?ChannelID=" & ChannelID & "&Action=Add&TempType=" & TempType & "&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateType='+this.value"">" & GetTemplate_Option(PE_CLng(TemplateType)) & "</select></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>&nbsp;&nbsp;<strong> 模板名称： </strong><input name='TemplateName' type='text' id='TemplateName' value='' size='50' maxlength='50'></td>"
    Response.Write "    </tr>"
    Response.Write "    <a name='#TemplateStart1'></a>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td valign='top'align=center id='Navigation1' style='display:'>"
    
    If TemplateType = 2 Then
        Response.Write "<b>大类模板：</b>当栏目含有子栏目时，就会调用此处内容显示！"
    Else
        Response.Write "<b> 模 板 内 容 ↓</b>"
    End If

    Response.Write "    </td></tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>"
    Response.Write "        <table align='left' width='200'>"
    Response.Write "          <tr id=OpenNavigation1 ><td >&nbsp;&nbsp;&nbsp;<IMG SRC='Images/admin_open.gif' BORDER='0'   ALT=''><a href='#TemplateStart1' onclick=""OpenNavigation(1)"">&nbsp;使用更多的标签&nbsp;</a></td></tr>"
    Response.Write "          <tr id=CloseNavigation1 style='display:none'><td >&nbsp;&nbsp;&nbsp;<IMG SRC='Images/admin_close.gif' BORDER='0'   ALT=''><a href='#TemplateStart1' onclick=""CloseNavigation(1)"">&nbsp;关闭标签导航栏</a></td></tr>"
    Response.Write "        </table>"

    Call CommonLabel(1)

    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg' id=showAlgebra>"
    Response.Write "      <td>"
    Response.Write "       <table>"
    Response.Write "        <tr >"
    Response.Write "          <td width='20'><table id=showLabel style='display:none'><tr><td><iframe marginwidth=0 marginheight=0 frameborder=0  width='180' height='440' src='" & InstallDir & "editor/editor_tree.asp?ChannelID=" & ChannelID & "&ModuleType=" & ModuleType & "&insertTemplate=1&insertTemplateType=1'></iframe></td></tr></table></td>"
    Response.Write "          <td >"
    Response.Write "           <table width='100%'><tr><td width='20'>" & vbCrLf
    Response.Write "              <textarea id='txt_ln' name='rollContent'  COLS='5' ROWS='31' class='RomNumber' readonly>" & strContenttemp & "</textarea>" & vbCrLf
    Response.Write "            </td><td width='700'>"
    Response.Write "             <textarea name='Content' id='txt_main'  ROWS='30' COLS='117'  class='txt_main' wrap='OFF'  onkeydown='editTab()' onscroll=""show_ln('txt_ln','txt_main')""  wrap='on' onMouseUp=""setContent('get',1);setContent2(1)"">" & Server.HTMLEncode(strHead) & "</textarea></td></tr>"
    Response.Write "             <script>for(var i=3000; i<=3000; i++) document.getElementById('txt_ln').value += i + '\n';</script>" & vbCrLf
    Response.Write "            </td></tr>"
    Response.Write "           </table>"
    Response.Write "          </td>"
    Response.Write "       </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td>"
    Response.Write "        <table align='left' width='200'>"
    Response.Write "          <tr id=OpenNavigation3 ><td>&nbsp;&nbsp;&nbsp;<IMG SRC='Images/admin_open.gif' BORDER='0'   ALT=''><a href='#TemplateEnd1'  onclick=""OpenNavigation(1)"">&nbsp;使用更多的标签&nbsp;</a></td></tr>"
    Response.Write "          <tr id=CloseNavigation3 style='display:none'><td >&nbsp;&nbsp;&nbsp;<IMG SRC