账号通
    

账号  

密码  

5539

查看

8

回复
主题:[分享]v5.51限制某个模型只能发表文章篇数 [收藏主题] 转到:  
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/2/27 17:03:00   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

刚看到有人需要这个限制,就分享下吧.也放你也用得着.

 

按如下步骤操作

 

用dw工具,打开user/user_myarticle.asp这个文件,然后找到以下代码,差不多241行

 

'添加文章
  Sub DoAdd()

    '============增加判断=============

    if channelid=113 then       '只对113的模型有效

     dim acticlenum:articlenum=conn.execute("select count(*) from " & KS.C_S(ChannelID,2) &" Where ArticleInput='" & KSUser.UserName &"'")(0)

    if articlenum>=3 then

       response.write "<script>alert('对不起,本频道限制每个会员只能发布3篇!');history.back();</script>"

        response.end

       end if

   end if

   '===============增加判断结束=============
        Call KSUser.InnerLocation("发布"& KS.C_S(ChannelID,3))
    if KS.S("Action")="Edit" Then
    Dim KS_A_RS_Obj:Set KS_A_RS_Obj=Serve

 

 

增加上面红色的部分即可

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
iamcay 当前离线

879

主题

11

广播

1

粉丝
添加关注
级别:七年级

用户积分:5479 分
登录次数:207 次
注册时间:2006/8/30
最后登录:2016/11/20
iamcay 发表于:2009/2/27 22:17:00   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/2/27 21:17:00   | 只看该作者 查看该作者主题 藤椅 
科汛智能建站系统

原理差不多.我这种适合临时需求的解决方法,不需要改动数据库.

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cn2009 当前离线

1515

主题

3

广播

2

粉丝
添加关注
级别:高一年

用户积分:6151 分
登录次数:170 次
注册时间:2008/12/28
最后登录:2020/9/8
cn2009 发表于:2009/2/27 20:59:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
flyingfish 当前离线

51

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:609 分
登录次数:13 次
注册时间:2009/1/9
最后登录:2010/2/4
flyingfish 发表于:2009/2/27 18:48:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cvq 当前离线

704

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:4700 分
登录次数:151 次
注册时间:2008/8/26
最后登录:2016/8/22
cvq 发表于:2009/2/27 18:14:00   | 只看该作者 查看该作者主题 地板 
哈哈,你们还真是心有灵犀啊,这个也是一种方法:http://bbs.kesion.com/dispbbs.asp?boardid=41&Id=68445
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zhitaige 当前离线

1196

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:7830 分
登录次数:267 次
注册时间:2006/11/8
最后登录:2015/9/4
zhitaige 发表于:2009/2/27 17:33:00   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
yelom 当前离线

609

主题

9

广播

3

粉丝
添加关注
级别:六年级

用户积分:1126 分
登录次数:354 次
注册时间:2007/6/15
最后登录:2021/8/30
yelom 发表于:2016/11/3 0:34:32   | 只看该作者 查看该作者主题 8楼 
x1.5版用在user/user_post.asp中是这样:

    '============增加判断=============

    if channelid=114 then       '只对114的模型有效

     dim articlenum:articlenum=conn.execute("select count(*) from " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName &"'")(0)

    if articlenum>1 then

       response.write "<script>alert('对不起,本频道限制每个考生只能投递1篇简历!');history.back();</script>"

        response.end

       end if

   end if

   '===============增加判断结束=============







还是不太好用。

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
yelom 当前离线

609

主题

9

广播

3

粉丝
添加关注
级别:六年级

用户积分:1126 分
登录次数:354 次
注册时间:2007/6/15
最后登录:2021/8/30
yelom 发表于:2020/8/19 16:33:09   | 只看该作者 查看该作者主题 9楼 
科汛在线考试系统(NET)

User_Post.asp

67行



'添加文章

Sub InitialArticle()



     '============增加判断=============



    if channelid=114 then       '只对114的模型有效

    dim jianlinum:jianlinum=conn.execute("select count(*) from " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName &"'")(0)

    if jianlinum>=1 then

    response.write "<script>alert('对不起,您只能投递1份简历!');history.back();</script>"

    response.end

    end if

    end if

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