deletemaildomain.asp

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

<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
PostID=Request("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_MailList Where PostID='" & PostID & "'"
if Session("IsPost")<>"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
	Rs.Close
	Set Rs=Nothing
	Cn.Close
	Set Cn=Nothing
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局或者您没有权限！</p>"
	Call PrintPageBottom
	Response.End
End if
ServerCode=Rs("ServerCode")
MaxSize=Rs("MaxSize")
MaxUser=Rs("MaxUser")
ServerIP=Rs("ServerIP")
MailDomain=Rs("BPostDN")

MailSiteNum=Rs("ServerPara")
Rs.Close
%>
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
if Request.Form("OP")="NEXT" then
	if DeleteMailDomain(ServerIP,MailDomain)=0 then

		strSQL="Update T_DNS_ServerInfo Set RealSize=RealSize-" & MaxSize & ",RealUser=RealUser-" & MaxUser & " Where ServerCode='" & ServerCode & "'"
		Cn.Execute(StrSQL)
		
		if DeleteIISSiteBindings(ServerIP,MailSiteNum,":80:mail." & MailDomain)=0 then
			if DropMailInfo(ServerIP,MailDomain)<>0 then
				Response.Write "<br><br><P align='center' class='titletext'>对不起, 删除客户端邮局信息不成功，请通告管理员手工删除</p>"
			end if
			strSQL="Delete From T_DNS_AllPost Where PostID='" & PostID & "'"
			Cn.Execute(strSQL)
			Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllPost','管理员删除邮局','" & PostID & "','删除','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			%>
			<br><br><br><P align='center' class='titletext'>删除邮局成功! <a href="MailList.asp" class="a2">返回</a></p>
			<%
		else
			%>
			<br><br><br><P align='center' class='titletext'>删除邮局失败(2)! 请重新尝试  <a href="MailList.asp" class="a2">返回</a></p>
			<%
		end if
	else
		%>
		<br><br><br><P align='center' class='titletext'>删除邮局失败(1)! 请重新尝试  <a href="MailList.asp" class="a2">返回</a></p>
		<%
	end if
	Call PrintPageBottom
	Response.End
end if
%>
<br><br><br>
<center>
<p>
<TABLE align=center  border=0 cellPadding=5 cellSpacing=1 width="90%">
 <tr>
   <td>
    <font color="red" class="titletext"><b>警告: 本操作将彻底删除用户的邮局域以及所有数据, 并无法恢复! 请谨慎使用</b></font>
   </td>
 </tr>
</table>
</p>
<form name="inputform" action="" method="post">
<input type="hidden" name="OP" value="NEXT">
<input type="hidden" name="ID" value="<%=PostID%>">
<input type="submit" name="del" value=" 删除 " class="button">&nbsp;
<input type="button" name="back" value=" 取消 " onclick="javascript:history.go(-1)" class="button">
</form>
</center>
<%
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>