2008年7月3日

  <Script Language="VbScript">
   Function CheckRegForm()
    //Alert "s"
    If Trim(RegForm.UserName.Value)="" Then
     Alert "请输入用户名"
     RegForm.UserName.Focus()
    ElseIf Trim(RegForm.RealName.Value)="" Then
     Alert "请输入姓名"
     RegForm.RealName.Focus()
    ElseIf Trim(RegForm.UserPassword.Value)="" Then
     Alert "请输入密码"
     RegForm.UserPassword.Focus()

    Else
     RegForm.Submit()
     //window.opener.location.href=window.opener.location.href
     window.opener.location.reload  //本句可在弹出的窗口中,将其父窗口重新加载//张建慧
    End If

   End Function
  </Script>