'claOpt是我自定义的一个数据库连接读取类
''提示同步服务器时间。Modify By Liu Sg On 2010-07-06
Dim sql As String = "select ServerDateTime=getdate() "
Dim sServerDT As String = claOpt.ExecSqlScalar(sql) '得到数据库服务器时间
Dim sLocalDT As String = Now.ToString '得到本地时间
If sServerDT.Trim <> sLocalDT.Trim Then &