identify.asp

来自「这个程序可以上传一个文件到指定的数据库。这个数据库可以是SQl」· ASP 代码 · 共 16 行

<%
'用户登录后用户名存在session("username")变量中
'如果未登录则为空
if(isempty(session("username")) or len(session("username"))=0) then	Response.Redirect "/back/error.asp"
se_null=0:se_news=1:se_info=2:se_notice=3:se_device=3:se_stuff=5:se_download=6:se_share=7:se_super=15
function se_indentify(se_curr)
	if se_curr>0 then
		if getbit(session("usertype"),se_curr)=0 and session("usertype")<16384 then response.Redirect("/back/error.asp")
	end if
end function

function getbit(num,b)//取num二进制时的位，从右往左数，最右边一位是1
	num=cint(num/2^(b-1))
	getbit=num mod 2
end function
%>