怎样获取服务器时间（要精确到秒哦）

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:54:38
注：不是获取客户电脑下的时间（确定你理解客户和服务器的关系）
能写仔细一点吗，我用的是ASP
就像百度知道上 “我的提问-提问时间” 下的时间一样，无论你怎么改你机子上的时间和“提问时间”都没有关系

程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型

按钮1.禁止 ＝ 真
.如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) ＝ 假)
.如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
返回 ()
.如果真结束

.如果真结束
XML对象.方法 (“open”, 编辑框2.内容, 编辑框1.内容, 假)
XML对象.方法 (“send”, )

时间文本 ＝ XML对象.读文本属性 (“getResponseHeader”, “Date”)

标签1.标题 ＝ “当前服务器时间为：” ＋ 到文本 (时间格式化 (时间文本))

按钮1.禁止 ＝ 假

.子程序 时间格式化, 日期时间型
.参数 时间文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 临时变量, 文本型
.局部变量 时间变量, 日期时间型
.局部变量 临时时间, 日期时间型
.局部变量 日, 文本型
.局部变量 月, 文本型
.局部变量 年, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型

临时数组 ＝ 分割文本 (时间文本, “, ”, )
临时变量 ＝ 临时数组 [2]
临时变量 ＝ 子文本替换 (临时变量, “ GMT”, , , , 真)
清除数组 (临时数组)
临时数组 ＝ 分割文本 (临时变量, “ ”, )
日 ＝ 临时数组 [1]
.判断开始 (临时数组 [2] ＝ “Jan”)
月 ＝ “01”
.判断 (临时数组 [2] ＝ “Feb”)
月 ＝ “02”
.判断 (临时数组 [2] ＝ “Mar