网人最新系统【修改教程】免费版WRMPS 6.5.0

【修改一】：分类信息处进行【滑门】的添加与修改

忘记告诉你们一个最关键的技术节点：第一步是修改【 I n c / S i t e .j s 点击下载此程序】 文件  在这里加上

第二步才是【修改首页模板】 进行【后台】、打开【风格】、点出【通用模版】、在右边框中选择【网站首页模版】、点出后面的【修改】选项。找到下面代码中的首尾相符的地方，进行理换即可。做完后再去打开选项【系统函数标签】进行添加【首页系统函数标签】调用。比如下面所举例需要调用到的首页标签的添加【{$Mr_跳蚤市场}、{$Mr_同城活动} 、{$Mr_求职招聘} 】，如果不会就先将【{$Mr_房屋租售}】进行三次的复制后再修改。

      {$Mr_首页新进产品10条}
      </ul>
      </div>
    </div>
    <div class="ads"><script language=JavaScript src=/Img/?A10></script></div>
    <div class="title_8">
      <div style="width:170px; float:left; line-height:33px; font-size:14px"><a href="/Class/"><strong>分类信息</strong></a></div>
      <div class="tab_1 p1" id=Tab4Title onmouseover=ShowTabs4(0)><a href="/Class_8_1_0/"><strong>跳蚤市场</strong></a></div>
      <div class="tab_2 p1" id=Tab4Title onmouseover=ShowTabs4(1)><a href="/Class_1_1_0/">房屋租售</a></div>
      <div class="tab_2 p1" id=Tab4Title onmouseover=ShowTabs4(2)><a href="/Class_68_1_0/">同城活动</a></div>
      <div class="tab_2 p1" id=Tab4Title onmouseover=ShowTabs4(3)><a href="/Class_38_1_0/">求职招聘</a></div>
      <div class="tab_2 p1"><a href="/Class/Post.asp">免费发布</a></div>
      <div class="tab_2 p1"><a href="/Class/">更多>></a></div>
    </div>
    <div class="Class_content border_4">
      <div class="Class_content_l">
      <script language=JavaScript src=/Img/?A11></script>
      <div class="divline"></div>
      <script language=JavaScript src=/Img/?A12></script>
      <div class="divline"></div>
      <script language=JavaScript src=/Img/?A13></script>
      </div>
      <div class="Class_content_r" id=Tabs4 >
      {$Mr_跳蚤市场}
      </div>
      <div class="Class_content_r" id=Tabs4 style="DISPLAY: none">
      {$Mr_房屋租售}
      </div>
      <div class="Class_content_r" id=Tabs4 style="DISPLAY: none">
      {$Mr_同城活动}
      </div>
      <div class="Class_content_r" id=Tabs4 style="DISPLAY: none">
      {$Mr_求职招聘}
      </div>
    </div>
  </div>

【修改二】：会搜索图标的更换与链接的取消

【图标的更换】：自己首先做一个或截屏设置一个规格尺寸为【66 X 28 】像素的【top_search_10.gif】图片。直接用上传工具【FTP】上传到【网站根目录/Skins/Default/top_search_10.gif】进行覆盖就OK。

【超链接的取消】：进入【后台】、【风格】、【标签管理】、【自定义标签】栏目，依次打开并修改【{$My_Hand} 、{$My_Hand_Cgal}、{$My_Hand_Article} 、{$My_Hand_Class} 、{$My_Hand_Coupon} 、{$My_Hand_Product} 、{$My_Hand_Company}】中的代码如下 ：

<div class=top_search_2>
    <div class=top_search_2_1></div>
    <div class=top_search_2_2>
      <div class=top_search_2_2_1><input class="So_input" type="text" name="Key" maxlength="20" value="请输入想查询的关键字，如宾馆、酒吧、奶茶等" onclick="if(this.value=='请输入想查询的关键字，如宾馆、酒吧、奶茶等'){this.value='';this.style.color='#333333'}" onKeyUp="searchajax(this.value,Type.value,'/')" autocomplete=off /><br><div class=searchlist id=SearchList style="display:none;width:324px"></div></div>
      <div class=top_search_2_2_2><input type=image src="/Skins/Default/top_search_09.gif" align=absmiddle /></div>
      <div class=top_search_2_2_3><img src="/Skins/Default/top_search_10.gif" align=absmiddle class=hss onclick="hss(searchform.Key.value)"【红色删除就OK】 /></div>
    </div>
    <div class=top_search_2_3></div>
    <div class=top_search_2_4><a href=/Index.asp?Briefness=1>简版首页</a><br><a href="/search/" target=_blank>高级搜索</a></div>
  </div>

