<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
response.redirect "MemberCenter.asp"
response.end
end if
dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion
dim mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mHomepage,mAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP
call MemInfo()
%>
"
end function
sub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_Members where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暫無相關(guān)信息"
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")
mHomePage=rs("HomePage")
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 Ameav_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
GroupName=rs("GroupName")
rs.close
set rs=nothing
end function
%>
色诱久久av_亚洲一卡二卡三卡四卡无卡麻豆_国产成人综合久久亚洲精品_免费大黄网站
