用ASP+DLL实现WEB方式修改服务器时间(2)
m_Month = tmp_Month
End Property
'--------------------
'日
Public Property Get()Property Get Day() As Integer
Day = m_Day
End Property
Public Property Let()Property Let Day(tmp_Day As Integer)
m_Day = tmp_Day
End Property
'--------------------
'秒
Public Property Get()Property Get Second() As Integer
Second = m_Second
End Property
Public Property Let()Property Let Second(tmp_Second As Integer)
m_Second = tmp_Second
End Property
Public Property Get()Property Get Hour() As Integer
Hour = m_Hour
End Property
Public Property Let()Property Let Hour(tmp_Hour As Integer)
m_Hour = tmp_Hour
End Property
Public Property Get()Property Get Minute() As Integer
Minute = m_Minute
End Property
Public Property Let()Property Let Minute(tmp_Minute As Integer)
m_Minute = tmp_Minute
End Property
Public Function setup()Function setup() As Integer
SystemTime.wDay = Day
'SystemTime.wDayOfWeek = 1
SystemTime.wMilliseconds = 0
SystemTime.wMonth = Month
SystemTime.wSecond = Second
SystemTime.wYear = Year
SystemTime.wHour = Hour
SystemTime.wMinute = Minute
setup = SetSystemTime(SystemTime)
End Function
将其编译为systimeset.dll的文件。
关于DLL的注册，通常VB在本机上编译后，会自动将DLL注册；但如果你要放到IIS服务器上，请使用如下方法：
1、将systimeset.dll拷贝到c:\WINDOWS\system32下；
2、在开始菜单的运行里面输入：regsvr32 systimeset.dll （敲回车啊）
3、因为修改服务器的时间，INTERNET来宾帐户不具有该权限，设立权限请打开控制面版中的“管理工具”，然后打开“本地安全策略”－－“用户权力指派”，双击“更改系统时间”，在弹出的对话框中点“添加用户或组”，将INETNET来宾帐户加入进来。
4、一切完毕后，将IIS服务重新启动一次。
在上面的设置完毕后，使用systimeset.dll组件的ASP代码页面如下：
复制代码 代码如下:
<% @language="vbscript" %>
<%
function SetTime(strYear,strMonth,strDay)
response.Expires=0
set obj=server.createobject("systimeset.timeset")
obj.Year=strYear
obj.Month=strMonth
obj.Day=strDay
内容版权声明：除非注明，否则皆为本站原创文章。