📄 server.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(111)
if Cmd = "Add" then
Svr_Name = Request("Svr_Name")
If Conn.Num("EfangServer","Svr_Name='" & Svr_Name & "'")>0 Then
ShowErMsg("服务器名称重覆！") : Response.End
End If
call Conn.Insert("EfangServer","Svr_Name","'"&Svr_Name&"'")
WriteLog "添加服务器 - " & Svr_Name
TmStr = Conn.QueryItem("EfangServer","Svr_ID","Svr_Name='"&Svr_Name&"'")
Call ShowErMsgGo("添加服务器成功！请继续填写相关内容！","Server_Upd.asp?Svr_ID=" & TmStr)
End If
%>
<html>
<head>
<title>服务器管理列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
<%=Efs_Cfg_PHeader%>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="服务器管理">
</form>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">系统设置>> 系统参数设置 >> <b></b><b></b><b>服务器管理</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img src="images/toolbar_help.gif" alt="帮助" width="43" height="20" border="0" id="id_locate" style="cursor:hand;width:22px; height:20px;" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<th width="24%" height="25" align="center" nowrap class="DataListHeader">服务器名称</th>
<th width="20%" align="center" nowrap class="DataListHeader">IP地址</th>
<th width="16%" height="25" align="center" nowrap class="DataListHeader">用户</th>
<th width="32%" align="center" nowrap class="DataListHeader">登陆到服务器</th>
<th width="8%" align="center" nowrap class="DataListHeader">操作</th>
<%
Set SvrData=Conn.Query("EfangServer","Order By Svr_ID")
Xu=0
Do while not (SvrData.EOF or SvrData.BOF)
Xu=Xu+1
%>
<FORM action="http://<% =SvrData("Svr_Ip") %>/login.efang?Cmd=login" method="post" name="login<%=Xu%>" onSubmit="return Check<%=Xu%>(this)" target="_blank">
<tr>
<td width="24%" height="25" align="center" nowrap class="DataListGrid"><script language="JavaScript">
function Check<%=Xu%>(form)
{
if (form.LoginAdminUserPwd.value.length<5) {
alert("【提醒您】\n\n 密码的长度不能小于5位！");
form.LoginAdminUserPwd.focus();
return false;
}
return true;
}
</script> <%=SvrData("Svr_Name")%></td>
<td width="20%" align="center" nowrap class="DataListGrid"> <%=SvrData("Svr_Ip")%></td>
<td width="16%" align="center" nowrap class="DataListGrid"> <%=SvrData("Svr_AutoUser")%> <input name="LoginAdUser" type="hidden" id="LoginAdminUserName" value="<%=SvrData("Svr_AutoUser")%>"></td>
<td width="32%" align="center" nowrap class="DataListGrid"> <input name="LoginAdPass" type="password" size="10">
<input type="submit" name="Submit2" value="登陆"></td>
<td width="8%" align="center" nowrap class="DataListGrid"> <a href="Server_Upd.asp?Svr_ID=<%=SvrData("Svr_ID")%>" class="CommonFace">修改</a></td>
</tr>
</form>
<%
SvrData.movenext
Loop
Set SvrData=Nothing
%>
</table>
<br> <br> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="?Cmd=Add" onSubmit="return CheckForm(this)">
<tr>
<td height="25"><b><font color="#FF0000">此页为虚拟主机服务器管理接口，如果是下级代理商此项不用修改</font></b></td>
</tr>
<tr>
<td height="25">
服务器名称（此名称可自设）：
<input name="Svr_Name" type="text" class="InputOne" id="Svr_Name" maxlength="20">
<input name="Submit" type="submit" class="ButtonOne" value="添加服务器">
<script language="JavaScript">
function CheckForm(form){
if (form.Svr_Name.value=="") {
alert("请填写服务器名称！");
form.Svr_Name.focus();
return false;
}
return true;
}
</script>
</td>
</tr></form>
</table>
</div>
</td>
</tr>
</table>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -