变量名和值之间不能有空格 否则可能会报 缺少对象的错 Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象

  if url<>"" then urlstr="location.href='"&url&"';"
    if url="-1" then urlstr="history.go(-1);"
    if str<>""  then str="alert('"&str&"');"
    response.write("<script>"&str&urlstr&"</script>")