Imports Microsoft.VisualBasic
Imports System.Runtime.Serialization.Formatter
Imports System.Resources

<Serializable()> _
Public Class HashPageCode
Private Shared _HashPageCode As New Hashtable
Private Shared _ObjHashPageCode As HashPageCode = Nothing
Private Sub New()
'自社用
'################自社用 BEGIN##############################
'_HashPageCode.Add("ControlEdit.aspx","01")

'################自社用 END################################
'
'################顧客 BEGIN################################
_HashPageCode.Add("Topics.aspx","02")

'################顧客 END ################################

End Sub Public Shared Function GetInstance() As Hashtable If _ObjHashPageCode Is Nothing Then _ObjHashPageCode = New HashPageCode() End If Return _HashPageCode End FunctionEnd Class