<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
response.redirect "MemberRegister.asp"
response.end
end if
dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion
dim mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mPoint,mAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP
call MemInfo()
%>
会员中心
<%=WebMenu()%>
<%=WebLocation()%><%=WebTitle%>
<%
function WebTitle
WebTitle="注册资料"
end function
function WebMenu()
response.write "积分计划 "
response.write "会员资料 "
response.write "积分兑换 "
response.write "密码找回 "
response.write "退出登录 "
end function
function WebLocation()
WebLocation=" 您的位置：首页" & _
" >> 帐户中心" &_
" >> 注册资料"
end function
sub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from F_Yang_Members where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无相关信息"
else
MemID=rs("ID")
mMemName=rs("MemName")
mGroupIdName=GroupName(rs("GroupID"))
mRealName=rs("RealName")
mSex=rs("Sex")
mQusetion=rs("Question")
mCompany=rs("Company")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mFax=rs("Fax")
mMobile=rs("Mobile")
mEmail=rs("Email")
mPoint=rs("Point")
mAddTime=rs("AddTime")
mLoginTimes=rs("LoginTimes")
mLastLoginTime=rs("LastLoginTime")
mLastLoginIP=rs("LastLoginIP")
end if
rs.close
set rs=nothing
end sub
function GroupName(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from F_Yang_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
GroupName=rs("GroupName")
rs.close
set rs=nothing
end function
%>