repaymail.asp

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

<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
PostID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_MailList Where PostID='" & PostID & "'"
if Session("ISADMIN")<>"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
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局或者您没有权限！</p>"
else

%>
<!--#include file="MailMenu.asp"-->
<!------------------------------------------------------------------------------------->
<script language="javascript">
<!--
	function shopcheck()
	{
		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;
     	}
		return true;
	}
-->
</script>
<form name="form1" action="RePayMailDo.asp" method="post" onSubmit="return shopcheck()">
  <table width="60%" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="<%=Opt_Table_BGColor%>">
	<tr bgcolor="<%=Opt_TR_BGColor%>">
	  <td colspan=2 align=center>
	    请选择续费年限--<font color=red>mail.<%=Rs("BPostDN")%></font>
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>" align=center> 
	  <td bgcolor="<%=Opt_TR_BGColor%>">到期日</td>	
	  <td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>" align=center>
	  <td bgcolor="<%=Opt_TR_BGColor%>">选择年限</td>
	  <td>续
		<select name="BuyYear" size=1 class="input">
		<%
		i=1
		while i<=10
			response.write "<option value='" & i & "'>" & i & "</option>"
			i=i+1
		wend
		%>
		</select>
          ×
          <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%>" align=center>
	    <input name="ID" type="hidden" value="<%=PostID%>">
	    <input name="submit1" type=submit value="下一步" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
	    <input type=button onclick="javascript:history.go(-1)" value="返回" class="button" name=button1>
	  </td>
	</tr>
  </table>
</form>

<%
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>