'从服务器上获取时间
Public Function getDBServerTime() As String
Dim strsql As String
Dim dr As OracleDataReader
Try
strsql = " SELECT to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') as CURRENTTIME from a_photo where rownum < 2"
dr = OracleHelper.ExecuteReader(GetConn2, System.Data.CommandType.Text, strsql)
If dr.Read Then
Return dr("CURRENTTIME").ToString
'DateAndTime.Now.ToString(strDateFormat)
Else
Return ""
End If
Catch ex As Exception
Return ""
Finally
If Not dr Is Nothing Then dr.Close()
End Try
End Function