nosmallclass.asp

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

          <tr>
            
          <td height="50" > 
            <%if showspecial=1 then%>
            <%set rs2=server.CreateObject("ADODB.RecordSet")  '专题
rs2.Source="select Top " & top_sp & " * from "& db_Special_Table &"  order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
if not rs2.EOF then
while not rs2.EOF

TrString="&nbsp;<img src='images/dot.jpg' border='0'>&nbsp;<a class=class href='Special_News.asp?SpecialID=" & rs2("SpecialID") &"'>" & trim(CutStr(htmlencode4(rs2("SpecialName")),14)) & "</a><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>"
Response.Write TrString

rs2.MoveNext
wend
%>

            <%    
else
Response.Write "<tr><td width=100% align=center height=40>暂无专题</td></tr>"
end if
rs2.Close
set rs2=nothing

  
%>
          </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">&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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font class=m_tittle>&nbsp;</font> &nbsp;&nbsp;<a href="./" class="daohang">网站首页</a>＞<a href=type.asp?typeid=<%=typeid%> class="daohang"><%=typename%></a> 
            <% Response.Write "＞" & BigClassName & "" %>
          </td>
        </tr>
<tr><td></td></tr>
		
<!--无小类文章区-->

<!--模版开始-->
      <% select case bigclasszs %>
      <% case "1" %>
      <!--图片模版-->
	  
<%set rsnosmall=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
				rsnosmall.Source="select * from "& db_News_Table &" where (bigClassID=" & bigClassID &"  and smallclassid is null and checkked=1) order by newsid DESC"
				end if
				if Request.cookies(Forcast_SN)("key")="" then
					rsnosmall.Source="select * from "& db_News_Table &" where (bigClassID=" & bigClassID &"  and smallclassid is null 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
						rsnosmall.Source="select * from "& db_News_Table &" where (bigClassID=" & bigClassID &"  and smallclassid is null and checkked=1 ) order by newsid DESC"
					end if
				if Request.cookies(Forcast_SN)("reglevel")=2 then
					rsnosmall.Source="select * from "& db_News_Table &" where (bigClassID=" & bigClassID &"  and smallclassid is null and checkked=1 ) order by newsid DESC"
				end if
				if Request.cookies(Forcast_SN)("reglevel")=1 then
					rsnosmall.Source="select * from "& db_News_Table &" where (bigClassID=" & bigClassID &"  and smallclassid is null and checkked=1 ) order by newsid DESC"
				end if
				
			end if
			else
			rsnosmall.Source="select * from "& db_News_Table &" where (bigClassID=" & bigClassID &"  and smallclassid is null and checkked=1) order by newsid DESC"
			end if
			rsnosmall.Open rsnosmall.Source,conn,1,1

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

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

                  <div align="center"> 
                    <% content=htmlencode4(rsnosmall("Content"))
                       content=replace(content,"[---分页---]","")%>
                    <a class=middle href="Article.asp?NewsID=<%=rsnosmall("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if   rsnosmall("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 & rsnosmall("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 & rsnosmall("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rsnosmall("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=<%=rsnosmall("NewsID")%>" target=_blank title="<%=htmlencode4(rsnosmall("title"))%>"> 
                    <%=CutStr(rsnosmall("title"),18)%> </a> </div></td>
<%rsnosmall.movenext
i = i + 1
end if
%>
<!--图片换行显示2-->
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
<% if not rsnosmall.EOF then %>
                  <div align="center"> 
<%
fileExt=lcase(getFileExtName(rsnosmall("picname")))
Content=htmlencode4(rsnosmall("Content"))
content=replace(content,"[---分页---]","")
%>
                    <a class=middle href="Article.asp?NewsID=<%=rsnosmall("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rsnosmall("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 & rsnosmall("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 & rsnosmall("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rsnosmall("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=<%=rsnosmall("NewsID")%>" target=_blank title="<%=htmlencode4(rsnosmall("title"))%>"> 
                    <%=CutStr(rsnosmall("title"),18)%> </a> </div></td>
<%rsnosmall.movenext
i = i + 1
end if
%>
<!--图片换行显示3-->
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
<% if not rsnosmall.EOF then %>
                  <div align="center"> 
<%
fileExt=lcase(getFileExtName(rsnosmall("picname")))
Content=htmlencode4(rsnosmall("Content"))
content=replace(content,"[---分页---]","")
%>
                    <a class=middle href="Article.asp?NewsID=<%=rsnosmall("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rsnosmall("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 & rsnosmall("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 & rsnosmall("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rsnosmall("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=<%=rsnosmall("NewsID")%>" target=_blank title="<%=htmlencode4(rsnosmall("title"))%>"> 
                    <%=CutStr(rsnosmall("title"),18)%> </a> </div></td>
<%rsnosmall.movenext
i = i + 1
end if
%>
<!--图片换行显示4-->
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
<% if not rsnosmall.EOF then %>
                  <div align="center"> 
<%
fileExt=lcase(getFileExtName(rsnosmall("picname")))
Content=htmlencode4(rsnosmall("Content"))
content=replace(content,"[---分页---]","")
%>
                    <a class=middle href="Article.asp?NewsID=<%=rsnosmall("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rsnosmall("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 & rsnosmall("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 & rsnosmall("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>