<%
ClassID=trim(request("ClassID"))
if ClassID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定所属栏目"
exit sub
else
ClassID=Clng(ClassID)
end if
set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,ClassMaster From ArticleClass where ClassID=" & ClassID)
if tClass.bof and tClass.eof then
founderr=True
ErrMsg=ErrMsg & "
找不到指定的栏目"
exit sub
else
ClassName=tClass(0)
RootID=tClass(1)
ParentID=tClass(2)
Depth=tClass(3)
ParentPath=tClass(4)
Child=tClass(5)
ClassMaster=tClass(6)
end if
set tClass=nothing
if ParentID>0 then
dim sqlPath,rsPath
sqlPath="select ClassID,ClassName From ArticleClass where ClassID in (" & ParentPath & ") order by Depth"
set rsPath=server.createobject("adodb.recordset")
rsPath.open sqlPath,conn,1,1
do while not rsPath.eof
response.Write rsPath(1) & " >> "
rsPath.movenext
loop
rsPath.close
set rsPath=nothing
end if
response.write ClassName & " >> "
if request("IncludePic")=true then
response.write "[图文]"
end if
response.write request("Title")
%>
|
<%
if lcase(request("OnTop"))="yes" then
response.Write("顶 ")
else
response.write(" ")
end if
if lcase(request("Hot"))="yes" then
response.write("热 ")
else
response.write(" ")
end if
if lcase(request("Elite"))="yes" then
response.write("荐")
else
response.write(" ")
end if
%> |