各板块设置不同关键字，增强收录（带后台管理）

演示可看本站网页源代码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>
  <td><input type=text name=web_soft value='<%response.write web_soft%>' 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_shop value='<%response.write web_shop%>' 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_flea value='<%response.write web_flea%>' 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_job value='<%response.write web_iob%>' size=62 maxlength=200> </td>
  <td><%call admin_read("","板块关键字设置","各板块设置不同关键字，增强收录，各关键字之间用“,”分开")%></td>
  </tr>
  </table>
</td>
</tr>


注：具体可根据自己实际情况添加

往上查找

Code:

    call joekoe_template_common()
    call joekoe_template_common_other()
    call joekoe_template_js_config()
    call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
    exit sub
  end if
  call form_first()



在前面加上


Code:

    web_all=code_config(request.form("web_all"),0)
    web_news=code_config(request.form("web_news"),0)
    web_art=code_config(request.form("web_art"),0)
    web_soft=code_config(request.form("web_soft"),0)
    web_shop=code_config(request.form("web_shop"),0)
    web_flea=code_config(request.form("web_flea"),0)
    web_job=code_config(request.form("web_job"),0)



2.修改jk_template.asp
在sub joekoe_template_common_other()中
加上红色部分web_down,web_stamp,web_user_grade,web_forum_power_type,web_forum_type,web_nologin,web_nopost,web_copyright,web_frm_word,web_n_boy,web_n_girl,web_all,web_news,web_art,web_soft,web_shop,web_flea,web_job
继续往下找到

Code:

vbcrlf&"%"&">"
  call create_file(file_name,file_trim_vbcrlf(temp1))
end sub


在前面加上


Code:

vbcrlf&"web_all="""&web_all&"""" & _
vbcrlf&"web_news="""&web_news&"""" & _
vbcrlf&"web_art="""&web_art&"""" & _
vbcrlf&"web_soft="""&web_soft&"""" & _
vbcrlf&"web_shop="""&web_shop&"""" & _
vbcrlf&"web_flea="""&web_flea&"""" & _
vbcrlf&"web_job="""&web_job&"""" & _



在common_other.asp中添加红色部分
web_down,web_stamp,web_user_grade,web_forum_power_type,web_forum_type,web_nologin,web_nopost,web_copyright,web_frm_word,web_n_boy,web_n_girl,web_all,web_news,web_art,web_soft,web_shop,web_flea,web_job
在最后%>前加上


Code:

web_all=""
web_news=""
web_art=""
web_soft=""
web_shop=""
web_flea=""
web_job=""

3.修改jk_class.asp
找到
  sub web_title()
………………
  end sub
替换为


Code:

  sub web_title(webkey)
    dim temp1
    temp1="<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & _
  vbcrlf&"<html>" & _
  vbcrlf&"<head>" & _
  vbcrlf&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & _
  vbcrlf&"<meta name=""generator"" content=""cherison"">"
  select case webkey
  case 1
    temp1=temp1&vbcrlf&"<meta name=keywords content="""&web_news&""">"
  case 2
    temp1=temp1&vbcrlf&"<meta name=keywords content="""&web_art&""">"
  case 3
    temp1=temp1&vbcrlf&"<meta name=keywords content="""&web_soft&""">"
  case 4
    temp1=temp1&vbcrlf&"<meta name=keywords content="""&web_shop&""">"
  case 5
    temp1=temp1&vbcrlf&"<meta name=keywords content="""&web_flea&""">"
  case 6
    temp1=temp1&vbcrlf&"<meta name=keywords content="""&web_job&""">"
  case else
    temp1=temp1&vbcrlf&"<meta name=keywords content="""&web_all&""">"
  end select
    temp1=temp1&vbcrlf&"<title>"&web_tit&" - "&web_name&" - "&web_url&"</title>" & _
  vbcrlf&"<link type=text/css href='"&joekoe_cms.web_dir&"skin/"&web_skin&".css' rel=stylesheet>"
    response.write temp1
  end sub



4.修改skin.asp
找到sub web_head_tit()

修改为sub web_head_tit(controlkey)

紧接着往下几行
把  call joekoe_cms.web_title()
修改为  call joekoe_cms.web_title(controlkey)

然后搜索call web_head_tit()
全部替换为call web_head_tit(var5)

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: