starshop.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 20 行

<%Set rs = conn.execute("select * from ThirdPic where PicId=1")
if rs.eof then
	response.write "<br>暂无"
else%> 
<table width="315" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <%i=1
	do while not rs.eof
	%>
	<td width="105" height="40" align="center" valign="middle" background="Images/starshop_bg.gif"><a onfocus=blur() href=<%=rs("Url")%>><img src=<%=rs("PicName")%> width="88" height="31" border="0" onload="javascript:ImageResize(this, 88, 31);"></a></td>
    <%if i mod 3 = 0 then%>
  </tr>
  <%end if
	rs.movenext
  i=i+1
  loop%>
</table>
<%end if
rs.close
set rs=nothing%>