<% sFlag = session("sFlag") %> <% '================================== ' 會員頁面 ' 更新時間: 2006-1-9 '================================== Dim blog_Mem If Request.QueryString("action") = "edit" Then If memName = Empty Then RedirectUrl("member.asp") %>

修改用戶資訊

<% if Session("sFlag") = "MMH" then Set blog_Mem = connMMH.Execute("select * from blog_Member where mem_Name='"&CheckStr(memName)&"'") else Set blog_Mem = conn.Execute("select * from blog_Member where mem_Name='"&CheckStr(memName)&"'") end if 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個字元，建議使用英文和符號混合
密碼重複:	必須和上面的密碼一樣
密碼保護:	不改密碼保護 - 這裡將不改變你的密碼保護問題和答案修改密碼保護 - 這裡將要修改你的密碼保護問題和答案
性　別:	/> 保密 />男 />女
電子郵件:	"/> /> 不公開我的電子郵件
個人首頁:	"/>

<% 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 "我是男生" Case 2 response.Write "我是女生" 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")%>
統計:	日誌共 <%=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" if Session("sFlag") = "MMH" then blog_Mem.Open SQL, ConnMMH, 1, 1 else blog_Mem.Open SQL, Conn, 1, 1 end if 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%>