【修改三】：更换网站所有评论回复框右下角的网人标识

自己首先用软件做一个规格尺寸为【164 X 39（随意也行） 】像素的【textareabg.gif】图片。直接用上传工具【FTP】上传到【网站根目录/Skins/Default/  】进行覆盖就OK。

【修改四】：便民服务电话。打开步骤：进入【后台】打开【全局】点击【分站管理】就可以进行【便民电话管理】。6.5免费版【便民电话管理】没法进行加色操作？

     可能是免费版的缘故，偶在后台进行管理的加色，前台始终无法显示。于是乎:偶直接在（网站首页模版）中将其中的系统函数标签（【 { $ S i t e B m T e l }  】 ）删除。重新建立一个【{$My_便民电话自制}】进行替换。后面代码就是【{$My_便民电话自制}】的，仅供各位参考。

<table border="1" width="100%" id="table1">
        <tr>
                <td align="center" width="185">冰淇淋粉：0816-2301981</td>
                <td align="center" width="185">高域香蜜：18981101181</td>
                <td align="center" width="185">油炸薯条：13060179857</td>
                <td align="center" width="185">珍珠奶茶：0816-2301981</td>
                <td align="center" width="185">丰特酒业：0816-2333787</td>
        </tr>
        <tr>
                <td align="center" width="185"><font color="#FF0000">绵阳公益网：15181604657</font></td>
                <td align="center" width="185"><font color="#FF0000">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#FF0000">网站建设：13550856551</font></td>
                <td align="center" width="185"><font color="#FF0000">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#FF0000">巴士广告：15892496656</font></td>
        </tr>
        <tr>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
        </tr>
        <tr>
                <td align="center" width="185"><font color="#0000FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#0000FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#0000FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#0000FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#0000FF">行业商家：13060179857</font></td>
        </tr>
        <tr>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
        </tr>
        <tr>
                <td align="center" width="185"><font color="#FF00FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#FF00FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#FF00FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#FF00FF">行业商家：13060179857</font></td>
                <td align="center" width="185"><font color="#FF00FF">行业商家：13060179857</font></td>
        </tr>
        <tr>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
                <td align="center" width="185">行业商家：13060179857</td>
        </tr>
</table>

【修改五】：将网站设置成默认显示【简版】

把inc/Cls.CityReh.asp 第十六行中

If (Briefness = "" and IsEmpty(WRMPS.GetCookies("Briefness"))) Or IsNumeric(WRMPS.GetCookies("Briefness")) = False Then Briefness = 0

修改：

If (Briefness = "" and IsEmpty(WRMPS.GetCookies("Briefness"))) Or IsNumeric(WRMPS.GetCookies("Briefness")) = False Then Briefness = 1

试一下，可能需要等一会，缓存的原因

【修改六】：修正网人系统使用png格式水印图片。特别注意：一定要先在后台的图片后缀中添加【 |png 】

      如果你在网人系统中使用透明的png格式水印图片，那么水印产生后会带有白色的背景，不美观，也不清晰，这个问题需要改动程序加以纠正。请看我修正后的效果，很清晰，也可以做的很美观。

上传自己做的/images/WaterMap.png
修改/Plus/UpLoad/index.asp
找到
          If MarkTranspColor <> "" Then
                                                objImage.DrawImage x, y, objMark, MarkOpacity, MarkTranspColor
                                        Else
                                                objImage.DrawImage x, y, objMark, MarkOpacity
                                        End If
改为
          If MarkTranspColor <> "" Then
             if instr(lcase(MarkPicture),"png")<>0 then
                objImage.Canvas.DrawPNG x, y, Server.MapPath(MarkPicture)
             else
                objImage.DrawImage x, y, objMark, MarkOpacity, MarkTranspColor
             end if
          Else
             if instr(lcase(MarkPicture),"png")<>0 then
                objImage.Canvas.DrawPNG x, y, Server.MapPath(MarkPicture)
             else
                objImage.DrawImage x, y, objMark, MarkOpacity
             end if
          End If
