%@ Language=VBScript %> <%If session("agentusername")="" Then ef=True ec="授权非法,有可能是超时造成的。" ElseIf not IsNumeric(Request("id")) Then ef=True ec="ID应该是数字!" elseIf session("canmyserver")="" Then ef=True ec="您没有此操作的权限。" end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%> 服务器设置 <%session("FreeHostCom").FreeHost_WR("html6")%> <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Serverlist where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id asc" if request.Form ("id")<>"" Then Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&Request("id")&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')" ds.Open Sql,conn,1,1 If ds.Eof Then%> 服务器列表为空. <%else%>
| 代号 | 服务器名称 | 操作 | 操作 |
| <%=ds("id")%> | <%=ds("servername")%>(<%=ds("site")%>) IP:<%=ds("ip")%> | ">修改 | &site=<%=ds("site")%>" target=_blank>系统自检>>> |