<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim RecUser__MMColParam RecUser__MMColParam = "1" If (Session("MM_Username") <> "") Then RecUser__MMColParam = Session("MM_Username") End If %> <% If cstr(Request.Form("m_username"))<>"" Then If Request.form("RemberMe") ="1" Then Response.Cookies("RemName") = Request.Form("m_username") Response.Cookies("RemPass") = Request.Form("m_passwd") Response.Cookies("RemMe") = "1" Response.Cookies("RemName").expires = Date + 365 Response.Cookies("RemPass").expires = Date + 365 Response.Cookies("RemMe").expires = Date + 365 Else Response.Cookies("RemMe") = "" Response.Cookies("RemName") = "" Response.Cookies("RemPass") = "" End If End If %> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_Username") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "index.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% Dim RecUser Dim RecUser_numRows Set RecUser = Server.CreateObject("ADODB.Recordset") RecUser.ActiveConnection = MM_connM1_STRING RecUser.Source = "SELECT * FROM memberData WHERE m_username = '" + Replace(RecUser__MMColParam, "'", "''") + "'" RecUser.CursorType = 0 RecUser.CursorLocation = 2 RecUser.LockType = 1 RecUser.Open() RecUser_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("m_username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="m_level" MM_redirectLoginSuccess="index.asp" MM_redirectLoginFailed="index.asp?errMsg=您所輸入的帳號或密碼錯誤,請重新登入!" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_connM1_STRING MM_rsUser.Source = "SELECT m_username, m_passwd" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM memberData WHERE m_username='" & Replace(MM_valUsername,"'","''") &"' AND m_passwd='" & Replace(Request.Form("m_passwd"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And true Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> 會員系統
會員首頁 申請會員 <% if Session("MM_UserAuthorization")="admin" then %><% end if %>會員專區<% if Session("MM_UserAuthorization")="admin" then %><%end if%> 至討論區

感謝各位來到會員系統, 所有的會員功能都必須經由登入後才能使用,請您在右方視窗中執行登入動作。

本會員系統擁有以下的功能:

  1. 免費加入會員 。
  2. 每個會員可修改本身資料。
  3. 系統會收集統計本月壽星名單。
  4. 若是遺忘密碼,會員可由系統發出電子信函通知。
  5. 管理者可以修改、刪除會員的資料。

請各位會員遵守以下規則:

  1. 遵守中華民國的各項有關法律法規。
  2. 不得在發佈任何色情非法, 以及危害國家安全的言論。
  3. 嚴禁連結有關政治, 色情, 宗教, 迷信等違法訊息。
  4. 承擔一切因您的行為而直接或間接導致的民事或刑事法律責任。
  5. 互相尊重, 遵守互聯網絡道德;嚴禁互相惡意攻擊, 漫罵。
  6. 管理員擁有一切管理權力。
<% If RecUser.EOF And RecUser.BOF Then %>
《 會員登入 》
請輸入帳號及密碼
帳號: " name="m_username" type="text" id="m_username" size="18">
<帳號為您常使用之e-mail>
密碼: " name="m_passwd" type="password" id="m_passwd" size="18">
  value="1" name="RemberMe" type="checkbox" id="RemberMe"> 記住我的帳號密碼
 
申請新會員 忘記密碼?
<% End If ' end RecUser.EOF And RecUser.BOF %> <% If Not RecUser.EOF Or Not RecUser.BOF Then %>
《 會員個人資料 》
<%=(RecUser.Fields.Item("m_nick").Value)%>(<%=(RecUser.Fields.Item("m_username").Value)%>)
您好,歡迎光臨!
你可由右上方討論區圖示進入討論區!或是由此直接進入討論區
真實姓名: <%=(RecUser.Fields.Item("m_name").Value)%> 
生日: <%=(RecUser.Fields.Item("m_birthday").Value)%>
電話: <%=(RecUser.Fields.Item("m_phone").Value)%>
行動電話: <%=(RecUser.Fields.Item("m_cellphone").Value)%>
住址: <%=(RecUser.Fields.Item("m_address").Value)%>
登出系統 修改資料
<% End If ' end Not RecUser.EOF Or NOT RecUser.BOF %>
 
<% if Request("errMsg") <> "" Then 'start sc_sc script %>
注意: <%= Request("errMsg") %>
<% end if 'end sc_sc script %>
 
金證照顧問有限公司 <% RecUser.Close() Set RecUser = Nothing %>