vb获取服务器时间

在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间 Private Sub Form_Load() Timer1Interval = 300 End Sub Private Sub Timer1_Timer() Dim cnn As New ADODBConnection Dim cmd As New ADODBCommand Dim rst As New ADODBRecordset Dim Sqlser_time cnnConnectionString = "driver={SQL Server};" & _ "server=server;uid=sa;pwd=;database=master" cnnOpen cmdActiveConnection = cnn cmdCommandText = "SELECT GETDATE() AS sys_Sqlser_time" Set rst = cmdExecute Sqlser_time = rst(0) Text1Text = Sqlser_time rstClose cnnClose End Sub

远程获取服务器时间可同通过php的一个时间函数获取，用到的工具：notepad++，ftp，步骤如下：

通过notepad++写一个php文件另存为timephp。

2通过ftp上传到服务器一个网站目录下边，通过浏览器访问，结果如下：

注意事项：服务器必须安装php网站环境。

DateTimeNow 获取的是服务器时间，你在本地测试是获取你本机的时间。如果你不确定，帮程序上传到服务器，然后修改本地时间，访问服务器的程序你就可以看到获取的是服务器还是本地时间了。
而js的var d = new Date(); 获取的永远都是客服端时间。如果需要用js获取对应的服务器时间，可使用ajax获取当前页面中HEAD的Date属性，返回的是服务器时间。

---