" /> " />
 
表演视频
<% i=0 cid2=request("cid") set rs2=server.createobject("adodb.recordset") sql2="Select * From Netsys_News_Cn where show=1" if cid2<>"" then sql2=sql2&" and classid="&cid2 sql2=sql2&" order by Nhome,Ntime desc" rs2.open sql2,conn,1,1 if rs2.eof and rs2.bof then 'rs.open sql,conn,1,1 'do while Not rs.eof %>
暂时消息！



<% else '以下为分页 rs2.PageSize = 5 '每页记录条数 iCount=rs2.RecordCount'记录总数 iPageSize=rs2.PageSize maxpage=rs2.pageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs2.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize/2 end if '分页结束 do while not rs2.eof i = i+1 %>
" style="color:#F60;"><%=rs2("NTitle")%>
时间：[<%=rs2("Ntime")%>] 点击：[<%=rs2("NViews")%>]
<%=left(Joleo.HtmlStr1(rs2("NContent")),100)%>

<% rs2.movenext if i>=5 then exit do end if loop ' end if ' rs2.close ' set rs2=nothing %>
<% call PageControl(iCount,maxpage,page,"border=0 align=right","

") end if rs2.close set rs2=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp , p p=1 action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next do while p<=pageCount if p=page then Response.Write("" & p & " " & vbCrLf) else Response.Write("" & p & " " & vbCrLf) end if p=p+1 loop if page>=pagecount then Response.Write ("" & vbCrLf) else Response.Write("› " & vbCrLf) Response.Write("» " & vbCrLf) end if End Sub %>


 


<% set rs=server.createobject("adodb.recordset") sql="Select top 4 * From Net_photo Where tuijian_3=true Order By add_date,NID desc" rs.open sql,conn,1,1 do while Not rs.eof %>
" target="_blank" title="<%=rs("photo_name")%>">" />
<% rs.movenext Loop rs.close set rs=nothing %>