<%call SiteInfo%> 修改会员资料
<% if not (session("MemName")<>"" and session("MemLogin")="Succeed") then response.Write "" 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()%>
 
<%=WebLocation()%>
 
用户名称: <% =mMemName %>
所属组别: <% =mGroupIdName %>
用户密码: 不修改请留空
重复用户密码:
注册时间: <% =mAddTime %>
登录次数: <% =mLoginTimes %> 次
最后登录时间: <% =mLastLoginTime %>
最后登录IP: <% =mLastLoginIP %>
验证码: *
 
<% function WebMenu() If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then response.write "
  • 注册会员
  • " Else response.write "
  • 修改资料
  • " response.write "
  • 咨询服务
  • " response.write "
  • 退出登录
  • " End If end function function WebLocation() WebLocation=" 当前位置:首页 - 用户资料"&VbCrLf end Function sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_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") 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 Qianbo_MemGroup where GroupID='"&GroupID&"'" rs.open sql,conn,1,1 GroupName=rs("GroupName") rs.close set rs=nothing end function %>