modidefaultdoc.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"-->
<!------------------------------------------------------------------------------------->
<form name="inputform" action="ModiDefaultDocDo.asp" method="post">
  <table width="90%" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="<%=Opt_Table_BGColor%>">
	<tr bgcolor="<%=Opt_TR_BGColor%>">
	  <td colspan=2 align=center>
	    请输入网站默认首页--<font color=red><%=Rs("VHName")%></font>
	  </td>
	</tr>		
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">默认首页</td>
	  <td><input type="text" name="DefaultDoc" Size="40" class="input" value="<%=Rs("DefHomePage")%>">&nbsp;&nbsp;
	    每个页面用<font color=red>,</font>号分开
	  </td>
	</tr>
	  <td colspan=2 bgcolor="<%=Opt_TD_BGColor2%>" align=center>
	    <input name="ID" type="hidden" value="<%=VHID%>">
	    <input name="submit1" type=submit value="确定" class="button">&nbsp;&nbsp;
	    <input type=button onclick="javascript:history.go(-1)" value="返回" name=button1 class="button">
	  </td>
	</tr>
  </table>
</form>   

<%
end if

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