<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <%=SiteTitle %> <% 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() %>
會員中心
<% =WebMenu()%>  
信息搜索
<%=SearchForm()%>
首頁會員中心我的資料
     
 
登錄名： <% =mMemName %>
所屬組別： <% =mGroupIdName %>
真實姓名：
性別： >先生 >女士
設置密碼：  空表示不修改
確定密碼：  
密碼提示問題： <% =mQusetion %>
密碼提示答案： ********
單位名稱：
地址：
郵編：
電話：
傳真：
移動電話：
電子郵箱：
網址：
驗證碼：
注冊時間： <% =mAddTime %>
登錄次數： <% =mLoginTimes %>
最后登錄時間： <% =mLastLoginTime %>
最后登錄IP： <% =mLastLoginIP %>
   
 
<% function WebMenu() response.write"" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write"
我的資料
我的報名
我的應聘
退出登錄
" 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 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 %>