<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf not IsNumeric(Request("ServerlistID")) Then
	ef=True
	ec="编号必须是数字"
elseIf session("canrebuild")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")

	Set dsph = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_Product_SQL where serverlistid='"&request("ServerlistID")&"' order by id desc"
	dsph.PageSize = 50
	dsph.Open Sql,conn,1,1
if dsph.Eof then
	ef=True
	ec="此类内容不存在！"
end if
end if

if not ef then
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="rebuild.asp"><font color="#FFFFFF">重建用户</font></a><a href="logininfo.asp"></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF">本服务器上所有数据库如下：
        <%
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
	pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dsph.RecordCount <> 0 Then dsph.AbsolutePage = CLng(pn)  
    if clng(pn)<=10 then
    begini=1
      if dsph.PageCount<=10 then
       endini=dsph.PageCount 
       else
       endini=10
      end if
    end if
%>
        <table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#333333">
          <tr bgcolor="#C1BFBF" align="center">
            <td height="21">产品类型</td>
            <td>用户名</td>
            <td>数据库名</td>
            <td>所属父产品</td>
            <td>IP 地址</td>
            <td>开通日期</td>
            <td>到期日期</td>
            <td>状态</td>
            <td>操作</td>
          </tr>
          <%if clng(pn)<=10 then%>
          最新
          <%for i=begini to endini
    if clng(pn)=i then%>
          <font color=red>[<%=i%>]</font>
          <%else%>
          <a href="?<%=ask(0)%>&pn=<%=i%>"><font color="#000000">[<%=i%>]</font></a>
          <%end if%>
          　
          <%next%>
          <%else%>
          　
          <a href="?<%=ask(0)%>&pn=1"><font color="#000000">最新[1]--[10]</font></a>　　现在是第<font color=red>[<%=pn%>]</font>页 　共<%=dsph.PageCount%>页　
          <%end if%>
          <%If Clng(pn)>1 Then%>
          <a href="?<%=ask(0)%>&pn=<%=pn-1%>">上一页</a>
          <%End If%>
          |
          <%If Clng(pn)<dsph.PageCount Then%>
          <a href="?<%=ask(0)%>&pn=<%=pn+1%>">下一页</a>
          <%End If%>
          <%
For N=1 To dsph.PageSize 
					If dsph.RecordCount=0 Then Exit For
%>
        
          <tr align="center" bgcolor="#FFFFFF">
            <td height="30"><%=dsph("Sqltype")%> </td>
            <td><a href="searchuser.asp?username=<%=dsph("username")%>"><%=dsph("username")%></a></td>
            <td><%=dsph("sqlname")%></td>
            <td><%
	Set dspHost = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&dsph("byhost")&"' and username='"&dsph("username")&"'"
	dspHost.Open Sql,conn,1,1
if not dspHost.Eof then
nohost=false%>
                <a href="handhost1.asp?id=<%=dsph("byhost")%>&go=a"><font color="black">虚拟主机(<%=dspHost("ftpname")%>)</font></a>
                <%else%>
  无
  <%end if%>
            </td>
            <td><%
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Serversqllist where id='"&dsph ("ServerlistID")&"'"
	dsserver.Open Sql,conn,1,1
%>
                <%=dsserver("ip")%>
                <%dsserver.close%></td>
            <td><%=formatdatetime(dsph("starttime"),1)%></td>
            <td><%=formatdatetime(dsph("endtime"),1)%></td>
            <td><%if dsph("endtime")>NOW then%>
                <%if dsph("istest")="y" then%>
                <font color="#FF0000">试用</font>
                <%else%>
                <%=dsph("status")%>
                <%end if%>
                <%else%>
                <font color="#FF0000">过期</font>
                <%if dsph("status")="暂停" then%>
                <br>
                <font color="#FF0000">暂停</font>
                <%end if%>
                <%end if%></td>
            <td bgcolor="#FFFFFF"><a href="rebuildonesql.asp?username=<%=dsph("username")%>&id=<%=dsph("id")%>&havebuildpool=<%=request("havebuildpool")%>" target="_blank"><font color="#000000">重开</font></a></td>
          </tr>
          <%
If clng(pn)=dsph.PageCount Then
I = dsph.RecordCount - (dsph.PageCount-1) * dsph.PageSize
If N=I Then Exit For
End If
dsph.movenext
Next

dsph.close
set dsph=nothing
%>
        </table>
        <br>
        <br>
        <a href="rebuildsql3.asp?pn=<%=pn%>&ServerlistID=<%=request("ServerlistID")%>&havebuildpool=<%=request("havebuildpool")%>" target="_blank"><font color="#FF0000">马上重开本页上的数据库(重复开同一个数据库不会通过的，请耐心等候网页完成，不要强行关闭，所以开通出错也不用担心)(请等这个页完成后再点第二个页面)>>></font></a><br>
        <br>
        <br>
        <br>
<!--由于重建用户后，所有的资源都在主站上，子目录绑定的用户要在主网站还原并复制所有数据后，由用户自己重新绑定。<br>
用户自己的操作如下： 1.完全删除所有子目录绑定的网站。 2.重新绑定并分配资源。 --></TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>

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