%@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 RecUser.EOF And RecUser.BOF Then %>
<% 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
%>