📄 middle_bclass.asp
字号:
<table width="570" cellpadding="0" cellspacing="0">
<%
id=request.QueryString("id")
if id<>"" then
exec_middle_bclass1="select * from bclass where bclass_id="&id
set rs1=server.createobject("adodb.recordset")
rs1.open exec_middle_bclass1,conn,1,1
%>
<tr>
<td width="20" height="20"></td>
<td width="530" colspan="2">-- <strong>
<%=rs1("bclass_name")%></strong> --</td>
<td width="20" height="20"></td>
</tr>
<%
exec_middle_bclass2="select * from sclass where sclass_parent="&id
set rs2=server.createobject("adodb.recordset")
rs2.open exec_middle_bclass2,conn,1,1
do while not rs2.eof
%>
<tr>
<td width="20" height="20" background="images/top_left.jpg"></td>
<td width="530" colspan="2" background="images/top_mid.jpg"><a href="show_sclass.asp?id=<%=rs2("sclass_id")%>"><font color="#FFFFFF"><strong>
<%=rs2("sclass_name")%></strong></font></a></td>
<td width="20" height="20" background="images/top_right.jpg"></td>
</tr>
<tr>
<td height="15"> </td>
<td colspan="2"> </td>
<td> </td>
</tr>
<%
exec_middle_bclass3="select top 8 * from info where info_sclass="&rs2("sclass_id")&" and info_status='有效' order by info_id desc"
set rs3=server.createobject("adodb.recordset")
rs3.open exec_middle_bclass3,conn,1,1
do while not rs3.eof
%>
<tr>
<td height="20"> </td>
<td width="350">[<font color='<%if rs3("info_kind")="求" then %>0000ff<% else %>ff0000<% end if%>'><%=rs3("info_kind")%></font>]<a href="showinfo.asp?id=<%=rs3("info_id")%>"><%=rs3("info_title")%></a></td>
<td><%=rs3("info_date")%></td>
<td></td>
</tr>
<%
rs3.movenext
loop
%>
<tr>
<td height="15"> </td>
<td colspan="2" align="right"><a href="show_sclass.asp?id=<%=rs2("sclass_id")%>"><img src="images/more.gif" width="43" height="14" border="0"></a> </td>
<td> </td>
</tr>
<tr>
<td height="15"> </td>
<td colspan="2"> </td>
<td> </td>
</tr>
<%
rs2.movenext
loop
%>
</table>
<%
else
%>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -