<% '================================== ' 会员页面 ' 更新时间: 2006-1-9 '================================== Dim blog_Mem, Referer_Url If Request.QueryString("action") = "edit" Then If memName = Empty Then RedirectUrl("member.asp") Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER")) If len(Referer_Url) < 8 then Referer_Url= "http://" & Request.ServerVariables("HTTP_HOST") Session(CookieName & "_Member_Referer_Url") = Referer_Url %>

<%=lang.MemBer.EditForm(1)%>

<%Set blog_Mem = conn.Execute("select * from blog_Member where mem_Name='"&CheckStr(memName)&"'") If blog_Mem.EOF Or blog_Mem.bof Then %>

<%=lang.MemBer.EditForm(2)%>
<%=lang.Tip.SysTem(2)%>

<%else%> "/> <% If blog_PasswordProtection Then %> <% End If %> <% End If blog_Mem.Close Set blog_Mem = Nothing %>

<%=lang.MemBer.EditForm(4)%>:	<%=blog_Mem("mem_Name")%>
<%=lang.MemBer.EditForm(5)%>:	* <%=lang.MemBer.EditForm(6)%>
<%=lang.Action.PassWord%>:	<%=lang.MemBer.EditForm(7)%>
<%=lang.MemBer.EditForm(8)%>:
<%=lang.MemBer.EditForm(9)%>:	<%=lang.MemBer.EditForm(10)%>
<%=lang.MemBer.EditForm(11)%>:	', 350, '<%=blog_Mem("mem_Question")%>', <%=blog_Mem("mem_ID")%>)"><%=lang.MemBer.EditForm(12)%>
<%=lang.MemBer.EditForm(13)%>:	/> <%=lang.MemBer.EditForm(14)%> /><%=lang.MemBer.EditForm(15)%> /><%=lang.MemBer.EditForm(16)%>
<%=lang.MemBer.EditForm(17)%>:	"/> /> <%=lang.MemBer.EditForm(18)%>
<%=lang.MemBer.EditForm(19)%>:	"/>
<%=lang.MemBer.EditForm(20)%>:	"/>

<% ElseIf Request.QueryString("action") = "view" Then %>

<%=lang.MemBer.EditForm(22)%>

<% If CheckStr(Request.QueryString("memName")) = Empty Then %>

<%=lang.Err.info(999)%><%=lang.MemBer.EditForm(23)%>
<%=lang.Tip.SysTem(2)%>

<% 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 %>

<%=lang.MemBer.EditForm(2)%>
<%=lang.Tip.SysTem(2)%>

<%else%> <% End If blog_Mem.Close Set blog_Mem = Nothing End If %>

<%=lang.MemBer.EditForm(4)%>:	<%=blog_Mem("mem_Name")%>
<%=lang.MemBer.EditForm(13)%>:	<% Select Case Int(blog_Mem("mem_Sex")) Case 1 response.Write lang.MemBer.EditForm(24) Case 2 response.Write lang.MemBer.EditForm(25) Case Else response.Write lang.MemBer.EditForm(14) End Select %>
<%=lang.MemBer.EditForm(17)%>:	<%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 lang.MemBer.EditForm(26) else response.write blog_Mem("mem_Email") end if%>
<%=lang.MemBer.EditForm(19)%>:	" target="_blank"><%=blog_Mem("mem_HomePage")%>
<%=lang.MemBer.EditForm(20)%>:	<%=blog_Mem("mem_QQ")%>
统计:	日志共 <%=blog_Mem("mem_PostLogs")%> 篇，评论共 <%=blog_Mem("mem_PostComms")%> 篇，留言共 <%=blog_Mem("mem_PostMessageNums")%> 个。

<% ElseIf Request.Form("action") = "save" Then Dim reg Referer_Url = Session(CookieName & "_Member_Referer_Url") If len(Referer_Url) < 8 then Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER")) If len(Referer_Url) < 8 then Referer_Url = "http://" & Request.ServerVariables("HTTP_HOST") 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 %>

<%=lang.MemBer.EditForm(29)%>

<%If blog_Mem.EOF Or blog_Mem.bof Then response.Write lang.MemBer.EditForm(30) 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 "

<%=lang.Action.LoginForm(2)%>	<%=lang.MemBer.EditForm(17)%>	<%=lang.MemBer.EditForm(19)%>	<%=lang.MemBer.EditForm(20)%>	<%=lang.MemBer.EditForm(31)%>	<%=lang.MemBer.EditForm(32)%>	<%=lang.MemBer.EditForm(33)%>	<%=lang.MemBer.EditForm(34)%>

"&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%>