?? shjia_tj.asp
字號:
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 8 * from shjia where tj=2 order by adddate desc",conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/bj_x.gif" height="1"></td>
</tr>
<tr>
<td height="14" bgcolor="#FFE9A4">
<table cellspacing=0 cellpadding=0 width=100% height="20">
<tr>
<td width=2% height="16"> </td>
<td height="16">
<div align="center"></div>
推薦商家</td>
<td height="16" width="30%">
<%
set rs_n=server.CreateObject("adodb.recordset")
rs_n.open "select * from shjia where tj=2 order by adddate desc",conn,1,1
if rs_n.recordcount>8 then
%>
<a href=shjiatj.asp>更多推薦</a>
<%else%>
<%end if
rs_n.close
set rs_n=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="1" background="images/bj_x.gif"></td>
</tr>
<tr>
<td>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
do while not rs.eof
%>
<tr>
<td height="22"><img src="images/0.gif" width="12" height="11">
<%response.write "<a href=shjialist.asp?id="&rs("shjiaid")&" target=_blank>"
if len(trim(rs("name")))>12 then
response.write left(trim(rs("name")),10)&"..."
else
response.write trim(rs("name"))
end if
response.write "</a>"
%>
</td>
</tr>
<tr>
<td height="1" background="images/bj_x1.gif"></td>
</tr>
<% rs.movenext
loop
rs.close
set rs=nothing%>
</table>
</td>
</tr>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -