<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/Bk_safe.Asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<%
'*********************************************
'软件名称：博科企业网站内容管理系统（BOKECMS）
'软件开发：博科网络科技工作室
'网    址：http://www.bokew.net
'服务  QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：bokewlkj
'*********************************************
%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="/Dynamic/user_Style.css" rel="stylesheet" type="text/css" />
<title>会员中心</title>
<link rel="shortcut icon" href="/images/favicon.ico" />
<link rel="bookmark" href="/images/favicon.ico" type="image/x-icon"/>
<table width="960" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                            <td width="80%" height="18" bgcolor="#eeeeee"><a href="/">返回首页</a></td>
                        <td width="79%" bgcolor="#eeeeee">&nbsp; </td>
                  </tr>
  </table>
   <table width="960" height="223" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/hyzz.jpg">
                  <tr> 
                    <td width="100%"  align="center"></td>
                  </tr>
                  <tr> 
                    <td height="1" colspan="2" bgcolor="#999999"></td>
                  </tr>
  </table>



<%
Dim mMemID,mMemName,mGroupIdName,mRealName,mSex,mQuestion,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,muserqq,mEmail,mHomePage,mAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP

'*************************************************
'标签名：WebMenu()
'作  用：会员中心栏目列表和栏目显示中使用
'参  数：call WebMenu()
'*************************************************
Function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
Response.Write "<tr><td height=""20""><div align=""center""><a href=""MemberRegister.asp"">注册会员</a></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"
Else

Response.Write "<tr><td height=""20""><div align=""center""><a href=""user_Memberwallet.asp"">我的钱包</a></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"

Response.Write "<tr><td height=""20""><div align=""center""><!--a href=""user_MemberOrder.Asp""-->我的订单<!--/a--></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"

Response.Write "<tr><td height=""20""><div align=""center""><a href=""user_MemberMessage.asp"">我的留言</a></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"

Response.Write "<tr><td height=""20""><div align=""center""><a href=""/Message/"">签写留言</a></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"

Response.Write "<tr><td height=""20""><div align=""center""><a href=""user_MemberInfo.Asp"">修改注册资料</a></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"

If API_QQEnable=true Then
Response.Write "<tr><td height=""20""><div align=""center""><a title=""绑定QQ号快捷登录"" href=""user_Memberqq.Asp"" ><font color=#FF0000><b>QQ登录管理</b></font></a></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"
End If

Response.Write "<tr><td height=""20""><div align=""center""><a href=""/Dynamic/user_Login.asp?Action=Out"">退出登录</a></div></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"

End If
End Function

'*************************************************
'标签名：MemInfo()
'作  用：获得会员资料
'参  数：call MemInfo()
'*************************************************
sub MemInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from BokeCMS_Members where MemName='"&session("MemName")&"'"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "<center>没有会员信息</center>"
  else
    mMemID=rs("ID")
	mMemName=rs("MemName")
	mGroupIdName=GroupName(rs("GroupID"))
	mRealName=rs("RealName")
	mSex=rs("Sex")
	mQuestion=rs("Question")
	mCompany=rs("Company")
	mAddress=rs("Address")
	mZipCode=rs("ZipCode")
	mTelephone=rs("Telephone")
	mFax=rs("Fax")
	mMobile=rs("Mobile")
	muserqq=rs("userqq")
	mEmail=rs("Email")
	mHomePage=rs("HomePage")
	mAddTime=rs("AddTime")
	mLoginTimes=rs("LoginTimes")
	mLastLoginTime=rs("LastLoginTime")
	mLastLoginIP=rs("LastLoginIP")
  end if
  rs.close
  set rs=nothing
end Sub

'*************************************************
'标签名：GroupName(GroupID)
'作  用：获得会员级别
'参  数：GroupID会员级别ID
'*************************************************
function GroupName(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from BokeCMS_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  GroupName=rs("GroupName"&Language)
  rs.close
  set rs=nothing
end Function

'*************************************************
'函数名：WriteMsg
'作  用：信息提示
'参  数：Message --提示内容
'*************************************************
function WriteMsg(Message)
  response.write "<script language='JavaScript'>alert('"&Message&"');" & "history.back()" & "</script>"
end Function%>