createvhost2.asp

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

<% ModuleCode="M0910" %>

<!--#include file="../../../Include/Reference.asp"-->

<%
Call PrintPageHead
%>

<!--#include file="../../../Include/connect.asp"-->
<!--#include file="../../../Include/GetSysParam.asp"-->
<!--#include file="../../../Include/WEBCtrl.asp"-->

<%
PostID=request("ID")
strSQL="Select * from v_MailList Where Stat<>'0' and PostID='" & PostID & "'"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局，可能注册不成功，请与管理员联系！</p>"
else
	ServerIP=Rs("ServerPubIP")
	MailDomain=Rs("BPostDN")
	MailUser=Rs("MaxUser")
	MailSize=Rs("MaxSize")
	
	if ChangeMailDomainProp(ServerIP,MailDomain,Opt_System_MailManager & "@" & MailDomain, MailUser, CStr(Cint(MailSize)*1000))<>0 then
		Response.Write "建立邮局失败, 请重新尝试! 错误码: 3"
		Call PrintPageBottom
		Response.End
	end if
	'成功
	strSQL="Update T_DNS_AllPost Set IfSubmit='1' Where PostID='" & PostID & "'"
	Cn.Execute(StrSQL)
	%>
	<p align="center" class="titletext">
	<br><br>
	恭喜！系统正确建立邮局信息，完成整个购买流程! <br>
	点击<a href="../../vhost/ViewVHostDetail.asp?ID=<%=request("VHID")%>" class="a2">这里查看主机信息</a><br>
	点击<a href="../../mail/ViewMailDetail.asp?ID=<%=PostID%>" class="a2">这里查看邮局信息</a>
<%
end if
rs.close
set rs=nothing

Call PrintPageBottom
Cn.Close
%>

<%
Function FormatDate(iDate)
	FormatDate=DatePart("yyyy",iDate) & "-" & DatePart("m",iDate) & "-" & DatePart("d",iDate)
End Function
%>