buymail.asp

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

<% ModuleCode="M0910" %>
<!--#include file="../../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../../Include/connect.asp"-->
<%
strSQL="Select * from v_ProdInfo where ProdCode='" & Request.QueryString("ID") & "' and 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 ("必须输入邮局密码！");
			document.form1.mailpassword.focus();
			return false;
		}
		if (document.form1.BuyYear.value=="" || document.form1.BuyYear.value=="0")
		{
			alert ("必须输入正确的购买年限！");
			document.form1.BuyYear.focus();
			return false;
		}
		ii=0;
		     bString="0123456789";
	 while (ii<document.form1.BuyYear.value.length)
	 {
		if (bString.indexOf(document.form1.BuyYear.value.substring(ii,ii+1))==-1)
		{
			alert("购买年限必须是数字");
			document.form1.BuyYear.focus();
			return false;
		}
		ii=ii+1;
     	}
		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;
		}
		if (!document.form1.agreement.checked)
		{
			alert('您尚未阅读并接受专业邮局租用协议.');
			return false;
		}
		submitonce(form1);
		return true;
	}
-->
</script>
<table align=center border=0>
  <tr>
    <td>
      <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>购买邮局</strong></font>
    </td>
  </tr>
  <tr>
    <td>
<form name="form1" method="post" action="CreateMail.asp" onSubmit="return shopcheck()">
<input type="hidden" name="ProdCode" value="<%=Rs("ProdCode")%>">
  <table  width="98%" border=0 cellpadding=4 cellspacing=1 bgcolor="<%=Opt_Table_BGColor%>">
    <tbody>
      <tr> 
        <td width=16% align=right bgcolor="<%=Opt_TR_BGColor%>">产品名称</td>
        <td width="84%" bgcolor="<%=Opt_TD_BGColor2%>">
        <%=Rs("ProdName")%>
        (
        <%=Rs("MailType")%>
        <% if Trim(Rs("ProdInfo"))<>"" then Response.Write ", " & Rs("ProdInfo") %>
        )
        </td>
      </tr>
      <tr> 
        <td align=right bgcolor="<%=Opt_TR_BGColor%>" valign=top>邮局类型</td>
        <td bgcolor="<%=Opt_TD_BGColor2%>">
        <%=Rs("MailType")%>
        </tr>
      <tr> 
        <td align=right bgcolor="<%=Opt_TR_BGColor%>" valign=top>邮局域名</td>
        <td bgcolor="<%=Opt_TD_BGColor2%>">  
          <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>
          </td>
      </tr>
      <tr> 
        <td align=right valign=top bgcolor="<%=Opt_TR_BGColor%>">管理员密码</td>
        <td valign=top bgcolor="<%=Opt_TD_BGColor2%>"> <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="<%=Opt_TR_BGColor%>"> 邮局空间</td>
        <td bgcolor="<%=Opt_TD_BGColor2%>"> <%=Rs("MailSize")%>M </td>
      </tr>
      <tr> 
        <td align=right bgcolor="<%=Opt_TR_BGColor%>"> 邮局用户数</td>
        <td bgcolor="<%=Opt_TD_BGColor2%>"> <%=Rs("MailUser")%> </td>
      </tr>
      <tr> 
        <td align=right bgcolor="<%=Opt_TR_BGColor%>"> 租用年限</td>
        <td bgcolor="<%=Opt_TD_BGColor2%>"> 
          <input maxlength=5 name=BuyYear size=3 type=text class="input" value="1">
          ×
          <select name="ProdYear" size=1 class="input">
            <%
            Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & Session("UserLevel") & "' order by ProdYear"
            Rs1.open strSQL,Cn
            while not Rs1.eof
            %>
            <option value="<%=Rs1("ProdYear")%>"><%=Rs1("ProdYear")%>年/<%=Rs1("ProdPrice")%>元</option>
            <%
            	Rs1.movenext
            wend
            Rs1.Close
            %>
          </select>
          </td>
      </tr>
      <tr> 
        <td colspan="2" bgcolor="<%=Opt_TD_BGColor2%>">  
          <input name=agreement type=checkbox value="Y">
              我接受<a href=<%=HomeDir%>Aboutus/Pact/Mail.asp target = _blank>《专业邮局租用协议》</a> 
            </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 Rs1=nothing
Set Rs2=nothing
Set Cn=nothing
Call PrintPageBottom
%>