<% @language="vbscript" %> <% option explicit %> <% '------------------------------------------------------------------------------- '作成日付:2006/01/04 '編集日付: '作 成 者:和泉 '名  称:event/login.asp '機  能:ログイン '備  考: '------------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------------ dim db dim rs dim userCode 'ユーザーコード dim userName 'ユーザー名 dim adminFlag '管理者フラグ dim action 'アクション dim errFlag 'エラーフラグ dim msg 'メッセージ dim aryUser 'ユーザデータ 'form変数 dim userid 'ユーザーID dim password 'パスワード dim foot '------------------------------------------------------------------------------ msg = "ホールID、パスワードをお持ちの方はこちら
" if not IsObject(db) then Set db = Server.CreateObject("ADODB.Connection") end if db.Open Connect if Not IsObject(rs) then Set rs = Server.CreateObject("ADODB.Recordset") end if action = request.form("action") 'response.write("aaa=" & action) 'ログオンボタン押下時の処理 if strcomp(action, "ログイン") = 0 then 'response.write("通った") userid = trim(request.form("userid")) password = trim(request.form("password")) errFlag = true if get_IsNull(password) then msg = "パスワードは必須項目です。
" errFlag = false end if if get_IsNull(userid) then msg = "ユーザーIDは必須項目です。
" errFlag = false end if if errFlag = true then aryUser = CheckUser(db, rs, userid, password) errFlag = aryUser(1) if not errFlag then msg = "入力されたホールIDとパスワードは存在しません。入力をお確かめください。
" password = "" end if end if if errFlag = true then call session_init(db, rs, aryUser) Set rs = nothing db.close Set db = nothing response.redirect("index.asp") response.end end if end if %> 財団法人 新潟県文化振興財団|ニイガタ見聞楽登録
財団法人 新潟県文化振興財団
沿革、組織等 当財団主催事業案内 各種団体が行う文化活動に対する助成金 県内催物情報 各種助成制度の仕組み等相談の受付 音楽関係の図書や雑誌類の閲覧 県内公立文化施設等
ホーム > ニイガタ見聞楽登録

ニイガタ見聞楽登録


「ニイガタ見聞楽」へ情報登録はこちらからお願いします。
初めての方は「一般の方はこちら」から、ホールID・パスワードをお持ちの方はログインしてお進みください。

●一般の方はこちら

●<%= msg %>
ホールID:

パスワード:



▲ページのトップへ

ホームへ |戻る|  

Copyright (C) 2006 Niigata Cultural Foundation. All Rights Reserved.
ホームへ戻る
<% set rs = nothing db.close set db = nothing %>