📄 classlist.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
字号:
<!--#Include File="Conn.asp"-->
<!--#Include File="Inc/Cl_ClsSysTem.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>栏目树形导航</title>
<Style type="Text/Css">
A{TEXT-DECORATION: none;}
A:hover{COLOR: #0099FF;}
A:link {color: #205064;}
A:visited {color: #006699;}
BODY{FONT-FAMILY: 宋体;FONT-SIZE: 9pt;text-decoration: none;line-height: 150%;}
TD{FONT-FAMILY:宋体;FONT-SIZE: 9pt;}
.border{border: 1px solid #CCCCCC;}
</Style>
</head>
<body leftmargin="0" topmargin="0" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<table border=0 width="100%" height=0 cellspacing=0 cellpadding=0>
<%
Cl.Get_WebSetting
dim rsClass,sqlClass,strTemp,iDepth,i
dim arrShowLine(10)
dim arrChildID,ChannelID
arrChildID=Trim(Request("ID"))
ChannelID=Cl.GetClng(Request("ChannelID"))
arrChildID=Replace(arrChildID," ","")
if Not IsNumeric(Replace(arrChildID,",","")) then arrChildID=0
if Not IsNumeric(ChannelID) then ChannelID=0
for i=0 to ubound(arrShowLine)
	arrShowLine(i)=False
next
Cl.Get_ChannelSetting(ChannelID)
sqlClass="Select ClassID,ClassName,ParentID,ParentPath,ParentDir,ClassDir,Child,Depth,NextID From Cl_Class where (ParentID In ("&arrChildID&") or Depth=0) and ChannelID="&ChannelID&" order by RootID,OrderID"
set rsClass=Cl.Execute(sqlClass)
if rsClass.bof and rsClass.bof then
	response.write "请先添加栏目"
else
	Dim sTemp
	do while not rsClass.eof 
		iDepth=rsClass("Depth")
		if rsClass("Child")>0 then
			if Instr(","&arrChildID&",",","&rsClass("ParentPath") & "," & rsClass("ClassID")&",")>0 then
				sTemp = "<a href='?ChannelID="&ChannelID&"&ID=" & rsClass("ParentPath") & "' title='收起栏目'><img src='"&Cl.Webdir&"images/Tree/folder3.gif' width='15' height='15' valign='abvmiddle'>" & rsClass("ClassName") & "</a>"
			else
				sTemp = "<a href='?ChannelID="&ChannelID&"&ID=" & rsClass("ParentPath") & "," & rsClass("ClassID") & "' title='展开栏目'><img src='"&Cl.Webdir&"images/Tree/folder4.gif' width='15' height='15' valign='abvmiddle'>" & rsClass("ClassName") & " ["&rsClass("Child")&"]</a>"
			end if
		else 
			sTemp = "<a href='"&Cl.WebDir & Cl.GetClassUrl(Cl.CreatePathType,Cl.HtmlDir,Cl.ChannelDir,rsClass("ParentPath"),rsClass("ClassID"),rsClass("ParentDir"),rsClass("ClassDir"),Cl.IsCreateHtml,Cl.CreateFileExt)&"' title='打开栏目' target='_blank'><img src='"&Cl.Webdir&"images/Tree/folder3.gif' width='15' height='15' valign='abvmiddle'>" & rsClass("ClassName") & "</a>"
		end if
		rsClass.movenext
		if iDepth>0 then
			if Not rsClass.eof then
				for i=1 to iDepth 
					if i=iDepth then
						response.write "<img src='"&Cl.Webdir&"images/Tree/line1.gif' width='17' height='16' valign='abvmiddle'>" 
					else
						response.write "<img src='"&Cl.Webdir&"Images/Tree/line3.gif' width='17' height='16' valign='abvmiddle'>" 
					end if
				next
			else
				for i=1 to iDepth
					if i=iDepth then
						response.write "<img src='"&Cl.Webdir&"images/Tree/line2.gif' width='17' height='16' valign='abvmiddle'>" 
					else
						response.write "<img src='"&Cl.Webdir&"images/Tree/line4.gif' width='17' height='16' valign='abvmiddle'>" 
					end if
				next
			end if
		end if
	  	response.write sTemp & "<br>"
	loop 
end if
rsClass.close:set rsClass=nothing
%>
</table>
</Body>
</Html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -