账号通
    

账号  

密码  

2492

查看

4

回复
主题:[分享]KesionCMS X1自定义表单列表页增加显示IP并且后几位用***代替的修改 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2015/6/16 11:43:06   | 显示全部帖子 查看该作者主题 楼主 

需求如题:


修改方法:


打开plus/form/index.asp


找到105行,并增加红色代码

   case "adddate" echo GetNodeText("AddDate")
   case "userip"
      dim userip:userip=GetNodeText("userip")
      if not ks.isnul(userip) then
        dim useriparr:useriparr=split(userip&"...." ,".")
     echo useriparr(0)&"."&useriparr(1)&".***.***"
      end if

   case "linkurl"
      echo KS.GetDomain & "Plus/form/content.asp?FormID="&FormID& "&id=" & GetNodeText("id")
   case "intro"



使用方法:直接在模模板里面用{@item.userip}调用(默认模板在template/表单/列表页.html)



同理如果详情页面也要显示IP,可以修改

plus/form/content.asp


找到119行,增加红色的


case "id" echo GetNodeText("id")
   case "adddate" echo GetNodeText("AddDate")
   case "userip"
      dim userip:userip=GetNodeText("userip")
      if not ks.isnul(userip) then
        dim useriparr:useriparr=split(userip&"...." ,".")
     echo useriparr(0)&"."&useriparr(1)&".***.***"
      end if

   case "linkurl"

 
KesionCMS,,
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.06201秒 powered by KesionCMS 9.0