moduleusercheck.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/AdoConn.asp"-->
<%
if session("UserCode")="" then'超时显示错误
Response.Redirect "/Messagebox/error.asp?info=由于长时间没有刷新页面，您的操作超时，请重新登录！"
end if
'判断是否有操作此模块的权限
UserCode=session("UserCode")
if UserCode="" then
Response.Redirect "../index.asp?info=请先登录!"
else
	set LoginRst=server.CreateObject ("adodb.recordset")
	LoginRst.CursorType =3
	LoginRst.CursorLocation =3
	LoginRst.LockType =2
	strsql="select 模块编码 from XT_VP_ModuleRoleUser where 用户编码='"&usercode&"'"
	LoginRst.Open strsql,strconn
	if not LoginRst.EOF then
		for i=1 to LoginRst.RecordCount 
			if LoginRst("模块编码")=ModuleCode then 
			ok="ok"
			end if
			LoginRst.MoveNext 
		next
		LoginRst.Close
		set LoginRst=nothing
		if ok<>"ok" then
			Response.Redirect "/messagebox/error.asp?info=对不起,您无浏览此模块的权限!"
		end if
	else
		Response.Redirect "/messagebox/error.asp?info=对不起,您无浏览此模块的权限!"
	end if
end if
ModuleCode=""
%>