所在区域
关键字

 
   
网上商城
非常男女
域名主机
文学艺术
软件下载
 


网吧公告

加盟网吧： <%sqlqb="select * from bar" Set rsqb= Server.CreateObject("ADODB.Recordset") rsqb.open sqlqb,conn,1,1%> <%=rsqb.recordcount%> <%rsqb.close set rsqb=nothing%>家
网吧联盟成员重要条件:中国境内（暂不包含港、澳、台）具备合法经营资格的网吧
　　　　申请加入=>>>

网吧公告
<% randomize timer hotS=int(rnd*10)+1 sql="select top "&hotS&" id,barname,intros,photo from bar where show>1 order by id desc" Set Rs=conn.Execute(sql) if not(rs.eof and rs.bof) then do while not rs.eof id=rs("id") barname=rs("barname") intros=left(rs("intros"),120) photo=rs("photo") rs.movenext loop end if rs.close%> imgUp/<%=id%>.jpg<%else%>img/nophoto.jpg<%end if%>" width="100" height="83"> 　　 <%if id<>"" then%> <%if intros<>"" then%> <%=barname%> <%if intros<>"" then tempstr=replace(intros," ","") tempstr=replace(tempstr,"
","") tempstr=replace(tempstr,"<br>","") response.write tempstr end if%> <%else%> 我们欢迎您的到来！ <%end if%> ... <%else%> 推荐网吧演示(样本)。 <%end if%> show.asp?id=<%=id%><%else%>#<%end if%>"> 更多详细资料
网吧公告
<%sql="select top 5 id,barname,intros,photo from bar where show>1 order by id desc" Set Rs=conn.Execute(sql) if not(rs.eof and rs.bof) then i=0 do while not rs.eof %> <% i=i+1 if i>=5 then exit do rs.movenext loop end if rs.close%>
·"><%=rs("barname")%>

<% sql="SELECT top 10 id,barname,city,add,phone,date FROM bar where show>=1 order by id desc" Set Rs=conn.Execute(sql) if not(rs.eof and rs.bof) then i=0 do while not rs.eof %> <% i=i+1 if i>=10 then exit do rs.movenext loop end if rs.close%>
"><%=rs("barname")%> <%=rs("city")%>,<%=rs("add")%> <%if rs("phone")<>"" then%> <%=rs("phone")%> <%else%> - <%end if%> <% dateY=year(rs("date")) dateM=month(rs("date")) dateD=day(rs("date")) if len(dateM)=1 then dateM="0"&dateM end if if len(dateD)=1 then dateD="0"&dateD end if %> <%=dateY&"-"&dateM&"-"&dateD%>

　
<% sql="SELECT top 10 id,tid,bt,count,date FROM info where Tid=1 order by id desc" Set Rs=conn.Execute(sql) if not(rs.eof and rs.bof) then i=0 do while not rs.eof dateM=month(rs("date")) dateD=day(rs("date")) if len(dateM)=1 then dateM="0"&dateM end if if len(dateD)=1 then dateD="0"&dateD end if adddate=dateM&"/"&dateD %> <% i=i+1 if i>=10 then exit do rs.movenext loop end if rs.close%>
  &id=<%=rs("id")%>"><%=rs("bt")%> <%=adddate%>

<% sql="SELECT top 10 id,tid,bt,count,date FROM info where Tid=2 order by id desc" Set Rs=conn.Execute(sql) if not(rs.eof and rs.bof) then i=0 do while not rs.eof dateM=month(rs("date")) dateD=day(rs("date")) if len(dateM)=1 then dateM="0"&dateM end if if len(dateD)=1 then dateD="0"&dateD end if adddate=dateM&"/"&dateD %> <% i=i+1 if i>=10 then exit do rs.movenext loop end if rs.close%>
  &id=<%=rs("id")%>"><%=rs("bt")%> <%=adddate%>
<% sql="SELECT top 20 id,barname FROM bar where show>=1 order by count desc" Set Rs=conn.Execute(sql) if not(rs.eof and rs.bof) then i=0 do while not rs.eof %> <% i=i+1 if i>=20 then exit do rs.movenext loop end if rs.close%>
   
"><%=rs("barname")%>