<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("username")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
If session("HOSTAUID")<>"" Then ec="主机面板中不能操作用户区的内容，请您先登陆用户区。"
If session("OtherAUID")<>"" Then ec="邮箱面板中不能操作用户区的内容，请您先登陆用户区。"
If session("SQLAUID")<>"" Then ec="数据库面板中不能操作用户区的内容，请您先登陆用户区。"
end if
if not ef then
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html2")%>
其他类管理
<%=htmlwrite("html3")%>
<br>
<%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dsphOther = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Other where username='"&session("username")&"' order by id desc"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsphOther.PageSize = 25
	dsphOther.Open Sql,conn,1,1
if dsphOther.Eof then%>
没有开通的其他类产品.	
<%else%>
<%
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
	pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dsphOther.RecordCount <> 0 Then dsphOther.AbsolutePage = CLng(pn)  
    if clng(pn)<=10 then
    begini=1
      if dsphOther.PageCount<=10 then
       endini=dsphOther.PageCount 
       else
       endini=10
      end if
    end if
%>
<%if clng(pn)<=10 then%>最新 <%for i=begini to endini
    if clng(pn)=i then%><font color=red>[<%=i%>]</font><%else%><a href="?<%=ask(0)%>&pn=<%=i%>"><font color="#000000">[<%=i%>]</font></a><%end if%>　<%next%> 
        <%else%>　<a href="?<%=ask(0)%>&pn=1"><font color="#000000">最新[1]--[10]</font></a>　　现在是第<font color=red>[<%=pn%>]</font>页 
        　共<%=dsphOther.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%><a href="?<%=ask(0)%>&pn=<%=pn-1%>">上一页</a><%End If%>|<%If Clng(pn)<dsphOther.PageCount Then%><a href="?<%=ask(0)%>&pn=<%=pn+1%>"><font color="#000000">下一页</font></a>
        <%End If%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#CCCCCC">
  <tr bgcolor="#EEEEEE" align="center">
    <td width="22%" height="21">产品类型</td>
    <td width="20%">开通日期</td>
    <td width="20%">到期日期</td>
    <td width="38%">状态</td>
  </tr>
<%while not dsphOther.Eof%>
<%
	Othertype=dsphOther("Othertype")
	Set ori_Other_name = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_OtherProductlist where Othertype='"&dsphOther("Othertype")&"'"
		ori_Other_name.Open Sql,conn,1,1
		if not ori_Other_name.eof then
Set newname_Other = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_OtherProductlist_AGN where agent1='"&session("agentname")&"' and id='"&ori_Other_name("id")&"'"
		newname_Other.Open Sql,conn,1,1
if not newname_Other.eof then
Othertype=newname_Other("Othertype")
end if
		end if

	%>
  <tr align="center" bgcolor="#FFFFFF">
    <td rowspan="3">
<%=Othertype%>
</td>
    <td height="30"><%=formatdatetime(dsphOther("starttime"),1)%></td>
    <td><%if ori_Other_name("canshowyear")="y" then%><%=formatdatetime(dsphOther("endtime"),1)%><%else%>----<%end if%></td>
    <td><%if dsphOther("endtime")>NOW then%>
      <%if dsphOther("istest")="y" then%>
      <font color="#FF0000">试用</font><%else%>
      <%=dsphOther("status")%>
      <%end if%>
      <%else%>
      <font color="#FF0000">过期</font>
      <%if dsphOther("status")="暂停" then%>
      <br>
      <font color="#FF0000">暂停</font>
      <%end if%>
      <%end if%></td>
  </tr>

  <tr align="center" bgcolor="#FFFFFF">
    <td height="30">备注：</td>
    <td colspan="2"><%=dsphOther("userremindinfo")%></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF">
    <td height="30">订单处理结果：</td>
    <td colspan="2"><%=dsphOther("openinfo")%></td>
  </tr>


<%
dsphOther.movenext
wend%>
</table>
<%dsphOther.close
set dsphOther=nothing
end if
%>
<br><br>
<br>

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