<%
myself=request.servervariables("path_info")
SeekValue=trim(request("SeekValue"))
ParentClassName=trim(request("ParentClassName"))
'取栏目对应的ClassID值
sqlClass="select ClassID,Child From ArticleClass where trim(ClassName)='"&ParentClassName&"'"
set rsClass=server.CreateObject("adodb.recordset")
rsClass.open sqlClass,conn,1,1
if not rsClass.bof and not rsClass.eof then
rsClass.movefirst
ParentClassID=rsClass("ClassID")
Child=rsClass("Child")
end if
rsClass.close
set rsClass=nothing
const ChannelID=1
Const ShowRunTime="Yes"
select case ParentClassName
case "Organization"
MaxPerPage=20
case "Payment"
MaxPerPage=20
case else
MaxPerPage=10
End Select
%>
中国城镇网
入网城镇
