function myfun()
    s1=""
    i=document.myform.cpmc.length
    x=0
    do while x<i
      if document.myform.cpmc(x).selected=true then
        s1=document.myform.cpmc(x).text
      end if
      x=x+1
    loop

    s3=""
    i=document.myform.cpjwmd.length
    x=0
    do while x<i
      if document.myform.cpjwmd(x).selected=true then
        s3=document.myform.cpjwmd(x).text
      end if
      x=x+1
    loop

    s2=""
    i=document.myform.cpgg.length
    x=0
    do while x<i
      if document.myform.cpgg(x).selected=true then
        s2=document.myform.cpgg(x).text
      end if
      x=x+1
    loop

    s=s1+s2+s3
    if s<>"" then
      document.myform.submit
    else
      msgbox "ÄúδÊäÈëËÑË÷Ìõ¼þ!!!"
    end if
  end function

  function mysub()
    if document.Login.Typ(0).checked=true then
      document.Login.action="individual/Chkadmin.asp"
      document.Login.submit
    else
      document.Login.action="user/Chkadmin.asp"
      document.Login.submit
    end if
  end function