📄 admin_mb_add.asp
字号:
</font></td>
<td bgcolor="#F5F5F5">
<!--webbot bot="Validation" s-display-name="列表代码" b-value-required="TRUE" i-minimum-length="1" --><textarea rows="18" name="list" cols="98"><%if id<>"" then
response.write listmb
else%>$$列表$$<br><%=vbcrlf%>$$栏目名$$<br><%=vbcrlf%>$$LMID$$<%end if%></textarea></td>
</tr>
<tr>
<td width="94" align="center">
图片模版<br>
(js-pic.asp)<br>
<br>
<font color="#999999">可以使用<br>
HTML代码<br>
<br>
$$图片列表$$<br>
$$栏目名$$<br>
$$LMID$$<br>
$$路径$$</font></td>
<td>
<textarea rows="18" name="listtumb" cols="98"><%
if id<>"" then
response.write listtumb
else
%>$$图片列表$$<br><%=vbcrlf%>$$栏目名$$<br><%=vbcrlf%>$$LMID$$<%end if%>
</textarea> </td>
</tr>
</table>
<table align=center border="1" cellpadding="3" width="800" id="table2" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
<p align="left"><a name="newspicxg"></a><font color="#FFFFFF"><b>图片相关设置 </b>(仅对 js-pic.asp
文件有效)</font></td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="117" align="center" background="../images/bj3.jpg" height="25" >
图片宽度</td>
<td bgcolor="#F8F8F8" width="406" background="../images/bj3.jpg" height="25" >
<input type="text" value="<%=picw%>" name="picw" size="6" maxlength="3" > </td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25" > </td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="117" align="center" background="../images/bj3.jpg" height="25" >
图片高度</td>
<td bgcolor="#F8F8F8" width="406" background="../images/bj3.jpg" height="25" >
<input type="text" value="<%=pich%>" name="pich" size="6" maxlength="3" ></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25" > </td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="117" align="center" background="../images/bj3.jpg" height="25" >
x横排显示数</td>
<td bgcolor="#F8F8F8" width="406" background="../images/bj3.jpg" height="25" >
<input type="text" value='<%=picx%>' name="picx" size="6" maxlength="3" ></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25" > </td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="117" align="center" background="../images/bj3.jpg" height="25" >
y竖排显示数</td>
<td bgcolor="#F8F8F8" width="406" background="../images/bj3.jpg" height="25" >
<input type="text" value='<%=picy%>' name="picy" size="6" maxlength="3" ></td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25" > </td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="117" align="center" background="../images/bj3.jpg" height="25" >
图片标题显示字数</td>
<td bgcolor="#F8F8F8" width="406" background="../images/bj3.jpg" height="25" >
<input type="text" value='<%=pictitle%>' name="pictitle" size="6" maxlength="3" > </td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25" >
0 为不显示标题</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="117" align="center" background="../images/bj3.jpg" height="25">
图片标题颜色</td>
<td bgcolor="#F8F8F8" width="406" background="../images/bj3.jpg" height="25" >
<!-- 选择式颜色 -->
<select size="1" name="pictitlecolor" >
<option value="FFFFFF">请选择颜色</option>
<%
'自选一些是经典教程中的配色方案:
dim color_string,array_bg_color
color_string="000000、4C4C4C、BEC0C2、CECECE、D4D4D4、E6E8EB、F0F0F0、FFFFFF、E7F2FD、CBF3FB、8EC2F5、049FF1、4499EE、065FB9、04477C、70E1FF、BCF9FE、E1FFFF、F5FFF7、BD7803、EF9D01、FFBB1C、EED205、FF8C05、FDD283、FCFCBA、43A102、A2B700、C5DA01、036803、3F813F、55A255、74A474、712704、DA891E、F6BF1C、FFF3DD、FFF1D1、CC3300、FF9000、F1AEA8、DB3091、FFE4FF"
'配色方案一，每种颜色后面要加顿号，然后用数组把它们读成数组。
'最后一个不要加顿号，否则会多一个空字符串。
'读成数组
array_bg_color=split(replace(color_string," ",""),"、")
for bg_n=0 to ubound(array_bg_color)
bg_color=array_bg_color(bg_n)
%>
<OPTION <%if pictitlecolor=bg_color then response.write "selected"%> value="<%=bg_color%>" style="background-color:#<%=bg_color%>">bg=<%=bg_color%></OPTION>
<%
next
%>
</select>
</td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25" >
比如 黑色 000000 白色 ffffff</td>
</tr>
<tr>
<td bgcolor="#F8F8F8" width="117" align="center" background="../images/bj3.jpg" height="25" >
图片标题字号</td>
<td bgcolor="#F8F8F8" width="406" background="../images/bj3.jpg" height="25" >
<input type="text" value='<%=pictitlesize%>' name="pictitlesize" size="6" maxlength="5" >
pt</td>
<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25" >
比如 9pt 10.5pt</td>
</tr>
</table>
<table border="1" width="800" id="table1" cellspacing="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td background="../images/bj5.jpg" height="25" colspan="2">
<b><font color="#FFFFFF">新闻相关设置</font></b></td>
</tr>
<tr>
<td width="118" background="../images/bj3.jpg" height="25">
<p align="center">更多新闻显示条数</td>
<td background="../images/bj3.jpg" height="25">
每一页显示：<input type="text" name="listshu" size="4" maxlength="3" value="<%=listshu%>">条新闻。</td>
</tr>
<tr>
<td width="118" bgcolor="#F5F5F5" background="../images/bj3.jpg" height="25">
<p align="center">标题字数</td>
<td bgcolor="#F5F5F5" background="../images/bj3.jpg" height="25">
列表中每一个标题显示<input type="text" name="tb" size="4" value="<%=tb%>" maxlength="2">个字
符。(一个汉字2个字符，一个英文数字1个字符)</td>
</tr>
<tr>
<td width="118" background="../images/bj3.jpg" height="25">
<p align="center">栏目名称</td>
<td background="../images/bj3.jpg" height="25">
<select size="1" name="lmname">
<option value="0" <% if lmname="0" then response.write " selected "%>>不显示</option>
<option value="1" <% if lmname="1" then response.write " selected "%>>显示</option>
</select> 在列表中标题前面显示栏目名称</td>
</tr>
<tr>
<td width="118" bgcolor="#F5F5F5" background="../images/bj3.jpg" height="25">
<p align="center">新闻日期</td>
<td bgcolor="#F5F5F5" background="../images/bj3.jpg" height="25">
<select size="1" name="newstime">
<option value="0" <% if newstime="0" then response.write " selected "%>>不显示</option>
<option value="1" <% if newstime="1" then response.write " selected "%>>显示</option>
</select> 在新闻后面显示新闻的添加日期</td>
</tr>
<tr>
<td width="118" background="../images/bj3.jpg" height="25">
<p align="center">阅读数</td>
<td background="../images/bj3.jpg" height="25">
<select size="1" name="newshit">
<option value="0" <% if newshit="0" then response.write " selected "%>>不显示</option>
<option value="1" <% if newshit="1" then response.write " selected "%>>显示</option>
</select> 在新闻后面显示新闻的阅读数</td>
</tr>
<tr>
<td width="118" bgcolor="#F5F5F5" background="../images/bj3.jpg" height="25">
<p align="center">新开窗口</td>
<td bgcolor="#F5F5F5" background="../images/bj3.jpg" height="25">
<select size="1" name="open">
<option value="1" <% if open="1" then response.write " selected "%>>新开窗口</option>
<option value="0" <% if open="0" then response.write " selected "%>>本地窗口</option>
</select> 在列表中查看新闻是否新开窗口</td>
</tr>
<tr>
<td width="118" background="../images/bj3.jpg" height="25">
<p align="center">显示上下条</td>
<td background="../images/bj3.jpg" height="25">
<select size="1" name="updown">
<option value="0" <% if updown="0" then response.write " selected "%>>不显示</option>
<option value="1" <% if updown="1" then response.write " selected "%>>显示</option>
</select> 在新闻内容中是否显示同栏目的上一条和下一条新闻。</td>
</tr>
<tr>
<td width="118" bgcolor="#F5F5F5" background="../images/bj6.jpg" height="25">
<p align="center">标题图标</td>
<td bgcolor="#F5F5F5" background="../images/bj6.jpg" height="25">
<!-- 小图标 -->
<select size="1" name="select_icon" id="select_icon" onchange="show_icon_cho(pic_div)">
<option value="" <%if icon="" then response.write "selected"%>> (无图标)</option>
<option value="·" <%if icon="·" then response.write "selected"%>>· </option>
<option value="★" <%if icon="★" then response.write "selected"%>> ★</option>
<option value="☆" <%if icon="☆" then response.write "selected"%>>☆</option>
<option value="○" <%if icon="○" then response.write "selected"%>>○</option>
<option value="●" <%if icon="●" then response.write "selected"%>>●</option>
<option value="◎" <%if icon="◎" then response.write "selected"%>>◎</option>
<option value="◇" <%if icon="◇" then response.write "selected"%>>◇</option>
<option value="◆" <%if icon="◆" then response.write "selected"%>>◆</option>
<option value="□" <%if icon="□" then response.write "selected"%>>□</option>
<option value="■" <%if icon="■" then response.write "selected"%>>■</option>
<option value="△" <%if icon="△" then response.write "selected"%>>△</option>
<option value="▲" <%if icon="▲" then response.write "selected"%>>▲</option>
<%
'取出目录中的图标
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" or right(objFile.name,3)="bmp" then
response.write "<option value='../images/icon/"&trim(objFile.name)&"' "
'if icon="<img src=""../images/icon/"&trim(objFile.name)&""" border=""0"">" then response.write " selected "
response.write ">"&trim(objFile.name)&"</option>"&vbcrlf
end if
next
set objFolder=nothing
set fso=nothing
'结束取出目录中的图标
%>
</select><span id="pic_div" style="DISPLAY:none">
<img name="show_icon" src="" border="0">
(小图标存放在目录：../images/icon/)</span><br>
<!-- 图形图标 -->
<input type="text" name="icon" size="40" value="<%=Server.HtmLEncode(icon)%>"> 原图标：<%=icon%>
支持HTML语句。显示在更多新闻时的标题前面。
</td>
</tr>
</table>
<p><input type="submit" value=" 保 存 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p>
</form>
</div>
<BR><BR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -