<% Dim SQL,rs,recordcountnum,page,i,j page=request.querystring("page") If page="" or page<1 Then page=1 SQL="select * from gb order by id desc" set rs=server.createobject("adodb.recordset") rs.open SQL,conn,1,1 If rs.eof and rs.bof Then Response.Write ( "

球探王论坛 - 足球比分,即时比分,及时比分,比分直播,球探王比分网www.qtw001.com

" ) Else recordcountnum=Rs.recordcount Rs.pagesize = listnum If page-Rs.pagecount>0 Then page=Rs.pagecount Rs.absolutepage=page j=rs.recordcount j=j-(page-1)*listnum '逆向编号 i=0 Do While Not rs.Eof and i
NO.<%=j%><%if len(title1)>16 then response.write left(htmlencode(title1),16)&"…" else response.write htmlencode(title1) end if %>「<%=time1%>」 [ <%if qq<>"" then%>QQ:<%=qq%> <%end if%> <%If Session("admin_gb")="admin_gbok" Then%>IP:<%=ip2%> <%else%>IP:<%=ip1%> <%end if%> <%if email<>"" then%>邮箱:<%=email%> <%end if%> <%if homepage<>"" then%>个人网站:<%=homepage%> <%end if%> ] (点击有话就说)
<%if sex=1 then response.Write("Male") else response.Write("Female") end if %>
<% If Session("admin_gb")="admin_gbok" Then content=ubb(content) response.write content elseif qiaoqiaohua=1 then response.write "球探王论坛 - 足球比分,即时比分,及时比分,比分直播,球探王比分网www.qtw001.com" else content=ubb(content) response.write content end if If Session("admin_gb")="admin_gbok" Then %>
[ 回复 | 删除 | ] <%End If%>
<%if repcontent<>"暂无回复" then%>
 球探王回复:<%= ubb(repcontent) %> <%end if%>
<% j=j-1 i=i+1 rs.movenext loop End If Dim filename filename="index.asp?" %>
当前页:<%=page%> 总页数:<%=Rs.pagecount%> 每页:<%= listnum %> 总记录:<%=Rs.recordcount%> | 首页  <% if page<>1 then %> 上一页  <%end if%> <% if Rs.pagecount-page <> 0 then %> 下一页  <%End If%> 尾页  <% dim ipage,nx response.write "
页码:" nx=10*int(page/10) for ipage=nx-10 to nx+10 if ipage=Rs.absolutepage-1 then response.write "["&ipage&"]" elseif ipage>Rs.pagecount or ipage<1 then else response.write "["&ipage&"]" end if next '关闭对象 rs.close set rs=nothing conn.close set conn=nothing %>
您是第  位访客! 足球比分首页