<%channelid=121%>
<%act=SafeRequest(request("act"),0) if act<>"" then if session("usernames")="" then response.Write "" response.End() end if end if %>
 您现在的位置：首页 > 会员中心 　 
标题 作者 内容 含回复 <%if not len(session("usernames"))>0 then%>登陆 | 注册<%else%> <%on error resume next sql="select count(*) as cou from z_email where s_username='"&session("usernames")&"' and fasong=1 and del=0 and yd=0" set rs=ado.getrecordset(sql) call errorredirect if not rs.eof then tempnum=rs("cou") end if%> <%=session("usernames")%> | 个人中心 | 我的信息<%if tempnum>0 then%>(<%=tempnum%>)<%end if%> | 退出 <%end if%>
<%if len(session("usernames"))>0 then%>
| 修改资料 | 我的帖子 | 我的回复 |
<%else%>
 
<%end if%> <%if act="" then%>
新用户注册
帐 号：     *只能为中文、英文、数字、下划数_
密 码：   
确认密码：   
以下信息为选填，但是为了获得更好的服务，请认真填写 
性别：   
电子邮件：   
QQ号码：   
来自地区：   
个人主页：   
个性签名：     100中文字以内
验证码：    " maxlength="4" class="user_frame2" style="font-size: 9pt; font-family: 宋体,MingLiU, Arial; color: #000000; width:30px"> 
     
<%end if%> <%if act="edit" then userid=session("userids") if not len(userid)>0 then response.Write "" end if on error resume next sql="select * from [user] where id="&userid set rs=ado.getrecordset(sql) call errorredirect if rs.eof then response.Write "" end if %>
密码修改
帐 号：    <%=rs("username")%>
旧密码：   " />  如不修改，请留空
新密码：     如不修改，请留空
确认密码：     如不修改，请留空
个人信息修改
登录次数：    <%=rs("login")%>
性别：   
电子邮件：    " />
QQ号码：    " />
来自地区：    "/>
个人主页：    "/>
个性签名：    "/>  100中文字以内
验证码：    " maxlength="4" class="user_frame2" style="font-size: 9pt; font-family: 宋体,MingLiU, Arial; color: #000000; width:30px"> 
     
<%end if%> <%if act="tz" or act="hf" then%> <% '分页内容 dim n,pagename,keyword,maxpagecount,TotalNumber dim pagestart,pageend,strurl,ii if not isempty(request("page")) then CurrentPage=cint(request("page")) else CurrentPage=1 end if const MaxPerPage = 30 '每页显示数 on error resume next select case act case "tz" sql="select * from zixun where userid="&session("userids")&" order by addtime desc" case "hf" sql="select * from huifu where [name]='"&session("usernames")&"' order by addtime desc" end select set rs=ado.getrecordset(sql) call errorredirect pagename = "user_re.asp" if not(rs.BOF or rs.EOF) then rs.pagesize = MaxPerPage maxpagecount=rs.pagecount '记录总页数 TotalNumber=cint(Rs.RecordCount)'记录总数 Rs.absolutepage = CurrentPage '当前页数 ii=0 '显示多少页 pagestart=CurrentPage-3 pageend=CurrentPage+3 n=CurrentPage if pagestart<1 then pagestart=1 end if if pageend>maxpagecount then pageend=maxpagecount end if if n
<%select case act case "tz"%> <% do while not Rs.eof and ii <%Rs.movenext ii=ii+1 loop%> <%case "hf"%> <% do while not Rs.eof and ii <%Rs.movenext ii=ii+1 loop%> <%end select%> <%else%> <%select case act case "tz"%> <%case "hf"%> <%end select%> <% end if %>
我所发表的帖子(只显示最新100条)
*  "><%=rs("title")%> <%=Formatdatetime(rs("addtime"),2)%> ">编辑
<%call showpage()%>
我所参与回复的帖子(只显示最新200条)
*  "><%=rs("title")%> <%=Formatdatetime(rs("addtime"),2)%> ">编辑
<%call showpage()%>
我所发表的帖子(只显示最新100条)
暂无信息
我所参与回复的帖子(只显示最新200条)
暂无信息
<%end if%>
 
<% sub showpage() %>
共有<%=TotalNumber%>条信息 ?page=1&act=<%=act%> title=返回第一页 class="L_font_Huang">9 <% for i=pagestart to pageend if i=0 then i=1 end if strurl="["&i&"]" response.write strurl response.write " " next %> ?page=<%=maxpagecount%>&act=<%=act%> title=尾页 class="L_font_Huang">: 页次:<%=CurrentPage%> / <%=maxpagecount%>页 每页:<%=MaxPerPage%> 转到:
<% end sub %>