📄 admin_photojs.asp
字号:
Response.Write " <td height='25'><input name='PhotoNum' type='text' value='" & JsConfig(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>所属栏目：</strong></td>"
Response.Write " <td height='25'>"
Response.Write " <select name='ClassID'><option value='0'>所有栏目</option>" & GetClass_Option(PE_CLng(JsConfig(2))) & "</select>"
Response.Write " <input type='checkbox' name='IncludeChild' " & RadioValue(PE_CLng(JsConfig(3)), 1) & ">包含子栏目 <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(PE_CLng(JsConfig(20))) & "</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' " & RadioValue(PE_CLng(JsConfig(4)), 1) & ">热门" & ChannelShortName & " "
Response.Write " <input name='IsElite' type='checkbox' id='IsElite' " & RadioValue(PE_CLng(JsConfig(5)), 1) & ">推荐" & ChannelShortName & " "
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='" & JsConfig(6) & "' size='5' maxlength='3'> 天内更新的" & ChannelShortName & " <font color='#FF0000'> 如果为空或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 " & OptionValue(PE_CLng(JsConfig(7)), 1) & ">" & ChannelShortName & "ID（降序）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(7)), 2) & ">" & ChannelShortName & "ID（升序）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(7)), 3) & ">更新时间（降序）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(7)), 4) & ">更新时间（升序）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(7)), 5) & ">点击次数（降序）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(7)), 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 " & OptionValue(PE_CLng(JsConfig(19)), 0) & ">不显示</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(19)), 2) & ">符号</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(19)), 1) & ">小图片（样式1）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(19)), 3) & ">小图片（样式2）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(19)), 4) & ">小图片（样式3）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(19)), 5) & ">小图片（样式4）</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(19)), 6) & ">小图片（样式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='" & JsConfig(8) & "' size='5' maxlength='3'> <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='" & JsConfig(9) & "' size='5' maxlength='3'> <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' " & RadioValue(PE_CLng(JsConfig(10)), 1) & ">所属栏目</td>"
Response.Write " <td><input name='ShowAuthor' type='checkbox' id='ShowAuthor' " & RadioValue(PE_CLng(JsConfig(11)), 1) & ">作者</td>"
Response.Write " <td>更新时间"
Response.Write " <select name='ShowDateType' id='ShowDateType'>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(12)), 0) & ">不显示</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(12)), 1) & ">年月日</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(12)), 2) & ">月日</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(12)), 3) & ">月-日</option>"
Response.Write " </select>"
Response.Write " </td>"
Response.Write " <td><input name='ShowHits' type='checkbox' id='ShowHits' " & RadioValue(PE_CLng(JsConfig(13)), 1) & ">点击次数</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><input name='ShowHotSign' type='checkbox' id='ShowHotSign' " & RadioValue(PE_CLng(JsConfig(14)), 1) & ">热门" & ChannelShortName & "标志</td>"
Response.Write " <td><input name='ShowNewSign' type='checkbox' id='ShowNewSign' " & RadioValue(PE_CLng(JsConfig(15)), 1) & ">最新" & ChannelShortName & "标志</td>"
Response.Write " <td><input name='ShowTips' type='checkbox' id='ShowTips' " & RadioValue(PE_CLng(JsConfig(16)), 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 " & OptionValue(PE_CLng(JsConfig(17)), 0) & ">在原窗口打开</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(17)), 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'>"
Response.Write " <select name='UrlType' id='OpenType'>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(18)), 0) & ">使用相对路径</option>"
Response.Write " <option " & OptionValue(PE_CLng(JsConfig(18)), 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='" & PE_CLng(JsConfig(22)) & "' 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='" & ZeroToEmpty(JsConfig(23)) & "' 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='" & ZeroToEmpty(JsConfig(24)) & "' 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='" & ZeroToEmpty(JsConfig(25)) & "' 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='ID' type='hidden' id='ID' value='" & ID & "'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='SaveModify'>"
Response.Write " <input name='Submit' type='submit' id='Submit' value='保存修改结果'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
rsJs.Close
Set rsJs = Nothing
End Sub
Sub AddPic()
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='ClassID'><option value='0'>所有栏目</option>" & GetClass_Option(0) & "</select>"
Response.Write " <input type='checkbox' name='IncludeChild' value='1' checked>包含子栏目 <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'><input name='PhotoNum' type='text' value='4' 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>" & ChannelShortName & "属性：</strong></td>"
Response.Write " <td height='25'>"
Response.Write " <input name='IsHot' type='checkbox' id='IsHot' value='1'> 热门" & ChannelShortName & " "
Response.Write " <input name='IsElite' type='checkbox' id='IsElite' value='1'> 推荐" & ChannelShortName & " "
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 & " <font color='#FF0000'> 如果为空或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 " <input name='ShowType' type='radio' value='1' checked> 图片+名称+内容简介：上下排列<br>"
Response.Write " <input name='ShowType' type='radio' value='2'> （图片+名称：上下排列）+内容简介：左右排列<br>"
Response.Write " <input name='ShowType' type='radio' value='3'> 图片+（名称+内容简介：上下排列）：左右排列"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right'><b>首页图片设置：</b></td>"
Response.Write " <td height='25'>"
Response.Write " 宽度： <input name='ImgWidth' type='text' id='ImgWidth' value='130' size='5' maxlength='3'> 像素 "
Response.Write " 高度： <input name='ImgHeight' type='text' id='ImgHeight' value='90' size='5' maxlength='3'> 像素"
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='20' size='5' maxlength='3'> <font color='#FF0000'>若为0，则不显示名称；若为-1，则显示完整名称。字母算一个字符，汉字算两个字符。</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'> <font color='#FF0000'>如果大于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'><input name='ShowTips' type='checkbox' id='ShowTips' value='1'> 显示作者、更新时间、点击数等提示信息</td>"
Response.Write " </tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -