modierrpage.asp

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

<% ModuleCode="M0410" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
VHID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
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 Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此虚拟主机或者您没有权限！</p>"
else

%>
<!--#include file="VHostMenu.asp"-->
<!--#include file="../../Include/GetSysParam.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
Dim HttpErrors

UserHomeDir = GetUserHomeDir(Rs("ServerIP"),Rs("UserName"))
if UserHomeDir<>"-1" then
if GetServerHttpErrors(Rs("ServerIP"),"1",StandardErrors)=0 then
if GetServerHttpErrors(Rs("ServerIP"),Rs("DNSeq"),HttpErrors)=0 then
%>
<!------------------------------------------------------------------------------------->
<font class="titletext">修改<font color=red><%=Rs("VHName")%></font>主机的错误页面</font>
<br><br>
<table border=0 cellPadding=0 cellSpacing=0 width="90%" align="center">
  <tr>
    <td>
    &nbsp;&nbsp;&nbsp;
    自定义服务器提示：当您的页面不存在时，访问者往往会得到一个404 not found 
    的提示，这个提示一般是服务器返回给浏览器(IE等），浏览器给出的。有可能您的页面只是更新换了名字，或链接错误，对于访问者来讲，就找不到所需要的信息，您可以自定义出现这种情况时，您返回给用户的信息，例如：“网页更新，请访问新网页，返回主页”等。</p>
            <ul>
              <li>我们的服务器支持两种自定义页面，分别是：404,500</li>
              <li>404，文件找不到时给出的提示页面.</li>
              <li>500，如果您有ASP程序，当程序出错时，一般会出现 500 internal server error,您可以自己定义程序出错的页面.</li>
              <li>定义方法,输入网页的路径和文件名,路径为相对路径.注意填写的路径是从您的网站的根目录开始的。例如：如果您要将您的404错误改为你网站根目录下的404.htm，则输入404.htm即可。如果改成根目录下page子目录中的404.htm，
              则应该填入page\404.htm
              </li>
              <li>如果你已经自定义了错误叶面,现在希望将错误再修改为系统默认定义,只需要将文件名设置为空,再提交就可以了.</li>
              <li>如果你输入的文件不存在,那么错误页面也会初始化成系统默认页面</li>
            </ul>
    </td>
  </tr>
</table>
<br>
<TABLE bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=4 cellSpacing=1 width="95%" align="center">
   <tr bgcolor="<%=Opt_TR_BGColor%>">
      <td>错误代码</td>
      <td>链接</td>
      <td>修改</td>
   </tr>
<%
ErrIn=Split(Sys_Opt_ErrCodeList,",")
For J=0 to UBound(ErrIn)
	Found=False
	For I=0 to UBound(HttpErrors)
		Er=Split(HttpErrors(I),",")
		ErrCode=Er(0) & ":" & Er(1)
		if ErrIn(J)=ErrCode then
			Found=True
			Exit For
		End if
	Next
	if Found then
		if HttpErrors(I)=StandardErrors(I) then
			ErrFile="系统默认页"
		else
			ErrFile=Er(3)
			if Left(ErrFile,Len(UserHomeDir))=UserHomeDir then
				ErrFile=Replace(ErrFile,UserHomeDir,"")
			end if	
		end if
	%>
		<form name="form<%=J%>" action="ModiErrPageDo.asp" method="post">
		<input name="ID" type="hidden" value="<%=VHID%>">
		<input type="hidden" name="ErrCode" value="<%=Er(0)%>">
		<input type="hidden" name="SubErrCode" value="<%=Er(1)%>">
		  <%if j mod 2 =0 Then %>
		  <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
		  <% else %>
		  <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
		  <% end if %>
		   <TD><%=ErrCode%></TD>
		   <TD><input type="text" name="PageFileName" value="<%=ErrFile%>" class="input" size="40"></TD>
		   <td>
		    <input type="submit" class="button" value=" 修改 ">
		   </td>
		</TR>
		</form>
	<%
	else
		SubEr=Split(ErrIn(J),":")
	%>
		<form name="form<%=J%>" action="ModiErrPageDo.asp" method="post">
		<input name="ID" type="hidden" value="<%=VHID%>">
		<input type="hidden" name="ErrCode" value="<%=SubEr(0)%>">
		<input type="hidden" name="SubErrCode" value="<%=SubEr(1)%>">
		  <%if j mod 2 =0 Then %>
		  <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
		  <% else %>
		  <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
		  <% end if %>
		   <TD><%=ErrIn(J)%></TD>
		   <TD><input type="text" name="PageFileName" value="" class="input" size="40"></TD>
		   <td>
		    <input type="submit" class="button" value=" 修改 ">
		   </td>
		</TR>
		</form>
	<%
	end if
Next
%>
</table>
<%
else
	Response.Write "<br><br><P align='center' class='titletext'>虚拟主机已经断开, 请重新尝试！</p>"
end if
else
	Response.Write "<br><br><P align='center' class='titletext'>虚拟主机已经断开, 请重新尝试！</p>"
end if
else
	Response.Write "<br><br><P align='center' class='titletext'>虚拟主机已经断开, 请重新尝试！</p>"
end if

end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>