KesionCMS X1自定义表单列表页增加显示IP并且后几位用＊＊＊代替的修改-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2002 查看	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,,

做考试题库就用#科汛在线考试系统!