special_news.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

rs.Source="select top "& top_txt &" * from News where (SpecialID=" & request_SpecialID & " or SpecialID2=" & request_SpecialID & ") and checkked=1 and newslevel<=3 order by click DESC,newsid desc"
	end if
	if Request.cookies("reglevel")=2 then
rs.Source="select top "& top_txt &" * from News where (SpecialID=" & request_SpecialID & " or SpecialID2=" & request_SpecialID & ") and checkked=1 and newslevel<=2 order by click DESC,newsid desc"
	end if
	if Request.cookies("reglevel")=1 then
rs.Source="select top "& top_txt &" * from News where (SpecialID=" & request_SpecialID & " or SpecialID2=" & request_SpecialID & ") and checkked=1 and newslevel<=1 order by click DESC,newsid desc"
	end if
end if
else
rs.Source="select top "& top_txt &" * from News where (SpecialID=" & request_SpecialID & " or SpecialID2=" & request_SpecialID & ") and checkked=1 order by click DESC,newsid desc"
end if
rs.Open rs.Source,conn,1,1
while not rs.EOF
title=trim(rs("title"))
title=replace(title,"<br>","")
%>
                          ·<a class=middle href="ReadNews.asp?NewsID=<%=rs("NewsID")%>" target="_blank"><font color="<%=rs("titlecolor")%>"> 
                          <%if len(title)>6 then%>
                          <%=left(title,6)%> 
                          <%else%>
                          <%=title%> 
                          <%end if%>
                          </font></a>&nbsp;<font color=red><%=rs("click")%></font><br> 
                          <%
rs.MoveNext
wend
rs.close
%>
                        </td>
                      </tr>
            <tr>
              <td height="5"></td>
            </tr>
          </table></td>
        </tr>
      </table>
      </td>
    <td width="564" valign="top" bgcolor="#64C2FD">
	<table width="564" border="0" cellspacing="0" cellpadding="0" height="398">
      <tr>
        <td height="33" background="imgs/daohang_bg.jpg"><table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <TD class=yy>&nbsp;<a href="index.asp">网站首页</a><a href="#·"> </a><SPAN 
                  class=style1>| </SPAN><a href="type.asp?typeID=16">团学天地</a> <SPAN 
                  class=style1>| <a href="type.asp?typeID=17">规章制度</a> | </SPAN>
				<a href="type.asp?typeID=18">社区生活</a> <SPAN 
                  class=style1>| <a href="type.asp?typeID=19">最新下载 </a>| </SPAN>
				<a href="nwjl.asp">内务纪律</a> <SPAN 
                  class=style1>| </SPAN><a href="special.asp">社区专题</a></TD>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="365" valign="top">
          <table width="559" border="0" cellspacing="0" cellpadding="0" height="360">
            <tr>
              <td width="559" height=42 background="imgs/photo_title.jpg" >&nbsp;&nbsp;&nbsp;&nbsp;<img border="0" src="IMAGES/menu-l-m.gif" width="11" height="11"><font class=m_tittle>&nbsp; </font>栏目导航<b><a class="daohang" href="./" >&nbsp;&nbsp;网站首页</a>&gt;&gt;<a class=daohang href=Special.asp>专题</a>&gt;&gt;<%=SpecialName%></b></td>
            </tr>
            <tr>
              <td valign="top" background="imgs/news_bg.jpg" height="302">
				<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0" height="287">
                  <tr>
                    <td width="4">　</td>
                    <td valign="top" bgcolor="#C4E8FF"><table width="100%" border="0" cellpadding="3" cellspacing="0">
                    <tr> 
          <td width=100% height="25" background="imgs/2.jpg" bgcolor="#C4E8FF"></td>
        </tr>
        <!------------------------------------------------------------------------------------------------------------->
        <%
