backup.asp

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

<!--#include file="conn.asp"-->
<%
Server.ScriptTimeout=9999999
session("title")="砺青站点管理系统"
session("headline")="首页 -> 系统备份"
%>
<!--#include file="head.asp"-->
<br>
<br>
<br>

<%if request("action")="backup" 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 backup_web
	response.write "虚拟主机备份完成" & err.description &"<br><br>"
end if
if request("FTP")="ON" then 
	call backup_ftp
	response.write "FTP帐号备份完成" & err.description &"<br><br>"
end if
if request("MAIL")="ON" then 
	call backup_mail
	response.write "企业邮局备份完成" & err.description &"<br><br>"
end if
if request("DNS")="ON" then 
	call backup_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="backup.asp?action=backup">
                <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 backup_web ()
set lqsm_web= server.CreateObject("lqsm.web")
WebIndex = lqsm_web.GetWebIndexList()
conn.execute("delete * from web ")
IndexList = split(WebIndex,",")
for each Index in IndexList
	if Index <> "" then
		WebIndex=Index
		ret=lqsm_web.WebManage("query",WebIndex, WebSiteName,WebFilesPath,WebDefaultDoc,WebIP,WebPort,WebHostName,WebAccess,WebLogPath,WebLinks,WebTimes,WebWidth,WebCPU,IUSRName,IUSRPass,WebState,ErrMsg)
	if ret = 0 and ErrMsg = "" then
		sql = " insert into web (WebIndex, WebSiteName,WebFilesPath,WebDefaultDoc,WebIP,WebPort,WebHostName,WebAccess,WebLogPath,WebLinks,WebTimes,WebWidth,WebCPU,IUSRName,IUSRPass,WebState) values ("&WebIndex&",'"&WebSiteName&"','"&WebFilesPath&"','"&WebDefaultDoc&"','"&WebIP&"','"&WebPort&"','"&WebHostName&"','"&WebAccess&"','"&WebLogPath&"','"&WebLinks&"','"&WebTimes&"','"&WebWidth&"','"&WebCPU&"','"&IUSRName&"','"&IUSRPass&"','"&WebState&"')"
	conn.execute (sql)
	end if
	end if
	
next
end sub

sub backup_ftp()
set lqsm_ftp= server.CreateObject("lqsm.ftp")
WebIndex = lqsm_ftp.GetFtpUserList()
conn.execute("delete * from ftp ")

IndexList = split(WebIndex,",")

on error resume next
for each Index in IndexList
	if Index <> "" then
	FtpUser=cstr(Index)
	FtpAction="query"

		ret = lqsm_ftp.FtpManage(FtpAction,FtpUser, FtpPass, HomeDir, Access, MaxNrUsers, DiskQuota, FtpLdle, SpeedLimitUp, SpeedLimitDown,FtpState,ErrMsg)
	if ret = 0 and ErrMsg = "" then
		sql = " insert into ftp (FtpUser, FtpPass, HomeDir, Access, MaxNrUsers, DiskQuota, FtpLdle, SpeedLimitUp, SpeedLimitDown,FtpState) values ('"&FtpUser&"','"&FtpPass&"','"&HomeDir&"','"&Access&"','"&MaxNrUsers&"','"&DiskQuota&"','"&FtpLdle&"','"&SpeedLimitUp&"','"&SpeedLimitDown&"','"&FtpState&"')"
	conn.execute (sql)
	end if
	end if
next
end sub


sub backup_mail()
set lqsm_mail= server.CreateObject("lqsm.mail")
WebIndex = lqsm_mail.GetMailList()
conn.execute("delete * from mail ")

IndexList = split(WebIndex,",")

on error resume next
for each Index in IndexList
	if Index <> "" then
	MailAction="query"
	Domain=Index

	ret=lqsm_mail.MailManage(MailAction,MailDir, Domain, MailBox, IPAddress, RealName, PassWord, MessageMax, MessageDisk,MaxRcv,MaxUsers,ErrMsg)
	if ret = 0 and ErrMsg = "" then
		sql = " insert into mail (MailDir, Domain, MailBox, IPAddress, RealName, PassWord, MessageMax, MessageDisk,MaxRcv,MaxUsers) values ('"&MailDir&"','"&Domain&"','"&MailBox&"','"&IPAddress&"','"&RealName&"','"&PassWord&"','"&MessageMax&"','"&MessageDisk&"','"&MaxRcv&"','"&MaxUsers&"')"
	conn.execute (sql)
	end if
	end if
next
end sub

sub backup_DnsZ()
set lqsm_dns= server.CreateObject("lqsm.dns")
ret = lqsm_dns.DnsZoneList(DnsList,ErrMsg)
if ret = 0 and ErrMsg = "" then
conn.execute("delete * from DnsZ ")
DnsArray = split(DnsList,",")
for each DnsObj in DnsArray
	if DnsObj <> "" then
		sql = " insert into DnsZ (Domain) values ('"&DnsObj&"')"
		conn.execute (sql)
		call backup_DnsR("A",DnsObj)
		call backup_DnsR("CNAME",DnsObj)
		call backup_DnsR("MX",DnsObj)
		call backup_DnsR("NS",DnsObj)
	end if
next
end if
end sub	

sub backup_DnsR(classType,domain)
set lqsm_dns= server.CreateObject("lqsm.dns")
ret = lqsm_dns.RList(Domain,classType,DnsList,ErrMsg)
if ret = 0 and ErrMsg = "" then
	DnsArray = split(DnsList,",")
	sql = " delete * from DnsR where classtype='"&classType&"' and domain='"&Domain&"'"
	conn.execute(sql)
	for each DnsObj in DnsArray
	if DnsObj <> "" then
		OwnerName=DnsObj
		ret = lqsm_dns.RDetail(Domain,OwnerName,ClassType,Param1,Param2,ErrMsg)
		if ret = 0 and ErrMsg = "" then
			sql = " insert into DnsR (Domain,OwnerName,ClassType,Param1,Param2) values ('"&Domain&"','"&OwnerName&"','"&ClassType&"','"&Param1&"','"&Param2&"')"
			conn.execute(sql)
		end if
	end if
	next
end if
end sub

%>