📄 soft_nav.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<%dim id
id=Trim(Request.QueryString("id"))
if id="" then
id=0
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../style.css" rel="stylesheet" type="text/css">
<STYLE>
BODY {
scrollbar-face-color : #96A2AD;
scrollbar-shadow-color : #96A2AD;
scrollbar-highlight-color : #96A2AD;
scrollbar-3dlight-color : #96A2AD;
scrollbar-darkshadow-color : #96A2AD;
scrollbar-track-color : #CCCCCC;
scrollbar-arrow-color : #FFFFFF;
}
</STYLE>
</head>
<body>
<table width="200" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="#708090" class="TdBorderB">
<%dim sql,rs
if id=0 then
response.write "<font color=white>::一级分类::</font>"
else
sql="select ClassName from Class where ID="&CInt(id)
set rs=conn.execute(sql)
response.write "<font color=white>::"&rs(0)&"::</font>"
end if
%>
</td>
<td align="right" bgcolor="#708090" class="TdBorderB"><font color="#FFFFFF">[</font><a href="javascript:history.back()"><font color="#FFFFFF">返回</font></a><font color="#FFFFFF">]</font></td>
</tr>
</table>
<table width="200" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td class="TdBorderB"> </td>
</tr>
<%
sql="select ID,ClassName,ChildID from Class where ParentID="&Cint(id)&" order by Sequence"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<tr><td colspan=5 align=center bgcolor=#EEEEEE>没有下级分类</td></tr>"
else
do while not rs.eof%>
<tr bgcolor="#EEEEEE">
<td align="center" class="TdBorderRB"><a href="soft_nav.asp?id=<%=rs(0)%>"><%=rs(1)%></a>
<%if rs(2)<>"" then response.write "("&UBound(Split(rs(2),","))+1&")" end if
if id<>0 then response.write " [<a href=soft_add.asp?id="&rs(0)&">添加软件</a>]"%>
</td>
</tr>
<%rs.movenext
loop
end if
set rs=nothing%>
</table>
</body>
</html>
<%conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -