display_list.asp

9494.net全站程序.rar

<script language=vbscript>
  sub reg(domain)
   acat.s_domain.value=domain
   acat.action="user_login.asp"
    document.acat.submit 
  end sub
  sub view(domain)
    acat.s_domain.value=domain
    acat.action="view.asp"
    document.acat.submit 
  end sub
 </script>
<div align="center">
  <center>
  <table border="0" width="463" height="14" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0" bordercolorlight="#000000" style="font-size: 9pt">
    <%for j=0 to i-1%>

    <tr>
      <td width="197" height="1" bgcolor="#FFFFFF">
        <p align="center"><%response.write "www."&domain&trim(after(j))%></td>
      <td width="186" height="1" bgcolor="#FFFFFF">
        <p align="center"><%if result(j)<>0 then response.write "已经被注册" else response.write "<font color=red>尚未被注册</font>" end if%></td>
      <td width="172" height="1" bgcolor="#FFFFFF">
        <p align="center"><%if result(j)<>0 then%> <a style="cursor:hand" onclick=view('<%response.write domain&trim(after(j))%>')>详细情况</a><%else %><a style="cursor:hand" onclick=reg('<%response.write domain&trim(after(j))%>')>立即注册</a> <%end if%></td>
    </tr>
     <%next%>

  </table>
  </center>
</div>
<form name=acat method=post action="">
<input name="s_domain" value="" type=hidden>
</form>