📄 admin_mb_add.asp
字号:
HTML代码</font><br><br>
<font color="#666666">
$$通用页头$$ <br><br>
$$网站名$$ <br>
$$网站描述$$ <br>
$$关键字$$ <br>
$$版权信息$$ <br>
$$浮动导航$$ <br>
$$会员阅读$$ <br>
$$页标题$$ <br>
$$标题$$ <br>
$$副标题$$ <br>
$$时间$$ <br>
$$栏目名$$ <br>
$$内容$$ <br>
$$访问量$$ <br>
$$编辑$$ <br>
$$来源$$ <br>
$$图片来源$$ <br>
$$Digg$$ <br>
$$相关$$ <br>
$$上下条$$ <br>
$$工具栏$$ <br>
$$评论$$ <br>
$$路径$$ <br>
$$网站目录$$ <BR>
$$NEWSID$$ <BR><BR>
$$通用页尾$$ <br>
</font></td>
<td class="forumRowHighlight" width=78%> <textarea rows="32" name="mid" cols="98" <%if lx=2 then response.write "readonly"%>><%
if id<>"" then
response.write midd
else
%><table border="0" width="737" id="table1" cellspacing="0" cellpadding="5">
<tr><td>$$路径$$</td></tr>
<tr>
<td><center><font size=5><b>$$标题$$</b></font></center></td>
</tr>
<tr><td><hr><CENTER> $$栏目名$$ 加入时间：$$时间$$ 来源：$$来源$$ 访问量：$$访问量$$</CENTER></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>$$内容$$</td>
</tr>
</table><%end if%></textarea>
</td>
<td width="3%" class="forumRowHighlight"><a href="javascript:admin_Size(-5,'mid')"><img src="../images/admin/minus.gif" width="20" height="20" border='0' unselectable="on"></a> <a href="javascript:admin_Size(5,'mid')"><img src="../images/admin/plus.gif" width="20" height="20" border='0' unselectable="on"></a> </td>
</tr>
<tr>
<td width=19% class="forumRowHighlight" align="center">
<b>更多新闻列表</b><br>
(news_more.asp)<br>
<font color="#993300">可以使用<br>
HTML代码</font><br><br>
<font color="#666666">
$$通用页头$$ <br><BR>
$$网站名$$ <br>
$$网站描述$$ <br>
$$关键字$$ <br>
$$版权信息$$ <br>
$$浮动导航$$ <br>
$$网站目录$$ <BR>
$$路径$$ <br>
$$列表$$ <br>
$$栏目名$$ <br>
$$LMID$$ <BR><BR>
$$通用页尾$$ <br> </font>
</td>
<td class="forumRowHighlight" width=78%>
<textarea rows="18" name="list" cols="98"><%
if id<>"" then
response.write listmb
else%>$$列表$$<br><%=vbcrlf%>$$栏目名$$<br><%=vbcrlf%>$$LMID$$<%end if%></textarea>
</td>
<td width="3%" class="forumRowHighlight"><a href="javascript:admin_Size(-5,'list')"><img src="../images/admin/minus.gif" width="20" height="20" border='0' unselectable="on"></a> <a href="javascript:admin_Size(5,'list')"><img src="../images/admin/plus.gif" width="20" height="20" border='0' unselectable="on"></a> </td>
</tr>
<tr>
<td width=19% class="forumRowHighlight"align="center">
<b>图片模版</b><br>
(js-pic.asp)<br>
<br>
<font color="#993300">可以使用<br>
HTML代码</font><br><br>
<font color="#666666">
$$通用页头$$ <br><br>
$$网站名$$ <br>
$$网站描述$$ <br>
$$关键字$$ <br>
$$版权信息$$ <br>
$$浮动导航$$ <br>
$$网站目录$$ <BR>
$$图片列表$$ <br>
$$栏目名$$ <br>
$$LMID$$ <BR>
$$路径$$ <BR><BR>
$$通用页尾$$ <br></font></td>
<td class="forumRowHighlight" width=78%>
<textarea rows="18" name="listtumb" cols="98"><%
if id<>"" then
response.write listtumb
else
%>$$图片列表$$<br><%=vbcrlf%>$$栏目名$$<br><%=vbcrlf%>$$LMID$$<%end if%></textarea>
</td>
<td width="3%" class="forumRowHighlight"><a href="javascript:admin_Size(-5,'listtumb')"><img src="../images/admin/minus.gif" width="20" height="20" border='0' unselectable="on"></a> <a href="javascript:admin_Size(5,'listtumb')"><img src="../images/admin/plus.gif" width="20" height="20" border='0' unselectable="on"></a> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td width="100%" align="left" background="../images/bg1.gif" height="25" colspan="2">
<a name="newspicxg"></a><font color="#FFFFFF"><b>图片模版相关设置 </b>(仅对 js-pic.asp
文件有效)</font></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>图片宽度</u></b></td>
<td height="25" > <input type="text" value="<%=picw%>" name="picw" size="6" maxlength="3" > </td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>图片高度</u></b></td>
<td height="25" > <input type="text" value="<%=pich%>" name="pich" size="6" maxlength="3" ></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>x横排显示数</u></b></td>
<td height="25" > <input type="text" value='<%=picx%>' name="picx" size="6" maxlength="3" ></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>y竖排显示数</u></b></td>
<td height="25" > <input type="text" value='<%=picy%>' name="picy" size="6" maxlength="3" ></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>图片标题显示字数</u></b><br><font color="#FF0000">0 为不显示标题</font></td>
<td height="25" > <input type="text" value='<%=pictitle%>' name="pictitle" size="6" maxlength="3" > </td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>图片标题颜色</u></b><br>比如 <font color="#FF0000">黑色 000000 白色 ffffff</font></td>
<td height="25" > <input type="text" name="pictitlecolor" size="7" value="<%=pictitlecolor%>" maxlength="7"> <img border=0 src="../images/admin/rect.gif" align="absmiddle" style="cursor:pointer;background-Color:<%=pictitlecolor%>;" onClick="Getcolor(this,'Include/selectcolor.asp','pictitlecolor');" title="选取标题颜色!"></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>图片标题字号</u></b><br>比如<font color="#FF0000"> 9pt 10.5pt</font></td>
<td height="25" > <input type="text" value='<%=pictitlesize%>' name="pictitlesize" size="6" maxlength="5" > pt</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td align="left" background="../images/bg1.gif" height="25" colspan="2"><b><font color="#FFFFFF">新闻页面相关设置</font></b></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>显示上下条</u></b><br>在新闻内容中是否显示同栏目的上一条和下一条新闻。</td>
<td 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 bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>是否显示评论</u></b><br>新闻评论是否显示在新闻正文的下面</td>
<td height="25">
<select size="1" name="pl">
<option value="0" <% if pl=0 then Response.Write " selected "%>>不显示</option>
<option value="1" <% if pl=1 then Response.Write " selected "%>>显示</option>
</select></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>显示发表评论表单</u></b><br>是否在后面显示评论发表的表单</td>
<td height="25">
<select size="1" name="plfb">
<option value="1" <% if plfb=1 then Response.Write " selected "%>>显示</option>
<option value="0" <% if plfb=0 then Response.Write " selected "%>>不显示</option>
</select></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td align="left" background="../images/bg1.gif" height="25" colspan="2"><b><font color="#FFFFFF">新闻列表相关设置</font></b></td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表显示条数</u></b></td>
<td height="25">每一页显示：<input type="text" name="listshu" size="4" maxlength="3" value="<%=listshu%>">条新闻。</td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表标题字数</u></b><br>
<font color="green">一个汉字2个字符，一个英文数字1个字符</font></td>
<td height="25">列表中每一个标题显示<input type="text" name="tb" size="4" value="<%=tb%>" maxlength="2">个字
符。</td>
</tr>
<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表是否显示栏目名称</u></b><br>
在列表中标题前面<font color="#FF0000">显示栏目名称</font></td>
<td 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 bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表是否显示日期</u></b><br>
在新闻后面显示新闻的<font color="#FF0000">添加日期</font></td>
<td 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 bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表是否显示阅读数</u></b><br>
在新闻后面显示新闻的<font color="#FF0000">阅读数</font></td>
<td 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 bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表是否新开窗口</u></b><br>
在列表中查看新闻是否新开窗口</td>
<td 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 bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表行距</u></b><br>更多新闻列表行间距</td>
<td height="25"> <input type="text" value='<%=moreline%>' name="moreline" size="6" maxlength="3"> pt</td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td width=32% align=left><b><u>新闻列表标题图标</u></b><br>
<font color="#FF0000">支持HTML语句。</font>显示在更多新闻时的标题前面。</td>
<td 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(config("path")&"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='"&config("path")&"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%>-->
</td></tr>
<tr>
<td align="left" background="../images/bg1.gif" height="25" colspan="2"><b><font color="#FFFFFF">新闻列表复杂样式设置</font></b></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><b><u>新闻内容显示开关</u></b><br>
能同时显示标题和<span class="redtext">内容</span></td>
<td height="25"> <select size="1" name="copen">
<option value="0" <% if copen="0" then response.write " selected "%>>不显示</option>
<option value="1" <% if copen="1" then response.write " selected "%>>显示</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><p><b><u>标题字体</u></b><br>
直接输入例如：<span class="redtext">宋体，黑体，楷体,隶书</span>等</p> </td>
<td height="25"> <input type="text" name="tface" size="8" value="<%=tface%>" maxlength="8"></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><b><u>标题字尺寸</u></b><br>
这里可以设置标题字的大小，如:9pt</td>
<td height="25"> <input type="text" name="tsize" size="4" value="<%=tsize%>" maxlength="4">
pt</td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><b><u>标题颜色</u></b><br>
请输入16进制值如：FF0000（<span class="redtext">红色</span>），也可用:<span class="redtext">red</span>表示。</td>
<td height="25"> <input type="text" name="tcolor" size="7" value="<%=tcolor%>" maxlength="7"> <img border=0 src="../images/admin/rect.gif" align="absmiddle" style="cursor:pointer;background-Color:<%=tcolor%>;" onClick="Getcolor(this,'Include/selectcolor.asp','tcolor');" title="选取标题颜色!"></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><b><u>标题加粗</u></b><br>
对标题文字进行<span class="redtext">加粗处理</span></td>
<td height="25">
是：<input type="radio" name="tbold" value="bold" <% if tbold="bold" then response.write " checked "%>>
否：<input type="radio" name="tbold" value="normal" <% if tbold="normal" then response.write " checked "%>>
</td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><b><u>新闻内容字尺寸</u></b><br>
设置新闻内容字的大小，如:9pt</td>
<td height="25"> <input type="text" name="csize" size="4" value="<%=csize%>" maxlength="4">
pt</td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><b><u>新闻内容颜色</u></b></td>
<td height="25"> <input type="text" name="ccolor" size="7" value="<%=ccolor%>" maxlength="7"> <img border=0 src="../images/admin/rect.gif" align="absmiddle" style="cursor:pointer;background-Color:<%=ccolor%>;" onClick="Getcolor(this,'Include/selectcolor.asp','ccolor');" title="选取标题颜色!"></td>
</tr>
<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td align=left><b><u>新闻内容显示字数</u></b><br>
截取规定的新闻内容字数，显示在标题下面。</td>
<td height="25">限定显示<input type="text" name="ccount" size="8" value="<%=ccount%>" maxlength="8">
个字符(在新闻内容显示开关为打开状态下<span class="redtext">必须填写</span>此项)</td>
</tr>
<tr><td colspan="2"class="forumRow" align="center" height="30">
<input type="submit" value=" 保 存 " name="B1"> <input type="reset" value=" 重 置 " name="B2">
</td>
</tr></form>
</table>
<%
end sub
call CloseConn()
call AdminPageEnd()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -