buy.asp

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

<% 
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
%>
<% ModuleCode="M0910" %>
<!--#include file="../../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../../Include/connect.asp"-->
<%

strSQL="Select a.*, b.STName from v_ProdInfo a, T_DNS_ServiceType b where a.STCode=b.STCode and a.ProdCode='" & Request("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


if Request.Form("next")<>"" then
	strSQL="Exec SP_CreateCombine " & Session("UserID") & ",'" & Request.Form("ProdCode") & "','" & session("P_DSM") & "'," & Request.Form("ProdYear") & "," & Request.Form("BuyYear")
	Set Rs=Cn.Execute(strSQL)
	if Rs("result")="0" then
		session("P_ID")=Rs("msg")
		strDSM=session("P_DSM")
		PType=Left(strDSM,1)
		Select Case PType
			Case "D"
				strRedirect="Domain.asp"
			Case "S"
				strRedirect="Site.asp"
			Case "M"
				strRedirect="Mail.asp"
		End Select	
		Response.Redirect strRedirect
	else
		%>
		<br><br><br><p class="titletext" align="center"><%=Rs("msg")%></p>
		<%
		Call PrintPageBottom
	end if
	Response.End
end if


session("P_ID")=""
session("P_DSM")=""
%>

<script language="javascript">
<!--
	function shopcheck()
	{
  	
		//检查非空

		if (document.form9.BuyYear.value=="" || document.form9.BuyYear.value=="0")
		{
			alert ("必须输入正确的购买年限！");
			document.form9.BuyYear.focus();
			return false;
		}
		ii=0;
		bString="0123456789";
		while (ii<document.form9.BuyYear.value.length)
		{
			if (bString.indexOf(document.form9.BuyYear.value.substring(ii,ii+1))==-1)
			{
				alert("购买年限必须是数字");
				document.form9.BuyYear.focus();
				return false;
			}
			ii=ii+1;
   		}

		if (!document.form9.agreement.checked)
		{
			alert('您尚未阅读并接受相关产品购买协议.');
			return false;
		}
		submitonce(form9);
		//全部通过
		return true;
	}
-->
</script>
<table align=center border=0 width="100%">
  <tr>
    <td>
      <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>购买<%=Rs("STName")%>类产品</strong></font>
    </td>
  </tr>
  <tr>
    <td>
<form name="form9" method="post" action="Buy.asp" onSubmit="return shopcheck()">
<input type="hidden" name="ProdCode" value="<%=Rs("ProdCode")%>">
<input type="hidden" name="ID" value="<%=Rs("ProdCode")%>">
<input type="hidden" name="next" value="yes">
  <table width="98%" border=0 cellpadding=4 cellspacing=1 bgcolor="<%=Opt_Table_BGColor%>">
    <tbody>
      <tr> 
        <td width=16% align="center" bgcolor="<%=Opt_TR_BGColor%>">产品名称</td>
        <td width="84%" bgcolor="<%=Opt_TD_BGColor2%>">
        <%=Rs("ProdName")%>
        </td>
      </tr>
      <tr> 
        <td width=16% align="center" bgcolor="<%=Opt_TR_BGColor%>">包含项目</td>
        <td width="84%" bgcolor="<%=Opt_TD_BGColor2%>">
          <table width="98%" border=0 cellpadding=4 cellspacing=1 bgcolor="<%=Opt_Table_BGColor%>">
            <% if Not IsNULL(Rs("DomainType")) or Rs("DomainType")<>"" then 
            	session("P_DSM")=session("P_DSM") & "D"
            %>
            <tr>
              <td width="16%" align="center" bgcolor="<%=Opt_TR_BGColor%>" rowspan="2">域名</td>
              <td width="16%" bgcolor="<%=Opt_TD_BGColor2%>">域名类型</td>
              <td width="68%" bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("DomainType")%></td>
            </tr>
            <tr>
              <td bgcolor="<%=Opt_TD_BGColor2%>">相关说明</td>
              <td bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("ProdMemo")%></td>
            </tr>
            <% end if %>
            <% if Not IsNULL(Rs("SiteType")) or Rs("SiteType")<>"" then 
            	session("P_DSM")=session("P_DSM") & "S"
            %>
            <tr>
              <td width="16%" align="center" bgcolor="<%=Opt_TR_BGColor%>" rowspan="4">主机</td>
              <td width="16%" bgcolor="<%=Opt_TD_BGColor2%>">主机类型</td>
              <td width="68%" bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("SiteType")%></td>
            </tr>
            <tr>
              <td bgcolor="<%=Opt_TD_BGColor2%>">空间大小</td>
              <td bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("SiteSize")%>M</td>
            </tr>
            <tr>
              <td bgcolor="<%=Opt_TD_BGColor2%>"> 绑定域名数</td>
              <td bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("ThiNB")%>个</td>
            </tr>
            <tr>
              <td bgcolor="<%=Opt_TD_BGColor2%>">最大连接数</td>
              <td bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("MaxIIS")%>个</td>
            </tr>
            <% end if %>
            <% if Not IsNULL(Rs("MailType")) or Rs("MailType")<>"" then 
            	session("P_DSM")=session("P_DSM") & "M"
            %>
            <tr>
              <td width="16%" align="center" bgcolor="<%=Opt_TR_BGColor%>" rowspan="3">邮局</td>
              <td width="16%" bgcolor="<%=Opt_TD_BGColor2%>">邮局类型</td>
              <td width="68%" bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("MailType")%></td>
            </tr>
            <tr>
              <td bgcolor="<%=Opt_TD_BGColor2%>">邮局空间</td>
              <td bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("MailSize")%>M</td>
            </tr>
            <tr>
              <td bgcolor="<%=Opt_TD_BGColor2%>">用户个数</td>
              <td bgcolor="<%=Opt_TD_BGColor1%>"><%=Rs("MailUser")%></td>
            </tr>
            <% end if %>
          </table>
        </td>
      </tr>
      <tr> 
        <td align="center" bgcolor="<%=Opt_TR_BGColor%>" valign=top>产品信息</td>
        <td bgcolor="<%=Opt_TD_BGColor2%>">
        <%=Rs("ProdInfo")%>
      </tr>
      <tr> 
        <td align="center" bgcolor="<%=Opt_TR_BGColor%>">其他说明</td>
        <td bgcolor="<%=Opt_TD_BGColor2%>"><%=Rs("ProdMemo")%></td>
      </tr>
      <tr> 
        <td align="center" 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="" target="_blank">《套餐产品购买协议》</a>
        </td>
      </tr>
    </tbody>
  </table>
<%
  if session("P_DSM")<>"" then
%>
  <br><center>
  <input type="submit" name="Submit" value="购 买" class="button">
  <input type="submit" name="bnCancel" value="取消" class="button">
  </center>
<%
  end if
%>
</form>
    </td>
  </tr>
</table>
<%

Rs.Close
Cn.Close
Set Rs1=nothing
Set Rs2=nothing
Set Cn=nothing
Call PrintPageBottom
%>