admin_usersave.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<!--#include file="../conn.asp"--><!-- #include file="session.asp" --><!--#include file="../inc/config.asp"-->
<%
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
page=replace(trim(request("page")),"'","")
act=request("act")

set rs=server.CreateObject("ADODB.RecordSet")
if act="lock" then
	sql="select lockuser from [userinfo] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("lockuser")=0 then
			rs("lockuser")=1
		else
			rs("lockuser")=0
		end if
		rs.update
	end if
	rs.close
elseif act="IsVipUser" then
	sql="select IsVipUser from [userinfo] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("IsVipUser")=0 then
			rs("IsVipUser")=1
		else
			rs("IsVipUser")=0
		end if
		rs.update
	end if
	rs.close
elseif act="GOGXuser" then
	sql="select GO_GXuserAnswer,GOGXuser,GO_GXuser from [userinfo] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
			rs("GO_GXuserAnswer")=""
			rs("GO_GXuser")=0
			rs("GOGXuser")=1
		rs.update
	end if
	rs.close
elseif act="author" then
	sql="select GOauthor from [userinfo] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("GOauthor")=0
		rs.update
	end if
	sql="select author_addpost from [author] where author_UserID="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("author_addpost")=0
		rs.update
	end if
	rs.close
elseif act="GXuser" then
	sql="select GOGXuser from [userinfo] where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("GOGXuser")=0
		rs.update
	end if
	rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.write ("<script>opener.location.reload();</script><script language=javascript>window.alert('操作成功!');javascript:window.close();</script>")
%>