indexcase.asp

来自「一个互联网络公司网站源码」· ASP 代码 · 共 31 行

<!--#include file="conn.asp" -->
<%
	sql="select top 4 * from webcase where commend=1 order by id desc"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
%>
document.write("<table width=\"100%\" border=\"0\" cellspacing=\"5\" cellpadding=\"0\">");
document.write("  <tr align=\"center\">");
<%
while not rs.eof
url=rs("url")
if left(url,7)<>"http://" then
url="http://"&url
end if
%>  
document.write("    <td width=\"25%\"><table width=\"116\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">");
document.write("      <tr>");
document.write("        <td height=\"92\" align=\"center\" class=\"kk\"><img src=\"<%=rs("PicUrl")%>\" width=\"110\" height=\"85\"></td>");
document.write("      </tr>");
document.write("      <tr>");
document.write("        <td height=\"20\" align=\"center\"><a href=\"<%=url%>\" target=\"_blank\" title=\"<%=rs("title")%>\"><%=InterceptString(rs("title"),18)%></a></td>");
document.write("      </tr>");
document.write("    </table></td>");
<%
	rs.movenext
	wend
	rs.close
%>
document.write("  </tr>");
document.write("</table>");