siteadmin.asp

易方4.0程序+邮局接口+序列号+销售系统

<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%

FtpUser = request("ftpuser")

'set YData = Conn.Query("EfangYeWu","YeWu_User=" & UData("User_User") & " and YeWu_FtpUser='" & FtpUser & "'")
'if YData.EOF or YData.BOF then
'	Call ExitEnd(false)
'	ShowErMsg("此业务不属于该用户")
'end if

'YeWu_IP = YData("YeWu_IP")
YeWu_IP = request("IP")

if len(YeWu_IP) > 0 then
	Set ServData = Conn.Query("EfangServer","Svr_IP='" & YeWu_IP & "'")
	if ServData.BOF or ServData.EOF then
		ServData.close
		set ServData = nothing
		Call ExitEnd(false)
		ShowErMsg("查询绑定的服务器时出错！")
	end if
	SysUser = ServData("Svr_AutoUser")
	SysPass = ServData("Svr_AutoPass")
	ServData.close
	set ServData = nothing
else
	Call ExitEnd(false)
	ShowErMsg("获取服务器IP时出错！")
end if

if Month(date) < 10 then
	NowString = Year(date) & "0" & Month(date)
else
	NowString = Year(date) & Month(date)
end if
if day(date) < 10 then
	NowString = NowString & "0" & day(date)
else
	NowString = NowString & day(date)
end if

if Cmd = "start" then
	SendMW = Efang.Md5(FtpUser & SysUser & SysPass & NowString)
	PostUrl="http://" & YeWu_IP & "/Auto.efang"      'IP
	PostUrl=PostUrl & "?Cmd=RunSite"
	PostUrl=PostUrl & "&FtpUser=" & FtpUser     'FTP帐号 最大16位字符  - 数据库等统一使用此帐号
	PostUrl=PostUrl & "&SysUser=" & SysUser     '管理员帐号（虚拟主机管理软件）
	PostUrl=PostUrl & "&SendMW=" & SendMW       '密文
	PostUrl=PostUrl & "&Rand=" & Efang.RandNum(8)     '此行为防止服务器缓冲
	ret = Efang.OpenHttp(PostUrl)
	Call ExitEnd(false)
	if left(ret,4) = "100=" then
		ShowErMsg("站点启动成功")
	else
		ShowErMsg(mid(ret,5))
	end if
elseif Cmd = "stop" then
	SendMW = Efang.Md5(FtpUser & SysUser & SysPass & NowString)
	PostUrl="http://" & YeWu_IP & "/Auto.efang"      'IP
	PostUrl=PostUrl & "?Cmd=StopSite"
	PostUrl=PostUrl & "&FtpUser=" & FtpUser     'FTP帐号 最大16位字符  - 数据库等统一使用此帐号
	PostUrl=PostUrl & "&SysUser=" & SysUser     '管理员帐号（虚拟主机管理软件）
	PostUrl=PostUrl & "&SendMW=" & SendMW       '密文
	PostUrl=PostUrl & "&Rand=" & Efang.RandNum(8)     '此行为防止服务器缓冲
	ret = Efang.OpenHttp(PostUrl)
	Call ExitEnd(false)
	if left(ret,4) = "100=" then
		ShowErMsg("站点停止成功")
	else
		ShowErMsg(mid(ret,5))
	end if
elseif Cmd = "restart" then
	SendMW = Efang.Md5(FtpUser & SysUser & SysPass & NowString)
	PostUrl="http://" & YeWu_IP & "/Auto.efang"      'IP
	PostUrl=PostUrl & "?Cmd=ReCrSite"
	PostUrl=PostUrl & "&FtpUser=" & FtpUser     'FTP帐号 最大16位字符  - 数据库等统一使用此帐号
	PostUrl=PostUrl & "&SysUser=" & SysUser     '管理员帐号（虚拟主机管理软件）
	PostUrl=PostUrl & "&SendMW=" & SendMW       '密文
	PostUrl=PostUrl & "&Rand=" & Efang.RandNum(8)     '此行为防止服务器缓冲
	ret = Efang.OpenHttp(PostUrl)
	Call ExitEnd(false)
	if left(ret,4) = "100=" then
		ShowErMsg("站点重新开通成功")
	else
		ShowErMsg(mid(ret,5))
	end if
elseif Cmd = "del" then
	SendMW = Efang.Md5(FtpUser & SysUser & SysPass & NowString)
	PostUrl="http://" & YeWu_IP & "/Auto.efang"      'IP
	PostUrl=PostUrl & "?Cmd=DelSite"
	PostUrl=PostUrl & "&FtpUser=" & FtpUser     'FTP帐号 最大16位字符  - 数据库等统一使用此帐号
	PostUrl=PostUrl & "&SysUser=" & SysUser     '管理员帐号（虚拟主机管理软件）
	PostUrl=PostUrl & "&SendMW=" & SendMW       '密文
	PostUrl=PostUrl & "&Rand=" & Efang.RandNum(8)     '此行为防止服务器缓冲
	ret = Efang.OpenHttp(PostUrl)
	Call ExitEnd(false)
	if left(ret,4) = "100=" then
		ShowErMsg("站点删除成功")
	else
		ShowErMsg(mid(ret,5))
	end if
end if

call ExitEnd(false)

%>