<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%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%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　SQL服务器设置
<%=htmlwrite("html6")%>
<br>
<%
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%>
<table width="100%" border="0" cellspacing="1" bgcolor="#000000">
  <tr bgcolor="#C1BFBF">
    <td width="39" align="center">代号</td>
    <td width="539">　服务器名称</td>
    <td width="69" align="center">操作</td>
    <td width="105" align="center">操作</td>
  </tr>
<%while not ds.Eof%>	
    
  <tr>
    <td width="39" align="center" bgcolor="#FAFAFA"><%=ds("id")%></td>
    <td width="539" bgcolor="#FAFAFA">　<%=ds("servername")%>(<%=ds("site")%>) IP:<%=ds("ip")%> 端口:<%=ds("port")%> </td>
    <td width="69" align="center" bgcolor="#FAFAFA"><a href="serversqllist.asp?id=<%=ds("id")%>"><font color=black>修改</font></a></td>
    <td width="105" align="center" bgcolor="#FAFAFA"><a href="sqltest.asp?id=<%=ds("id")%>" target=_blank><font color=blue>系统自检>>></font></a></td>
  </tr>
    <%
ds.movenext
wend%>
</table>
<%end if%>
<br> 



<%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
%>
<SCRIPT language=JavaScript>
<!--
	function chkForm(theform)
	{
			if(! confirm("请确认是否要修改或删除?"))	return false;
		return true;
	}
//-->
</SCRIPT>
<form name="form1" method="post" action="serversqladd.asp" ID="Form1" onsubmit="return chkForm(this)">
    <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
      <tr>
        <td colspan="2" bgcolor="#CCCCCC"><strong>　修改旧的服务器:</strong> </td>
        <td width="76%" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
    </table>
    <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
      <tr>
        <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA">服务器命名：
          <input name="servername" type="text" id="servername" value="<%=ds("servername")%>" size="12">
受控网址：
<input name="site" type="text" id="site" value="<%=ds("site")%>" size="35">
<br>
共享密码：
<input name="FreeHostsharekey" type="password" id="FreeHostsharekey"  value="<%=ds("FreeHostsharekey")%>"><br>
服务器ＩＰ：
<input name="ip" type="text" id="ip" value="<%=ds("ip")%>" size="20">
端口:
<input name="port" type="text" id="port" value="<%=ds("port")%>" size="20">
<br>
新建的数据库文件放置的目录：
<input name="homedir" type="text" id="spacelimit" size="40" value="<%=ds("homedir")%>" maxlength="200">
<br>
所用软件：
<select name="softtype" id="softtype">
  <option value="2000" <%if ds("softtype")="SQL2000" and ds("MSSQLver")="2000" then%>selected<%end if%>>SQL2000</option>
  <option value="2005" <%if ds("softtype")="SQL2000" and ds("MSSQLver")="2005" then%>selected<%end if%>>SQL2005</option>
  <option value="2008" <%if ds("softtype")="SQL2000" and ds("MSSQLver")="2008" then%>selected<%end if%>>SQL2008</option>
  <option value="2012" <%if ds("softtype")="SQL2000" and ds("MSSQLver")="2012" then%>selected<%end if%>>SQL2012</option>
  <option value="2014" <%if ds("softtype")="SQL2000" and ds("MSSQLver")="2014" then%>selected<%end if%>>SQL2014</option>
  <option value="5.0" <%if ds("softtype")="MySQL" and ds("MySQLver")="5.0" then%>selected<%end if%>>MySQL5.0</option>
  <option value="5.1" <%if ds("softtype")="MySQL" and ds("MySQLver")="5.1" then%>selected<%end if%>>MySQL5.1</option>
  <option value="5.5" <%if ds("softtype")="MySQL" and ds("MySQLver")="5.5" then%>selected<%end if%>>MySQL5.5(PHP 5.3必须用这个版本)</option>
</select>
<br>
PhpMyadmin网址或SQL2000网页管理器网址：
<input name="admurl" type="text" id="spacelimit" size="40" value="<%=ds("admurl")%>" maxlength="200"><br>
数据库的超级用户名：
<input name="admname" type="text" id="admname" value="<%=ds("admname")%>" size="20">
超级用户密码：
<input name="admpass" type="password" id="admpass" value="<%=ds("admpass")%>" size="20">
<br>
<br>
<input type="submit" name="Submit" value="修改" ID="Submit1">
<input name="id" type="hidden" id="id" value="<%=ds("id")%>" size="12">
　　　　　　　　　　　　　　　　　　　　　　　　
<input type="submit" name="delit" value="删除" ID="Submit1">
</td>
      </tr>
    </table>
</form>
<%
end if
end if%>
    <br>
    <form name="form1" method="post" action="serversqladd.asp" ID="Form1">
    <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
      <tr>
        <td colspan="2" bgcolor="#CCCCCC"><strong>　添加新的服务器:</strong> </td>
        <td width="76%" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
    </table>
    <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
      <tr>
        <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA">服务器命名：
          <input name="servername" type="text" id="servername" size="12">
受控网址：
<input name="site" type="text" id="site" size="35" value="http://">
<br>
共享密码：
<input name="FreeHostsharekey" type="password" id="FreeHostsharekey">
<br>
　 (此密码是星外虚拟主机管理平台主控端与当前受控端共享密码，请修改成一个14位以上的密码)<br>
　 (此密码必须与此服务器“开始”-“7i24虚拟主机管理平台”-“修改共享密码[受控端]”一致）<br>
服务器ＩＰ：
<input name="ip" type="text" id="ip" size="20">
<br>
端口：
<input name="port" type="text" id="spacelimit" value="1433" size="15" maxlength="30">
(SQL2000默认为1433,MySQL为3306)<br>
新建的数据库文件放置的目录：
<input name="homedir" type="text" id="spacelimit" value="E:\Program Files\Microsoft SQL Server\MSSQL\Data" size="30" maxlength="200">
<br>
SQL2000数据库文件默认放置的目录为<br>
C:\Program Files\Microsoft SQL Server\MSSQL\Data<br>
(注意MySQL数据库文件默认放置的目录为安装目录下的data目录，例如：<br>
C:\Program Files\MySQL\MySQL Server 5.5\data)<br>
<br>
所用软件：
<select name="softtype" id="softtype">
  <option value="2000">SQL2000</option>
  <option value="2005">SQL2005</option>
  <option value="2008">SQL2008</option>
  <option value="2012">SQL2012</option>
  <option value="5.0">MySQL5.0</option>
  <option value="5.1">MySQL5.1</option>
  <option value="5.5">MySQL5.5(PHP 5.3必须用这个版本)</option>
</select>
<br>
PhpMyadmin网址或SQL2000网页管理器网址：
<input name="admurl" type="text" id="spacelimit" size="40" value="无" maxlength="200"><br>
数据库的超级用户名：
<input name="admname" type="text" id="admname" value="sa" size="20">
(SQL2000为&quot;sa&quot;,MySQL为&quot;root&quot;)<br>
超级用户密码：
<input name="admpass" type="password" id="admpass" size="20">
<br>
<input type="submit" name="Submit" value="添加" id="Submit1"></td>
      </tr>
    </table>
    </form>
  

</div>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
