求大神vbscript转javascript

<%
DelOK = Request("DelOK")
Del = Request("Del")
If Del <> "" Then
%>
<script Language="vbscript" >
Dim a
a = MsgBox("确认要删除该站点吗?", 49, "<%=SiteName%>")
If a = 1 Then
    MsgBox "在删除站点时时间可能比较长,请在此期间不要刷新页面或关闭页面!", 16, "警告"
    window.location.href = "HostBuy.asp?DelOK=<%=Del%>"
Else
    window.location.href = "HostBuy.asp"
End If
</Script>