<%
'定义下载版块的函数，ＣＩＤ＝大分类ＩＤ，ＴＤ＝０表示前台页面，１后台页面
function showdown(CID,TD)
dim rsplus
set rsplus= server.createobject ("adodb.recordset")
sql1="select Nclass,Nclassid,classid from DNclass where classid="&CID
rsplus.open sql1,conndown,0,1

if not(rsplus.eof and rsplus.bof) then
do while not rsplus.eof
if TD=0 THEN
showdown= showdown&"<div class=menuitems><a style=font-size:9pt;line-height:14pt; href=down_index.asp?classid="&CID&"&nclassid="&rsplus(1)&" >"&rsplus(0)&"</a></div>"
ELSE
showdown= showdown&"<div class=menuitems><a style=font-size:9pt;line-height:14pt; href=down_adminedit.asp?classid="&CID&"&NcalssID="&rsplus(1)&" >"&rsplus(0)&"</a></div>"

END IF
rsplus.movenext
loop
rsplus.close
else
showdown= "<div class=menuitems>无子分类</div>"
end if

end function


%>
