<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canadmdomain")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if

if not ef then
 
hostname=trim(replace(Request("domain"),"http://",""))
if hostname<>"" then hostname=ComX.idntoac_7i24_com(cstr(hostname))
hostnamecheck=replace(hostname,".","")
hostnamecheck=replace(hostnamecheck,"xn--","")
If RegExpTest("[^A-Za-z0-9--]",hostnamecheck) Then
	ef=True
	ec="请输入合法的域名！"
end if
hostname=trim(replace(Request("domain"),"http://",""))
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="listmydomain.asp"><font color="#FFFFFF">域名管理</font></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></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="urlcheck.asp"><font color="#FFFFFF">URL转发</font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></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="domainpreopen.asp"><font color="#FFFFFF">赠送域名</font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></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">
<form name="form1" method="get" action="listmydomain.asp">
         <DIV class="tableborder"><table width="100%"  border="0" cellspacing="1">
        <tr >
          <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">查找域名</font></td>
        </tr>
        <tr bgcolor="#E4EAF2">
          <td width="9%" height="40" align="right" bgcolor="#E4EAF2">&nbsp;</td>
          <td width="91%" align="left">用户名：
<input name="username" type="text" id="domain" size="10">
或域名：
<input name="domain" type="text" id="domain" size="15"><input type="submit" name="Submit" value="搜索">
　　<a href="listmydomain.asp?op=end"><font color="#000000">30天后到期的域名</font></a> <a href="listmydomain.asp?op=nowend"><font color="#000000">现在到期的域名</font></a> <a href="listmydomain.asp?op=pre"><font color="#000000"></font></a><a href="listmydomain.asp?op=pre"><font color="#000000">预注册的域名</font></a> <a href="listmydomain.asp?op=err"><font color="#000000">注册失败</font></a> <a href="listmydomain.asp?op=reerr"><font color="#000000">续费失败</font></a> <a href="listmydomain.asp"><font color="#000000">列出全部</font></a></td>
        </tr>
      </table>
         </div>
</form>	
<%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsdm = Server.CreateObject("ADODB.Recordset")	
	Sql="Select  * from FreeHost.FreeHost_Product_Domain where (domain like '%.cn' or domain like '%.中国' or domain like '%.公司' or domain like '%.网络') and endtime>'2008-5-13' and endtime<'2008-6-13' and type1=0 order by id desc"

'	Sql="Select  * from FreeHost.FreeHost_Product_Domain where (domain like '%.cn' or domain like '%.中国' or domain like '%.公司' or domain like '%.网络')  and type1=0 order by id desc"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if

	dsdm.Open Sql,conn,1,3
if dsdm.Eof then
%>
<br>
没有CNNIC要更新的这类内容。


<%Else%>以下的域名已自动延长到期时间一个月了:<br><br><br>
<DIV class="tableborder"><table width="100%"  border="0" cellspacing="1">
          <tr bgcolor="#CCCCCC">
            <td width="6%" height="24" align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">编号</font></td>
            <td width="10%" align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">用户名</font></td>
            <td align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">域名</font></td>
            <td width="9%" align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">状态</font></td>
            <td width="10%" align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">注册时间</font></td>
            <td width="10%" align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">到期时间</font></td>
            <td width="11%" align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">初始密码</font></td>
            <td width="8%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">详细信息</font></td>
            <td width="12%" align="center" background="img/tablebg.gif" bgcolor="#CCCCCC"><font color="#FFFFFF">操作</font></td>
          </tr>
<%

While Not dsdm.Eof

dsdm("endtime")=dateadd("m",1,dsdm("endtime"))
dsdm.update

