当前新闻标题

新闻资讯
News

    <% set rs = server.CreateObject("adodb.recordset") sql="select * from nsclass where nb_id=44 order by ns_order asc" rs.open sql,conn,1 int j=0 Do While Not rs.eof %>
  • &big=<%=rs("nb_id")%>"><%=left(rs("ns_name"),8)%>
    • <% rs.MoveNext j=j+1 loop rs.close set rs=nothing %>
<%=Get_Sname(request("small"))%>
首页 > 新闻资讯 > <%=Get_Sname(request("small"))%>
<% id=request("id") Set rs = Server.CreateObject("Adodb.RecordSet") sql="select * from bdnews where nws_id="&id&"" rs.open sql,conn,2,3 if rs.eof then else rs("nws_click")=rs("nws_click")+1 rs.update %>

<%=rs("nws_title")%>

发布时间：<%=formatdatetime(rs("nws_time"),2)%> 浏览量：<%=rs("nws_click")%> 分享到：

<%=rs("nws_cont")%>
<% call nextdata("bdnews","news_info.asp","篇") sub nextdata(tab,page,dw) id=trim(request.QueryString("id")) small=request("small") set rs2=server.CreateObject("adodb.recordset") sql="select top 1 * from "&tab&" where nws_id>"&id&" and ns_id="&small&" order by nws_id asc " rs2.open sql,conn,1,1 IF rs2.eof and rs2.bof Then Response.Write("
上一"&dw&"：没有上一条记录
") else Response.Write("
上一"&dw&"："&rs2("nws_Title")&"
") end IF rs2.close Set rs2=Nothing set rs2=server.CreateObject("adodb.recordset") sql="select top 1 * from "&tab&" where nws_id<"&id&" and ns_id="&small&" order by nws_id desc" rs2.open sql,conn,1,1 IF rs2.eof and rs2.bof Then Response.Write("
上一"&dw&"：没有下一条记录
") else Response.Write("
下一"&dw&"："&rs2("nws_Title")&"
") end IF rs2.close Set rs2=Nothing end sub %> <% rs.close set rs=nothing end if%>