📄 default2.asp
字号:
<%Option Explicit%>
<!--#include file="con-the-hhlong.asp"-->
<%
dim objRS,objShortCut,sql
dim tmpid(2),RecCount
dim i
Set objRS = Server.CreateObject("ADODB.RecordSet")
sql = "select description,sortName,ID from sort where parentID = " & -1
objRS.Open sql,objConn,3,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分类信息</title>
<link rel="stylesheet" href="happycss.css" type="text/css">
</head>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0" vlink="#000000" alink="#000000" >
<!--#include file="include-top3.htm"-->
<br>
<td width="31%"> <table width="700" border="0" align="center" >
<%
RecCount = objRS.RecordCount
if RecCount < 1 then Response.Write("暂无分类<br>")
%>
<%do while RecCount > 0%>
<%for i = 0 to 2 : tmpid(i) = NULL : next%>
<tr>
<td width="33%" valign="top"> <p align="left"><b><a href="info.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>">[<%=objRS("sortName")%>]</a></b></p></td>
<%tmpid(0) = objRS("ID") : objRS.MoveNext() : RecCount = RecCount - 1%>
<td width="33%" valign="top">
<%if RecCount > 0 then%>
<p align="left"><b><a href="info.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>">[<%=objRS("sortName")%>]</a></b></p>
<%tmpid(1) = objRS("ID") : objRS.MoveNext() : RecCount = RecCount - 1%>
<%end if%>
</td>
<td width="34%" valign="top">
<%if RecCount > 0 then%>
<p align="left"><b><a href="info.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>">[<%=objRS("sortName")%>]</a></b></p>
<%tmpid(2) = objRS("ID") : objRS.MoveNext() : RecCount = RecCount - 1%>
<%end if%>
</td>
</tr>
<tr>
<td width="33%" class="0" valign="top">
<%
sql = "select * from shortcut where rootID = " & tmpid(0)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="info.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a>
<%objShortCut.MoveNext%>
<%loop%>
</td>
<td width="33%" class="0" valign="top">
<%
if not IsNull(tmpid(1)) then
sql = "select * from shortcut where rootID = " & tmpid(1)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="info.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a>
<%objShortCut.MoveNext%>
<%loop%>
<%end if%>
</td>
<td width="34%" class="0" valign="top">
<%
if not IsNull(tmpid(2)) then
sql = "select * from shortcut where rootID = " & tmpid(2)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="info.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a>
<%objShortCut.MoveNext%>
<%loop%>
<%end if%>
</td>
</tr>
<tr>
<td width="33%"> </td>
<td width="33%"> </td>
<td width="34%"> </td>
</tr>
<%loop%>
</table>
<!--#include file="buttom.asp"-->
</body>
</html>
<%
objConn.Close()
Set objRs = nothing
Set objConn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -