<%s_pai = Db_Filed("a_info","s_pai",isid(Request("id"),0))
Select Case s_pai
Case 1
xxs_name = "公司介绍"
Case 2
xxs_name = "职业发展"
Case 3
xxs_name = "联系我们"
Case 4
xxs_name = "职业发展"
Case 5
xxs_name = "网站地图"
End Select
%>
<%
sql = "select * from a_info where s_pai="&s_pai&" order by s_order asc, id desc"
Set Rs = Conn.Execute(sql)
If Not Rs.Eof Then
Do While Not Rs.Eof
%>
