daodu.asp

ASP+SQL2000+

<div align="center">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%" id="AutoNumber3" height="52">
    <tr> 
      <td width="34%" align=center> <table border="0" width="94%" align="center">
          <tr> 
            <td width="100%"> <p align="center">
                <%
set rs=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
rs.Source="select top 1 * from News where checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
if Request.cookies("key")="" then
rs.Source="select top 1 * from News where (checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
	rs.Source="select top 1 * from News where (checkked=1 and newslevel<=3 and picnews=1 and picname is not null) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=2 then
	rs.Source="select top 1 * from News where (checkked=1 and newslevel<=2 and picnews=1 and picname is not null) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=1 then
	rs.Source="select top 1 * from News where (checkked=1 and newslevel<=1 and picnews=1 and picname is not null) order by newsid DESC"
	end if
end if
else
rs.Source="select top 1 * from News where checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
Response.Write "<center>目前无图</center>"
else
title=rs("title")
title=replace(title,"<br>","")
fileExt=lcase(getFileExtName(rs("picname")))
%>
               <a class=class target=_blank href="readnews.asp?newsid=<%=rs("newsid")%>" title="<%=title%>"> 
      <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
      <img src="uploadfile/<%=rs("picname")%>" width="140" border=0></a> 
      <%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="140" height='140'>
        <param name=movie value="uploadfile/<%=rs("picname")%>">
        <param name=quality value=high>
        <param name='Play' value='-1'>
        <param name='Loop' value='0'>
        <param name='Menu' value='-1'>
        <embed src="uploadfile/<%=rs("picname")%>" width="140" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed></object>
      <%end if%>
      <br>
              <%=rs("title")%>
                <%
end if
rs.close
set rs=nothing
%>
              </p></td>
          </tr>
        </table></td>
      <td height=18 width=66%  valign=top> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"  valign=top>
          <%
set rs=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
rs.Source="select top 10 * from News where checkked=1 order by newsid DESC"
end if
if Request.cookies("key")="" then
rs.Source="select top 10 * from News where (checkked=1 and newslevel=0) order by newsid DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
	rs.Source="select top 10 * from News where (checkked=1 and newslevel<=3) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=2 then
	rs.Source="select top 10 * from News where (checkked=1 and newslevel<=2) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=1 then
	rs.Source="select top 10 * from News where (checkked=1 and newslevel<=1) order by newsid DESC"
	end if
end if
else
rs.Source="select top 10 * from News where checkked=1 order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if not rs.EOF then
while not rs.EOF
%>
          <tr>
            <td height=18> &nbsp;<FONT
                              color=green><img src="images/006.gif"  border="0"></FONT>&nbsp;<a class=middle href="readnews.asp?newsid=<%=rs("newsid")%>" target="_blank" title="<%=rs("title")%>">
              <%if len(rs("title"))>14 then%>
              <<%=rs("titletype")%>><font color=<%=rs("titlecolor")%>><%=left(rs("title"),12)%></font></<%=rs("titletype")%>>
              <%else%>			  	  
              <<%=rs("titletype")%>><font color=<%=rs("titlecolor")%>><%=trim(rs("title"))%></font></<%=rs("titletype")%>>            
			  <%end if%>
              </a></td>
          </tr>
          <%
rs.MoveNext
wend
%>
          <%
else
Response.Write "目前还没有"
end if
rs.Close
set rs=nothing
%>
        </table></td>
    </tr>
  </table>
</div>