obj.Hour=8
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="form1" name="form1" method="post" action="?act=modi">
<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())%>" size="5" /></td>
<td width="98"><input type="submit" name="Submit" value="修改日期" /></td>
</tr>
</table>
</form>
以上是所有实现的代码，有问题可以加我QQ：17020415
将上面的ASP代码页面粘贴到一个空的ASP文件中，然后在IIS中将站点设置好就可以了。（设置IIS虚拟目录也可以的。）
