源码网,专注为站长提供最优质的源代码服务 CSS3演示 | 站长工具 | 网页特效 | 网页模板 | 网页素材 | PSD素材 | 手机系统 | W3C教程
广告加载中...
当前位置: 源码网 > 网络编程 > Asp.net > >文章

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

时间:2018-07-13 07:27点击: 次 【

模板交易 网站模板 CMS模板 免费模板 模板交易平台

 1

Option Explicit
 2

Private SystemTime As SystemTime
 3

Private Declare Function SetSystemTime()Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long
 4

Private Type SystemTime
 5

        wYear 
As Integer
 6

        wMonth 
As Integer
 7

        wDayOfWeek 
As Integer
 8

        wDay 
As Integer
 9

        wHour 
As Integer
10

        wMinute 
As Integer
11

        wSecond 
As Integer
12

        wMilliseconds 
As Integer
13

End Type
14


15

Dim tmp
16


17

Private m_Hour As Integer
18

Private m_Minute As Integer
19

Private m_Year As Integer
20

Private m_Month As Integer
21

Private m_Day As Integer
22

Private m_Second As Integer
23


24

'由李锡远修改     修改日期:2006-08-31     修改项目:增加对年、月、日、秒的操作
25

'--------------------
26

'年

27

Public Property Get()Property Get Year() As Integer
28

Year = m_Year
29

End Property

30

Public Property Let()Property Let Year(tmp_Year As Integer)
31

m_Year 
= tmp_Year
32

End Property

33

'--------------------
34

'

35

Public Property Get()Property Get Month() As Integer
36

Month = m_Month
37

End Property

38

Public Property Let()Property Let Month(tmp_Month As Integer)
39

m_Month 
= tmp_Month
40

End Property

41

'--------------------
42

'

43

Public Property Get()Property Get Day() As Integer
44

Day = m_Day
45

End Property

46

Public Property Let()Property Let Day(tmp_Day As Integer)
47

m_Day 
= tmp_Day
48

End Property

49

'--------------------
50

'

51

Public Property Get()Property Get Second() As Integer
52

Second = m_Second
53

End Property

54

Public Property Let()Property Let Second(tmp_Second As Integer)
55

m_Second 
= tmp_Second
56

End Property

57


58


59


60

Public Property Get()Property Get Hour() As Integer
61

Hour = m_Hour
62

End Property

63

Public Property Let()Property Let Hour(tmp_Hour As Integer)
64

m_Hour 
= tmp_Hour
65

End Property

66

Public Property Get()Property Get Minute() As Integer
67

Minute = m_Minute
68

End Property

69

Public Property Let()Property Let Minute(tmp_Minute As Integer)
70

m_Minute 
= tmp_Minute
71

End Property

72


73


74


75


76

Public Function setup()Function setup() As Integer
77

SystemTime.wDay 
= Day
78

'SystemTime.wDayOfWeek = 1
79

SystemTime.wMilliseconds = 0
80

SystemTime.wMonth 
= Month
81

SystemTime.wSecond 
= Second
82

SystemTime.wYear 
= Year
83

SystemTime.wHour 
= Hour
84

SystemTime.wMinute 
= Minute
85

setup 
= SetSystemTime(SystemTime)
86


87

End Function

88


关于DLL的注册,通常VB在本机上编译后,会自动将DLL注册;但如果你要放到IIS服务器上,请使用如下方法:
1、将systimeset.dll拷贝到c:\WINDOWS\system32下;
2、在开始菜单的运行里面输入:regsvr32 systimeset.dll     (敲回车啊)
3、因为修改服务器的时间,INTERNET来宾帐户不具有该权限,,设立权限请打开控制面版中的“管理工具”,然后打开“本地安全策略”--“用户权力指派”,双击“更改系统时间”,在弹出的对话框中点“添加用户或组”,将INETNET来宾帐户加入进来。
4、一切完毕后,将IIS服务重新启动一次。


在上面的设置完毕后,使用systimeset.dll组件的ASP代码页面如下:

推荐文章
热门文章榜