<%@ Language=VBScript %>
<%
id=session("DNSAUID")
If session("DNSAUID")="" Then
	ef=True
	ec="授权非法，请您先登陆。"
ElseIf not IsNumeric(id)  Then
	ef=True
	ec="ID应该是数字！"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsdm = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_Domain where id='"&id&"'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
outcon="非法字符！"
Response.End
end if
	dsdm.Open Sql,conn,1,1
if dsdm.Eof then
	ef=True
	ec="不存在的域名！"
end if
end if
if not ef then%>
<HTML><HEAD><TITLE>Mydns</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type="text/css">
<!--
BODY {
	FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
TABLE {
	FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
TR {
	FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
TD {
	FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
P {
	FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
INPUT {
	COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
SELECT {
	COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
TEXTAREA {
	COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
BODY {
	BACKGROUND: #ffffff; COLOR: #000000
}
.inputText {
	BACKGROUND: #ffffff; BORDER-BOTTOM: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid
}
.inputRadio {
	BACKGROUND: #e8e8e8
}
.formHeader {
	BACKGROUND: #d0d0d0; COLOR: #000000; FONT-WEIGHT: bold
}
.formSubHeader {
	BACKGROUND: #e0e0e0; COLOR: #000000; FONT-WEIGHT: bold
}
.formItem {
	BACKGROUND: #e8e8e8; COLOR: #000000
}
.formText {
	BACKGROUND: #f0f0f0; COLOR: #000000
}
.formError {
	COLOR: #ff0000
}
.mainBorder {
	BACKGROUND: #666666
}
.mainHeader {
	BACKGROUND: #ffffff
}
.mainBody {
	BACKGROUND: #ffffff
}
.mainItem {
	BACKGROUND: #cccccc; FONT-WEIGHT: bold
}
.mainFooter {
	BACKGROUND: #ffffff
}
.mboxBorder {
	BORDER-BOTTOM: #d0d0d0 1px solid; BORDER-LEFT: #d0d0d0 1px solid; BORDER-RIGHT: #d0d0d0 1px solid; BORDER-TOP: #d0d0d0 1px solid
}
A {
	COLOR: #ff9900; TEXT-DECORATION: none
}
A:link {
	COLOR: #ff9900
}
A:visited {
	COLOR: #ff9900
}
A:active {
	COLOR: #ff9900; TEXT-DECORATION: underline
}
PRE {
	FONT-FAMILY: Lucida Console, Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 12px
}
.STYLE1 {color: #0000FF}
.STYLE2 {font-family: "宋体"}
.STYLE3 {color: #0066FF; font-family: "宋体"; }
.STYLE4 {color: #000000}
-->
</style>
</head>
<BODY onload="" topmargin="0">
<TABLE border=0 align="center" cellPadding=0 cellSpacing=0 class=mainBorder>
  <TBODY>
  <TR>
     <TD>
        <table border="0" cellspacing="0" cellpadding="0" align="center" height="46">
                <tr>
                  <td height="46" width="84%" rowspan="2">&nbsp;</td>
                  <td height="30" width="16%">&nbsp;</td>
                </tr>
                <tr>
                  <td height="16" width="16%">&nbsp;</td>
                </tr>
       </table>
     </TD>
  </TR>
  <TR>
    <TD>
 <table align="center" bgcolor="#cccccc" border="0" cellpadding="3" cellspacing="1" class="content" width="700">
        <tbody> 
        <tr bgcolor="#e8e8e8"> 
          <td class="content" height="28"> 
            <div align="center"> <font color="#000000" size=12px><span style="letter-spacing: 2"><font size="2"><b> 
                  MYDNS 使 用 说 明　　</b></font></span></font> (<%=dsdm("domain")%>) <%OriDomain=dsdm("domain")
OriDomain=replace(OriDomain,".中国",".cn")
OriDomain=replace(OriDomain,".公司",".com.cn")
OriDomain=replace(OriDomain,".网络",".net.cn")
 
OriDomain=ComX.idntoac_7i24_com(Cstr(OriDomain)) 
if OriDomain<>dsdm("domain") then%>(<%=OriDomain%>)<%end if%>(允许解析<%=dsdm("DNScount")%>条记录)</div>
          </td>
        </tr>
        <tr>
          <td bgcolor="#ffffff" height="81" class="unnamed1"><font face="宋体" size="2"><span style="letter-spacing: 2"> <span class="unnamed1"><span class="STYLE1">1、MYDNS功能，是DNS功能的扩展，通过这一深层服务，可独立完成对域名服务器各项记录的设置。 </span><font color="#ff0000"><font color="#000000"><br>
    名词解释：<br>
            </font></font><span class="STYLE1">主机名<font face="宋体" size="2">（A）</font>：</span><font color="#ff0000"><font color="#000000">用户要求设置指向的主机名，例如www.abc.com；<br>
            </font></font><span class="STYLE1">IP地址：</span><font color="#ff0000"><font color="#000000">用户要求指向的对方网站服务器的IP地址（注：此处不能填写字母）；<br>
            </font></font><span class="STYLE1">TTL（生存时间）：</span><font color="#ff0000"><font color="#000000">TTL是IP协议包中的一个值，它告诉网络路由器包在网络中的时间是否太长而应被丢弃。系统要求用户设置此值必须为大于120的正整数。建议此值设置为3600。<br>
            </font></font><span class="STYLE1"><font face="宋体" size="2"><font face="宋体" size="2">邮件交换记录</font></font>（</span></span></span><font face="宋体" size="2">MX</font><span style="letter-spacing: 2"><span class="unnamed1"><span class="STYLE1">）：</span><font color="#ff0000"><font color="#000000">用户要求设置的邮件记录的主机名称，<font face="宋体" size="2"><span style="letter-spacing: 2"><font color="#ff0000"><font color="#000000">例如mail.abc.com；</font></font></span></font><br>
            </font></font></span></span></font><span class="STYLE3"><span class="STYLE1">目标主机：</span></span><span class="STYLE2">用户要求指向的对方邮件服务器的名称或者IP地址，例如如IP <%=Request.ServerVariables("LOCAL_ADDR")%>或mail.abc.com<br>
            <br>
            <span class="STYLE1">注意1：</span>对于一个网站，http://abc.com与http://www.abc.com是不同的主机名（A），对于&quot;http://abc.com&quot; 是用&quot;@&quot; 代表这个主机名，也可以留空主机名。 <font size="2"><font color="#ff0000"><font color="#000000">邮件交换记录（MX）</font></font></font>中，webmaster@abc.com这样的邮箱， <font size="2"><font color="#ff0000"><font color="#000000">主机名称</font></font></font>也应该是用&quot;@&quot; 代表当前域，也可以留空它。 <br>
            <span class="STYLE1">注意2：</span>如果使用URL转发功能，系统会自动添加别名为 <%=Application("URLRE_IP")%> 的CNAME记录。旧的同名记录会自动删除。<br>
            <span class="STYLE1">注意3：<span class="STYLE4">做“别名（CNAME）”之前需要删除所有的“主机名（A）”和“邮件交换记录（MX）”等记录；做了“别名（CNAME）”的域名再做“主机名（A）”，将不生效。</span></span><br>
            <br>
          </span></td>
        </tr>
        <tr>
          <td bgcolor="#ffffff" class="unnamed1"><span class="STYLE1" style="letter-spacing: 2"><font face="宋体" size="2">2、操作完成后本系统的DNS服务器是立刻生效的，但全球DNS刷新需要2-72小时生效。</font></span></td>
        </tr>
        </tbody> 
      </table>
      <TABLE width=700 border=0 align="center" cellPadding=2 cellSpacing=1>
        <TBODY>
        <TR>
          <TD class=mainHeader colSpan=2>
            <TABLE border=0 width="100%">
              <TBODY>
        <TR>
          <TD align=left class=mainBody vAlign=top width="100%">
            <TABLE border=0 width="100%">
              <TBODY>
              <TR>
                <TD class=formHeader width="50%">DNS解析记录</TD>  
                                                    
                <TD class=formItem>
</TD></TR></TBODY></TABLE>

            <TABLE border=0 id=tbca width="100%">
               <TBODY>
              <TR class=formItem>
                <TD width="32%" class=formSubHeader>主机名 (A)(最多允许<span class="unnamed1"><%=Application("DNScount")%></span>条)</TD>                                                                  
                <TD width="32%" class=formSubHeader>IP 地址
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
　　　　　　　　解析区域
<%end if%>
</TD>                                                                  
                <TD width="18%" class=formSubHeader>TTL</TD>
                <TD width="18%" class=formSubHeader>操作&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
              </TR>
 <%
 iDNS=0
 	Set dsALLDNS = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_ALLDNS where PdDID='"&id&"' and RRType='A'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
outcon="非法字符！"
Response.End
end if
	dsALLDNS.Open Sql,conn,1,1
while not dsALLDNS.eof%>
             
                  <TR><FORM action="ModA.asp" method=POST name="A<%=iDNS%>">
				  <input name="Aid" type=hidden value="<%=dsALLDNS("id")%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD>
                      <%=dsALLDNS("NodeName")%>.<%=dsdm("domain")%>
                        <INPUT type=hidden value=A name="RRType"></TD>
                    <TD><INPUT name="RRData" class=inputText style="WIDTH: 150px" value="<%=dsALLDNS("RRData")%>">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<%if dsALLDNS("netby")="全部" then%>全部<%end if%>
<%if dsALLDNS("netby")="电信" then%>电信<%end if%>
<%if dsALLDNS("netby")="网通" then%>网通<%end if%>
<%end if%>
					</TD>
                    <TD><INPUT class=inputText style="WIDTH: 50px" value="<%=dsALLDNS("TTL")%>" name="TTL"></TD>
                    <TD> <a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">修改</font></a>　<a href="delA.asp?RRType=A&id=<%=dsdm("id")%>&Aid=<%=dsALLDNS("id")%>"><font color="#000000">删除</font></a></TD></FORM>
                  </TR>
<%
iDNS=iDNS+1
dsALLDNS.movenext
wend
dsALLDNS.close
iDNS=iDNS+1
%>				  
                  <TR><FORM action=addA.asp method=POST name="A<%=iDNS%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD><INPUT class=inputText style="WIDTH: 40px" name="NodeName">
                      .<%=dsdm("domain")%>
                        <INPUT type=hidden value=A name="RRType"></TD>
                    <TD><INPUT class=inputText style="WIDTH: 150px" name="RRData">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<select name="netby" id="netby">
  <option value="全部">全部</option>
  <option value="电信">电信</option>
  <option value="网通">网通</option>
</select>
<%end if%>

</TD>
                    <TD><INPUT class=inputText style="WIDTH: 50px" value=3600 name="TTL"></TD>
                    <TD> <a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">增加</font></a></TD>
                  </FORM></TR>
</TABLE>
            <br>
<TABLE border=0 id=tbcmx width="100%">
              <TBODY>
              <TR>
                <TD width="32%" class=formSubHeader>邮件交换记录 (MX)(最多<%=Application("DNScount")%>条)</TD>                                                           
                <TD width="32%" class=formSubHeader>目标主机</TD>
                <TD width="9%" class=formSubHeader>优先级</TD>
                <TD width="9%" class=formSubHeader>TTL</TD>
                <TD width="18%" class=formSubHeader>操作&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
              </TR>
            
 <%
iDNS=iDNS+1
 	Set dsALLDNS = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_ALLDNS where PdDID='"&id&"' and RRType='MX'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
outcon="非法字符！"
Response.End
end if
	dsALLDNS.Open Sql,conn,1,1
while not dsALLDNS.eof%>

    <TR><FORM action="ModA.asp" method=POST name="A<%=iDNS%>">
	<input name="Aid" type=hidden value="<%=dsALLDNS("id")%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
      <TD><%=dsALLDNS("NodeName")%>.<%=dsdm("domain")%><INPUT type=hidden value=MX name="RRType"></TD>
      <TD><INPUT name="RRData" class=inputText style="WIDTH: 150px" value="<%=dsALLDNS("RRData")%>">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<%if dsALLDNS("netby")="全部" then%>全部<%end if%>
<%if dsALLDNS("netby")="电信" then%>电信<%end if%>
<%if dsALLDNS("netby")="网通" then%>网通<%end if%>
<%end if%>
</TD>
      <TD><INPUT class=inputText style="WIDTH: 50px" value="<%=dsALLDNS("mxper")%>" name=mxper></TD>
      <TD><INPUT class=inputText style="WIDTH: 50px" value="<%=dsALLDNS("TTL")%>" name="TTL"></TD>
                    <TD> <a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">修改</font></a>　<a href="delA.asp?RRType=MX&id=<%=dsdm("id")%>&Aid=<%=dsALLDNS("id")%>"><font color="#000000">删除</font></a></TD></FORM>
                  </TR>
<%
iDNS=iDNS+1
dsALLDNS.movenext
wend
dsALLDNS.close
iDNS=iDNS+1
%>	
      <TR><FORM action="addA.asp" method=POST name="A<%=iDNS%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
      <TD><INPUT class=inputText style="WIDTH: 40px" name="NodeName">
.<%=dsdm("domain")%>
<INPUT type=hidden value=MX name="RRType"></TD>
      <TD><INPUT class=inputText style="WIDTH: 150px" name="RRData">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<select name="netby" id="netby">
  <option value="全部">全部</option>
  <option value="电信">电信</option>
  <option value="网通">网通</option>
</select>
<%end if%>
</TD>
      <TD><INPUT class=inputText style="WIDTH: 50px" value=20 name=mxper></TD>
      <TD><INPUT class=inputText style="WIDTH: 50px" value=3600 name="TTL"></TD>
                    <TD> <a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">增加</font></a></TD>
      </FORM>
                  </TR>              


	
	
	</TABLE><br>
<br>

            <TABLE border=0 id=tbccname width="100%">
           <TBODY>
              <TR>
                <TD width="32%" class=formSubHeader>别名 (CNAME)(最多允许<%=Application("DNScount")%>条)</TD>                                                           
                <TD width="32%" class=formSubHeader>别名主机</TD>
                <TD width="18%" class=formSubHeader>TTL</TD>
                <TD width="18%" class=formSubHeader>操作&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
              </TR>
             
<%
iDNS=iDNS+1
 	Set dsALLDNS = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_ALLDNS where PdDID='"&id&"' and RRType='CNAME'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
outcon="非法字符！"
Response.End
end if
	dsALLDNS.Open Sql,conn,1,1
while not dsALLDNS.eof%>
             
                  <TR><FORM action="ModA.asp" method=POST name="A<%=iDNS%>">
				  <input name="Aid" type=hidden value="<%=dsALLDNS("id")%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD>
                      <%=dsALLDNS("NodeName")%>.<%=dsdm("domain")%>
                        <INPUT type=hidden value=CNAME name="RRType"></TD>
                    <TD><INPUT name="RRData" class=inputText style="WIDTH: 150px" value="<%=dsALLDNS("RRData")%>">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<%if dsALLDNS("netby")="全部" then%>全部<%end if%>
<%if dsALLDNS("netby")="电信" then%>电信<%end if%>
<%if dsALLDNS("netby")="网通" then%>网通<%end if%>
<%end if%>
					</TD>
                    <TD><INPUT class=inputText style="WIDTH: 50px" value="<%=dsALLDNS("TTL")%>" name="TTL"></TD>
                    <TD> <a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">修改</font></a>　<a href="delA.asp?RRType=CNAME&id=<%=dsdm("id")%>&Aid=<%=dsALLDNS("id")%>"><font color="#000000">删除</font></a></TD></FORM>
                  </TR>
<%
iDNS=iDNS+1
dsALLDNS.movenext
wend
dsALLDNS.close
iDNS=iDNS+1
%>				  
                  <TR><FORM action=addA.asp method=POST name="A<%=iDNS%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD><INPUT class=inputText style="WIDTH: 40px" name="NodeName">
                      .<%=dsdm("domain")%>
                        <INPUT type=hidden value=CNAME name="RRType"></TD>
                    <TD><INPUT class=inputText style="WIDTH: 150px" name="RRData">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<select name="netby" id="netby">
  <option value="全部">全部</option>
  <option value="电信">电信</option>
  <option value="网通">网通</option>
</select>
<%end if%>
</TD>
                    <TD><INPUT class=inputText style="WIDTH: 50px" value=3600 name="TTL"></TD>
                    <TD><a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">增加</font></a></TD>
                  </FORM></TR>


</TABLE><br>
<br>
<TABLE border=0 id=tbccname width="100%">
           <TBODY>
              <TR>
                <TD width="32%" class=formSubHeader>文本记录( TXT)(最多允许<%=Application("DNScount")%>条)</TD>                                                           
                <TD width="32%" class=formSubHeader>文本内容<font color="#FF0000">(不要加&quot;号)</font></TD>
                <TD width="18%" class=formSubHeader>TTL</TD>
                <TD width="18%" class=formSubHeader>操作&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
              </TR>
             
<%
iDNS=iDNS+1
 	Set dsALLDNS = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_ALLDNS where PdDID='"&id&"' and RRType='TXT'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
outcon="非法字符！"
Response.End
end if
	dsALLDNS.Open Sql,conn,1,1
while not dsALLDNS.eof%>
             
                  <TR><FORM action="ModA.asp" method=POST name="A<%=iDNS%>">
				  <input name="Aid" type=hidden value="<%=dsALLDNS("id")%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD>
                      <%=dsALLDNS("NodeName")%>.<%=dsdm("domain")%>
                        <INPUT type=hidden value=TXT name="RRType"></TD>
                    <TD><INPUT name="RRData" class=inputText style="WIDTH: 150px" value="<%=dsALLDNS("RRData")%>">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<%if dsALLDNS("netby")="全部" then%>全部<%end if%>
<%if dsALLDNS("netby")="电信" then%>电信<%end if%>
<%if dsALLDNS("netby")="网通" then%>网通<%end if%>
<%end if%>
					</TD>
                    <TD><INPUT class=inputText style="WIDTH: 50px" value="<%=dsALLDNS("TTL")%>" name="TTL"></TD>
                    <TD> <a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">修改</font></a>　<a href="delA.asp?RRType=TXT&id=<%=dsdm("id")%>&Aid=<%=dsALLDNS("id")%>"><font color="#000000">删除</font></a></TD></FORM>
                  </TR>
<%
iDNS=iDNS+1
dsALLDNS.movenext
wend
dsALLDNS.close
iDNS=iDNS+1
%>				  
                  <TR><FORM action=addA.asp method=POST name="A<%=iDNS%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD><INPUT class=inputText style="WIDTH: 40px" name="NodeName">
                      .<%=dsdm("domain")%>
                        <INPUT type=hidden value=TXT name="RRType"></TD>
                    <TD><INPUT class=inputText style="WIDTH: 150px" name="RRData">
<%if Application("superdns")=true and dsdm("DNS_API")=1 then%>
<select name="netby" id="netby">
  <option value="全部">全部</option>
  <option value="电信">电信</option>
  <option value="网通">网通</option>
</select>
<%end if%>
</TD>
                    <TD><INPUT class=inputText style="WIDTH: 50px" value=3600 name="TTL"></TD>
                    <TD><a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">增加</font></a></TD>
                  </FORM></TR>


</TABLE><br>
<br>
<%if dsdm("DNS_API")=1 then%>
<TABLE border=0 id=tbccname width="100%">
                <TBODY>
              <TR>
                <TD width="32%" class=formSubHeader>URL转发功能(最多允许<%=Application("DNScount")%>条)</TD>                                                           
                <TD width="32%" class=formSubHeader>转向网址：</TD>
                <TD width="18%" class=formSubHeader>是否隐藏</TD>
                <TD width="18%" class=formSubHeader>操作&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
              </TR>
             
<%
iDNS=iDNS+1
 	Set dsURLRE = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_URLRE where PdDID='"&id&"'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
outcon="非法字符！"
Response.End
end if
	dsURLRE.Open Sql,conn,1,1
while not dsURLRE.eof
On Error Resume Next
%>
             
                  <TR><FORM action="ModURL.asp" method=POST name="A<%=iDNS%>">
				  <input name="Aid" type=hidden value="<%=dsURLRE("id")%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD><%=ComX.actoidc_7i24_com(Cstr(dsURLRE("hostname")))%></TD>
                    <TD><INPUT name="url" class=inputText style="WIDTH: 150px" value="<%=dsURLRE("url")%>"></TD>
                    <TD><SELECT name=re size=1 id="re">
                      <option value="y" <%if dsURLRE("re")="y" then%>selected<%end if%>>否</option>
                      <option value="n" <%if dsURLRE("re")="n" then%>selected<%end if%>>是</option>
                    </SELECT><%if dsURLRE("havecheck")="y" then%>审查通过<%end if%><%if dsURLRE("havecheck")="x" then%><font color=red>审查不通过</font><%end if%>
										<%if dsURLRE("havecheck")="n" and Application("urlcheck")=true then%><font color=blue>等候审查</font><%end if%>
					</TD>
                    <TD> <a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">修改</font></a>　<a href="delURL.asp?id=<%=dsdm("id")%>&Aid=<%=dsURLRE("id")%>"><font color="#000000">删除</font></a></TD></FORM>
                  </TR>
<%
iDNS=iDNS+1
dsURLRE.movenext
wend
dsURLRE.close
iDNS=iDNS+1
%>		
                  

                  <TR><FORM action="addURL.asp" method=POST name="A<%=iDNS%>">
				  <input name="id" type=hidden value="<%=dsdm("id")%>">
                    <TD><INPUT class=inputText style="WIDTH: 40px" name="NodeName">
                      .<%=dsdm("domain")%></TD>
                    <TD><INPUT name="URL" class=inputText id="URL" style="WIDTH: 150px"></TD>
                    <TD><SELECT name=re size=1 id="re">
                      <option value="y" selected>否</option>
                      <option value="n">是</option>
                    </SELECT></TD>
                    <TD><a href="javascript:document.A<%=iDNS%>.submit();"><font color="#000000">增加</font></a></TD>
                  </FORM></TR>	
</TABLE>
<%end if%>
            </TD>
</TR></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><br>
<br>

</BODY></HTML>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
