<%
dim MesName,Content,SecretFlag,mMemID,mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail
if session("MemName")<>"" and session("MemLogin")="Succeed" then
call MemInfo()
else
mSex="先生"
mMemID=0
SecretFlag="會員功能"
end if
%>
"
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 "暫無相關信息"
else
mMemID=rs("ID")
if not rs("RealName")="" then
mLinkman=rs("RealName")
else
mLinkman=rs("MemName")
end if
mSex=rs("Sex")
mCompany=rs("Company")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mFax=rs("Fax")
mMobile=rs("Mobile")
mEmail=rs("Email")
SecretFlag=""
end if
rs.close
set rs=nothing
end sub
%>
色诱久久av_亚洲一卡二卡三卡四卡无卡麻豆_国产成人综合久久亚洲精品_免费大黄网站
