<%
function getinfoclass(byval c,byval d)
dim T
select case c
case "1"
select case lcase(d)
case "id"
T = "1"
case "name"
T = "商城公告"
case "color"
T = ""
case "fatherid"
T = "0"
case "fatherids"
T = ""
case "childid"
T = ""
case "childids"
T = "1"
end select
case "2"
select case lcase(d)
case "id"
T = "2"
case "name"
T = "行业资讯"
case "color"
T = ""
case "fatherid"
T = "0"
case "fatherids"
T = ""
case "childid"
T = ""
case "childids"
T = "2"
end select
case "9"
select case lcase(d)
case "id"
T = "9"
case "name"
T = "商城公告2"
case "color"
T = ""
case "fatherid"
T = "0"
case "fatherids"
T = ""
case "childid"
T = ""
case "childids"
T = "9"
end select
end select
getinfoclass = T
end function



%>