diff --git a/.gitignore b/.gitignore index 42da41e..fe3f5d8 100644 --- a/.gitignore +++ b/.gitignore @@ -7,3 +7,4 @@ obj /Setup1/Release /Setup1/Debug /Dotfuscated +UpgradeLog.htm diff --git a/ArinLogin/Class1.vb b/ArinLogin/Class1.vb index 5d941e3..5dcf60e 100644 --- a/ArinLogin/Class1.vb +++ b/ArinLogin/Class1.vb @@ -135,6 +135,29 @@ Return Retval End Function + + + + Public Function Get_ServerTime() As String + Dim Cs As String = ReadCString() + + Dim Cn As New SqlClient.SqlConnection(Cs) + Dim Cmd As New SqlClient.SqlCommand("SELECT convert(varchar(19), CURRENT_TIMESTAMP,120);", Cn) + + + Dim retval As String = "" + + If Cn.State <> ConnectionState.Open Then Cn.Open() + retval = Cmd.ExecuteScalar().ToString() + + Cmd.Dispose() + Cn.Close() + Return Retval + End Function + + + + ''' ''' 폴더내의 연결문자열 정보를 가지고 연결한다 '''