<%@ 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 %> <%session("FreeHostCom").FreeHost_WR("html2")%> 其他類之源碼下載管理 <%session("FreeHostCom").FreeHost_WR("html3")%>
<%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") info=dsphOther("info") infomore=dsphOther("infomore") 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") info=newname_Other("info") infomore=newname_Other("infomore") end if end if %> <% dsphOther.movenext wend%>
產品類型 購買日期 下載地址 解壓密碼 更新提醒 備注
<%=Othertype%> <%=formatdatetime(dsphOther("starttime"),1)%> 點擊下載 <%=infomore%> <%=dsphOther("openinfo")%> <%=dsphOther("userremindinfo")%>
<%dsphOther.close set dsphOther=nothing end if %>


<%session("FreeHostCom").FreeHost_WR("html4")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>北京pk开奖历史记录 梦幻赚钱的玩法 今日股票推荐排名 到底什么会赚钱 安卓系统赚钱的app软件哪个好 全球股票指数网 群名关于赚钱 上午夏天摆地摊卖什么最赚钱 炒股开户富途牛牛 淘宝包邮怎样赚钱 股票推荐排名 美女是男人赚钱的动力吗 女人代理什么赚钱 玩传奇还能赚钱吗 给别人画素描赚钱吗 股票配资推荐·信任杨方配资 免费手机炒股软件