⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 setusergroup.asp

📁 不是我做的一个留言板
💻 ASP
字号:
<!--#include file="../main/conn.asp" -->

<%
web_id1="../language/"
web_id=web_id1&l_id&"/WELCOM_MSG.ASP"
call include(web_id)
if request.Form("method")="submit" then
	username=trim(request.Form("username"))
	usergroup=trim(request.Form("usergroup"))

log_url="admin_memberedit.asp?errmsg=1&id="&username
        	if session_cookie_group<usergroup then
        		response.Write"<script>alert('"&L_WELCOM_MSG25&"');location='"&log_url&"'</script>"
        	else
			strsql="select username,usergroup from [user] where username='"&username&"' and g_id='"&session_cookie_gid&"'"
			set rs=server.CreateObject("adodb.recordset")
			rs.open strsql,conn,1,3
				if not rs.eof then
					rs("usergroup")=usergroup
					rs.update
					rs.close
					set rs=nothing

response.Write"<script>alert('"&L_WELCOM_MSG26&"');location='"&log_url&"'</script>"
end if
end if
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -