modierrpagedo.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
VHID=Request.Form("ID")
ErrCode=Request.Form("ErrCode")
SubErrCode=Request.Form("SubErrCode")
PageFileName=Trim(Request.Form("PageFileName"))

strSQL="Select * from v_VHostList Where VHID='" & VHID & "'"
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
	Dim HttpErrors,ServerIP,SiteNum,Er
	ServerIP=Rs("ServerIP")
	SiteNum=Rs("DNSeq")
	UserHomeDir = GetUserHomeDir(ServerIP,Rs("UserName"))
	if UserHomeDir<>"-1" then
		if GetServerHttpErrors(Rs("ServerIP"),"1",StandardErrors)=0 then
			if GetServerHttpErrors(Rs("ServerIP"),Rs("DNSeq"),HttpErrors)=0 then
				For I=0 to UBound(HttpErrors)
					Er=Split(HttpErrors(I),",")
					if (Er(0) & ":" & Er(1))=(ErrCode & ":" & SubErrCode) then
						if PageFileName="" or PageFileName="系统默认页" then
							HttpErrors(I)=StandardErrors(I)
						else
							HttpErrors(I)=ErrCode & "," & SubErrCode & ",FILE," & UserHomeDir & PageFileName
						end if
					end if
				Next
				if SetServerHttpErrors(ServerIP,SiteNum,HttpErrors)=0 then
					Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllVH','主机错误页面','" & VHID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
				end if
			end if
		end if
	end if
end if

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

Response.Redirect "ModiErrPage.asp?ID=" & VHID
%>