<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　其他管理
<%=htmlwrite("html6")%>
<form action="admOther2.asp" method="get" name="form1">
  <table width="100%" height="36"  border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
    <tr bgcolor="#CCCCCC">
      <td colspan="2" bgcolor="#CCCCCC"><strong>　<font color="#000000">开通其他类：</font></strong></td>
      <td width="70%">&nbsp;</td>
    </tr>
  </table>
  <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
    <tr>
      <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用户名：
              <input name="username" type="text" id="username" size="10" maxlength="14">
          其他产品:
					<%
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_OtherProductlist where isbyhost='n' and canbyagn='y' order by id asc"
		ds.Open Sql,conn,1,1
If ds.Eof Then%>
其他产品列表为空.
<%else%>
<select name="id" id="Othertype">
  <%while not ds.Eof
	Othertype=ds("Othertype")
	Set newname_Other = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_OtherProductlist_AGN where agent1='"&session("agentusername")&"' and id='"&ds("id")&"'"
		newname_Other.Open Sql,conn,1,1
if not newname_Other.eof then
info=newname_Other("info")
Othertype=newname_Other("Othertype")
end if
newname_Other.close
  %>
  <option value="<%=ds("id")%>"><%=Othertype%></option>
  <%
ds.movenext
wend%>
</select>
<%end if%>
<input name="Submit" type="submit" id="Submit" value="下一步">
      </p></td>
    </tr>
  </table>
</form>
<p><a href="admOtherlistOther.asp?op=all"><strong><font color="#000000">列出所有开通的其他产品用户>>></font></strong> </a><br>
  <a href="admOtherlistOther.asp?op=pause"><strong><font color="#000000">到期应该暂停的其他产品用户>>></font> </strong></a><br>
  <a href="admOtherlistOther.asp?op=del"><strong><font color="#000000">到期应该删除的其他产品用户>>></font> </strong></a> <br>
  <br>
  <a href="gemail.asp?type=other&da=30"><strong><font color="#000000">群发邮件给一个月后到期的用户>>></font> </strong></a> <br>
  <a href="gemail.asp?type=other&da=7"><strong><font color="#000000">群发邮件给一周后到期的用户>>></font> </strong></a>  <br>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
