<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%'include此行代码供安装插件用勿删改%> <% Const funpath = "../" Const dbpath = "../" Set ctr_user = New tr_user uname = ctr_user.truserislog(1) safemd5 = trmd5(uname) %> <%'head此行代码供安装插件用勿删改%> 会员中心编辑个人资料_<%=application(siternd & "55trsitetitle")%> <%'fjeiore09458dnblshjfhdbcj_功能卸载用勿删%> <%'fjeiore09458dnblshjfhdbcj_功能卸载用勿删%> <%'headend此行代码供安装插件用勿删改%>
当前位置: 网站首页 > 会员个人中心 > 编辑个人资料 当前位置: 网站首页 > 编辑个人资料
<%'body1此行代码供安装插件用勿删改%>
<%'body5此行代码供安装插件用勿删改%>
登录名:
<%=ctr_user.username%>
总积分:
<%=ctr_user.points%> 分
会员等级:
<% spuserjfstr = Split(userjfstr, ",") splevnamestr = Split(levnamestr, ",") points = clng(ctr_user.points) 'response.write spuserjfstr(UBound(spuserjfstr)) 'response.End() For i = 0 To UBound(spuserjfstr) If points>= clng(spuserjfstr(i)) And points= clng(spuserjfstr(UBound(spuserjfstr))) Then response.Write splevnamestr(UBound(spuserjfstr)) Exit For End If Next %>
发布文章:
<%=getfieldvalue("tr_article","count(id)"," and contrimd5='"&safemd5&"' and isdel=0 ",2,"")%> 篇
发布文章状态:
<%if ctr_user.openarticle=1 then%> 已开启 <%else%> 已关闭 <%end if%>
发布文章赠送的积分:
<%=ctr_user.gavearticlepoints%> 分
已连续签到:
<% nowtime = FormatDate(Now(), 1) If DateDiff("d", ctr_user.lastsigntime, nowtime)>1 Or IsNull(ctr_user.lastsigntime) Then %> 0 <%else%> <%=ctr_user.signs%> <%end if%> 天
注册日期:
<%=FormatDate(ctr_user.regtime, 4) %>
签到赠送的积分:
<%=ctr_user.gavesignpoints%> 分
<%'body6此行代码供安装插件用勿删改%>
基本信息
<%'body7此行代码供安装插件用勿删改%>
修改资料需要输入原始密码哦
不修改请留空
不修改请留空
<%=ctr_user.mail%>
以下为选填内容
<%'body8此行代码供安装插件用勿删改%>
<%'body9此行代码供安装插件用勿删改%>
<%'body2此行代码供安装插件用勿删改%>
<%'body3此行代码供安装插件用勿删改%> <%'body4此行代码供安装插件用勿删改%>