看了WBC的网站后很多朋友都希望拥有评论后直接显示IP的功能。做了一番研究之后终于实现了，并且对所有涉及IP的地方都更换成了地址。
共有评论，留言，后台留言评论管理、后台查看访客IP等6处
演示：
http://www.xyhome.cn
需修改class/cls_article.asp
Plugins/GuestBook/guestbook.asp
ConContent.asp
三个文件，修改前请备份。
如有任何问题请到
http://www.xyhome.cn/article.asp?id=123留言
1、评论处（暂不支持WBC的Ajax评论）
打开class/cls_article.asp
查找
复制内容到剪贴板
代码:
<%if stat_Admin then response.write (" | "&commArr(8,Pcount)) end if%>替换为
复制内容到剪贴板
代码:
<%'if stat_Admin then%>
| <script src="http://www.cz88.net/ip/ipcheckutf8.aspx?ip=<%=commArr(8,Pcount)%> "> </script>
<%'end if%>注：<% ' %>中的“'”飞用来判断是否只对管理员显示，如果需要只对管理员显示，请去掉if前和end if前的“'”。下同。
2、留言处
打开/Plugins/GuestBook/guestbook.asp
查找
复制内容到剪贴板
代码:
<%if stat_Admin then response.write " | " & GuestDB("book_IP")%>替换为
复制内容到剪贴板
代码:
<%'if stat_Admin then%> <%'response.write " | " & GuestDB("book_IP") %>
<script src="http://www.cz88.net/ip/ipcheckutf8.aspx?ip=<%=GuestDB("book_IP")%> "> </script>
<%'end if%>3、后台各处
打开ConContent.asp
查找
复制内容到剪贴板
代码:
<td width="100" nowrap="nowrap" class="TDHead">访客IP</td>替换为
复制内容到剪贴板
代码:
<td width="100" nowrap="nowrap" class="TDHead">访客IP</td>
<td width="100" nowrap="nowrap" class="TDHead">访客地址</td>查找
复制内容到剪贴板
代码:
<td nowrap><%=bCounter("coun_IP")%></td>替换为
复制内容到剪贴板
代码:
<td nowrap><%=bCounter("coun_IP")%></td>
<td nowrap><script src="http://www.cz88.net/ip/ipcheckutf8.aspx?ip=<%=bCounter("coun_IP")%> "> </script></a></td>查找
复制内容到剪贴板
代码:
<%=commArr(4,Pcount)%>替换为
复制内容到剪贴板
代码:
<script src="http://www.cz88.net/ip/ipcheckutf8.aspx?ip=<%=commArr(4,Pcount)%> "> </script>注：有两处，都替换。
[
本帖最后由 douglasleft 于 2006-11-16 23:43 编辑 ]
![[PJblog^3]技术支持论坛 - PJBLOG SUPPORT FORUM](images/phpwind/logo.gif){kind=logo}
