各板块设置不同关键字，增强收录（带后台管理）
作者:cmscn 日期:2007-01-28
演示可看本站网页源代码http://www.cherison.com.cn
原帖：http://www.cherison.com.cn/forum/view.asp?forum_id=8&view_id=22
1.修改admin_config_edit.asp
找到
Code:
<tr><td colspan=3 class=td> 网站安全过滤设置</td></tr>
<tr>
<td>用户名禁用：</td>
<td><input type=text name=web_dim_15 value='<%response.write web_dim(15)%>' size=40 maxlength=200></td>
<td class=gray><%call admin_read("","用户名禁用","网站注册用户名过滤字符，系统将默认禁用以下字符：<br>空格、|、:、'、
"、TABLE符、回车符、换行符等")%></td>
</tr>
<tr>
在前面加上
Code:
<tr><td colspan=3 class=td> 网站板块关键字设置</td></tr>
<tr>
<td>整站通用：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_all value='<%response.write web_all%>' size=62 maxlength=200> </td>
<td><%call admin_read("","板块关键字设置","当未对各板块设置关键字时，即显示此关键字，各关键字之间用“,”分开")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>新闻板块：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_news value='<%response.write web_news%>' size=62 maxlength=200> </td>
<td><%call admin_read("","板块关键字设置","各板块设置不同关键字，增强收录，各关键字之间用“,”分开")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>文章板块：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_art value='<%response.write web_art%>' size=62 maxlength=200> </td>
<td><%call admin_read("","板块关键字设置","各板块设置不同关键字，增强收录，各关键字之间用“,”分开")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>下载板块：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
&am...
原帖：http://www.cherison.com.cn/forum/view.asp?forum_id=8&view_id=22
1.修改admin_config_edit.asp
找到
Code:
<tr><td colspan=3 class=td> 网站安全过滤设置</td></tr>
<tr>
<td>用户名禁用：</td>
<td><input type=text name=web_dim_15 value='<%response.write web_dim(15)%>' size=40 maxlength=200></td>
<td class=gray><%call admin_read("","用户名禁用","网站注册用户名过滤字符，系统将默认禁用以下字符：<br>空格、|、:、'、
"、TABLE符、回车符、换行符等")%></td>
</tr>
<tr>
在前面加上
Code:
<tr><td colspan=3 class=td> 网站板块关键字设置</td></tr>
<tr>
<td>整站通用：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_all value='<%response.write web_all%>' size=62 maxlength=200> </td>
<td><%call admin_read("","板块关键字设置","当未对各板块设置关键字时，即显示此关键字，各关键字之间用“,”分开")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>新闻板块：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_news value='<%response.write web_news%>' size=62 maxlength=200> </td>
<td><%call admin_read("","板块关键字设置","各板块设置不同关键字，增强收录，各关键字之间用“,”分开")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>文章板块：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td><input type=text name=web_art value='<%response.write web_art%>' size=62 maxlength=200> </td>
<td><%call admin_read("","板块关键字设置","各板块设置不同关键字，增强收录，各关键字之间用“,”分开")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>下载板块：</td>
<td colspan=2>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
&am...
1.2中3.0头部及底部模仿的修改
作者:cmscn 日期:2007-01-28
修改include/skin.asp
头部修改
Code:
response.write vbcrlf&"<body topmargin=0 leftmargin=0><a name='top'></a><center>"
if var3=4 then exit sub
response.write vbcrlf&lefter& _
vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
vbcrlf&"<tr><td colspan=3 align=center height=26>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
vbcrlf&" <tr>" & _
vbcrlf&" <td width=2><img src='"&joekoe_cms.web_dir_skin&"web/top_02.gif' border=0></td>" & _
vbcrlf&" <td width=168 background='"&joekoe_cms.web_dir_skin&"web/top_03.gif'><img src='"&joekoe_cms.web_dir_skin&"web/top_03.gif' border=0></td>" & _
vbcrlf&" <td width=31><img src='"&joekoe_cms.web_dir_skin&"web/top_04.gif' border=0></td>" & _
vbcrlf&" <td width='*' align=right background='"&joekoe_cms.web_dir_skin&"web/top_05.gif'>" & _
vbcrlf&" ...
头部修改
Code:
response.write vbcrlf&"<body topmargin=0 leftmargin=0><a name='top'></a><center>"
if var3=4 then exit sub
response.write vbcrlf&lefter& _
vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
vbcrlf&"<tr><td colspan=3 align=center height=26>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
vbcrlf&" <tr>" & _
vbcrlf&" <td width=2><img src='"&joekoe_cms.web_dir_skin&"web/top_02.gif' border=0></td>" & _
vbcrlf&" <td width=168 background='"&joekoe_cms.web_dir_skin&"web/top_03.gif'><img src='"&joekoe_cms.web_dir_skin&"web/top_03.gif' border=0></td>" & _
vbcrlf&" <td width=31><img src='"&joekoe_cms.web_dir_skin&"web/top_04.gif' border=0></td>" & _
vbcrlf&" <td width='*' align=right background='"&joekoe_cms.web_dir_skin&"web/top_05.gif'>" & _
vbcrlf&" ...
树形论坛for CMS 1.2
作者:cmscn 日期:2007-01-27
美术列表
作者:cmscn 日期:2007-01-25
<ul>
<li class="c_style">A</li>
<li><A href="shufa.asp?cataid=A000400010003">安正中</A></li>
<li><A href="shufa.asp?cataid=A000400010004">艾红旭</A> </li>
</ul>
<ul>
<li class="c_style">C</li>
<li><A href="shufa.asp?cataid=A000400030001">崔振宽</A></li>
<li><A href="shufa.asp?cataid=A000400030002">陈大章</A></li>
<li><A href="shufa.asp?cataid=A000400030003">王玉良</A></li>
<li><A href="shufa.asp?cataid=A000400030005">陈光健</A> </li>
<li><A href="shufa.asp?cataid=A000400030006">曹伯庸</A> </li>
<li><A href="shufa.asp?cataid=A000400030010">陈玄</A> </li>
<li><A href="shufa.asp?cataid=A000400030013">陈国勇</A></li>
<li><A href="shufa.asp?cataid=A000400030014">崔子范</A> </li>
<li><A href="shufa.asp?cataid=A000400030015">陈忠志</A> </li>
</ul>
<ul>
<li class="c_style"><a href='/news/class/c9.shtml'>D</a></li>
<li><A href="shufa.asp?cataid=A000400040001">戴希斌</A></li>
</ul>
<ul>
<li class="c_style"><a href='/news/class/c10.shtml'>F</a></li>
<li><A href="shufa.asp?cataid=A000400060002">范长安</A> </li>
<li><A href="shufa.asp?cataid=A000400060003">范华</A></li>
<li><A href="shufa.asp?cataid=A000400070001">关山月</A></li>
<li><A href="shufa.asp?cataid=A000400070002">郭全忠</A> </li>
<li><A href="shufa.asp?cataid=A000400070003">郭北平</A></li>
<li><A href="shufa.asp?cataid=A000400070004">高民生</A></li>
<li><A href="shufa.asp?cataid=A000400070005">谷宝玉</A> </li>
<li><A href="shufa.asp?cataid=A000400070007">高庆衍</A></li>
<...
后台贴图商城列表增加预览
作者:cmscn 日期:2007-01-25
引用内容 <td><a href='<%response.write pageurl2%>action=edit&id=<%response.write id%>' title='<img src=../upload/<%response.write spic%> border=0 height=120>' ><%response.write joekoe_cms.code_html(topic,1,(18+tnum))%></a></td>
商城
引用内容 <td><a href='?jk_mod=<%response.write jk_mod%>&action=edit&id=<%response.write id%>' title='<img src=../upload/<%response.write smallimg%> border=0 height=120>'><%response.write joekoe_cms.code_html(name,1,(18+tnum))%></a></td>
自助友情链接
作者:cmscn 日期:2007-01-23
<!-- #include file="inc/con_help.asp" -->
<!-- #include file="../include/jk_val_code.asp" -->
<%
index_url="links"
select case action
case "add"
tit_fir="友情链接"
tit="自助交换链接"
case else
tit="友情链接"
end select
if action="add" then
call web_head(0,0,0,0,0)
else
call web_head(0,0,0,0,0)
end if
'----------------------------左边 开始----------------------------
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write tit%></td></tr>
<tr class=bg_td><td align=center height=50><a href='<%response.write joekoe_cms.web_url%>' target=_blank><img border=0 src='<%=web_dim(6)%>images/logo.gif' width=88 heigh=31 alt='<%response.write joekoe_cms.web_name%>'></a></td></tr>
<tr class=bg_td><td align=center height=100><textarea name=flink_main rows=5 cols=21 onfocus=this.select() onmouseover=this.focus()><a href='<%response.write joekoe_cms.web_url%>' target=_blank><img border=0 src='<%response.write joekoe_cms.web_url%>images/logo.gif' width=88 heigh=31 alt='<%response.write joekoe_cms.web_name%>'></a></textarea></td></tr>
<tr class=bg_td><td align=center height=20><a href='?action=add'><b><font class=blue>自助添加友情链接</font></b></a></td></tr>
</table>
<%
call left_help()
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>"
select case action
case "add"
call links_add()
case else
call links_view()
end select
response.write vbcrlf&"</table>"
'----------------------------中间 结束----------------------------
call web_end(0,0)
sub links_add()
dim nname,nurl,npic,orders,nsort,hidden,valcode,found_err,sort
if joekoe_cms.chk() then
nname=trim(request.form("nname"))
nname=joekoe_cms.code_form(nname)
nurl=trim(request.form(&...
<!-- #include file="../include/jk_val_code.asp" -->
<%
index_url="links"
select case action
case "add"
tit_fir="友情链接"
tit="自助交换链接"
case else
tit="友情链接"
end select
if action="add" then
call web_head(0,0,0,0,0)
else
call web_head(0,0,0,0,0)
end if
'----------------------------左边 开始----------------------------
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write tit%></td></tr>
<tr class=bg_td><td align=center height=50><a href='<%response.write joekoe_cms.web_url%>' target=_blank><img border=0 src='<%=web_dim(6)%>images/logo.gif' width=88 heigh=31 alt='<%response.write joekoe_cms.web_name%>'></a></td></tr>
<tr class=bg_td><td align=center height=100><textarea name=flink_main rows=5 cols=21 onfocus=this.select() onmouseover=this.focus()><a href='<%response.write joekoe_cms.web_url%>' target=_blank><img border=0 src='<%response.write joekoe_cms.web_url%>images/logo.gif' width=88 heigh=31 alt='<%response.write joekoe_cms.web_name%>'></a></textarea></td></tr>
<tr class=bg_td><td align=center height=20><a href='?action=add'><b><font class=blue>自助添加友情链接</font></b></a></td></tr>
</table>
<%
call left_help()
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>"
select case action
case "add"
call links_add()
case else
call links_view()
end select
response.write vbcrlf&"</table>"
'----------------------------中间 结束----------------------------
call web_end(0,0)
sub links_add()
dim nname,nurl,npic,orders,nsort,hidden,valcode,found_err,sort
if joekoe_cms.chk() then
nname=trim(request.form("nname"))
nname=joekoe_cms.code_form(nname)
nurl=trim(request.form(&...
