 |
|
|
|
|
|
|
|
|
<%
Dim TopSortSql,RsTopSort,daohang,hide
TopSortSql="select * from Sort where ((B_id=0 or daohang<>'') and hide<>true) and Hdaohang=true order by order_1"
Set RsTopSort=conn.execute (TopSortSql)
With RsTopSort
if .eof and .bof then
Response.write " | 没有栏目 | "
else
do while not .eof
'==================
if RsTopSort("daohang")<>"" then
daohang=RsTopsort("daohang")
else
daohang=" Sort.asp?SortID="&RsTopSort("ID")&" "
end if
'==================
response.write ""
response.write ""
response.write " "
response.write ""
response.write "| "
response.write " "
if RsTopSort("blank")=true then
' response.write " "
Response.Write("" & RsTopSort("Names") & "")
'response.write " "
else
'response.write " "
Response.Write("" & RsTopSort("Names") & "")
'response.write " "
end if
response.write " | "
response.write " | "
response.write " "
response.write " "
response.write " | "
.movenext
loop
end if
.close
End With
Set RsTopSort=Nothing
%>
|
