セッションログイン

  model.inc



  
<%
' **********************************************************
' パスワードの処理
' **********************************************************
Function GetData( )

	Query = "select * from 社員マスタ where 社員コード = "
	Query = Query & Ss( MyData("In1User") )

	if not DBGet( Cn, Rs, Query, false ) then
		ErrMessage = "対象ユーザが存在しません"
		Exit Function
	end if

	if Rs.Fields( "パスワード" ).Value <> MyData("In1Pass" ) then
		ErrMessage = "パスワードが一致しません"
		Exit Function
	end if

	Session( "User" ) = MyData("In1User")
	Session( "UserName" ) = Rs.Fields( "氏名" ).Value & ""

	if Session("ReturnPath") <> "" then
		Call Redirect( Session("ReturnPath") )
	end if

End Function

' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )

	Query = "select 社員コード,氏名 from 社員マスタ"
	Query = Query & " order by 氏名"
	OptionList = CreateOption( Cn, Rs, "In1User", Query )

End Function

' **********************************************************
' VIEW2 の編集
' **********************************************************
Function EditDataBody( )


End Function

%>
  














   SQLの窓    create:2004/11/04  update:2015/09/23   管理者用(要ログイン)





フリーフォントツール

SQLの窓ツール

SQLの窓フリーソフト

写真素材

一般ツールリンク

SQLの窓

フリーソフト