<%@ Language=VBScript %> <% 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 %> 其他类管理
<%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%>[<%=i%>]<%else%>[<%=i%>]<%end if%> <%next%> <%else%> 最新[1]--[10]  现在是第[<%=pn%>]页  共<%=dsphOther.PageCount%>页 <%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页 <%End If%> <%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 %> <% dsphOther.movenext wend%>
产品类型 开通日期 到期日期 状态
<%=Othertype%> <%=formatdatetime(dsphOther("starttime"),1)%> <%if ori_Other_name("canshowyear")="y" then%><%=formatdatetime(dsphOther("endtime"),1)%><%else%>----<%end if%> <%if dsphOther("endtime")>NOW then%> <%if dsphOther("istest")="y" then%> 试用<%else%> <%=dsphOther("status")%> <%end if%> <%else%> 过期 <%if dsphOther("status")="暂停" then%>
暂停 <%end if%> <%end if%>
备注: <%=dsphOther("userremindinfo")%>
订单处理结果: <%=dsphOther("openinfo")%>
<%dsphOther.close set dsphOther=nothing end if %>


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