daodu.asp

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

<div align="center">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber3" height="52">
    <tr> 
      <td width="15%" align=center> 
		<table border="0" width="62%" align="center">
          <tr> 
            <td width="87%" align="center"> <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 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="130" border=0 height="138"></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="130" height='130'>
        <param name=movie value="http://uploadfile/<%=rs("picname")%>">
        <param name=quality value=High>
        <param name='Loop' value='false'>
        <param name="wmode" value="transparent">
        <embed src="http://uploadfile/<%=rs("picname")%>" width="130" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' quality="High" loop="false" wmode="transparent" height="130"></embed></object>
      <%end if%>
     

<a class=middle href="readnews.asp?newsid=<%=rs("newsid")%>" target="_blank" title="<%=rs("title")%>">
<script>

//测字符串实际长度
String.prototype.Tlength = function(){var arr=this.match(/[^\x00-\xff]/ig);return this.length+(arr==null?0:arr.length);}

//字符串左取
String.prototype.left = function(num,mode){if(!/\d+/.test(num))return(this);var str = this.substr(0,num);if(!mode) return str;var n = str.Tlength() - str.length;num = num - parseInt(n/2);return this.substr(0,num);}
            
//开始左取			  
document.write("<%=rs("title")%>".left(20,true));
//结束左取

</script>
</a>

              




                <%
end if
rs.close
set rs=nothing
%>
              </p></td>
          </tr>
        </table></td>
      <td height=18 width="85%"  valign=top>
		<table border="0" width="100%">
			<script src=news.asp?bigclassid=31&title=11&shu=7&click=0></script>
		</table>
		</td>
    </tr>
  </table>
</div>