账号通
    

账号  

密码  

6010

查看

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   | 只看该作者 查看该作者主题 板凳 
科汛在线考试系统(NET)

<%@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) 回到顶部顶端 回到底部底部
828922520 当前离线

320

主题

0

广播

0

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

用户积分:324 分
登录次数:33 次
注册时间:2012/4/11
最后登录:2012/6/28
828922520 发表于:2012/4/16 16:50:31   | 只看该作者 查看该作者主题 7楼 
科汛在线考试系统(NET)
随便看看,长点知识。。。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
buenos 当前离线

140

主题

0

广播

0

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

用户积分:147 分
登录次数:20 次
注册时间:2012/3/22
最后登录:2012/5/10
buenos 发表于:2012/4/16 16:54:15   | 只看该作者 查看该作者主题 8楼 
技术类的不懂,搞不定。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
tengjia001 当前离线

406

主题

0

广播

0

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

用户积分:426 分
登录次数:18 次
注册时间:2012/4/6
最后登录:2012/9/13
tengjia001 发表于:2012/4/16 18:30:04   | 只看该作者 查看该作者主题 9楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
giacinta_yliu 当前离线

133

主题

1

广播

0

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

用户积分:173 分
登录次数:102 次
注册时间:2012/3/6
最后登录:2012/11/12
giacinta_yliu 发表于:2012/4/17 8:37:12   | 只看该作者 查看该作者主题 10楼 
科汛在线商城系统(NET)

<%@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.25000秒 powered by KesionCMS 9.0