daodu.asp

一套设计精美的学校网站全站系统

<div align="center">
  <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 4 * from News where checkked=1 order by newsid DESC"
end if
if Request.cookies("key")="" then
rs.Source="select top 4 * from News where (checkked=1) order by newsid DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
	rs.Source="select top 4 * from News where (checkked=1 and newslevel<=3) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=2 then
	rs.Source="select top 4 * from News where (checkked=1 and newslevel<=2) order by newsid DESC"
	end if
	if Request.cookies("reglevel")=1 then
	rs.Source="select top 4 * from News where (checkked=1 and newslevel<=1) order by newsid DESC"
	end if
end if
else
rs.Source="select top 4 * 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=20 background="img/line.gif" class="1">  <img src="img/arrow01.gif" width="4" height="18"  border="0"> <a href="readnews.asp?newsid=<%=rs("newsid")%>" target="_blank" title="<%=rs("title")%>" <<%=rs("titletype")%>>
        <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(30,true));
//结束左取


  </script>
      </font></<%=rs("titletype")%>> </a></td>
    </tr>
    <%
rs.MoveNext
wend
%>
    <%
else
Response.Write "目前还没有"
end if
rs.Close
set rs=nothing
%>
  </table>
</div>