modidefaultdocdo.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
VHID=Request.Form("ID")
DefaultDoc=Request.Form("DefaultDoc")
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
	if SetServerDefaultDoc(Rs("ServerIP"),Rs("DNSeq"),DefaultDoc)=0 then
		strSQL="Update T_DNS_AllVH Set DefHomePage='" & DefaultDoc & "' Where VHID='" & VHID & "'"
		Cn.Execute(StrSQL)
		Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllVH','修改主机默认页','" & VHID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
	end if
end if

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

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