restore.asp

<虚拟主机站点管理系统>呵呵是我们公司的一个小产品

<!--#include file="conn.asp"-->

<%
session("title")="砺青站点管理系统"
session("headline")="首页 -> 系统返原"
%>

<!--#include file="head.asp"-->
<br>
<br>
<br>
<%if request("action")="restore" then %>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=60% class="size09" align="center" bgcolor="#efefef">

<tr><td align="center">
<br>
<%
	if Session("UserName") = "" then
		response.Redirect "login.asp"
	end if

on error resume next
if request("WEB")="ON" then 
	call restore_web
	response.write "虚拟主机返原完成" & err.description &"<br><br>"
end if
if request("FTP")="ON" then 
	call restore_ftp
	response.write "FTP帐号返原完成" & err.description &"<br><br>"
end if
if request("MAIL")="ON" then 
	call restore_mail
	response.write "企业邮局返原完成" & err.description &"<br><br>"
end if
if request("DNS")="ON" then 
	call restore_DnsZ
	response.write "DNS服务返原完成" & err.description &"<br><br>"
end if

%>
<br>

</td></tr>
</table>

<% else %>


<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=55% class="size09" align="center">
                <tr> 
                  <td  bgcolor="#efefef" height="28"> 
                    <div align="center" class="color01">请选择要返原项目</div>
                  </td>
                </tr>
				<form method="POST" action="restore.asp?action=restore">
                <tr> 

<tr><td align="center">
  <input type="checkbox" name="WEB" value="ON" checked>虚拟主机 &nbsp; 
                      <input type="checkbox" name="FTP" value="ON" >
                      FTP帐号&nbsp; 
                      <input type="checkbox" name="MAIL" value="ON" >
                      企业邮局 &nbsp; 
                      <input type="checkbox" name="DNS" value="ON" >
                      DNS服务&nbsp; 
</td></tr>
		  <tr> 
                  <td  bgcolor="#efefef" height="28"> 
                    <div align="center"> 
                      <input type="submit" value="返    原" name="B1" style="text-align: center">
                    </div>
                  </td>
                </tr>
				</form>
</table>




<%end if%>



<!--#include file="bottom.asp"-->



<%
sub restore_web ()
set lqsm_web= server.CreateObject("lqsm.web")
WebIndex = lqsm_web.GetWebHostList()

set rs=server.createobject("adodb.recordset")
sql="select * from web "
rs.open sql,conn,1,1

on error resume next
do while not rs.eof 
	WebHostName = rs("WebHostName")
	HostList = split(WebHostName,",")
	if IsExist(HostList(0),WebIndex) = false then
		ret=lqsm_web.WebManage("add",rs("WebIndex"), rs("WebSiteName"),rs("WebFilesPath"),rs("WebDefaultDoc"),rs("WebIP"),rs("WebPort"),rs("WebHostName"),rs("WebAccess"),rs("WebLogPath"),rs("WebLinks"),rs("WebTimes"),rs("WebWidth"),rs("WebCPU"),rs("IUSRName"),rs("IUSRPass"),rs("WebState"),ErrMsg)
			if ret <> 0 or ErrMsg <> "" then
			response.write "创建WEB站点["&rs("WebHostName")&"]出错,返回码=["&ret&"],描述=["& ErrMsg&"]<br>"& err.description
			end if
	end if
rs.movenext      
loop
rs.close
set rs = nothing
end sub

sub restore_ftp()
set lqsm_ftp= server.CreateObject("lqsm.ftp")
WebIndex = lqsm_ftp.GetFtpUserList()

set rs=server.createobject("adodb.recordset")
sql="select * from ftp "
rs.open sql,conn,1,1

FtpAction = "add"
on error resume next
do while not rs.eof 
	if IsExist(rs("FtpUser"),WebIndex) = false then
		ret = lqsm_ftp.FtpManage(FtpAction,rs("FtpUser"), rs("FtpPass"), rs("HomeDir"), rs("Access"), rs("MaxNrUsers"), rs("DiskQuota"), rs("FtpLdle"), rs("SpeedLimitUp"), rs("SpeedLimitDown"),rs("FtpState"),ErrMsg)
		if ret <> 0 or ErrMsg <> "" then
			response.write "创建FTP帐号["&rs("FtpUser")&"]出错,返回码=["&ret&"],描述=["& ErrMsg&"]<br>"
		end if
	end if
rs.movenext      
loop
rs.close
set rs = nothing
end sub


sub restore_mail()
set lqsm_mail= server.CreateObject("lqsm.mail")
WebIndex = lqsm_mail.GetMailList()
MailAction="add"

set rs=server.createobject("adodb.recordset")
sql="select * from mail "
rs.open sql,conn,1,1

on error resume next
do while not rs.eof 
	if IsExist(rs("Domain"),WebIndex) = false then
		ret=lqsm_mail.MailManage(MailAction,rs("MailDir"), rs("Domain"), rs("MailBox"), rs("IPAddress"), rs("RealName"), rs("PassWord"), rs("MessageMax"), rs("MessageDisk"),rs("MaxRcv"),rs("MaxUsers"),ErrMsg)
		if ret <> 0 or ErrMsg <> "" then
			response.write "创建邮箱["&rs("Domain")&"]出错,返回码=["&ret&"],描述=["& ErrMsg&"]<br>"
		end if
	end if
rs.movenext      
loop
rs.close
set rs = nothing
end sub

sub restore_DnsZ()
set lqsm_dns= server.CreateObject("lqsm.dns")
ret = lqsm_dns.DnsZoneList(DnsList,ErrMsg)

set rs=server.createobject("adodb.recordset")
sql="select * from DnsZ "
rs.open sql,conn,1,1
do while not rs.eof 
	if IsExist(rs("Domain"),DnsList) = false then
		Domain = rs("Domain")
		ret = lqsm_dns.DnsCreate(Domain,ErrMsg)
		if ret <> 0 or ErrMsg <> "" then
			response.write "创建域名["&rs("Domain")&"]出错,返回码=["&ret&"],描述=["& ErrMsg&"]<br>"
		end if
	end if
	call restore_DnsR("A",rs("Domain"))
	call restore_DnsR("CNAME",rs("Domain"))
	call restore_DnsR("MX",rs("Domain"))
	call restore_DnsR("NS",rs("Domain"))
rs.movenext      
loop
rs.close
set rs = nothing
end sub	

sub restore_DnsR(classType,Domain)
on error resume next
set lqsm_dns= server.CreateObject("lqsm.dns")
ret = lqsm_dns.RList(Domain,classType,DnsList,ErrMsg)

set rs=server.createobject("adodb.recordset")
sql="select * from DnsR where classtype='"&classType&"' and domain='"&Domain&"'"
rs.open sql,conn,1,1
do while not rs.eof 
	if IsExist(rs("OwnerName"),DnsList) = false then
		Domain = rs("Domain")
		OwnerName=rs("OwnerName")
		Param1=rs("Param1")
		Param2=rs("Param2")
		ret = lqsm_dns.RCreate(Domain, OwnerName, ClassType, Param1, Param2, ErrMsg)
		if ret <> 0 or ErrMsg <> "" then
			response.write "创建域名["&rs("Domain")&"]的["&classType&"]纪录["&rs("OwnerName")&"]出错,返回码=["&ret&"],描述=["& ErrMsg&"]<br>"
		end if
	end if
rs.movenext      
loop
rs.close
set rs = nothing
end sub

Function IsExist(Index,List)
IsExist = false
ListArray = split(List,",")
for each Obj in ListArray
	if cstr(Obj) = cstr(Index) then 
		IsExist = true
		exit function
	end if
next
End Function
%>