『newstar:FS4sp5』友情链接添加分类调用
附件:
您所在的用户组无法下载或查看附件<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
<tr>
<td align="left" colspan="2" class="xingmu">友情连接管理</td>
</tr>
<tr>
<td align="left" colspan="2" class="hback"><a href="Flink_Manage.asp">管理首页</a>┆<a href="Flink_Edit.asp?Action=Add">添加连接</a>┆<a href="Flink_Manage.asp?Type=0">图片连接</a>┆<a href="Flink_Manage.asp?Type=1">文字连接</a>┆<a href="Flink_Manage.asp?Lock=1">已锁定</a>┆<a href="Flink_Manage.asp?Lock=0">未锁定</a>┆用户申请的连接:<a href="Flink_Manage.asp?Lock=0&isUser=1">已审核</a>，<a href="Flink_Manage.asp?Lock=1&isUser=1">未审核</a>┆管理员添加的连接:<a href="Flink_Manage.asp?Lock=0&isAdmin=1">已审核</a>，<a href="Flink_Manage.asp?Lock=1&isAdmin=1">未审核</a></td>
</tr>
<tr>
<td align="left" colspan="2" class="hback">类别：
<%
dim L_fl
set L_fl = Conn.execute("select F_ClassCName,id from FS_FL_Class")
if Not L_fl.eof then
L_fl.MoveFirst
Do While Not L_fl.EOF
Response.Write "<a href=Flink_Manage.asp?Classid="& L_fl("id")&">"&L_fl("F_ClassCName")&"</a>┆"
L_fl.MoveNext
Loop
else
Response.Write "无分类"
end if %></td>
</tr>
</table>
