setusermenu.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="../config.ini" -->
<%
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	conn.Open connstring
	set rs=conn.Execute("select * from usermenu where userid='"&session("loginid")&"'")
	if rs.EOF and rs.BOF then
			if Request.QueryString("menutype")="default" then
				set rs=conn.Execute("inset into usermenu(userid,menutype)value('"&session("loginid")&"','default')")
			else
				set rs=conn.Execute("insert into usermenu(userid,menutype)values('"&session("loginid")&"','user')")
			end if
		else
			if Request.QueryString("menutype")="default" then
				set rs=conn.Execute("update usermenu set menutype='default' where userid='"&session("loginid")&"'")
			else
				set rs=conn.Execute("update usermenu set menutype='user' where userid='"&session("loginid")&"'")
			end if
	end if
	
	set rs=conn.Execute("select menutype from usermenu where userid='"&session("loginid")&"'")
	if rs.EOF then
		strusermenu="default"
	else
		strusermenu=rs("menutype")
	end if
	rs.close
	set rs=nothing
	conn.Close 
	set conn=nothing 
	
	Response.Redirect "../left.asp?type="&Request.QueryString("type")
%>