admin_left.asp

广告策划中心整站程序

<table border="1" cellspacing="4" bordercolor="#222222" width="100%" height=100% style="border-collapse: collapse">
 	<%
	if session("admin")<>"" then
				dim grade
				grade = Split(session("flag"), "|",-1)
					For Each Strs In grade
					if Strs="prod" then response.write "<tr><td height='30'><a href='admin.asp?action=prod'>产品发布管理</a></td></tr>"
					if Strs="order" then response.write "<tr><td height='30'><a href='admin.asp?action=order'>订单处理系统</a></td></tr>"
					if Strs="news" then response.write "<tr><td height='30'><a href='admin.asp?action=news'>站点文章管理</a></td></tr>"
					if Strs="faq" then response.write "<tr><td height='30'><a href='admin.asp?action=faq'>FAQ管理</a></td></tr>"
					if Strs="adv" then response.write "<tr><td height='30'><a href='admin.asp?action=adv'>滚动广告管理</a></td></tr>"
					if Strs="paytype" then response.write "<tr><td height='30'><a href='admin.asp?action=config'>站点配置修改</a></td></tr>"
					if Strs="paytype" then response.write "<tr><td height='30'><a href='admin.asp?action=paytype'>支付类型修改</a></td></tr>"
					if Strs="feedback" then response.write "<tr><td height='30'><a href='admin.asp?action=feedback'>留言信息管理</a></td></tr><tr><td height=5></td></tr>"
					if Strs="client" then response.write "<tr><td height='30'><a href='admin.asp?action=client'>客户管理中心</a></td></tr>"
					if Strs="password" then response.write "<tr><td height='30'><a href='admin.asp?action=password'>修改密码</a></td></tr>"
  					if Strs="manager" then response.write "<tr><td height='30'><a href='admin.asp?action=manager'>管理权限设置</a></td></tr>"
					if Strs="feedback" then response.write "<tr><td height='30'><a href='admin.asp?action=clearall'>系统清理</a></td></tr>"

				next 
response.write "<tr><td height=*>&nbsp;</td></tr><tr><td height=30><a href='quit.asp'>退出管理</a></td></tr>"
	else
	end if
%>  
</table>