xuanjuAsp/news_info.asp

  <!--#include file="top1.asp"-->

    <div class="CategoryList_Title"><a href="javascript:history.go(-1);"><i class="fl"></i></a>当前新闻标题</div>

    <!-- c_main -->
    <div class="cpBox container">
        <div class="proLeft">
        <div class="pro_l_m">
           <h3 class="ttt"><span>新闻资讯</span><br>News</h3>
                <ul>   
               <%
		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

	%>	
				<li ><a href="news.asp?small=<%=rs("ns_id")%>&big=<%=rs("nb_id")%>"><%=left(rs("ns_name"),8)%></a></li>
            <%
				     rs.MoveNext 
					 j=j+1
				     loop
					 rs.close
					set rs=nothing
				%>	      
                </ul>
            </div>

          <!--#include file="left.asp"-->
        </div>
            
        <div class="cpList">
            <div class="rtop"><span class="fl"><%=Get_Sname(request("small"))%></span><div class="sitepath fr"><a href="/">首页</a> &gt; <a href="#">新闻资讯</a> &gt; <%=Get_Sname(request("small"))%></div></div>
            
           <div class="c_main">
             <%
			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
		%>
                <div class="child_tit">
                
                    <h2><%=rs("nws_title")%></h2>
                    <h4><span>发布时间：<%=formatdatetime(rs("nws_time"),2)%> <span>浏览量：<%=rs("nws_click")%></span></span>
                        <span style="display:inline-block;width: 210px;" class="bdsharebuttonbox bdshare-button-style1-16" data-bd-bind="1507542040647">分享到：
                            <a href="#" class="bds_qzone" data-cmd="qzone" title="分享到QQ空间" style="float: none;"></a>
                            <a href="#" class="bds_tsina" data-cmd="tsina" title="分享到新浪微博" style="float: none;"></a>
                            <a href="#" class="bds_tqq" data-cmd="tqq" title="分享到腾讯微博" style="float: none;"></a>
                            <a href="#" class="bds_renren" data-cmd="renren" title="分享到人人网" style="float: none;"></a>
                            <a href="#" class="bds_weixin" data-cmd="weixin" title="分享到微信" style="float: none;"></a>
                            <a href="#" class="bds_more" data-cmd="more" style="float: none;"></a>
                        </span>
                    </h4>
                    <script>
                        window._bd_share_config = {
                            "common": {
                                "bdSnsKey": {},
                                "bdText": "",
                                "bdMini": "2",
                                "bdMiniList": false,
                                "bdPic": "",
                                "bdStyle": "1",
                                "bdSize": "16"
                            },
                            "share": {}
                        };
                        with (document) 0[(getElementsByTagName('head')[0] || body)
                            .appendChild(createElement('script')).src = 'http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion=' + ~(-new Date() / 36e5)];
                    </script>
                </div>
                <%=rs("nws_cont")%>
            </div>

            <!-- OranPager -->    
            <div class="two">
             <%				
	
			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(" <div class='twol'>上一"&dw&"：没有上一条记录</div>")
			else
			Response.Write("<div class='twol'>上一"&dw&"：<a href="""&page&"?id="&rs2("nws_id")&"&small="&small&""">"&rs2("nws_Title")&"</a></div>")
			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(" <div class='twor'>上一"&dw&"：没有下一条记录</div>")
			else
				Response.Write("<div class='twor'>下一"&dw&"：<a href="""&page&"?id="&rs2("nws_id")&"&small="&small&""">"&rs2("nws_Title")&"</a></div>")
			end IF
			rs2.close
			Set rs2=Nothing
			end sub %>
            <% rs.close
			set rs=nothing
			end if%>
              
            </div>
            <!-- OranPager:end -->
        </div>
        <div class="clearfix"></div>
    </div>
<!--#include file="foot.asp"-->
</body>
</html>