repayresdndo.asp

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

<% ModuleCode="M0315" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from T_DNS_AllResDN Where ResDNID='" & 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="ResDNMenu.asp"-->
<%
	if not request("ProdYear")="" then
		'修改数据库					
		strSQL="SP_ResDN '3','" & DNID &"',"& session("UserID") & "," & request("UYear") & "," & request("Money") & ",'','','','','','','','" & Request.ServerVariables("REMOTE_ADDR") & "'"
		set Rs=Cn.Execute(strSQL)
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>" & rs("msg") &"</font>"
		if rs("result")="1" then
			Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllResDN','解析域名DNS管理','" & DNID & "','resume','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
		end if
		rs.close
		set rs=nothing
	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
%>