managednsurldo.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<!--#include file="../../Include/GetSysParam.asp"-->
<%

DNID=Request("ID")
OP=Request("OP")
URL=lcase(Trim(Request.Form("URL")))
URType=Request.Form("URType")
Redirect=lcase(Trim(Request.Form("Redirect")))

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 not Rs.Eof Then
	ServerIP=Sys_Opt_URLRedirectServer
	DomainName=Rs("DomainName")
	Select Case OP
		Case "add"
			if URL="" or Redirect="" then
				Response.Redirect "ManageDNS.asp?ID=" & DNID
			end if
			strSQL="Select * from T_DNS_URLRedirect where URL='" & URL & "' and DNID='" & DNID & "'"
			Set Rs1 = Server.CreateObject("ADODB.Recordset")
			Rs1.open strSQL,Cn
			if Rs1.Eof then
				if AddURLRedirect(ServerIP, ":80:" & URL & "." & DomainName)=0 then		
					Set RsNo= Cn.Execute("SP_PublicNObyRs 'P1180'")
					URID=RsNo("Result")
					RsNo.Close
					If_InUse="Y"
					if AddUrlRedirectDB(ServerIP, URID, DNID, URType, URL & "." & DomainName, Redirect, If_InUse)=0 then
						strSQL="Insert into T_DNS_URLRedirect (URID,DNID,URType,URL,Redirect,CrtTime) values('" & +_
							URID & "','" & DNID & "','" & URType & "','" & URL & "','" & +_
							Redirect & "',getdate())"
						Cn.Execute(StrSQL)
						
						strSQL="Select * from T_DNS_DNSResolve where HostName='" & URL & "' and RRData='" & Sys_Opt_URLRedirectServer & "'"
						Set Rs2 = Server.CreateObject("ADODB.Recordset")
						Rs2.open strSQL,Cn
						if Rs2.Eof then
							if AddHost(Sys_Opt_DNS1_IP,DomainName,URL,Sys_Opt_URLRedirectServer,RetStr)=0 then
								
								Set RsNo= Cn.Execute("SP_PublicNObyRs 'P1170'")
								DRID=RsNo("Result")
								RsNo.Close
								
								strSQL="Insert into T_DNS_DNSResolve (DRID,DNID,HostName,TTL,RRType,Reference,RRData,CrtDate) values('" & +_
									DRID & "','" & DNID & "','" & URL & "','3600','A','" & +_
									"-" & "','" & Sys_Opt_URLRedirectServer & "',getdate())"
								Cn.Execute(StrSQL)
							end if						
						end if
						Rs2.Close
						
						Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名DNS转发','" & DNID & "/" & URID & "','add','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
					end if
				end if
			end if
			Rs1.Close
			Set Rs1=Nothing
		Case "del"
			URID=Request.Form("URID")
			if DeleteURLRedirect(ServerIP, ":80:" & URL & "." & DomainName)=0 then
				if DeleteUrlRedirectDB(ServerIP, URID)=0 then			
					strSQL="Delete from T_DNS_URLRedirect Where URID='" & URID & "'"
					Cn.Execute(StrSQL)
					
					strSQL="Select * from T_DNS_DNSResolve where HostName='" & URL & "' and RRData='" & Sys_Opt_URLRedirectServer & "'"
					Set Rs2 = Server.CreateObject("ADODB.Recordset")
					Rs2.open strSQL,Cn
					if Not Rs2.Eof then
						if DeleteHost(Sys_Opt_DNS1_IP,DomainName,URL,Sys_Opt_URLRedirectServer,RetStr)=0 then	
							strSQL="Delete from T_DNS_DNSResolve Where HostName='" & URL & "' and RRData='" & Sys_Opt_URLRedirectServer & "'"
							Cn.Execute(StrSQL)
						end if					
					end if
					Rs2.Close
					
					Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名DNS转发','" & DNID & "/" & URID & "','del','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
				end if
			end if
	End Select
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing

Response.Redirect "ManageDNS.asp?ID=" & DNID
%>