账号通
    

账号  

密码  

6003

查看

16

回复
主题:[求助]如何获取当前登录用户所在的用户组ID,需要哪些类,如何初始化,如何获取接收 [收藏主题] 转到:  
giacinta_yliu 当前离线

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/16 15:18:38   | 显示全部帖子 查看该作者主题 楼主 
科汛智能建站系统
如题,求代码,谢谢谢谢
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
giacinta_yliu 当前离线

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/16 15:47:24   | 显示全部帖子 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
Microsoft VBScript 编译器错误 错误 '800a0411' 名称重定义 E:\WWW\KESIONCMS V6 SP5 FREE\ITEM\../KS_Cls/Kesion.Thumbs.asp,行 8 Class Thumb------^
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
giacinta_yliu 当前离线

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/16 15:48:34   | 显示全部帖子 查看该作者主题 藤椅 
科汛智能建站系统

<%@LANGUAGE=" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
<!--#include file="../KS_Cls/Kesion.StaticCls.asp"-->
<!--#include file="../Kesion.MemberCls.asp"-->
<%

有冲突吗 还是什么呀


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

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/16 15:54:27   | 显示全部帖子 查看该作者主题 板凳 
科汛在线网校系统

<%@LANGUAGE=" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
<!--#include file="../KS_Cls/Kesion.StaticCls.asp"-->
<!--#include file="../Kesion.MemberCls.asp"-->
<%
Private SqlStr,b,KSUser
b= Request.QueryString("a")
if KSUser.GroupID=3 then
SqlStr="Update KS_Form_yiqi set KS_shenhe='是' where id="&b
Conn.Execute(SqlStr)
if err.number<>0 then
Response.Write"<script>alert('对不起,审核失败!');history.back();</script>"
else
Response.Write"<script>alert('恭喜您,审核成功!');history.back();</script>"
end if
else
Response.Write"<script>alert('对不起,您没有此权限!');history.back();</script>"
end if

'Dim RS:Set RS=
'If RS.Eof Then


%>

获取用户组id哪里有错 那位大神帮我改改, 另外是不是引用有错

提示 名称重定义 E:\WWW\KESIONCMS V6 SP5 FREE\ITEM\../KS_Cls/Kesion.Thumbs.asp,行 8 Class Thumb------^

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

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/16 16:07:03   | 显示全部帖子 查看该作者主题 报纸 
<!--#include file="../KS_Cls/Kesion.StaticCls.asp"-->已经引用了<!--#include file="../Kesion.MemberCls.asp"-->
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
giacinta_yliu 当前离线

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/16 16:12:23   | 显示全部帖子 查看该作者主题 地板 
科汛在线商城系统(NET)

缺少对象: ''

/update.asp,行 9 就是这句(if KSUser.GroupID=3 then)

如何修改啊


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

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/17 8:37:12   | 显示全部帖子 查看该作者主题 7楼 
科汛在线网校系统

<%@LANGUAGE=" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="Conn.asp"-->
<!--#include file="KS_Cls/Kesion.MemberCls.asp"-->
<!--#include file="KS_Cls/Kesion.Label.CommonCls.asp"-->
<!--#include file="KS_inc/Session.asp"-->
<%
Private SqlStr,b,KSUser
Set KSUser = New UserCls
  b= Request.QueryString("a")
  If Cbool(KSUser.UserLoginChecked)=true and KSUser.GroupID=3 Then
  SqlStr="Update KS_Form_yiqi set KS_shenhe='是' where id="&b
Conn.Execute(SqlStr)
if err.number<>0 then
Response.Write"<script>alert('对不起,审核失败!');history.back();</script>"
else
Response.Write"<script>alert('恭喜您,审核成功!');history.back();</script>"
end if
else
Response.Write"<script>alert('对不起,您没有此权限!');history.back();</script>"
end if   

%>


好了 哈哈

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