日韩精品一区在线看在线观看|亚洲精品乱码久久久久久V|全免费观看中文字幕三级|精品国产免费一区二区,无码午夜国产视频,国产精品高清一区二区,婷婷六月无毒综合激情

<% ' aXinNo1 主要功能是模糊查詢 Set rshost=Server.CreateObject("ADODB.Recordset") sql="Select * from FreeHost.FreeHost_HostProductlist where serverlistid=1 and hosttype like '%型' order by orderbyid desc" rshost.open sql,conn,1,1 For i=1 to rshost.RecordCount if not rshost.eof then %> <% usermoney=rshost("usermoney") if agentname<>"n" then Set dsendmoney = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_user_price where prtype='虛擬主機(jī)' and username='"&agentname&"' and id="&rshost("id")&"" dsendmoney.Open Sql,conn,1,1 if not dsendmoney.eof then usermoney=dsendmoney("usermoney") end if dsendmoney.close end if %> <% if i mod 3=0 and i<>rshost.RecordCount then response.Write("") End if %> <% rshost.movenext End if next rshost.close Set rshost=nothing %>