<%set gg= conn.execute("select tp,url,lx from tp where lbid=6 and wz=1 and zt=0 order by id desc") if not gg.eof then if gg("lx")<>0 then Response.Write("") else Response.Write("") end if end if gg.close set gg=nothing%>

	-> 我要申请免费二级域名 ID 已开通免费二级域名列表 <%Set rs=Server.CreateObject("ADODB.Recordset") sql="select id,home,url from url where zt=1 order by id desc" rs.open sql,conn,3,1 rs.pagesize = 10 if request("page")="" or isempty(request("page")) then page = 1 else page=int(request("page")) end if if page>rs.pagecount then page=rs.pagecount end if if not rs.BOF then Rs.Move Rs.PageSize*(page-1) end if i=1 do while not rs.eof and i<=rs.pagesize%> <%i=i+1 rs.movenext loop%> <%=i+(page-1)*rs.pagesize%> " target="_blank">http://<%=rs("home")%> <%if rs.recordcount<>0 then if page-1 mod 5=0 then p=(page-1) \ 5 else p=(page-1) \ 5 end if response.write "共申请开通"& rs.recordcount &"个二级域名：" if p*5>0 then response.write "[<<] " uming_i=1 for ii=p*5+1 to P*5+5 if ii=page then response.write "["+Cstr(ii)+"] " else response.write "["+Cstr(ii)+"] " end if if ii=rs.pagecount then exit for uming_i=uming_i+1 next if ii<=rs.pagecount and uming_i=6 then response.write "[>>]" end if rs.close set rs=nothing conn.close:set conn=nothing%>