<%qx="13"%>
<!--#include file="../login/0.asp"-->
<!--#include file="../../mycartconn/conn.asp"-->
<!--#include file="../../mycartconn/page.asp"-->
<link href="../../mycartconn/admin.css" rel="stylesheet" type="text/css">
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="400" valign="top"><br>
      <table width="650" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
        <tr valign="middle" bgcolor="#f1f1f1"> 
          <td width="100" height="25" align="center">申请会员</td>
          <td width="150" height="25" align="center">申请二级域名</td>
          <td width="250" height="25" align="center">转向网址</td>
          <td width="100" height="25" align="center">申请时间</td>
          <td width="100" align="center">状态</td>
        </tr>
<%
if request("x")="yes" then
if request("zt")=1 then
set rs = conn.execute("select * from huiyuan_url where id="&request("id")&"")
conn.execute("Insert into url(home,url,lx,zt)values('"&rs("home")&"','"&rs("url")&"',1,1)")
rs.close
end if
if request("zt")=2 then
set rs = conn.execute("select * from huiyuan_url where id="&request("id")&"")
conn.execute("Delete url where home='"&rs("home")&"'")
rs.close
end if
conn.execute("Update huiyuan_url set zt="&request("zt")&" where id="&request("id")&"")
end if
if request("del")="yes" then
conn.execute("Delete huiyuan_url where id="&request("id")&"")
end if
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from huiyuan_url order by id desc"
rs.open sql,conn,3,1 
If rs.eof Then
Response.Write("")
Else
page1("15")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle" bgcolor="#FFFFFF" onMouseOver ="this.style.backgroundColor = '#F8FFDF'" onMouseOut ="this.style.backgroundColor = ''"> 
          <td width="100" height="25"><a href="huiyuan.asp?abc=xs&page=1&id=<%=conn.execute("select id from huiyuan where huiyuan='"&rs("huiyuan")&"'")(0)%>"><%=rs("huiyuan")%></a></td>
          <td width="150" height="25"><%=rs("home")%></td>
          <td width="250" height="25"><a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td>
          <td width="100" height="25" align="center"><%=formatdatetime(rs("sj"),2)%></td>
          <td width="100" align="center"> 
            <%Select case rs("zt")
   case "0"
        response.write "<a href=?id="&rs("id")&"&zt=1&page="&page&"&x=yes><font color=red>未审</font></a>|<a href=?id="&rs("id")&"&zt=2&page="&page&"&x=yes><font color=red>作废</font></a>"
   case "1"
	response.write "已审|<a href=?id="&rs("id")&"&zt=2&page="&page&"&x=yes><font color=red>作废</font></a>"
   case "2"
	response.write "<s>已作废</s>"
End Select
	response.write "|<a href=?id="&rs("id")&"&page="&page&"&del=yes>删</a>"%> </td>
        </tr>
        <%i=i+1
        rs.MoveNext                                              
        loop
	End If%>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height="25" colspan="5" align="center"> <%page2("gw="&request("gw")&"&lx="&request("lx")&"&sj="&request("sj")&"&gz="&request("gz")&"&xl="&request("xl")&"&key="&request("key")&"&")
rs.close
set rs=nothing
conn.close
set conn=nothing
%> </td>
        </tr>
      </table>
      <br>
    </td>
  </tr>
</table>