admin_verify_oprate.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

<!--#include file="head.asp"-->
<!--#include file="AdminSession.asp"-->
<%
if request("methoder")=0 then
	sql="delete * from [Users] where Id=" & request("id")
end if
if request("methoder")=1 then
	sql="update [Users] set Flag=1 where Id=" & request("id")
end if
if request("methoder")=2 then 
	if trim(request("pass1"))<>"" then
		sql="update [Users] set [PassWord]='"&md5(request("pass1"))&"',Email='"&request("email")&"',QQ='"&request("qq")&"',SiteName='"&request("sitename")&"',SiteUrl='"&request("siteurl")&"',OutType="&request("outtype")&",InType="&request("intype")&",SiteType="&request("sitetype")&",RemainPop="&request("remainpop")&",[Money]="&request("money")&" where Id=" & request("id")
	else
		sql="update [Users] set Email='"&request("email")&"',QQ='"&request("qq")&"',SiteName='"&request("sitename")&"',SiteUrl='"&request("siteurl")&"',OutType="&request("outtype")&",InType="&request("intype")&",SiteType="&request("sitetype")&",RemainPop="&request("remainpop")&",[Money]="&request("money")&" where Id=" & request("id")
	end if
end if
if request("methoder")=3 then
	sql="update [Users] set Flag=2 where Id=" & request("id")
end if
if request("methoder")=4 then
	sql="update [Users] set Flag=1 where Id=" & request("id")
end if
'ON ERROR RESUME NEXT
conn.execute(sql)
%>
<script>
alert("操作成功。");parent.window.close();
</script>