关闭当前页面解决方案

关闭当前页面
<%
  dim WS_OfficeManageName
  action=request("action")
  if action="update" then
   
  columnName="":TableName="HX_Office":Orderby=" where WS_OfficeID="&OFID
  set rs=WS_S.HX_SetRSD(columnName,TableName,Orderby) 
 
  WS_OfficeUnitPrice=WS_S.HX_Replace(request.form("WS_OfficeUnitPrice"))
  WS_OfficeNum=WS_S.HX_Replace(request.form("WS_OfficeNum"))
  WS_OfficeManageName=WS_S.HX_Replace(request.form("WS_OfficeManageName"))
  WS_OfficeMeasurement=WS_S.HX_Replace(request.form("WS_OfficeMeasurement"))
  WS_OfficeContent=WS_S.HX_Replace(request.form("WS_OfficeContent"))
   
  rs("WS_OfficeUnitPrice")=WS_OfficeUnitPrice
  rs("WS_OfficeNum")=WS_OfficeNum
  rs("WS_OfficeManageID")=WS_OfficeManageName
   
  rs("WS_OfficeMeasurement")=WS_OfficeMeasurement
   
   
  rs("WS_OfficeContent")=WS_OfficeContent
  rs.update()
  end if 
  window.close();
  window.parent.location.reload();
%>
报错：Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'window'
哪位大侠帮忙解决下
在下感激不尽

[解决办法]
window.close(); 
window.parent.location.reload(); 


为角本，


不能放到服务器上。