index_left.asp

来自「个人网站模板」· ASP 代码 · 共 37 行

<%
   	const MaxPerPage=10
   	dim sql
   	dim rs
   %>
<table width="120" border="0" align="center" cellpadding="4" cellspacing="0">
  <%  dim i
    i=0
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select * from index_left order by listid ASc, id desc"
	rs.open sql,conn,1,1
  	if rs.eof and rs.bof then
       		response.write "<p align='center'> 无信息 </p>"
   	else
	do while not rs.eof
%>
  <tr> 
    <td height="122"> 
      <div align="center"><a href="<%=rs("pic_url")%>" target="_blank"><img src="admin/<%=rs("smallimg")%>" alt="" width="150" border="0"></a></div></td>
  </tr>
  <tr>
    <td><center>
        <font color="#FFFFFF"><%=rs("pic_name")%></font></center></td>
  </tr>
  <%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
rs.close
end if	        
%>
  <tr> 
    <td><div align="right"><a href="index_left_more.asp" target="_blank"><font color="#FFFFFF">更多图文&gt;&gt;</font></a></div></td>
  </tr>
</table>