商业源码 怎么样让Internet时间 页面显示出来
如果您的计算机不是域的一员，可以使您的计算机时钟与 Internet 时间服务器同步。
如果启用了同步，您的计算机时钟每周就会和 Internet 时间服务器进行一次同步。然而，如果您没有与 Internet 保持连续连接的话，则自动同步不会发生。在这种情况下，可以通过单击“Internet 时间”选项卡（位于“控制面板”中的“日期和时间”上）中的“立即更新”按钮来执行立刻同步。
如果时间同步失败
当您单击“立即更新”按钮时，时钟应立即同步。如果该操作失败，可能出于以下几个原因：
1没有连接到 Internet。在试图同步时钟前创建 Internet 连接。
2个人或网络防火墙阻止时钟同步。大多数公司或组织的防火墙同一些个人防火墙一样会阻碍时钟同步。家庭用户应阅读防火墙文档以得到关于消除网络时间协议 (NTP) 障碍的信息。如果切换到了 Windows 防火墙，则应该可以同步时钟。
3Internet 时间服务器正忙，或者暂时不可用。如果属于这种情况的话，可以试着稍后再同步您的时钟或通过双击任务栏上的时钟来手动更新。也可以试着采用另外一个不同的时间服务器。
4计算机上显示的时间与 Internet 时间服务器的当前时间有很大的差别。如果计算机的时间与 Internet 时间服务器的时间相比，滞后值超过 15 个小时，则 Internet 时间服务器无法同步计算机时钟。若要正确地同步时间，请确保时间和日期设置值接近位于“控制面板”中“日期和时间属性”中的当前时间。
主板电池没电不在此例，买个纽扣电池解决。（时间调整后隔段时间又错，可判断电池问题。
我说说我的想法。用JS代码通过XMLHttp获取服务器时间动态刷新显示即可显示为当前时间。误差要求不是太大的话（考勤嘛）可以每20秒刷一次。
GetTimeasp (UTF-8编码)
=======================================
<%@LANGUAGE="VBSCRIPTEncode" CODEPAGE="65001"%><%
ResponseExpires = 0
%><%= Now() %>
=======================================
GetTimejs
-------------------------------
var xmlHttp = false;var tID;
if (!xmlHttp && typeof XMLHttpRequest != "undefined") {
xmlHttp = new XMLHttpRequest();
}
function ShowTime() {
clearInterval(tID);
var url = "GetTimeasp";
xmlHttpopen("GET", url, true);
xmlHttponreadystatechange = function() {
if (xmlHttpreadyState == 4&& xmlHttpstatus == 200) {
var response = xmlHttpresponseText;
documentgetElementById("ShowTime_Div")innerHTML=response;
}
}
xmlHttpsend(null);
tID = setInterval("ShowTime()",10000);//每10秒刷新
}
-------------------------------
testhtm
-----------------------------------------
<html><head>
<script src="GetTimejs" type="text/javascript"></script></head>
<body onload="ShowTime()">
<div id="ShowTime_Div"><div>
</body></html>
-----------------------------------------
-----------------------------------------
程序集 窗口程序集1
子程序 _按钮1_被单击
局部变量 XML对象, 对象
局部变量 时间文本, 文本型
按钮1禁止 ＝ 真
如果真 (XML对象创建 (“MSXML2XMLHTTP”, ) ＝ 假)
如果真 (XML对象创建 (“MicrosoftXMLHTTP”, ) ＝ 假)
返回 ()
如果真结束
如果真结束
XML对象方法 (“open”, 编辑框2内容, 编辑框1内容, 假)
XML对象方法 (“send”, )
时间文本 ＝ XML对象读文本属性 (“getResponseHeader”, “Date”)
标签1标题 ＝ “当前服务器时间为：” ＋ 到文本 (时间格式化 (时间文本))
按钮1禁止 ＝ 假
子程序 时间格式化, 日期时间型
参数 时间文本, 文本型
局部变量 临时数组, 文本型, , "0"
局部变量 临时变量, 文本型
局部变量 时间变量, 日期时间型
局部变量 临时时间, 日期时间型
局部变量 日, 文本型
局部变量 月, 文本型
局部变量 年, 文本型
局部变量 时, 文本型
局部变量 分, 文本型
局部变量 秒, 文本型
临时数组 ＝ 分割文本 (时间文本, “, ”, )
临时变量 ＝ 临时数组 [2]
临时变量 ＝ 子文本替换 (临时变量, “ GMT”, , , , 真)
清除数组 (临时数组)
临时数组 ＝ 分割文本 (临时变量, “ ”, )
日 ＝ 临时数组 [1]
判断开始 (临时数组 [2] ＝ “Jan”)
月 ＝ “01”
判断 (临时数组 [2] ＝ “Feb”)
月 ＝ “02”
判断 (临时数组 [2] ＝ “Mar”)
月 ＝ “03”
判断 (临时数组 [2] ＝ “Apr”)
月 ＝ “04”
判断 (临时数组 [2] ＝ “Mar”)
月 ＝ “05”
判断 (临时数组 [2] ＝ “Jun”)
月 ＝ “06”
判断 (临时数组 [2] ＝ “Jul”)
月 ＝ “07”
判断 (临时数组 [2] ＝ “Aug”)
月 ＝ “08”
判断 (临时数组 [2] ＝ “Sep”)
月 ＝ “09”
判断 (临时数组 [2] ＝ “Oct”)
月 ＝ “10”
判断 (临时数组 [2] ＝ “Nov”)
月 ＝ “11”
判断 (临时数组 [2] ＝ “Dec”)
月 ＝ “12”
默认
判断结束
年 ＝ 临时数组 [3]
临时变量 ＝ 临时数组 [4]
清除数组 (临时数组)
临时数组 ＝ 分割文本 (临时变量, “:”, )
时 ＝ 到文本 (到整数 (临时数组 [1]))
分 ＝ 临时数组 [2]
秒 ＝ 临时数组 [3]
时间变量 ＝ 到时间 (年 ＋ “/” ＋ 月 ＋ “/” ＋ 日 ＋ “/” ＋ 时 ＋ “/” ＋ 分 ＋ “/” ＋ 秒)
时间变量 ＝ 增减时间 (时间变量, #小时, 8) ' 转换为北京时间
返回 (时间变量)
如果想返回服务器日期，时间包括秒，请用<%=now()%>
这里附带下：<%=date()%>显示日期 例如：2006-6-30
<%=Time()%>显示时间 例如：21:12:12
0条评论