<%
M_login=session("M_login")
sql="Select * from member Where M_login='"&M_login&"'"
		set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		M_pwd=rs("M_pwd")
		M_name=rs("M_name")
		M_code=rs("M_code")
		M_fen=rs("M_fen")
		M_pic=rs("M_pic")
		M_email=rs("M_email")
		M_qq=rs("M_qq")
		M_add=rs("M_add")
		M_mobile=rs("M_mobile")
		M_pic="../../../image/member.jpg"
		if rs("M_pic")<>"" then
		M_pic="../../../"&rs("M_pic")
		end if
		rs.close
set rs=nothing

sql="Select * from config"
		set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		C_title=rs("C_title")
		C_content=rs("C_content")
		C_logo=rs("C_logo")
		rs.close
set rs=nothing
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/module")(0)
%>
<div style="width:200px; height:100%; float:left; border-right:#999999 solid 1px; background-color:#dddddd">
<%
if split(GetBody(D_domain),"|")(2)="1" then
%>
<%else%>
<div align='center' style='margin:10px 10px 10px 10px;padding:5px 5px 5px 5px;border:1px solid #ff0000'><font color='red'>会员/商城系统未授权！</font></div>
<%
end if
%>
<div align="center"><img src="<%=M_pic%>" width="150" style="padding-top:20px; padding-bottom:10px;"><br>会员：<%=M_login%><div style="height:10px;"></div><hr style="border : 1px dashed #999999;" /><a href="index.asp">会员中心</a><hr style="border : 1px dashed #999999;" /><a href="member_edit.asp">修改资料</a><hr style="border : 1px dashed #999999;" /><a href="member_order.asp">订单记录</a><hr style="border : 1px dashed #999999;" /><a href="member_shop.asp">购物车</a><hr style="border : 1px dashed #999999;" /><a href="member_wuliu.asp">查物流</a><hr style="border : 1px dashed #999999;" /><a href="member_form.asp">表单管理</a><hr style="border : 1px dashed #999999;" /><a href="member_welcome.asp">邀请好友</a><hr style="border : 1px dashed #999999;" /><a href="member_login.asp?action=unlogin">退出登录</a><hr style="border : 1px dashed #999999;" /></div>
</div>