<% '================================== ' 会员页面 ' 更新时间: 2006-1-9 '================================== Dim blog_Mem IF Request.QueryString("action")="edit" then if memName=empty then Response.Redirect("member.asp") %>

修改用户信息

<%set blog_Mem=conn.execute("select * from blog_Member where mem_Name='"&CheckStr(memName)&"'") if blog_Mem.eof or blog_Mem.bof then %>

无法找到该用户信息！！
单击返回

<%else%> "/> <% end if blog_Mem.Close Set blog_Mem=Nothing%>

昵　称:	<%=blog_Mem("mem_Name")%>
旧密码:	* 输入你的旧密码.下面的密码输入框为空则不修改密码
密　码:	密码必须是6到16个字符，建议使用英文和符号混合
密码重复:	必须和上面的密码一样
性　别:	/> 保密 />男 />女
电子邮件:	"/> /> 不公开我的电子邮件
个人主页:	"/>
QQ号码:	"/>

<% ElseIF Request.QueryString("action")="view" then %>

用户信息

<% if CheckStr(Request.QueryString("memName"))=Empty then %>

非法操作！！无法完成你的请求！
单击返回

<% else set blog_Mem=conn.execute("select * from blog_Member where mem_Name='"&CheckStr(Request.QueryString("memName"))&"'") if blog_Mem.eof or blog_Mem.bof then %>

无法找到该用户信息！！
单击返回

<%else%> <% end if blog_Mem.Close Set blog_Mem=Nothing end if %>

昵　称:	<%=blog_Mem("mem_Name")%>
性　别:	<% select case int(blog_Mem("mem_Sex")) case 1 response.write "我是GG" case 2 response.write "我是MM" case else response.write "保密" end select %>
电子邮件:	<%if (blog_Mem("mem_HideEmail") and (not stat_Admin)) or len(blog_Mem("mem_Email"))<1 or isnull(blog_Mem("mem_Email")) then response.write "该用户没有或不公开电子邮件" else response.write blog_Mem("mem_Email") end if%>
个人主页:	" target="_blank"><%=blog_Mem("mem_HomePage")%>
QQ号码:	<%=blog_Mem("mem_QQ")%>
统计:	日志共 <%=blog_Mem("mem_PostLogs")%> 篇，评论共 <%=blog_Mem("mem_PostComms")%> 篇，留言共 <%=blog_Mem("mem_PostMessageNums")%> 个。

<% ElseIF Request.form("action")="save" then dim reg reg=SaveMem %>

<%=reg(0)%>

<%=reg(1)%>

<% Else Dim searchType Dim PageCount,BM Set blog_Mem=Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM blog_Member order by mem_RegTime desc" blog_Mem.Open SQL,Conn,1,1 SQLQueryNums=SQLQueryNums+1 blog_Mem.PageSize=20 blog_Mem.AbsolutePage=CurPage %>

用户列表

<% if blog_Mem.eof or blog_Mem.bof then response.write "没找到任何注册用户!" else %> <% Do Until blog_Mem.EOF OR PageCount=blog_Mem.PageSize if blog_Mem("mem_HideEmail") or len(blog_Mem("mem_Email"))<1 or isnull(blog_Mem("mem_Email")) then BM="" else BM="" end if if len(blog_Mem("mem_HomePage"))<1 or isnull(blog_Mem("mem_HomePage")) then BM=BM&"" else BM=BM&"" end if if len(blog_Mem("mem_QQ"))<1 or isnull(blog_Mem("mem_QQ")) then BM=BM&"" else BM=BM&"" end if response.write ""&BM&"" PageCount=PageCount+1 blog_Mem.movenext loop response.write "

用户名	邮件	主页	ＱＱ	日志	评论	留言	注册时间

"&blog_Mem("mem_Name")&"	"&blog_Mem("mem_PostLogs")&"	"&blog_Mem("mem_PostComms")&"	"&blog_Mem("mem_PostMessageNums")&"	"&DateToStr(blog_Mem("mem_RegTime"),"Y-m-d H:I A")&"

" response.write "

"&MultiPage(blog_Mem.RecordCount,20,CurPage,"?","","float:left")&"

" end if blog_Mem.Close Set blog_Mem=Nothing %>

<%End if%>