"&chr(13) if myid<>0 then if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if else Response.write "欢迎您:登陆/注册
"& chr(13) end if response.write "发布小广播
" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from showad where yc=0 and fid="&myid&" order by ID desc",gbconn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=listnum Dim Count,page,pagecount,gopage gopage="myshowad.asp?sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For response.write ""&i+(page-1)*PageSize&"." response.write "" response.write ubb(rs("snr"))&"
" rs.moveNext Next 'response.write "
"&chr(13) if page-pagecount<0 then response.write "下一页"&chr(13) if page>1 then response.write "上一页"&chr(13) response.write "
("&page&"/"&pagecount&")共"&count&"贴" if pagecount>1 then response.write "页" response.write "
" Else response.write "暂时没有我的小广播！
" end if response.write "小广播首页
------------
" Response.write "[返回之前页]" gbconn.close set gbconn=nothing conn.close set conn=nothing %>