然后在后台网站参数设置的上传设置里，设置
图片地址为/images/WaterMap.png
图片透明度为0
然后重新发布系统配置文件

【修改七】：网站版权【 { $ C o p y r i g h t } 】的设定与修改

进入【后台】、打开【全局】、在【常规管理】中选择【网站参数设置】、在右边框内见截屏位置处的【版权信息】处直接输入或进入代码设置。最后进行【提交】成功，需要进行【系统文件配置】的发布。

至于另外一个系统标签【 { contentnbsp;P o w e r e d } 】，免费版用户可能是没法进行修改，只好一不做二不休，直接删除处理为上上之策。不过，用人家的东西，也帮人家做一个宣传也是应该的。

删除步骤：进入【后台】、【风格】、【标签管理】、【自定义标签】栏目，打开【{$My_Bottom}】中直接删除【 { contentnbsp;P o w e r e d } 】后进行提交【更新缓存】。

【修改八】：修改首页幻灯广告位：
     进入【后台】、打开【功能】、点击【广告管理】，在右边第二排第二列的下拉框中选择【首页广告】：在下面的列表中找到【首页幻灯片 [幻灯广告] 】，点击后面的【修改 】，进入到【选择待投放广告位置】，点击【下一步】，进入到新的一个页面就是【 广告信息 】，在这儿的下面找到【广告链接及图片地址】。如果需要设置多张就进行【链接】的设定、本地电脑【图片】的【上传】。见截屏：
 

【修改九】：首页幻灯片下面的自定义广告的更换：
具体操作步骤就是：
    进入【后台】、点击【风格】、选择【标签管理】中的【自定义标签】，在右边的【标签分类】下拉菜单中选择【首页标签】、在下面的列表中【 {$My_首页自定义标签文字广告} 】后面的操作中的【修改】。进入下一个新的页面。修改样式见截屏：

【修改十】：网人系统的安装程序网址：http://你的网址/Install
提示：如果安装程序运行完成后您的系统目录下还存在 install 目录请FTP手动删除。   

网人系统后台的登录网址：http://你的网址/admin/admin_login.asp

【修改十一】：城市切换弹窗字节数的修改：比如我的网站：原来的情况见截屏：

 进入【后台】、点击【风格】、选择【风格主题】，点击后面的【修改】选项进入：

修改代码中的红色字符：

