managednsurldo.asp

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

<% 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 & "'"
			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)
						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)
					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
%>