针对交互式网站自定义关键五花八门这一发表意见，可通过本修改，在后台定义关键字，用户发表信息只能选择预的关键字。本站已修改，可查看效果。
1、修改admin_config_edit.asp文件
sub joekoe_chk_common()
  if chk() then
    for i=1 to 22
      web_dim(i)=code_config(request.form("web_dim_"&i),0)
    next
    web_dim(0)=code_num(request.form("web_dim_0"),1)
在下面添加：
web_dim(52)=code_config(request.form("web_dim_52"),1)
  web_dim(53)=code_config(request.form("web_dim_53"),1)
注意  52、53不能重复，下面同样。
查找：
</table>
</td><td class=gray>安全的发布信息时间，选择表示开放</td>
</tr>
在下面添加：
<tr><td colspan=3 class=td> 关键词设定</td></tr>
<tr class=tr1>
<td>新闻关键词：</td>
<td><input type=text name=web_dim_52 value='<%response.write web_dim(52)%>' size=40 maxlength=120></td>
<td class=gray>多个关键词，请用“:”分隔</td>!</td>
</tr>
<tr class=tr1>
<td>文摘关键词：</td>
<td><input type=text name=web_dim_53 value='<%response.write web_dim(53)%>' size=40 maxlength=120></td>
<td class=gray>多个关键词，请用“:”分隔</td>!</td>
2、修改common.asp文件
定义：dim web_dim(53)，要求其中的53与你设定的最大数字一致。
在最后的%>符号前添加：
web_dim(52)=""
web_dim(53)=""
3、修改user_put.asp文件(sub put_news()和sub put_art()
定义DIM，在此行最后添加,dim_tmp
继续往下查找：
<tr class=bg_td>
<td><%response.write tit_fir%>关键字：</td>
<td><%call frm_keyes("")%></td>
</tr>
用下面的代码替换：
<tr class=bg_td>
<td><%response.write tit_fir%>关键字：</td>
<td><select name=keyes><%
  dim_tmp=split(web_dim(52),":")
  for i=0 to ubound(dim_tmp)
    response.write vbcrlf&"<option value='"&dim_tmp(i)&"'>"&dim_tmp(i)&"</option>"
  next
%></select>  <font class=red>请正确选择关键词。</font></td>
</tr>
<tr class=bg_td>
<td>自定义关键字：</td>
<td><%call frm_keyes("")%></td>
</tr>
4、文章发布的修改同上一样
5、后台添加、编辑修改可参照上述方法修改。
6、参照上面的修改方法可将其修改成为专题新闻、专题文章，调用参照相关链接修改。

只有回复本贴的用户才可浏览本贴的主要内容。

德阳的东西不会差的

你怎么知道

kankan

看看不就知道了

看看是什么东东

帮顶一下~