📄 class.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>软件分类 - <%=SiteSetting(0)%></title>
<STYLE>
BODY {
scrollbar-face-color : <%=SkinSetting(10)%>;
scrollbar-shadow-color : <%=SkinSetting(11)%>;
scrollbar-highlight-color : <%=SkinSetting(12)%>;
scrollbar-3dlight-color : <%=SkinSetting(13)%>;
scrollbar-darkshadow-color : <%=SkinSetting(14)%>;
scrollbar-track-color : <%=SkinSetting(15)%>;
scrollbar-arrow-color : <%=SkinSetting(16)%>;
}
.mouseover {
background-color: <%=SkinSetting(8)%>;
border: 1px solid <%=SkinSetting(9)%>;
}
.mouseout {
background-color: <%=SkinSetting(3)%>;
}
.mouseout2 {
background-color: <%=SkinSetting(4)%>;
}
</STYLE>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="<%=SkinSetting(0)%>" background="<%=SkinSetting(1)%>" leftmargin="0" topmargin="0">
<!--#include file="header.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="<%=SiteSetting(9)%>">
<tr>
<td bgcolor="<%=SkinSetting(3)%>">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="xuxian">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="18" valign="bottom" class="xuxian3"> <img src="images/point1.gif" width="17" height="16" align="absmiddle">
当前位置：<a href="default.asp">首页</a> \ 软件分类</td>
</tr>
</table>
<%dim sql,rs
sql="select ID,ClassName,ChildID from Class where ParentID=0 order by sequence"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<br><br><br><br><center>当前没有任何分类！</center><br><br><br><br>"
else
do while not rs.eof%>
<br>
<table width="85%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="<%=SkinSetting(4)%>" class="TdBorderB">::<a href="list.asp?id=<%=rs(0)%>"><%=rs(1)%></a>::</td>
</tr>
<tr>
<td style="line-height:18px">
<%dim sql2,rs2
sql2="select ID,ClassName,ChildID from Class where ID in ("&rs(2)&") order by Sequence"
set rs2=conn.execute(sql2)
if rs2.eof and rs2.bof then
response.write "没有下级分类！"
else
response.write "┊"
do while not rs2.eof
response.write "<a href=list.asp?id="&rs2(0)&">"&rs2(1)&"</a>"
if isnull(rs2(2)) or rs2(2)="" then
response.write "(0)"
else
response.write "(<font color=red>"&UBound(Split(rs(2)))+1&"</font>)"
end if
response.write "┊"
rs2.movenext
loop
end if
set rs2=nothing%>
</td>
</tr>
</table>
<% rs.movenext
loop
end if
set rs=nothing
conn.close
set conn=nothing%>
<br>
<br>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="footer.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -