<%PageName="shownews"%> <% NewsID=Request("NewsID") conn.execute("update News Set Click=click+1 where NewsID=" & NewsID ) sql="select * from user where UserName='"&session("xpUser")&"' and PassWord='"&session("xppwd")&"'" rs.Open sql,conn,1,3 if not rs.eof then rs("ReadNews")=rs("ReadNews")+1 rs("UserPoint")=rs("UserPoint")+1 if rs("UserLevel")<>7 and rs("UserLevel")<>8 and rs("UserLevel")<>9 then if rs("UserPoint")=Point(rs("UserLevel")+1) then rs("UserLevel")=rs("UserLevel")+1 end if rs.Update end if rs.close sql="select * from News where NewsID=" & NewsID rs.open sql,conn,1,1 '--------------ADD------------- 'if session("userlevel")"" then AuthorR=" 作者：" Original=trim(rs("Original")) if Original<>"" then OriginalR=" 来源：" image=rs("image") UpdateTime=rs("UpdateTime") content=rs("Content") hot=rs("hot") SpecialName=rs("SpecialName") click=rs("click") username=rs("username") ifclass="SmallClassName='"&SmallClassName&"'" rs.Close sql="select * from News where username='"&username&"'" rs.open sql,conn,1,1 InputCount=rs.RecordCount rs.Close gburl="NewsID="&Request("NewsID") %> 树立社会主义荣辱观专题

·以热爱祖国为荣
·以崇尚科学为荣
·以团结互助为荣
·以遵纪守法为荣
　　3月4日，中共中央总书记、国家主席、中央军委主席胡锦涛在全国政协十届四次会议的民盟、民进联组会上，胡锦涛亲切看望各位委员，并参加了他们的讨论。
　　中央组织部日前发出通知指出，认真学习贯彻胡锦涛总书记关于社会主义荣辱观的重要论述，是当前加强领导班子建设、干部队伍建设和党员队伍建设，以及组织部门自身建设的一项重大而紧迫的战略任务。
　　刘云山强调，要把社会主义荣辱观作为思想道德建设的核心内容，贯穿于精神文明建设的全过程，体现在经济、政治、文化和社会建设的各个方面，使之成为引领社会风尚的一面旗帜。
最新动态

  更多...
社会主义荣辱观大家谈

  更多...
综述评论

  更多...
网站首页 ‖ 站点地图 ‖ 帮助中心 ‖ 反馈留言 ‖ 友情链接
Copyright 2004 JXEXPRESSWAY.COM All Rights Reserved
版权所有 © 江西赣粤高速公路股份有限公司 网站维护制作
<% function aboutnews sql="select top 4 "&NoContent&" from news where checked=true and about like '%" & about & "%' and title not like '" & title & "' order by newsid desc" rs.open sql,conn,1,1 Response.Write "
" if not rs.EOF then do while not rs.eof Response.write "· " Response.write showTitle("MainContentS",70) Response.write showImg Response.write showTime&"
" rs.movenext loop Response.Write "
>>更多 
" else Response.Write " 没有相关信息" end if Response.Write "" rs.close end function function movenews(strmove) sql="select "& NoContent &" from News where checked=true and NewsID=" & NewsID &strmove&"1" rs.open sql,conn,1,1 'rs.movenext if not rs.EOF then Response.write showTitle("MainContentS",70) Response.write showImg Response.write showTime else Response.write "已经没有了" end if rs.close end function set rs=nothing%>