<%@ Language=VBScript %>
<%
Dim user
Dim pwl
Dim ninsyo
usr= Trim(Request("user"))
pwl = Trim(Request("passwd"))
%>
| 受け付け項目 |
| ユーザ名 | <%= usr %> |
| パスワード | <%= pwl %> |
<%
On Error Resume Next
'ユーザ認証チェック
Dim Flg
Flg = 0
'ＳＱＬサーバへ接続
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "kimono_dsn", "kimono", "onomik"
Set RS = Conn.Execute("SELECT * FROM kimono;")
If Err.Number <> 0 Then
Call errorMsg()
Response.End
End If
Do While Not RS.EOF
Ps = RS("pwl")
Ur = RS("usr")
Honmyo = RS("simei")
If usr=Trim(Ur) and pwl=Trim(Ps) then
Flg = 1
Exit Do
End If
RS.MoveNext
Loop
If Flg=0 then
RS.Close
Conn.Close
existMsg()
Response.End
End If
RS.Close
'更新日をDBにINSERT
'排他制御
Conn.BeginTrans
n_date= FormatDateTime(now,2)
Set RS = Conn.Execute("UPDATE kimono SET n_date = '" & n_date & "' Where usr='" & Ur & "' and pwl='" & Ps & "';" )
If Err.Number <> 0 Then
Conn.RollbackTrans
Conn.Close
Call existMsg()
Response.End
End If
'コミット
Conn.CommitTrans
Conn.Close %>
<%
Sub existMsg()
Response.Write "ユーザ名・パスワードが登録されていません。" & "
"
Response.Write "ユーザ名・パスワードを確認してください。" & "
"
Response.Write "
戻る"
End Sub
Sub errorMsg()
Response.Write "ユーザ名・パスワードの認証中に異常が発生しました。" & "
"
Response.Write "しばらくしてから再度登録を行ってください。" & "
"
Response.Write "再度登録を行っても異常が発生する場合は、システム管理者に連絡してください。" & "
"
Response.Write "
戻る"
End Sub
%>
会員のページ
<%= Honmyo %>さんいらっしゃい。
<%= Ur %>さんいらっしゃい。
会員のページです。
着付教室検索へ
着付先生検索へ
戻る