bigclassdeta.asp

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

            <tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td height="73" valign="top"> 
				
                  <%
set rs3=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
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1  and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=3 and typeid="&typeid&" and picname is not null order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=2 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=2 and typeid="&typeid&" and picname is not null order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=1 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=1 and typeid="&typeid&" and picname is not null order by NewsID DESC"
	end if
end if
else
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and typeid="&typeid&" and picname is not null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
                  <table width="90%" border="0" cellspacing="0" cellpadding="3" align="center" style="TABLE-LAYOUT: fixed">
                    <tr> 
                      <td style="WORD-WRAP: break-word"><a class=middle href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>"   onclick="return ow(this)"  target=_blank title="<%=rs3("title")%>"> 
                        <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                        <img  src="uploadfile/<%=rs3("picname")%>" width="65" height="65" border=0 align="left"> 
                        <%end if%>
                        <%if fileext="swf" then%>
                        <object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="65" height="65" border=0 align="left">
                          <param name=movie value="uploadfile/<%=rs3("picname")%>">
                          <param name=quality value=high>
                          <param name='Play' value='-1'>
                          <param name='Loop' value='0'>
                          <param name='Menu' value='-1'>
                          <embed src="uploadfile/<%=rs3("picname")%>" width="65" height="65" border=0 align="left" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed></object>
                        <%end if%>
                        <%=rs3("title")%></a></div></td>
                    </tr>
                  </table>
                  <%
rs3.MoveNext
wend
else
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" style=""TABLE-LAYOUT: fixed""><tr><td width=100% align=center height=18 background='IMAGES/menu-d.gif'>暂无</td></tr></table>"
end if
rs3.close
set rs3=nothing

%></td>
            </tr>
            </table></td>
        </tr>
    </table></td>
    <td width="564" valign="top" bgcolor="#64C2FD">
	<table width="564" border="0" cellspacing="0" cellpadding="0" height="455">
      <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="408" valign="top">
          <table width="559" border="0" cellspacing="0" cellpadding="0">
            <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>栏目导航 
            <%typeid=checkstr(request("typeid"))

dim typename
  
set rs5=server.CreateObject("ADODB.RecordSet")
rs5.Source="select * from type where typeid=" & typeid &" order by typeorder"
rs5.Open rs5.Source,conn,1,1
typename=rs5("typename")
rs5.Close
set rs5=nothing

%>
            <a class="daohang" href="./" >&nbsp;&nbsp;网站首页</a>&gt;&gt;<a class="daohang" href="type.asp?typeid=<%=typeid%>"><%=typename%></a>&gt;&gt;<%=bigClassName%>全部内容</td>
            </tr>
            <tr>
              <td valign="top" background="imgs/news_bg.jpg" height="291">
				<div align="center">
				<table width="98%"  border="0" cellpadding="0" cellspacing="0" height="350" bgcolor="#C4E8FF">
                  <tr> 
                <td valign=top bgcolor="#84CFFF"> 
				<table border="0" cellpadding="0" width="99%" style="border-collapse: collapse" bgcolor="#C4E8FF" align="right">
                    <%
set rs3=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
rs3.Source="select  * from News where (BigClassid=" & request_BigClassid & " and checkked=1) order by newsid DESC"
end if
if Request.cookies("key")="" then
rs3.Source="select * from News where (BigClassid=" & request_BigClassid & " and checkked=1 ) order by newsid DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
rs3.Source="select * from News where (BigClassid=" & request_BigClassid & " and checkked=1 and newslevel<=3) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=2 then
rs3.Source="select * from News where (BigClassid=" & request_BigClassid & " and checkked=1 and newslevel<=2) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=1 then
rs3.Source="select * from News where (BigClassid=" & request_BigClassid & " and checkked=1 and newslevel<=1) order by newsid DESC"
	end if
end if
else
rs3.Source="select * from News where (BigClassid=" & request_BigClassid & " and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,3,1

If Not rs3.eof then
Rs3.PageSize     = MyPageSize
MaxPages         = Rs3.PageCount
Rs3.absolutepage = MyPage
total            = Rs3.RecordCount
%>
                    <tr> 
                      <td width=100% height="25" background="imgs/2.jpg" > 
                        <p align="center">&nbsp;共 <%=total%> 条，当前第 <%=Mypage%>/<%=Maxpages%> 
                          页，每页 <%=MyPageSize%> 条</td>
                    </tr>
                    <tr> 
                      <td width="100%"> 
                        <%
i = 0
do until rs3.Eof or i = rs3.PageSize
if rs3("picname")<>"" then
img="<img src='IMAGES/IMG.gif' border='0'>"
else
img=""
end if
title=trim(rs3("title"))
title=replace(title,"<br>","")
%>
                        <table width="98%" border="0" cellpadding="3" cellspacing="0">
                          <tr> 
                            <td width="58%">
                              <%if mode<>4 and  mode<>1 and  mode<>3 then%>
                              <a class=middle href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>"  onclick="return ow(this)"  target=_blank title="<%=title%>"> 
                              <%if mode="2" then%>&nbsp;&nbsp;<img src="images/006.gif" width="8" height="10" border="0">&nbsp; 
                              <%=img%> 
                              <%end if%>
                              <font color="<%=rs3("titlecolor")%>"> 
                              <%if len(title)>20 then%>
                              <%=left(title,20)%> 
                              <%else%>
                              <%=title%> 
                              <%end if%>
                              </font></a></td>
                           
                            <td width="22%" align="center"><font class=middle><%=trim(rs3("UpdateTime"))%></font></td>
                            <td width="5%" align="center"><font color="#666666"><%=trim(rs3("click"))%></font></td>
                            <td width="8%" align="left"> 
                              <%if rs3("goodnews")="1" then%>
                              <img src="images/g.gif" > 
                              <%end if%>
                              <%else%>
                            </td>
                          </tr>
                          <tr> 
                            <td> 
                              <%if mode="4" or mode="1" or mode="3" then %>&nbsp;&nbsp;<img src="IMAGES/004.gif" width="8" height="10"><a class=middle href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>"   onclick="return ow(this)"  target=_blank title="<%=title%>">
                              <%=img%> 
                              <%end if%>
                              <font color="<%=rs3("titlecolor")%>"> 
                              <%if len(title)>18 then%>
                              <%=left(title,18)%> 
                              <%else%>
                              <%=title%> 
                              <%end if%>
                              </font></a></td>
                          
                            <td align="center"><font class=middle><%=trim(rs3("UpdateTime"))%></font></td>
                            <td align="center"><font class=middle><font color="#666666"><%=trim(rs3("click"))%></font></font></td>
                            <td align="left"> 
                              <%if rs3("goodnews")="1" then%>
                              <img src="images/g.gif" > 
                              <%end if%>
                              <%end if%>
                            </td>
                          </tr>
                        </table>
                        <%
rs3.MoveNext
i = i + 1
loop
%>
                      </td>
                    </tr>
                    <tr> 
                      <td width="100%" align=center valign="middle">共 <%=total%> 
                        条，当前第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%> 条 
                        <%
url="bigclassdeta.asp?typeid=" & typeid & "&BigClassid=" & request_BigClassid									
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs3.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 align=center>&nbsp;本类暂无信息</td></tr>"
				
End If
Rs3.close
set rs3=nothing
%>
                      </td>
                    </tr>
                  </table></td>
              </tr>
            </table></div>
				</td>
            </tr>
            <tr>
              <td height="4" 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>
</html><%end if%>