Webフォームの継承：
Inherits BasePage
PostBack:
自分自身にURLにPOSTすること。
IsPostBackで処理を省力することができる。
設定値の取得：
strAuthURL = ConfigurationManager.AppSettings("AuthURL")
ユーザー認証：
Page.User.Identity.Name
If String.IsNullOrEmpty(Page.User.Identity.Name) Then
' ユーザIDが入っていないときは INTERKSI Home へ
Response.Redirect(strAuthURL)
End If
認証チケットを発行：
FormsAuthentication.SetAuthCookie(Request.Params("globalID"), False)
DB操作
検索
Public Shared Function Get_UserAuthorize(ByVal syainID As String) As Boolean
Dim strSQL As String
Dim con As New SqlClient.SqlConnection
Dim cmd As SqlClient.SqlCommand
Dim bRet = False
Dim strMsg As String
strSQL = ""
strSQL = "SELECT OutputFlg FROM M_EnableSyain WHERE syain_no = '" & syainID & "' "
Try
con.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
con.Open()
cmd = New SqlClient.SqlCommand(strSQL, con)
Dim rs As SqlClient.SqlDataReader = cmd.ExecuteReader()
If rs.Read() Then
If rs("OutputFlg") = "1" Then
bRet = True
End If
End If
rs.Close()
cmd.Dispose()
con.Close()
Catch ex As Exception
strMsg = ex.Message
End Try
Return bRet
End Function
更新
Private Function SetKengen(PId As String, AuthCode As String, Kbn As String, flag As String) As Boolean
Dim queryString As StringBuilder = New StringBuilder()
Dim conn As SqlConnection = Nothing
Dim cmd As SqlCommand = Nothing
Try
conn = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
cmd = New SqlCommand()
cmd.Connection = conn
conn.Open()
'SQL作成(削除)
queryString.AppendLine("exec ap_MstKengen_UpdKengen")
queryString.AppendLine(" @pPId = " + PId + " ")
queryString.AppendLine(",@pAuthCode = '" + AuthCode + "'")
queryString.AppendLine(",@pKbn = '" + Kbn + "'")
queryString.AppendLine(",@pFlag = '" + flag + "'")
queryString.AppendLine(",@pLoginUser = '" + Page.User.Identity.Name + "'")
cmd.CommandText = queryString.ToString()
cmd.CommandTimeout = 20
cmd.ExecuteNonQuery()
Catch ex As Exception
BulletWarn.Items.Add("更新エラー" + ex.Message)
Return False
Finally
If cmd IsNot Nothing Then
cmd.Dispose()
End If
If conn IsNot Nothing Then
conn.Close()
conn.Dispose()
End If
End Try
Return True
End Function
