Public Function StartDNS() As Boolean
On Error GoTo ErrHandle
Dim strReturn strReturn = Shell("C:\ManDNS\StartDNS.bat")
StartDNS = True
Exit Function ErrHandle: StartDNS = False
End Function
%>
if Request.form(“click”) <> “” then
dim StartDNS ,RenStart
set StartDNS = Server.CreateObject(“StartDNS.DNSClass”)
RenStart = StartDNS. StartDNS
If RenStart then
Response.Write “DNS服务启动成功。”
Else
Response.Write “DNS服务启动失败。”
End if
end if
%>
<Form action = “StartDNS.asp” method = “Post”>
<Input type = submit name = submit value = “Start DNS”>
<Input type = hidden name = click value = “click”>