set rs2=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs2.Source="select * from News where SpecialID=" & request_SpecialID & " or SpecialID2=" & request_SpecialID & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs2.Source="select * from News where SpecialID=" & request_SpecialID & " and checkked=1 and newslevel=0 order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
rs2.Source="select * from News where SpecialID=" & request_SpecialID & " and checkked=1 and newslevel<=3 order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=2 then
rs2.Source="select * from News where SpecialID=" & request_SpecialID & " and checkked=1 and newslevel<=2 order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=1 then
rs2.Source="select * from News where SpecialID=" & request_SpecialID & " and checkked=1 and newslevel<=1 order by NewsID DESC"
	end if
end if
else
rs2.Source="select * from News where SpecialID=" & request_SpecialID & " and checkked=1 order by NewsID DESC"
end if
rs2.Open rs2.Source,conn,3,1

If Not rs2.eof then
rs2.PageSize     = MyPageSize
MaxPages         = rs2.PageCount
rs2.absolutepage = MyPage
total            = rs2.RecordCount
i = 0
do until rs2.Eof or i = rs2.PageSize
if rs2("picname")<>"" then
img="<font color=red>[图]</font>"
else
img=""
end if
title=trim(rs2("title"))
title=replace(title,"<br>","")
%>
        <tr> 
          <td width="100%" bgcolor="#C4E8FF"> 
            <div align="center">
              <table width="96%" border="0" cellpadding="3" cellspacing="0">
                <tr> 
                  <td width="46%"><a class=middle href="ReadNews.asp?NewsID=<%=rs2("NewsID")%>" target=_blank title="<%=title%>"><img src="images/006.gif" width="8" height="10" border="0">&nbsp;&nbsp;<%=img%><font color="<%=rs2("titlecolor")%>"> 
                    <%if len(title)>10 then%>
                    <%=left(title,10)%> 
                    <%else%>
                    <%=Title%> 
                    <%end if%>
                    </font></a> <font class=middle>&nbsp;</font></td>
                  <td width="13%" align="right"> 
                    <%if showauthor="1" then%>
                    <a href="user.asp?user=<%=rs2("author")%>" target="_blank" class=class><%=rs2("Author")%></a> 
                    <%end if%>
                  </td>
                  <td width="27%" align="left"><div align="right"><font class=middle>(<%=trim(rs2("UpdateTime"))%>)</font></div></td>
                  <td width="14%" align="center"><font class=middle>[<font color="#ff0000"><%=trim(rs2("click"))%></font>]</font> 
                  </td>
                </tr>
              </table>
              
            </div></td>
        </tr>
        <%
rs2.MoveNext
i = i + 1
loop
				
%>
        <tr> 
          <td width="100%" bgcolor="#C4E8FF">&nbsp; </td>
        </tr>
        <tr> 
          <td width="100%" align=center bgcolor="#C4E8FF">共 <%=total%> 
            条，当前第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%> 条 
            <%
url="Special_News.asp?SpecialID=" & request_SpecialID				
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs2.PageSize)+1

if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a class=black href='" & Url & "&page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if

if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
If PageLink = MaxPages Then Exit for
Next

if Mypage+1 <=Pagetpage  then
Next_Page = MyPage + 1
Response.write "<a class=black href='" & Url & "&page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if

if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " <A class=black href='" & Url & "&page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a class=black href='" & Url & "&page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
End if

else
Response.write "<tr><td valign=top height=80>&nbsp;本专题暂无信息</td></tr>"				
End If
rs2.close

%>
          </td>
        </tr>
      </table></td>
                  </tr>
                  </table></td>
            </tr>
            <tr>
              <td height="16" bgcolor="#82CEFD">
				<img src="imgs/new_bg01.jpg" width="9" height="4"></td>
            </tr>
          </table>
        </td>
        </tr>
    </table></td>
    <td width="15" valign="top" background="imgs/right_bg.jpg">　</td>
  </tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="118" valign="top" background="imgs/under.jpg"><!--#include file=bot.asp -->
</td>
  </tr>
</table>

</body><%end if
end if
%>
</html>