/*城市切换CSS*/
.SiteB ul{width:465px; min-height:30px; float:left;}
*html .SiteB ul{height:50px}
.SiteB li{float:left;font-weight:bold;font-size:14px;width:60px}
.SiteC{width:465px}
.SiteC ul{width:800px}
.SiteC li{float:left;font-weight:normal;width:auto;padding:0 10px 0 0}
.Site{font-weight:bold;font-size:14px;width:500px;border-bottom:1px #EFD7A5 solid;padding:5px 0;margin-bottom:10px;text-align:center;background:#FEF5D6}
/*附加#####################################*/

提交成功，【更新缓存】、【刷新】，看我的最新结果：

【修改十二】 【防范垃圾信息群发机的插件】修改步骤：

修改会员注册模板Reg.html
找到
<form name="addform" method="post">
在下面加
<script language="Javascript" type="text/javascript">
var aaaba = 1 + 2 + 3 + 4;
document.write ('<input type="hidden" name="smallhaha" value="' + aaaba + '" />');
</script>

修改 reg.asp
找到
Case "Reg"
在下面加
  If Request.Form("smallhaha")<>"10" Then
    Call WRMPS.ErrView("","","<li>发贴注册机去死吧",0)
  End If


修改信息游客发布模板Class/Post.html
找到
<form action="?Action=Save" name="myform" method="POST">
在下面加
<script language="Javascript" type="text/javascript">
var aaaba = 1 + 2 + 3 + 4;
document.write ('<input type="hidden" name="smallhaha" value="' + aaaba + '" />');
</script>


修改/class/post.asp
找到
Case "Save"
在下面加
  If Request.Form("smallhaha")<>"10" Then
    Call WRMPS.ErrView("","","<li>发贴注册机去死吧",0)
  End If
  
修改/member/User_ClassAD.asp
找到
              Content = Content & "<input type=hidden name=ComID value="&ComID&">" & vbCrLf
在其上加

Content = Content & "<script language=""Javascript"" type=""text/javascript"">" & vbCrLf
Content = Content & "var aaaba = 1 + 2 + 3 + 4;" & vbCrLf
Content = Content & "document.write ('<input type=""hidden"" name=""smallhaha"" value=""' + aaaba + '"" />');" & vbCrLf
Content = Content & "</script>" & vbCrLf


找到
Case "AddSave"
在下面加
  If Request.Form("smallhaha")<>"10" Then
    Call WRMPS.ErrView("","","<li>发贴注册机去死吧",0)
End If


注意：你可以灵活改变上面代码中的smallhaha的名字，和它的真实值，这样就可以千变万化，让群发机彻底绝望！

【修改十三】请大家注意首页店铺图片调用、信息发布成功不能打开……都是因为没有正确设置为【动态】。

操作步骤：进入【后台】、在【频道管理】中选择【生活黄页】、【产品展示】、【分类信息】、【新闻资讯】、【优惠促销】后面的【修改】，进入 【生成选项】。将【生成HTML方式】设置为【动态】

如果想使用你所安装的网人系统外部的调用请在【基本设置】中设定【频道类型】按截屏来做选择并输入调用的链接网址。
外部连接指连接到本系统以外的地址中，当此频道准备连接到网站中的其他系统时，请使用这种方式。
 

【修改十四】删除没有电话的分类信息  【打开 后台目录/WM.Class.asp】

打开 后台目录/WM.Class.asp
找到
  Case "DelAllKey"
      Server.ScriptTimeout = 9999
      Call DBConnBegin()
      Set ClsCre = New Cls_Create
      Set Rs = Conn.Execute("Select WM_ID,WM_ChannelID from WM_ClassAD Where WM_Key=0")
      Do While Not Rs.Eof
        Conn.Execute ("Delete From WM_Review Where WM_ParentID = " & Rs(0) & " and WM_ChannelID="&Rs(1))
        Call ClsCre.CreClass("DEL",Rs(0),1)
      Rs.MoveNext
      Loop
      Rs.Close
      Set ClsCre = Nothing
      Set Rs=Nothing
      Call DBConnEnd()
      Call GetWorkView("","?page="&Page&"&SearchKey="&SearchKey&"&PostName="&PostName&"&Days="&Days&"&SearchID="&SearchID&"&AreaName="&AreaName,"<li>操作成功",1)
复制代码
在下面增加
Case "DelAllTel"
      Server.ScriptTimeout = 9999
      Call DBConnBegin()
          Set ClsCre = New Cls_Create
          Set Rs = Conn.Execute("Select WM_ID,WM_ChannelID from WM_ClassAD Where WM_Tel=’ ’")
          Do While Not Rs.Eof
            Conn.Execute ("Delete From WM_Review Where WM_ParentID = " & Rs(0) & " and WM_ChannelID="&Rs(1))
                Call ClsCre.CreClass("DEL",Rs(0),1)
          Rs.MoveNext
          Loop
          Rs.Close
          Set ClsCre = Nothing
          Set Rs=Nothing
      Call DBConnEnd()
          Call GetWorkView("","?page="&Page&"&SearchKey="&SearchKey&"&PostName="&PostName&"&Days="&Days&"&SearchID="&SearchID&"&AreaName="&AreaName,"<li>操作成功",1)
复制代码
然后找到
<input type=button name=’submit’ value=’一键删除待审信息’ onclick=""if (confirm(’确定操作？\n\n此功能耗费系统资源，请慎用！’)){window.open(’?Action=DelAllKey’,’_self’)}"">
复制代码
在后面增加
<input type=button name=’submit’ value=’一键删除无电话’ onclick=""if (confirm(’确定操作？\n\n此功能耗费系统资源，请慎用！’)){window.open(’?Action=DelAllKey’,’_self’)}"">
复制代码
然后到【后台】分类信息-信息管理 中查看效果