📄 admin_code_ls.asp
字号:
<td width="245" height="23"><select size="1" name="t">
<option value="0" <%if request("t")=0 then response.write "selected"%>>t=0 不在标题后面显示时间</option>
<option value="1" <%if request("t")=1 then response.write "selected"%>>t=1 样式1：<%=formatdatetime(now(),1)%>
</option>
<option value="2" <%if request("t")=2 then response.write "selected"%>>t=2 样式2：<%=formatdatetime(now(),2)%>
</option>
<option value="3" <%if request("t")=3 then response.write "selected"%>>t=3 样式3：(<%=month(now())%>月<%=day(now())%>日)
</option>
<option value="4" <%if request("t")=4 then response.write "selected"%>>t=4 样式4：(<%=month(now())%>-<%=day(now())%>)
</option>
<option value="5" <%if request("t")=5 then response.write "selected"%>>t=5 样式5：(<%=day(now())%>日)
</option>
</select></td>
<td width="80" height="23" align="center" class="butext">标题字号</td>
<td width="322" height="23">
<input type="text" name="font" size="4" value="<%=font%>">pt<span class="redtext">(默认font=9)</span></td>
</tr>
<!-- 显示星期 -->
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">显示星期</td>
<td width="245" height="23"><select size="1" name="week">
<option value="0" <%if request("week")=0 or request("week")="" then response.write "selected"%>>week=0-不在标题后面显示星期</option>
<option value="1" <%if request("week")=1 then response.write "selected"%>>week=1-在标题后面显示星期</option>
</select></td>
<td width="80" height="23" align="center" class="butext">背景颜色</td>
<td width="322" height="23">
<!-- 背景色 -->
<select size="1" name="bg" onChange="show_bgcolor()">
<option value="FFFFFF">请选择颜色</option>
<OPTION <%if request("bg")="000000" then response.write "selected"%> value="000000" style="background-color:#000000">bg=000000</OPTION>
<OPTION <%if request("bg")="FFFFFF" then response.write "selected"%> value="FFFFFF" style="background-color:#FFFFFF">bg=FFFFFF</OPTION>
<OPTION <%if request("bg")="008000" then response.write "selected"%> value="008000" style="background-color:#008000">bg=008000</OPTION>
<OPTION <%if request("bg")="800000" then response.write "selected"%> value="800000" style="background-color:#800000">bg=800000</OPTION>
<OPTION <%if request("bg")="808000" then response.write "selected"%> value="808000" style="background-color:#808000">bg=808000</OPTION>
<OPTION <%if request("bg")="000080" then response.write "selected"%> value="000080" style="background-color:#000080">bg=000080</OPTION>
<OPTION <%if request("bg")="800080" then response.write "selected"%> value="800080" style="background-color:#800080">bg=800080</OPTION>
<OPTION <%if request("bg")="808080" then response.write "selected"%> value="808080" style="background-color:#808080">bg=808080</OPTION>
<OPTION <%if request("bg")="FFFF00" then response.write "selected"%> value="FFFF00" style="background-color:#FFFF00">bg=FFFF00</OPTION>
<OPTION <%if request("bg")="00FF00" then response.write "selected"%> value="00FF00" style="background-color:#00FF00">bg=00FF00</OPTION>
<OPTION <%if request("bg")="00FFFF" then response.write "selected"%> value="00FFFF" style="background-color:#00FFFF">bg=00FFFF</OPTION>
<OPTION <%if request("bg")="FF00FF" then response.write "selected"%> value="FF00FF" style="background-color:#FF00FF">bg=FF00FF</OPTION>
<OPTION <%if request("bg")="FF0000" then response.write "selected"%> value="FF0000" style="background-color:#FF0000">bg=FF0000</OPTION>
<OPTION <%if request("bg")="0000FF" then response.write "selected"%> value="0000FF" style="background-color:#0000FF">bg=0000FF</OPTION>
<OPTION <%if request("bg")="008080" then response.write "selected"%> value="008080" style="background-color:#008080">bg=008080</OPTION>
</select>
</td>
</tr>
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">栏目名称</td>
<td width="245" height="23"><select size="1" name="lmname">
<option value="0" <%if request("lmname")=0 then response.write "selected"%>>lmname=0-不显示栏目名称</option>
<option value="1" <%if request("lmname")=1 then response.write "selected"%>>lmname=1-显示在每个标题的前面</option>
</select></td>
<td width="80" height="23" align="center" class="butext">行间距</td>
<td width="322" height="23">
<input type="text" name="line" size="4" value="<%=line%>">默12<span class="redtext">(line=12)</span></td>
</tr>
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">标题字数</td>
<td width="245" height="23">
<input type="text" name="n" size="4" value="<%=n%>">个字符<span class="redtext">(n=40)</span></td>
<td width="80" height="23" align="center" class="butext">调用条数</td>
<td width="322" height="23">
<input type="text" name="list" size="4" value="<%=list%>">
条<span class="redtext">(默认list=5条)</span></td>
</tr>
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">显示更多内容</td>
<td width="245" height="23"><select size="1" name="more">
<option value="0" <%if request("more")=0 then response.write "selected"%> >more=0-不显示更多内容</option>
<option value="1" <%if request("more")=1 then response.write "selected"%>>more=1-显示更多内容的链接</option>
<option value="2" <%if request("more")=2 then response.write "selected"%>>more=2-在框内显示分页</option>
</select></td>
<td width="80" height="23" align="center" class="butext">阅读数</td>
<td width="322" height="23"><select size="1" name="hit">
<option value="0" <%if request("hit")=0 then response.write "selected"%>>hit=0-不在标题后面显示阅读数</option>
<option value="1" <%if request("hit")=1 then response.write "selected"%>>hit=1-在标题后面显示阅读数</option>
</select></td>
</tr>
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">新闻阅读窗口</td>
<td width="245" height="23"><select size="1" name="open">
<option value="0" <%if request("open")=0 then response.write "selected"%>>open=0-在本窗口打开</option>
<option value="1" <%if (request("open")=1 or request("open")="") then response.write "selected"%> >open=1-新建窗口打开</option>
</select></td>
<td width="80" height="23" align="center" class="butext">新闻前图标</td>
<td width="322" height="23">
<!-- 小图标 -->
<select size="1" name="icon" id="icon" onChange="show_pic_cho(pic_div)">
<option value="1" <%if request("icon")=1 then response.write "selected"%>>· icon=1 </option>
<option value="2" <%if request("icon")=2 then response.write "selected"%>>★ icon=2</option>
<option value="3" <%if request("icon")=3 then response.write "selected"%>>☆ icon=3</option>
<option value="4" <%if request("icon")=4 then response.write "selected"%>>○ icon=4</option>
<option value="5" <%if request("icon")=5 then response.write "selected"%>>● icon=5</option>
<option value="6" <%if request("icon")=6 then response.write "selected"%>>◎ icon=6</option>
<option value="7" <%if request("icon")=7 then response.write "selected"%>>◇ icon=7</option>
<option value="8" <%if request("icon")=8 then response.write "selected"%>>◆ icon=8</option>
<option value="9" <%if request("icon")=9 then response.write "selected"%>>□ icon=9</option>
<option value="10" <%if request("icon")=10 then response.write "selected"%>>■ icon=10</option>
<option value="11" <%if request("icon")=11 then response.write "selected"%>>△ icon=11</option>
<option value="12" <%if request("icon")=12 then response.write "selected"%>>▲ icon=12</option>
<option value="0" <%if request("icon")=0 or request("icon")="" then response.write "selected"%>>自定义 icon=0</option>
</select>
<!-- 图形图标 -->
<DIV id="pic_div" style="DISPLAY:" >
请选自定义的图标：
<select size="1" name="picicon" onChange="out_to_picurl()">
<%
'取出目录中的图标
icon_path=Server.MapPath("../images/icon")
on error resume next
set fso=server.CreateObject("scripting.filesystemobject")
set objFolder=fso.GetFolder(icon_path)
set objFiles=objFolder.Files
for each objFile in objFiles
if right(objFile.name,3)="gif" or right(objFile.name,3)="jpg" then
response.write "<option value='images/icon/"&objFile.name
if picurl="images/icon/"&objFile.name then response.write "' selected "
response.write " '>images/icon/"&objFile.name&"</option>"
end if
next
set objFolder=nothing
set fso=nothing
'结束取出目录中的图标
%>
<option value="images/art.gif" <%if picurl="../images/art.gif" then response.write "selected"%>>images/art.gif</option>
</select>
</div>
</td>
</tr>
<!-- -->
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">当天新闻</td>
<td width="245" height="23"><select size="1" name="new">
<option value="1" <%if request("new")=1 then response.write "selected"%>>new=1-在后面显示最新新闻的图标</option>
<option value="0" <%if request("new")=0 then response.write "selected"%>>new=0-不显示任何图标</option>
</select>
<img border="0" src="../images/new.gif" width="28" height="11"></td>
<td width="80" height="23" align="center" class="butext">小图标地址</td>
<td width="322" height="23">
<input type="text" id="picurl" name="picurl" size="20" value="<%=picurl%>">
<img border="0" src="<%="../"&picurl%>" width="12" height="11" id="ico_img">
<span class="greentext">新闻前图标选择自定义才生效</span></td>
</tr>
<!-- 框架的边界尺寸 -->
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">框架边界宽度</td>
<td width="245" height="23">
<input type="text" name="frm_M_width" size="4" value="<%=frm_M_width%>">像素<span class="redtext">(默认=1)</span></td>
<td width="80" height="23" align="center" class="butext">框架边界高度</td>
<td width="322" height="23">
<input type="text" name="frm_M_height" size="4" value="<%=frm_M_height%>">像素<span class="redtext">(默认=1)</span></td>
</tr>
<!-- 框架大小 -->
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">框架的宽度</td>
<td width="245" height="23">
<input type="text" name="frm_width" size="4" value="<%=frm_width%>">像素<span class="redtext">(默认=270)</span></td>
<td width="80" height="23" align="center" class="butext">框架的高度</td>
<td width="322" height="23">
<input type="text" name="frm_height" size="4" value="<%=frm_height%>">像素<span class="redtext">(默认=184)</span></td>
</tr>
<!-- 按纽 -->
<tr class="tdbg">
<td width="100%" align="center" colspan="4" height="48">
<input type="hidden" value="yes" name="get_code">
<input type="submit" value="确定，立即生成代码" name="B1">
<input type="reset" value="重置" name="B2"></td>
</tr>
</table>
</td>
</tr></form>
</table>
</td>
</tr>
</table>
<!-- 豪--新增的。 -->
<%
D1=trim(request("D1"))
if D1="0" then
lm="0"
lm2="0"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -