<!--#Include File="WapConfig/WapHeader.asp"-->
<%
Member_id=Request("Member_id") '接收ViewUser.asp传来的参数。
'以下为文件正文。
OnlineName=session("OnlineName")
strpasswd=session("OnlinePwd")
If Member_id<>"" Then
XML.StrSql="SELECT M_name,M_Password,M_sex,M_Email,M_ICQ,M_MSN,M_num,M_Posts,M_Reg_day,M_LastTime FROM Members where Member_id=" & Member_id
Else
XML.StrSql="SELECT M_name,M_Password,M_sex,M_Email,M_ICQ,M_MSN,M_num,M_Posts,M_Reg_day,M_LastTime FROM Members where M_Name=" & "'" & OnlineName & "'" 
End If
XML.WriteRow "个人资料查看"
XML.WriteRow "用户名:"
XML.WriteRow XML.MdbShow("M_name")
XML.WriteRow "密码:"
XML.WriteRow XML.MdbShow("M_Password")
XML.WriteRow "性别:"
if  XML.MdbShow("M_Sex")=1 then
M_sex="美女" 
else
M_sex="帅哥" 
end if

XML.WriteRow M_sex
XML.WriteRow "E-Mail 地址:"
XML.WriteRow XML.MdbShow("M_Email")
XML.WriteRow "QQ号码:"
XML.WriteRow XML.MdbShow("M_ICQ")
XML.WriteRow "MSN号码:"
XML.WriteRow XML.MdbShow("M_MSN")
XML.WriteRow "发贴量:"
XML.WriteRow XML.MdbShow("M_Posts")
XML.WriteRow "论坛积分:"
XML.WriteRow XML.MdbShow("M_num")
XML.WriteRow "注册时间:"
XML.WriteRow XML.MdbShow("M_Reg_day")
XML.WriteRow "最后发帖时间:"
XML.WriteRow XML.MdbShow("M_LastTime")


If Member_id="" Then
XML.WriteRow XML.A("确定","Edit_profile.asp","编辑资料") 
XML.WriteRow XML.ImgA("","UserAdmin.asp","管理中心")
Else
XML.WriteRow XML.ImgA("Images/topt.gif","ViewUser.asp","返回上级")
End If
'以下为返回链接等信息。
XML.WriteRow XML.ImgA("",XML.WapPath,"返回首页")
%>
<!--#Include File="WapConfig/WapFooter.asp"--> 
