用ASP+DLL實現WEB方式修改服務器時間
2024-05-04 11:02:48
供稿：網友
昨天一個朋友有個需求，是要通過WEB方式，修改IIS服務器上的時間，由于他的系統是ASP 3.0下開發的，所以本例子的代碼是ASP的，不是ASP.NET，但是本人寫這個文章是想拋磚引玉，畢竟編寫程序關鍵的不是語言，更重要的是一種思想，把程序語言理解為一種工具，把編程思想理解為解決問題的思路和方法，那么編寫出來的程序就是：利用“工具”按照解決問題的“思想”去解決一個問題。
首先，要感謝網友“小虎”，我是在網上看了他寫的一篇關于用VB 6.0編寫DLL組件FOR ASP的文章改寫的，他的DLL代碼只實現了改寫小時和分鐘，我增加了年、月、日、秒的修改。
首先，在VB 6.0中建立一個ActiveX Dll工程項目，信息如下：
工程名稱：systimeset
類模塊名稱：timeset
VB 6.0的類模塊代碼如下：
復制代碼 代碼如下:
Option Explicit
Private SystemTime As SystemTime
Private Declare Function SetSystemTime()Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long
Private Type SystemTime
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Dim tmp
Private m_Hour As Integer
Private m_Minute As Integer
Private m_Year As Integer
Private m_Month As Integer
Private m_Day As Integer
Private m_Second As Integer
'由李錫遠修改 修改日期：2006-08-31 修改項目：增加對年、月、日、秒的操作
'--------------------
'年
Public Property Get()Property Get Year() As Integer
Year = m_Year
End Property
Public Property Let()Property Let Year(tmp_Year As Integer)
m_Year = tmp_Year
End Property
'--------------------
'月
Public Property Get()Property Get Month() As Integer
Month = m_Month
End Property
Public Property Let()Property Let Month(tmp_Month As Integer)
m_Month = tmp_Month
End Property
