chgvhostownerdo.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.Form("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_VHostList Where VHID='" & VHID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此虚拟主机或者您没有权限！</p>"
else
%>
	<!--#include file="VHostMenu.asp"-->
	<%
	UOID= rs("UOID")
	Set Rs1= Server.CreateObject("ADODB.Recordset")
	strSQL="Select * from T_DNS_UserInfo where UserID=" & Request.Form("password")
	Rs1.open strSQL,Cn,1,1
	If Rs1.Eof Then
		Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到该转入的用户！</p>"
		Call PrintPageBottom
		Response.End
	end if
	Rs1.Close
	Set Rs1=Nothing
	
	'更新主机会员
	strSQL="Update T_DNS_AllVH Set UserID=" & Request.Form("password") & " Where UOID='" & UOID & "'"
	Cn.Execute(strSQL)
	
	'更新邮局会员
	strSQL="Update T_DNS_AllPost Set UserID=" & Request.Form("password") & " Where UOID='" & UOID & "'"
	Cn.Execute(strSQL)

	'更新域名会员
	strSQL="Update T_DNS_AllDN Set UserID=" & Request.Form("password") & " Where UOID='" & UOID & "'"
	Cn.Execute(strSQL)
	
	'日志
	Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllVH','主机转移会员号','" & UOID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
	Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllPost','邮局转移会员号','" & UOID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
	Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名转移会员号','" & UOID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
	
	Response.Write "<br><br><br><P align='center' class='titletext'>虚拟主机转移会员号成功！</p>"

end if

Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>