index_right.asp

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

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