<%
z1g=0
z1f=0
z2g=0
z2f=0
z3g=0
z3f=0
z4g=0
z4f=0
z5g=0
z5f=0
z6g=0
z6f=0
Set conn5=Server.CreateObject("ADODB.CONNECTION")
Set rs5=Server.CreateObject("ADODB.RecordSet")
conn5.open Application("zhbg_usermdb")
rs5.open "SELECT z1,z2,z3,z4,z5,z6 FROM ÓÃ»§ WHERE ÐÕÃû='"&session("zhbg_name")&"'",conn5,1,1
if not rs5.eof then

if rs5("z1")<>"" then
 z1sj=split(rs5("z1"),"|")
 z1g=int(z1sj(2))
 z1f=int(z1sj(3))
end if
if rs5("z2")<>"" then
 z2sj=split(rs5("z2"),"|")
 z2g=int(z2sj(2))
 z2f=int(z2sj(3))
end if
if rs5("z3")<>"" then
 z3sj=split(rs5("z3"),"|")
 z3g=int(z3sj(2))
 z3f=int(z3sj(3))
end if
if rs5("z4")<>"" then
 z4sj=split(rs5("z4"),"|")
 z4g=int(z4sj(2))
 z4f=int(z4sj(3))
end if
if rs5("z5")<>"" then
 z5sj=split(rs5("z5"),"|")
 z5g=int(z5sj(2))
 z5f=int(z5sj(3))
end if
if rs5("z6")<>"" then
 z6sj=split(rs5("z6"),"|")
 z6g=int(z6sj(2))
 z6f=int(z6sj(3))
end if

wpgj=z1g+z2g+z3g+z4g+z5g+z6g
wpfy=z1f+z2f+z3f+z4f+z5f+z6f

end if
rs5.close
set rs5=nothing
conn5.close
set conn5=nothing
%>