'获得菜单
Function showmenu(id)
sql="select * from news_class where class_pid=0 and class_view=0 order by class_order asc,class_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1
if not rs.eof and not rs.bof then
n=1
do while not rs.eof
class_id=rs("class_id")
class_name=rs("class_name")
class_sub=rs("class_sub")'展现方式
class_url=rs("class_url")'指定内容id
class_asp="#"
if class_sub=1 then
class_asp="cata.asp"
end if
if class_sub=2 then
class_asp="catb.asp"
end if
if class_sub=3 then
class_asp="catc.asp"
end if
if class_sub=4 then
class_asp="catd.asp"
end if
if class_sub=5 then
class_asp="cate.asp"
end if
if class_sub=6 then
class_asp="catf.asp"
end if
if class_url<>"" then
class_asp="cat.asp"
end if
if class_id=336 then
class_asp="index.asp"
end if
if class_id=337 then
class_asp="liuyan.asp"
end if |