<% sql="select * from bar where id="&request("id") Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,2 if rs.eof then error="error" else id=rs("id") city=rs("city") barname=rs("barname") typical=rs("typical") money=rs("money") number=rs("number") add=rs("add") people=rs("people") oicq=rs("oicq") phone=rs("phone") email=rs("email") zip=rs("zip") homepage=rs("homepage") intros=rs("intros") count=rs("count") adddate=rs("date") photo=rs("photo") show=rs("show") yytime=rs("yytime") yymj=rs("yymj") if request.cookies("jynetbar")<>barname then rs("count").value = rs("count").value + 1 rs.Update() end if end if Response.cookies("jynetbar")=barname %> 【<%=barname%>】供求信息-吉他星空
吉他星空 您现在的位置: 吉他星空 >> 乐队联盟 >> <%=city%>乐队 >> <%=barname%> >> 供求信息 <%if show>1 then%> 推荐会员 <%end if%>
乐队搜索引擎.
地区:
乐队:
   
推荐乐队 Top10
<%sql="select top 10 id,barname,intros,photo,city 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%>
 ·" target="_blank">[<%=rs("city")%>] <%=rs("barname")%>
乐队消息 News.
<% sql="SELECT top 15 id,bt FROM info 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>=15 then exit do rs.movenext loop end if rs.close%>
 · " target="_blank"><%=rs("bt")%>
  文章标题 发布日期  
<% sql="SELECT top 25 id,bt,date FROM info where type='供求' and barid="&request("id") Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if not isempty(request("page")) and request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=25 '###每页显示条数 if not rs.eof then rs.pagesize=MaxPerPage '得到每页数 mpage=rs.pagecount '得到总页数 totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if rs.move (currentPage-1)*MaxPerPage end if if not rs.eof and not rs.bof then i=0 do while not rs.eof %> <%i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end if %>
 · " target="_blank"><%=rs("bt")%> <%=rs("date")%>
页次:<%=currentPage%>/<%=mpage%> 每页 <%=MaxPerPage%> 文章总数 <%=rs.recordcount%>  <% pageno=currentPage %> <%if cint(pageno)>1 then%> <%end if%> 9  <%if cint(pageno)>1 then%> title="上一页"> <%end if%> 7 <% pp=cint(pageno)-5 if pp<1 then pp=1 end if for pno=pp to mpage p=p+1 if pno*1=cint(pageno)*1 then %>  [<%=pno%>] <%else%>  >[<%=pno%>] <%end if%> <% if p>=11 then exit for next%> <%if cint(pageno)< mpage then%> title="下一页"> <%end if%> 8  <%if cint(pageno)< mpage then%> <%end if%> :
<% rs.close set rs=nothing conn.close set conn=nothing %>