请教将下面代码编译成为dll文件

Question

源代码有不少错误，只是简单修改并生成DLL，没有调试。
不过应该没太大问题。
将下面的图片保存，修改文件后缀为ZIP并解压即可。

Answer 1

谢谢楼上，刚才马上试了一下，拷贝文件到system32，然后注册dll文件，用asp文件修改时间，但是没有作用喔。
是不是这个vb代码有问题，还请帮忙看看，这个vb代码能否修改系统时间？？
asp调用dll文件如下<% @language="vbscript" %>
<%function SetTime(strYear,strMonth,strDay)
 response.Expires=0
 set obj=server.createobject("systimeset.timeset")
     obj.Year=strYear
     obj.Month=strMonth
     obj.Day=strDay
     if Hour(now())-8>0 then
    obj.Hour=Hour(now())-8
    else
    obj.Hour=8
    end if
    obj.Minute=Minute(now())
    obj.Second=Second(now())
    obj.setupset obj=Nothing
end functionif request("act")="modi" then
    call SetTime(request.Form("strYear"),request.Form("strMonth"),request.Form("strDay"))
end if
%>
<form id="form1" name="form1" method="post" action="">
  <table width="290" border="0">
    <tr>
      <td width="77"><input name="strYear" type="text" id="strYear" value="<%=Year(now())%>" size="8" /></td>
      <td width="49"><input name="strMonth" type="text" id="strMonth" value="<%=Month(now())%>" size="5" /></td>
      <td width="48"><input name="strDay" type="text" id="strDay" value="<%=Day(now())%>" 38size="5" /></td>
     <td width="98"><input type="submit" name="Submit" value="修改日期" /></td>
    </tr>
  </table>
</form>

Answer 2

楼上的大哥你好，真的很感谢你。还有点事请教，我注册了那个dll文件，用asp页面调用后，还是没有修改系统时间，能不能再帮我看看？非常感谢

Answer 3

好吧，我可能没太注意工程名称。
同样方法下载下面的图片。使用时要先注册SetSystemTime.dll（开始-运行CMD-regsvr32 （你的路径：\）SetSystemTime.dll）运行时Year，Month,Day不能为0，否则将失败！

Answer 4

昨晚用你的代码重新生成了一次dll，但是仍然不行，最后发现是asp文件的传值有问题，修改之后重新注册dll就成功运行了。非常感谢，送分，结贴