admin_photojs.asp

个人网站比较简短

<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_JS.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Sub Add()
    Response.Write "<form action='Admin_PhotoJS.asp' method='post' name='myform' id='myform'>"
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' colspan='2' align='center'><strong>添加新的JS文件（普通列表方式）</strong></td>"
    Response.Write "    </tr>"

    Call JsBaseInif("", "", 0, "")

    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>显示样式：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='ShowType' id='ShowType'>"
    Response.Write "          <option value='1' selected>普通列表</option>"
    Response.Write "          <option value='2'>表格式</option>"
    Response.Write "          <option value='3'>各项独立式</option>"
    Response.Write "          <option value='4'>DIV输出</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>作者：</strong></td>"
    Response.Write "      <td height='25'><input name='Author' type='text' value='' size='10' maxlength='20'> <font color='#FF0000'>如果不为空，则只显示指定作者的" & ChannelShortName & "，用于个人" & ChannelShortName & "集。</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "数目：</strong></td>"
    Response.Write "      <td height='25'><input name='PhotoNum' type='text' value='10' size='5' maxlength='3'> <font color='#FF0000'>*</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>所属栏目：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='ClassID'><option value='0'>所有栏目</option>" & GetClass_Option(0) & "</select>"
    Response.Write "        <input type='checkbox' name='IncludeChild' value='1' checked>包含子栏目&nbsp;&nbsp;&nbsp;&nbsp;<font color='red'><b>注意：</b></font>不能指定为外部栏目"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>所属专题：</strong></td>"
    Response.Write "      <td height='25' ><select name='SpecialID' id='SpecialID'><option value=''>不属于任何专题</option>" & GetSpecial_Option(0) & "</select></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "属性：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <input name='IsHot' type='checkbox' id='IsHot' value='1'> 热门" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "        <input name='IsElite' type='checkbox' id='IsElite' value='1'> 推荐" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "        <font color='#FF0000'>如果都不选，将显示所有" & ChannelShortName & "</font>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>日期范围：</strong></td>"
    Response.Write "      <td height='25'>只显示最近 <input name='DateNum' type='text' id='DateNum' value='30' size='5' maxlength='3'> 天内更新的" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>&nbsp;&nbsp;如果为空或0，则显示所有天数的" & ChannelShortName & "</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>排序方法：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='OrderType' id='OrderType'>"
    Response.Write "          <option value='1' selected>" & ChannelShortName & "ID（降序）</option>"
    Response.Write "          <option value='2'>" & ChannelShortName & "ID（升序）</option>"
    Response.Write "          <option value='3'>更新时间（降序）</option>"
    Response.Write "          <option value='4'>更新时间（升序）</option>"
    Response.Write "          <option value='5'>点击次数（降序）</option>"
    Response.Write "          <option value='6'>点击次数（升序）</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>属性图片样式：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='ShowPropertyType' id='ShowPropertyType'>"
    Response.Write "          <option value='0' >不显示</option>"
    Response.Write "          <option value='2'>符号</option>"
    Response.Write "          <option value='1' selected>小图片（样式1）</option>"
    Response.Write "          <option value='3' selected>小图片（样式2）</option>"
    Response.Write "          <option value='4' selected>小图片（样式3）</option>"
    Response.Write "          <option value='5' selected>小图片（样式4）</option>"
    Response.Write "          <option value='6' selected>小图片（样式5）</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "名称字符数：</strong></td>"
    Response.Write "      <td height='25'><input name='TitleLen' type='text' id='TitleLen' value='30' size='5' maxlength='3'>&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>如果为0，则显示完整名称。字母算一个字符，汉字算两个字符。</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "简介字符数：</strong></td>"
    Response.Write "      <td height='25'><input name='ContentLen' type='text' id='ContentLen' value='0' size='5' maxlength='3'>&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>如果大于0，则在" & ChannelShortName & "名称下方显示指定字数的" & ChannelShortName & "简介</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='50' align='right'><strong>显示内容：</strong></td>"
    Response.Write "      <td height='50'><table width='100%' border='0' cellpadding='1' cellspacing='2'>"
    Response.Write "        <tr>"
    Response.Write "          <td><input name='ShowClassName' type='checkbox' id='ShowClassName' value='1'>所属栏目</td>"
    Response.Write "          <td><input name='ShowAuthor' type='checkbox' id='ShowAuthor' value='1'>作者</td>"
    Response.Write "          <td>更新时间"
    Response.Write "            <select name='ShowDateType' id='ShowDateType'>"
    Response.Write "              <option value='0'>不显示</option>"
    Response.Write "              <option value='1'>年月日</option>"
    Response.Write "              <option value='2'>月日</option>"
    Response.Write "              <option value='3'>月-日</option>"
    Response.Write "            </select>"
    Response.Write "          </td>"
    Response.Write "          <td><input name='ShowHits' type='checkbox' id='ShowHits' value='1' checked>点击次数</td>"
    Response.Write "        </tr>"
    Response.Write "        <tr>"
    Response.Write "          <td><input name='ShowHotSign' type='checkbox' id='ShowHotSign' value='1'>热门" & ChannelShortName & "标志</td>"
    Response.Write "          <td><input name='ShowNewSign' type='checkbox' id='ShowNewSign' value='1'>最新" & ChannelShortName & "标志</td>"
    Response.Write "          <td><input name='ShowTips' type='checkbox' id='ShowTips' value='1'>显示提示信息</td>"
    Response.Write "          <td> </td>"
    Response.Write "        </tr>"
    Response.Write "      </table></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "打开方式：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='OpenType' id='OpenType'>"
    Response.Write "          <option value='0'>在原窗口打开</option>"
    Response.Write "          <option value='1' selected>在新窗口打开</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>链接地址选项：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='UrlType' id='OpenType'>"
    Response.Write "          <option value='0' selected>使用相对路径</option>"
    Response.Write "          <option value='1'>使用包含完整网址的绝对路径</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>每行标题列数：</strong></td>"
    Response.Write "      <td height='25'><input name='Cols' type='text' value='1' size='5' maxlength='3'> <font color='#FF0000'>每行显示标题的列数</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>CSS风格类名：</strong></td>"
    Response.Write "      <td height='25'><input name='CssNameA' type='text' value='' size='10' maxlength='20'> <font color='#FF0000'>列表中文字链接调用的CSS类名</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>风格样式1：</strong></td>"
    Response.Write "      <td height='25'><input name='CssName1' type='text' value='' size='10' maxlength='20'> <font color='#FF0000'>列表中奇数行的CSS效果的类名</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>风格样式2：</strong></td>"
    Response.Write "      <td height='25'><input name='CssName2' type='text' value='' size='10' maxlength='20'> <font color='#FF0000'>列表中偶数行的CSS效果的类名</font></td>"
    Response.Write "    </tr>"

    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveAdd'>"
    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 Modify()
    Dim ID, sqlJs, rsJs, JsConfig
    ID = PE_CLng(Trim(Request("ID")))
    If ID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数丢失！</li>"
        Exit Sub
    End If
    sqlJs = "select * from PE_JsFile where ID=" & ID
    Set rsJs = Conn.Execute(sqlJs)
    If rsJs.BOF And rsJs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的JS文件！</li>"
        rsJs.Close
        Set rsJs = Nothing
        Exit Sub
    End If
    JsConfig = Split(rsJs("Config") & "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0", "|")

    Response.Write "<form action='Admin_PhotoJS.asp' method='post' name='myform' id='myform'>"
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' colspan='2' align='center'><strong>修改参数（普通列表方式）</strong></td>"
    Response.Write "    </tr>"

    Call JsBaseInif(rsJs("JsName"), rsJs("JsReadme"), rsJs("ContentType"), rsJs("JsFileName"))

    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>显示样式：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='ShowType' id='ShowType'>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(0)), 1) & ">普通列表</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(0)), 2) & ">表格式</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(0)), 3) & ">各项独立式</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(0)), 4) & ">DIV输出</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>作者：</strong></td>"
    Response.Write "      <td height='25'><input name='Author' type='text' value='" & ZeroToEmpty(JsConfig(21)) & "' size='10' maxlength='20'> <font color='#FF0000'>如果不为空，则只显示指定作者的" & ChannelShortName & "，用于个人" & ChannelShortName & "集。</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "数目：</strong></td>"