<%@ 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")%>　SQL服务器设置 <%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_Serversqllist where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id asc" if request.Form ("id")<>"" Then Sql="Select * from FreeHost.FreeHost_Serversqllist where id='"&Request("id")&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')" ds.Open Sql,conn,1,1 If ds.Eof Then%> 服务器列表为空. <%else%> <%while not ds.Eof%> <% ds.movenext wend%>

代号	服务器名称	操作	操作
<%=ds("id")%>	<%=ds("servername")%>(<%=ds("site")%>) IP:<%=ds("ip")%> 端口:<%=ds("port")%>	">修改	" target=_blank>系统自检>>>

<%end if%>
<%if Request("id")<>"" then Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Serversqllist where id='"&Request("id")&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"')" ds.Open Sql,conn,1,1 If not ds.Eof Then %>

　修改旧的服务器:

服务器命名： " size="12"> 受控网址： " size="35">
共享密码： ">
服务器ＩＰ： " size="20"> 端口: " size="20">
新建的数据库文件放置的目录： " maxlength="200">
所用软件：
PhpMyadmin网址或SQL2000网页管理器网址： " maxlength="200">
数据库的超级用户名： " size="20"> 超级用户密码： " size="20">

" size="12"> 　　　　　　　　　　　　　　　　　　　　　　　　

<% end if end if%>

　添加新的服务器:

服务器命名：受控网址：
共享密码：
　 (此密码是星外虚拟主机管理平台主控端与当前受控端共享密码，请修改成一个14位以上的密码)
　 (此密码必须与此服务器“开始”-“7i24虚拟主机管理平台”-“修改共享密码[受控端]”一致）
服务器ＩＰ：
端口： (SQL2000默认为1433,MySQL为3306)
新建的数据库文件放置的目录：
SQL2000数据库文件默认放置的目录为
C:\Program Files\Microsoft SQL Server\MSSQL\Data
(注意MySQL数据库文件默认放置的目录为安装目录下的data目录，例如：
C:\Program Files\MySQL\MySQL Server 5.5\data)

所用软件：
PhpMyadmin网址或SQL2000网页管理器网址：
数据库的超级用户名： (SQL2000为"sa",MySQL为"root")
超级用户密码：

<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>