repaydomain.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 65 行

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_DomainList Where DNID='" & DNID & "'"
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="DomainMenu.asp"-->
<form name="form9" action="RePayDomainDo.asp" method="post"">
  <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><%=Rs("DomainName")%></font> 续费
	  </td>
	</tr>		
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">续费年限/价格</td>
	  <td>
          <select name="ProdYear" size=1 class="input">
            <%
            Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select a.ProdYear,a.ProdPrice from T_DNS_ProdPrice a,T_DNS_AllDN b,T_DNS_UserOrder c Where a.ProdCode=c.ProdCode and b.UOID=c.UOID and b.DNID='" & request("ID") & "' and a.LevelCode='" & Session("UserLevel") & "' order by a.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="<%=DNID%>">
	    <input name="submit1" type=submit value="确定续费" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
	    <input type=button onclick="javascript:history.go(-1)" value="返回" name=button1 class="button">
	  </td>
	</tr>
  </table>
</form>   

<%
end if

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