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

Posted 来宾

篇首语：成家后，你要明白，你赚钱的速度不仅要快于你花钱的速度，还要快于父母变老的速度。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 用ASP+DLL实现WEB方式修改服务器时间相关的知识，希望对你有一定的参考价值。

用ASP+DLL实现WEB方式修改服务器时间  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　首先 在VB 中建立一个ActiveX Dll工程项目 信息如下 　　工程名称 systimeset 　　类模块名称 timeset 　　VB 的类模块代码如下  

  Option Explicit   Private SystemTime As SystemTime   Private Declare Function SetSystemTime()Function SetSystemTime Lib "kernel " (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 由李锡远修改     修改日期      修改项目 增加对年 月 日 秒的操作 年 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 日 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 =  SystemTime wMilliseconds =  SystemTime wMonth = Month SystemTime wSecond = Second SystemTime wYear = Year SystemTime wHour = Hour SystemTime wMinute = Minute setup = SetSystemTime(SystemTime) End Function 关于DLL的注册 通常VB在本机上编译后 会自动将DLL注册 但如果你要放到IIS服务器上 请使用如下方法 将systimeset dll拷贝到c:WINDOWSsystem 下 在开始菜单的运行里面输入 regsvr systimeset dll     （敲回车啊） 因为修改服务器的时间 INTERNET来宾帐户不具有该权限 设立权限请打开控制面版中的“管理工具” 然后打开“本地安全策略”－－“用户权力指派” 双击“更改系统时间” 在弹出的对话框中点“添加用户或组” 将INETNET来宾帐户加入进来 一切完毕后 将IIS服务重新启动一次 在上面的设置完毕后 使用systimeset dll组件的ASP代码页面如下  

　　将其编译为systimeset dll的文件  

  <% @language="vbscript" %>   <%   function SetTime(strYear strMonth strDay)   response Expires=   set obj=server createobject("systimeset timeset")       obj Year=strYear       obj Month=strMonth       obj Day=strDay       if Hour(now()) >  then     obj Hour=Hour(now())     else     obj Hour=     end if     obj Minute=Minute(now())     obj Second=Second(now())     obj setup set obj=Nothing end function if request("act")="modi" then     call SetTime(request Form("strYear") request Form("strMonth") request Form ("strDay")) end if %> <form id="form " name="form " method="post" action="?act=modi">   <table  border=" ">     <tr>       <td ><input name="strYear" type="text" id="strYear" value="<%=Year(now())%>"  size=" " /></td>       <td ><input name="strMonth" type="text" id="strMonth" value="<%=Month(now ())%>" size=" " /></td>       <td ><input name="strDay" type="text" id="strDay" value="<%=Day(now())%>"  size=" " /></td>       <td ><input type="submit" name="Submit" value="修改日期" /></td>     </tr>   </table> </form> cha138/Article/program/net/201311/14441

相关参考

知识大全 欠费的联通手机卡,如何修改服务密码

欠费的联通手机卡,如何修改服务密码您好：如果您的手机号码欠费暂时无法通过自动语或人工台等方式修改密码，建议您缴费后再进行设置。如您办理的手机卡有实名登记，缴费后可以拨打客服热线由工作人员协助您修改设置

知识大全 asp.net用代码压缩服务器上文件夹或文件

cha138/Article/program/net/201311/14328

知识大全 用修改文件时间的方法来加密文件

　[摘要]　　本文介绍了在Delphi中利用系统函数和WindowsAPI函数配合Delphi中的DataTimePicker组件来获取和修改文件的时间信息的方法以达到软件信息的简单加密　　谈到文件加

知识大全 买家给了中差评，多长时间内可以修改

买家给了中差评，多长时间内可以修改买家在给出中差评后的30天内，可以修改评价，评价做出的30天内可以通过以下方式进行修改，只有一次修改或删除的机会。逾期评价将不再有删除/修改的机会。进入“我的淘宝”—

知识大全 asp 检测服务器所安装组件

　　asp检测服务器所安装组件==================================　　函数名IsObjInstalled作 用检查组件是否已经安装参 数strCla

知识大全 雨林木风win7系统怎么用DOS命令修改系统时间

雨林木风win7系统怎么用DOS命令修改系统时间  以下文字资料是由(本站网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！雨林木

知识大全 用ASP实现IE地址栏参数的判断

用ASP实现IE地址栏参数的判断  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　在服务器端asp

知识大全 asp中get post提交表单区别

　　asp教程中getpost提交表单区别　　Get和Post方式的区别有点　　get是从服务器上获取数据post是向服务器传送数据　　get是把参数数据队列加到提交表单的ACTION属性所指的URL

知识大全 asp.net 页面跳转

　　跳转方式有以下几种　　Hyperlink控件跳转　　服务器传输　　Servertransfer　　浏览器重定向　　HttpResponseRedirect　　跨页发送　　PreviousPage　

知识大全 ASP注册表修改

ASP注册表修改  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　）键值路径　　HKEY_LOCA