smallclass.asp

完美政府版,正版网站解决方案

  
%>
          </td>
        </tr><%end if%><%end if%>


</table>
<!------------专题结束------------------->
<!--最新图文开始-->					
						<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" id="AutoNumber4" style="border-collapse: collapse" style="border-left: 0px solid #cccccc ; border-top: 0px solid #cccccc ; border-bottom: 0px solid #cccccc ; border-right: 0px solid #cccccc ">
							<tr> 
										<td height="28" align="left" valign="middle" bordercolor="#999999" background="IMAGES/WmCms_type.jpg">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#95641D"><b>最新图片资讯</b></font></td>
							</tr>
							<tr> 
								<td width="100%" height="20" align="center" bordercolor="#ffffff" ><br> 
									
<%
Set rs3=server.CreateObject("ADODB.RecordSet")
rs3sql ="SELECT TOP " & top_img & " Content, picname, NewsID, title FROM "& db_News_Table &" WHERE picnews=1 AND checkked=1 AND typeid="&typeid&" AND picname IS NOT NULL ORDER BY NewsID DESC"
rs3.Open rs3sql,conn,1,1
if Not rs3.EOF then
	while not rs3.EOF
		fileExt=lcase(getFileExtName(rs3("picname")))
		Content=htmlencode4(rs3("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="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"> 
		<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%><img  src="<%=FileUploadPath & rs3("picname")%>" width="130"   border=0 align="center"><%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="130"   border=0 align="left">
			<param name=movie value="<%=FileUploadPath & rs3("picname")%>">
			<param name=quality value=high>
			<param name='Play' value='-1'>
			<param name='Loop' value='0'>
			<param name='Menu' value='-1'>
			<embed src="<%=FileUploadPath & rs3("picname")%>" width="130"   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%>
		</a>
	</td>
</tr>
<tr><td><a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"> <%=rs3("title")%></a></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>
    <td width="6" bgcolor="#FFFFFF">&nbsp;</td>
<td  style="border-left: 1px solid #cccccc ; border-top: 0px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc "> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="25" background="IMAGES/menu-l-m.gif"> 
            <%
  dim typename
  
set rs5=server.CreateObject("ADODB.RecordSet")
rs5.Source="select * from "& db_Type_Table &" where typeid=" & typeid &" order by typeorder"
rs5.Open rs5.Source,conn,1,1
typename=rs5("typename")
rs5.Close
set rs5=nothing

%>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a class="daohang" href="./" >网站首页</a>＞<a class="daohang" href="type.asp?typeid=<%=typeid%>"><%=typename%></a>＞<a class="daohang" href='BigClass.asp?typeid=<%=typeid%>&BigClassID=<%=request_BigClassID%>'><%=BigClassName%></a>＞<%=SmallClassName%></td>
        </tr>

      </table>
<!--模版开始-->
      <% select case bigclasszs %>
      <% case "1" %>
      <!--图片模版-->
      <%
set rs3=server.CreateObject("ADODB.RecordSet")
%>
      <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber4">


        <%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
rs3.Source="select * from "& db_News_Table &" where (SmallClassid=" & request_SmallClassid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="" then
rs3.Source="select * from "& db_News_Table &" where (SmallClassid=" & request_SmallClassid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="selfreg" then
	if Request.cookies(Forcast_SN)("reglevel")=3 then
rs3.Source="select * from "& db_News_Table &" where (SmallClassid=" & request_SmallClassid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(Forcast_SN)("reglevel")=2 then
rs3.Source="select * from "& db_News_Table &" where (SmallClassid=" & request_SmallClassid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(Forcast_SN)("reglevel")=1 then
rs3.Source="select * from "& db_News_Table &" where (SmallClassid=" & request_SmallClassid &" and checkked=1 ) order by newsid DESC"
	end if
end if
else
rs3.Source="select * from "& db_News_Table &" where (SmallClassid=" & request_SmallClassid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1

if not rs3.EOF then
Rs3.PageSize     = MyPageSize
MaxPages         = Rs3.PageCount
Rs3.absolutepage = MyPage
total            = Rs3.RecordCount
i = 0

%>
        <tr> 
          <td> <table width="100%" border="0" cellspacing="0" cellpadding="3" align="center">
              <!--图片换行显示1-->
<% do until rs3.Eof or i = rs3.PageSize %>
              <tr> 
<%
fileExt=lcase(getFileExtName(rs3("picname")))
Content=htmlencode4(rs3("Content"))
content=replace(content,"[---分页---]","")
%>
<% if not rs3.EOF then %>
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 

                  <div align="center"> 
                    <% content=htmlencode4(rs3("Content"))
                       content=replace(content,"[---分页---]","")%>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if   rs3("picname")=("") then%>
                    <img  src="IMAGES/flashorno.gif" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%else%>
                    <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                    <img  src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%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="110" height="80" border=0 >
					<param name=movie value="<%=FileUploadPath & rs3("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
					</object>
					<%end if%>

                    <%end if%>
                    </a><br>
                    <br>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"> 
                    <%=CutStr(rs3("title"),18)%> </a> </div></td>
<%rs3.movenext
i = i + 1
end if
%>
<!--图片换行显示2-->
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
<% if not rs3.EOF then %>
                  <div align="center"> 
<%
fileExt=lcase(getFileExtName(rs3("picname")))
Content=htmlencode4(rs3("Content"))
content=replace(content,"[---分页---]","")
%>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rs3("picname")=("") then%>
                    <img  src="IMAGES/flashorno.gif" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%else%>
                    <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                    <img  src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%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="110" height="80" border=0 >
					<param name=movie value="<%=FileUploadPath & rs3("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
					</object>
					<%end if%>

                    <%end if%>
                    </a><br>
                    <br>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"> 
                    <%=CutStr(rs3("title"),18)%> </a> </div></td>
<%rs3.movenext
i = i + 1
end if
%>
<!--图片换行显示3-->
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
<% if not rs3.EOF then %>
                  <div align="center"> 
<%
fileExt=lcase(getFileExtName(rs3("picname")))
Content=htmlencode4(rs3("Content"))
content=replace(content,"[---分页---]","")
%>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rs3("picname")=("") then%>
                    <img  src="IMAGES/flashorno.gif" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%else%>
                    <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                    <img  src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%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="110" height="80" border=0 >
					<param name=movie value="<%=FileUploadPath & rs3("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
					</object>
					<%end if%>

                    <%end if%>
                    </a><br>
                    <br>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"> 
                    <%=CutStr(rs3("title"),18)%> </a> </div></td>
<%rs3.movenext
i = i + 1
end if
%>
<!--图片换行显示4-->
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
<% if not rs3.EOF then %>
                  <div align="center"> 
<%
fileExt=lcase(getFileExtName(rs3("picname")))
Content=htmlencode4(rs3("Content"))
content=replace(content,"[---分页---]","")
%>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rs3("picname")=("") then%>
                    <img  src="IMAGES/flashorno.gif" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%else%>
                    <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                    <img  src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%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="110" height="80" border=0 >
					<param name=movie value="<%=FileUploadPath & rs3("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
					</object>
					<%end if%>

                    <%end if%>
                    </a><br>
                    <br>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"> 
                    <%=CutStr(rs3("title"),18)%> </a> </div></td>
<%rs3.movenext
i = i + 1
end if
%>
              </tr>
              <!--图片换行结束-->
<%loop%>
            </table></tr>
        
        <tr> 
          <td> <TABLE cellSpacing=0 cellPadding=3 width="100%" align=center border=0 >
              <tr> 
                <td width="100%" align=center valign="middle">共 <%=total%> 
                        条，当前第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%> 条 
                        <%