%>
          <tr bgcolor="#E4EAF2" onmouseover=this.bgColor='#cccccc'; onmouseout=this.bgColor='#E4EAF2';>
            <td width="6%" height="90" align="center"><%=dsdm("id")%></td>
            <td width="10%" height="90" align="center"><font color="#000000"><a href="searchuser.asp?username=<%=dsdm("username")%>" target="_blank"><font color="#000000"><%=dsdm("username")%></font></a>
        <font color="#FF0000">
        <%if not isnull(dsdm("agent1")) and dsdm("agent1")<>"n" and dsdm("agent1")<>"" then%>
        <br>
(<a href="searchagent.asp?username=<%=dsdm("agent1")%>" target="_blank"><font color="#FF0000"><%=dsdm("agent1")%></font></a>)
<%end if%>
        </font></font></td>
            <td height="90" align="center"><a href="listmydomain.asp?id=<%=dsdm("id")%>"><font color="#000000"><%=dsdm("Domain")%><br><%If dsdm("Domain_API")=1 then%>新网互联
			<%ElseIf  dsdm("Domain_API")=2 then%>新网
			<%ElseIf  dsdm("Domain_API")=3 then%>商中
			<%ElseIf  dsdm("Domain_API")=4 then%>中频
			<%ElseIf  dsdm("Domain_API")=5 then%>万网
			<%ElseIf  dsdm("Domain_API")=6 then%>API6
			<%End if%>
			<%If dsdm("type1")=1 then%><br>解析产品(允许<%=dsdm("DNScount")%>条)<%end if%>
			</font></a></td>
            <td width="9%" height="90" align="center">
			<%if dsdm("endtime")<NOW and dsdm("status")="正常" then%><font color=red>过期</font><%else%><%=dsdm("status")%><%end if%></td>
            <td width="10%" height="90" align="center"><%=dsdm("starttime")%></td>
            <td width="10%" height="90" align="center"><%=dsdm("endtime")%></td>
            <td width="11%" height="90" align="center"><%if (Request("op")<>"err" Or Request("op")<>"reerr") and dsdm("type1")=0 then%><%=dsdm("inipass")%><br>
            <a href="domainpass.asp?id=<%=dsdm("id")%>" target="_blank"><font color="#000000">重置密码</font></a><%else%><%if not isnull(dsdm("retdns")) then%><%=replace(lcase(dsdm("retdns")),"script","")%><%end if%><%end if%></td>
            <td width="8%" height="90" align="center">
              <%if dsdm("status")="预注册成功" or dsdm("status")="失败" then%>
              <a href="infoa.asp?id=<%=dsdm("id")%>" target="_blank"><font color="#000000">查询</font></a>
              <%else%>
              <a href="domainadm2.asp?id=<%=dsdm("id")%>" target="_blank"><font color="#000000">管理</font></a>
            <%end if%></td>
            <td width="12%" height="90" align="center">
<%if dsdm("status")="预注册成功" or dsdm("status")="失败" then%>
<a href="domain_pay1.asp?id=<%=dsdm("id")%>&op=a"><font color="#000000">确认并扣费</font></a><br>
<br>
<a href="domain_pay1.asp?id=<%=dsdm("id")%>&op=a&pay=n"><font color="#000000">确认不扣费</font></a><br>
<br>
<a href="domain_del.asp?id=<%=dsdm("id")%>" onClick="if (confirm('请您确认是否要删除？')==false){return false;}"><font color="#000000">马上删除</font></a>
<%else%>
<%If dsdm("type1")=1 then%>
<a href="listmydomain.asp?id=<%=dsdm("id")%>"><font color="#000000">修改产品</font></a>
<%else%>
<a href="domain_repay1.asp?id=<%=dsdm("id")%>"><font color="#000000">延长时间</font></a>
<%end if%>
<br>
<br>
<a href="domain_del.asp?id=<%=dsdm("id")%>" onClick="if (confirm('请您确认是否要删除？')==false){return false;}"><font color="#000000">强行删除</font></a>
<%end if%>
			</td>
          </tr>

        <%

dsdm.movenext
wend%>
</table></div>
<%end if
dsdm.close
set dsdm=nothing

%>

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