repaydomaindo.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request("ID")
%>
<!--#include file="domain_manage_class.asp"-->
<%
strSQL="Select * from T_DNS_ALLDN 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"-->
	
	<%
	'public manage
	set manage=new manage_domain
	manage.DN_ID=DNID
	manage.pwd=rs("DNPSW")
	manage.domaintype=rs("DNType")
	manage.domain=rs("DomainName")
	manage.customer_id=session("UserID")
	manage.customer_password=session("UserPSW")
	manage.clID=session("UserID")
	
	if not request("ProdYear")="" then
		Set Rs3= Server.CreateObject("ADODB.Recordset")
		strSQL="Select 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='" & DNID & "' and a.LevelCode='" & Session("UserLevel") & "' and a.ProdYear=" & request("ProdYear")
		Rs3.open strSQL,Cn
		if not (rs3.bof and rs3.eof) then	'取出产品的价格
			set Rs4=Cn.Execute("SP_CheckMoney "& session("UserID") & "," & rs3("ProdPrice") )
			if rs4("result")="0" then '余额不足
				response.write "<br><br>&nbsp;&nbsp;<font color=red>会员 "&session("UserID") & " ,此产品总价格 " & rs3("ProdPrice") & " 元 " &rs4("msg") & "</font>&nbsp; <a href='../agent/ipay.asp'>在线充值</a> <br>"
			else
				manage.addperiod=request("ProdYear")
				'manage.period=request("period")
				call manage.initdb()
				call manage.initsocket()
				if not manage.err_code=0 then
					response.write manage.err_code
				else
					call manage.DomainQuery()			
					if not manage.err_code=0 then
						response.write manage.err_code
					else
						call manage.renew()
						if not manage.err_code=0 then
							response.write "<table class='uaeww'><tr><th rowspan=2></th>"
							response.write "<th align=left>操作失败，错误代码："&manage.err_code
							response.write "</th><tr><th align=left>错误信息："&err_msg(manage.err_code)
							response.write "</th></tr></table>"
						else
							response.write "你已续费成功！"
        		    		Set Rs1= Server.CreateObject("ADODB.Recordset")
        		    		strSQL="Select 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") & "' and a.ProdYear=" & request("ProdYear")
        		    		Rs1.open strSQL,Cn
        		    		if not Rs1.eof then
								'修改数据库					
								set Rs2=Cn.Execute("SP_DNAdd "&session("UserID")&",'"&manage.DN_ID&"'," & manage.addperiod & "," & rs1("ProdPrice")&",'"&Request.ServerVariables("REMOTE_ADDR")&"'")
								if rs2("result")="0" then
									err_code=0
								end if			
								response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;" & rs2("msg") & "</font><br>"
								rs2.close
								set rs2=nothing
							else
								response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp; 追加到本地数据表不成功!</font><br>"
							end if
							rs1.close
							set rs1=nothing
						end if
					end if
				end if
			end if
		else
			'error
			response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp; 续费不成功，没有找到该产品品价格!</font><br>"	
		end if
	else
		response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp; 您没有选择续费年限!</font><br>"	
	end if
	
end if

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