将其编译为systimeset.dll的文件。
关于DLL的注册,通常VB在本机上编译后,会自动将DLL注册;但如果你要放到IIS服务器上,请使用如下方法: 1、将systimeset.dll拷贝到c:\WINDOWS\system32下; 2、在开始菜单的运行里面输入:regsvr32 systimeset.dll (敲回车啊) 3、因为修改服务器的时间,INTERNET来宾帐户不具有该权限,设立权限请打开控制面版中的“管理工具”,然后打开“本地安全策略”--“用户权力指派”,双击“更改系统时间”,在弹出的对话框中点“添加用户或组”,将INETNET来宾帐户加入进来。 4、一切完毕后,将IIS服务重新启动一次。
在上面的设置完毕后,使用systimeset.dll组件的ASP代码页面如下:
1<% @language="vbscript" %> 2<% 3function SetTime(strYear,strMonth,strDay) 4response.Expires=0 5set 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 18set obj=Nothing 19end function 20 (编辑:aniston)
|