mail.asp

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

<% ModuleCode="M0910" %>
<!--#include file="../../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../../Include/connect.asp"-->
<%
strSQL="Select a.*,b.DomainName,b.SiteDomain from v_ProdInfo a, T_DNS_CurBuy b where a.ProdCode=b.ProdCode and b.PID='" & session("P_ID") & "' and a.ProdStat<>'3'"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><br><br><p align='center'>无法购买该产品</p>"
	Rs.Close
	Cn.Close
	Call PrintPageBottom
	Response.End
end if
%>
<script language="javascript">
<!--
	function shopcheck()
	{
		if (document.form1.maildomain.value=="")
		{
			alert ("必须输入邮局域名！");
			document.form1.maildomain.focus();
			return false;
		}

		if (document.form1.mailpassword.value=="")
		{
			alert ("必须输入FTP密码！");
			document.form1.mailpassword.focus();
			return false;
		}

		ii=0;
     bString="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_";
	 while (ii<document.form1.mailpassword.value.length)
	 {
		if (bString.indexOf(document.form1.mailpassword.value.substring(ii,ii+1))==-1)
		{
			alert("管理员密码必须是 a-z A-Z 0-9 之间的字母和数字组合。");
			document.form1.mailpassword.focus();
			return false;
		}
		ii=ii+1;
     }
		if ( document.form1.mailpassword.value.length < 5)
		{
			alert("输入管理员密码少于5位");
			document.form1.mailpassword.focus();
			return false;
		}
		if (document.form1.mailpassword.value != document.form1.mailpassword1.value)
		{
			alert ("管理员密码和确认不一样！");
			document.form1.mailpassword.focus();
			return false;
		}
		submitonce(form1);
		return true;
	}
-->
</script>

<table align=center border=0 cellpadding="0" cellspacing="0" width="95%">
  <tr>
    <td colspan="2" class="titletext" height="30">
    <font color="<%=Opt_Font_TitleColor%>"><strong>购买<%=Rs("ProdName")%></strong></font>
    </td>
  </tr>
  <tr>
    <td colspan="2" height="1" bgcolor="#FFCC00"></td>
  </tr>
  <tr>    
    <td height="28">
      <strong>第 <font color=red><%=InStr(session("P_DSM"),"M")%></font> 步  -  定制邮局</strong>
    </td>
    <td align="right">
    共 <%=Len(session("P_DSM"))%> 步
    </td>
  </tr>
  <tr>
    <td colspan="2">
<form name="form1" method="post" action="BuyRe.asp" onSubmit="return shopcheck()">
<input type="hidden" name="PType" value="M">
<input type="hidden" name="ProdCode" value="<%=Rs("ProdCode")%>">
  <table  width="100%" border=0 cellpadding=4 cellspacing=1 bgcolor="#CCCCCC">
    <tbody>
      <tr> 
        <td bgcolor="#FFFFFF" align=right valign=top>邮局类型</td>
        <td  bgcolor="#FFFFFF">
        <%=Rs("MailType")%>
        </tr>
      <tr>
        <td align=right valign=top bgcolor="#FFFFFF">邮局域名</td>
        <td bgcolor="#FFFFFF">
        <%
        DomainName=""
        if IsNULL(Rs("DomainName")) or Rs("DomainName")="" then
        	if IsNULL(Rs("SiteDomain")) or Rs("SiteDomain")="" then
        		DomainName=""
        	else
        		DomainName=Rs("SiteDomain")
        	end if
        else
        	DomainName=Rs("DomainName")
        end if
        
        if DomainName="" then
        %>
          mail.<input name=maildomain type=text size="16" maxlength=128 class="input">
          <br>
          您在此绑定一个邮局域名。 例如:<font color=#FF0000> abc.com</font>
          <br>
          您的邮局管理用户将是: <font color=#FF0000><%=Opt_System_MailManager%>@邮局域名</font>
        <%
        else
        %>
          <input name=maildomain type=hidden value="<%=DomainName%>">
          mail.<%=DomainName%> 
          <br>
          您的邮局管理用户将是: <font color=#FF0000><%=Opt_System_MailManager%>@<%=DomainName%></font>
        <% end if %>
          </td>
      </tr>
      <tr> 
        <td align=right valign=top bgcolor="#FFFFFF">管理员密码</td>
        <td valign=top bgcolor="#FFFFFF"> <input maxlength=16 name=mailpassword size=16 type=password class="input"> 
          <br>
          为了您的邮局更加安全,请将您的密码做如下设置:<br>
          长度8-16位,由字母或数字组成(密码必须同时包含大小写字母和数字) 例如:<font color=#FF0000> AabB4321</font><br>
          <br>
          <input maxlength=16 name=mailpassword1 size=16 type=password class="input">
          密码确认 </td>
      </tr>
      <tr> 
        <td align=right bgcolor="#FFFFFF"> 邮局空间</td>
        <td bgcolor="#FFFFFF"> <%=Rs("MailSize")%>M </td>
      </tr>
      <tr> 
        <td align=right bgcolor="#FFFFFF"> 邮局用户数</td>
        <td bgcolor="#FFFFFF"> <%=Rs("MailUser")%> </td>
      </tr>
    </tbody>
  </table>
  <br><center>
  <input type="submit" name="Submit" value="确定，进入下一步" class="button">
  <input type="reset" name="bnCancel" value="取消" class="button">
  </center>
</form>
    </td>
  </tr>
</table>
<%
Rs.Close
Cn.Close
Set Rs=nothing
Set Cn=nothing
Call PrintPageBottom
%>