学院首页　软件应用　编程开发　创意设计　认证培训　软件论坛
ASP　ASP.NET　PHP　JSP　SQL　MYSQL　Java　VB

您的位置：学院 >> 编程开发 >> ASP >> 用ASP+DLL实现WEB方式修改服务器时间


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

　　昨天一个朋友有个需求，是要通过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的类模块代码如下：

 1Option Explicit
 2Private SystemTime As SystemTime
 3Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long
 4Private 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
13End Type
14
15Dim tmp
16
17Private m_Hour As Integer
18Private m_Minute As Integer
19Private m_Year As Integer
20Private m_Month As Integer
21Private m_Day As Integer
22Private m_Second As Integer
23
24'由李锡远修改     修改日期：2006-08-31     修改项目：增加对年、月、日、秒的操作
25'--------------------
26'年
27Public Property Get Year() As Integer
28Year = m_Year
29End Property
30Public Property Let Year(tmp_Year As Integer)
31m_Year = tmp_Year
32End Property
33'--------------------
34'月
35Public Property Get Month() As Integer
36Month = m_Month
37End Property
38Public Property Let Month(tmp_Month As Integer)
39m_Month = tmp_Month
40End Property
41'--------------------
42'日
43Public Property Get Day() As Integer
44Day = m_Day
45End Property
46Public Property Let Day(tmp_Day As Integer)
47m_Day = tmp_Day
48End Property
49'--------------------
50'秒
51Public Property Get Second() As Integer
52Second = m_Second
53End Property
54Public Property Let Second(tmp_Second As Integer)
55m_Second = tmp_Second
56End Property
57
58
59
60Public Property Get Hour() As Integer
61Hour = m_Hour
62End Property
63Public Property Let Hour(tmp_Hour As Integer)
64m_Hour = tmp_Hour
65End Property
66Public Property Get Minute() As Integer
67Minute = m_Minute
68End Property
69Public Property Let Minute(tmp_Minute As Integer)
70m_Minute = tmp_Minute
71End Property
72
73
74
75
76Public Function setup() As Integer
77SystemTime.wDay = Day
78'SystemTime.wDayOfWeek = 1
79SystemTime.wMilliseconds = 0
80SystemTime.wMonth = Month
81SystemTime.wSecond = Second
82SystemTime.wYear = Year
83SystemTime.wHour = Hour
84SystemTime.wMinute = Minute
85setup = SetSystemTime(SystemTime)
86
87End Function
88
关于DLL的注册，通常VB在本机上编译后，会自动将DLL注册；但如果你要放到IIS服务器上，请使用如下方法：
1、将systimeset.dll拷贝到c:\WINDOWS\system32下；
2、在开始菜单的运行里面输入：regsvr32 systimeset.dll     （敲回车啊）
3、因为修改服务器的时间，INTERNET来宾帐户不具有该权限，设立权限请打开控制面版中的“管理工具”，然后打开“本地安全策略”－－“用户权力指派”，双击“更改系统时间”，在弹出的对话框中点“添加用户或组”，将INETNET来宾帐户加入进来。
4、一切完毕后，将IIS服务重新启动一次。


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

　　将其编译为systimeset.dll的文件。

 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
21if request("act")="modi" then
22    call SetTime(request.Form("strYear"),request.Form("strMonth"),request.Form
23
24("strDay"))
25end 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
32size="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
38size="5" /></td>
39      <td width="98"><input type="submit" name="Submit" value="修改日期" /></td>
40    </tr>
41  </table>
42</form>
43

　　以上是所有实现的代码，有问题可以加我QQ：17020415

　　将上面的ASP代码页面粘贴到一个空的ASP文件中，然后在IIS中将站点设置好就可以了。（设置IIS虚拟目录也可以的。）
技术文章快速查找

栏目导航
软件应用
·操作系统 ·杀毒防黑 ·应用软件
·聊天软件 ·网络软件  
Web开发
·ASP ·JavaScript ·CGI
·JSP ·VbScript ·Web服务器
·PHP ·XML  
开发语言
·VB ·VC ·ASP.NET
·Java ·C/C++ ·Delphi
数据库开发
·MySQL ·SQL/Access ·PowerBuilder
·Oracle ·DB2  
网站设计
·Flash ·Dreamweaver ·HTML/CSS
·Fireworks ·FrontPage  
平面设计
·Photoshop ·CorelDraw ·AutoCAD
·FreeHand ·Illustrator ·3DsMAX
媒体动画
·Director ·Authorware ·Maya
·视频处理    


相关软件 产品库推荐
·笔记本 ·台式机 ·服务器
·数码相机 ·手机 ·GPS
·DV摄像机 ·MP3 ·MP4
·CPU ·硬盘 ·内存
·主板 ·显卡 ·显示器
·打印机 ·投影机 ·路由器

还没人留言，抢个先，哈哈!
对"用ASP+DLL实现WEB方式修改服务器时间"的评论 - 快速回贴
内容：
  [完成后可按Ctrl+Enter发布]

百度中 用ASP+DLL实现WEB方式修改服务器时间 相关内容
Google搜索中 用ASP+DLL实现WEB方式修改服务器时间 相关内容
雅虎中 用ASP+DLL实现WEB方式修改服务器时间 相关内容
Sogou搜索中 用ASP+DLL实现WEB方式修改服务器时间 相关内容

相关软件 最新回复帖子:

·Windows Vista 中卸载软件的不同方式
·没有mysql支持时的替代方案
·一个可以发送附件及HTML格式邮件的PHP类
·AutoCAD打造精致三维鸟笼实例详解
·Photoshop自定义水晶字特效样式
·AutoCAD三维基础实例教程
·PS为黑背景长发美女照片抠图换背
·用Photoshop自制个性摩托车贴花小经验
·轻松几步将美女照片处理为手工素描
·巧用Photoshop画笔轻松绘制创意特效


  相关软件 用ASP+DLL实现WEB方式修改服务器时间相关文章
ASP使用MySQL数据库全攻略 破解网站发布系统 ASP生成静态页面方法
为自己的ASP网站系统构建一套标记语言 ASP开发中存储过程应用全接触
解析ASP的Application和Session对象 ASP应用程序设计的Web状态管理分析
在ASP中操作HTTP报头方法分析 ASP中使用ServerVariables集合详解
在ASP中访问和更新Cookies集合 ASP中使用Form和QueryString集合
在ASP中轻松实现记录集分页显示 ASP内置对象Request和Response详解
20种看ASP程序源码的方法及工具 深入理解ASP中FSO的神奇功能
用ASP木马实现FTP和解压缩 ASP木马的原理和基本防范方法
防范ASP木马的十大基本原则 一个ASP木马程序的源代码
IIS服务器排错指南及错误代码大全 利用ASP木马程序获取管理权限