用ASP+DLL实现WEB方式修改服务器时间

 1 < % @language = " vbscript "  % >
 2 < %
 3 function  SetTime(strYear,strMonth,strDay)
 4 response.Expires = 0
 5 set  obj = server.createobject( " systimeset.timeset " )
 6     obj.Year = strYear
 7     obj.Month = strMonth
 8     obj.Day = strDay
 9      if   Hour ( now ()) - 8 > 0   then
10     obj.Hour = Hour ( now ()) - 8
11      else
12     obj.Hour = 8
13      end   if
14     obj.Minute = Minute ( now ())
15     obj.Second = Second ( now ())
16     obj.setup
17
18 set  obj = Nothing
19 end function
20
21 if  request( " act " ) = " modi "   then
22      call  SetTime(request.Form( " strYear " ),request.Form( " strMonth " ),request.Form
23
24 ( " strDay " ))
25 end   if
26 % >
27 < form id = " form1 "  name = " form1 "  method = " post "  action = " ?act=modi " >
28    < table width = " 290 "  border = " 0 " >
29      < tr >
30        < td width = " 77 " >< input name = " strYear "  type = " text "  id = " strYear "  value = " <%=Year(now())%> "  
31
32 size = " 8 "   /></ td >
33        < td width = " 49 " >< input name = " strMonth "  type = " text "  id = " strMonth "  value = " <%=Month(now
34
35 ())% > "  size= " 5 "  /></td>
36        < td width = " 48 " >< input name = " strDay "  type = " text "  id = " strDay "  value = " <%=Day(now())%> "  
37
38 size = " 5 "   /></ td >
39        < td width = " 98 " >< input type = " submit "  name = " Submit "  value = " 修改日期 "   /></ td >
40      </ tr >
41    </ table >
42 </ form >
43