<!--#Include File="Connection.Asp"-->
 
<%
Dim JaZ,B
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If

If Request.QueryString("action")="" Then
Dim allbuy,allxy,flyt,bdiv,pdiv,cdiv,fdiv,cur,bg,music,flyxy,bxy,i,fy,fxy,k,divc,sqlc,cxy,mxy
allbuy = Request.QueryString("buy")
allxy = Request.QueryString("xy")
allbuy = split(allbuy,"$")
flyt = allbuy(0)
flyt = split(flyt,"|")
for i= 1 to Ubound(flyt)-1
  if i=Ubound(flyt)-1 then
  fy = fy & flyt(i)
  else
  fy = fy & flyt(i) & "|"
  end if
next
divc = Ubound(flyt)-1

bdiv = replace(allbuy(1),"undefined","")
pdiv = allbuy(2)
cdiv = replace(allbuy(3),"undefined","")
fdiv = replace(allbuy(4),"undefined","") & "|4"
cur = replace(allbuy(5),"default","")
bg = allbuy(6)
music=allbuy(7)


allxy = split(allxy,"$")
flyxy=allxy(0)

flyxy = split(flyxy,"|")
for k= 1 to Ubound(flyxy)-1
  if k=Ubound(flyxy)-1 then
  fxy = fxy& flyxy(k)
  else
  fxy = fxy & flyxy(k) & "|"
  end if
next

bxy = allxy(1)

cxy = allxy(2)

mxy = allxy(3)
 

'response.write fxy & "<br>"
'response.write bdiv & "<br>"
'response.write pdiv & "<br>"  'underfined
'response.write cdiv & "<br>"   
'response.write fdiv & "<br>"
'response.write cur & "<br>"
'response.write bg & "<br>"
'response.write music & "<br>"


'response.write music & "<br>"
'response.write mxy & "<br>"
 


if divc<0 then
  divc=0
end if

End If
%>
<title>JaZOne</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Qz/css.css" rel="stylesheet" type="text/css">
</head>
<style type="text/css">
<!--
.article {
	VISIBILITY: hidden;
	FILTER: revealTrans(transition=23,duration=0.5) blendTrans(duration=0.5);
	POSITION: absolute;
	BACKGROUND-COLOR: #FFFFFF;
	width:86px;
	border: 0px;
}

-->
</style>

</head>
<%If Request.QueryString("action")<>"do" Then%>
<script>
function Show(divid) { 
divid.filters.revealTrans.apply(); 
divid.style.visibility = "visible"; 
divid.filters.revealTrans.play(); 
} 
function Hide(divid) { 
divid.filters.revealTrans.apply(); 
divid.style.visibility = "hidden"; 
divid.filters.revealTrans.play(); 
} 
function pay(m,k)
{
if(m<k)
{
alert("你的帐号中没有足够的H币支付此次交易,请充值值分或升级VIP获得优惠!");
this.location.href='MyBank.Asp';
}
else
{
document.form1.submit();
}
}
<%if Request.QueryString("my")="do" then%>
function paydo()
{
document.form1.submit();
}
<%End If%>
</script>
<body id="body" leftmargin="0" topmargin="0" style="background-color:transparent;" text="#cccccc" link="#cccccc" vlink="#cccccc" alink="#cccccc" onLoad="paydo();"> 
<br>
<br>
<table width="50%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">
      <form name="form1" method="post" action="?action=do">
        <tr>
            <td width="10" height="10" background="Qz/table_bg_1.gif"></td>
            <td height="10" background="Qz/table_bg_2.gif"></td>
            <td width="10" height="10" background="Qz/table_bg_3.gif"></td>
        </tr>
<%
Dim Buylist,CountM,CountVip,AllBuyA
AllBuyA = 0
Buylist = split(fy,"|")
CountM = 0
CountVip = 0
AllBuy = Ubound(Buylist)+1
%>
        <tr>
            <td width="10" background="Qz/table_bg_4.gif"></td>
          <td align="center" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="3">
              <tr>
                <td colspan="2"><p><img src="Qz/shop_bag.gif" width="262" height="75" border="0" align="absmiddle"><br>
               您有如下的物品未购买：
               </p></td>
              </tr>
              <tr>
                <td colspan="2"><table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
                    <tr>
                      <td height="2" bgcolor="#FFFFFF"></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="2">
                            <tr align="center" bgcolor="#CCCCCC"> 
                              <td>选购</td>
                              <td>名称</td>
                              <td>数量</td>
                              <td>属性</td>
                              <td>类别</td>
                              <td>原价</td>
                              <td>VIP价</td>
                            
                            </tr>



  <%
Dim A,Sql,Bn
for i=0 to ubound(Buylist)
Sql="SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&Buylist(i)&"' and JaType=4"
Set A = Conn.ExeCute(Sql) 
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=4 and JaNum='"&Buylist(i)&"'")
If Bn.eof Then
CountM = CountM + Cint(A(1))
CountVip = CountVip + Cint(A(2))
AllBuyA = AllBuyA +1
%>      
                            <tr> 
                              <td align="center"> <input type="checkbox" name="fy" value="<%=Buylist(i)%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=Buylist(i)%>)" onMouseOut="Hide(titile<%=Buylist(i)%>)" style="cursor:hand"> 
                                <%=A("JaSname")%> 
                                <div class=article id=titile<%=Buylist(i)%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="flytopsel/<%=Buylist(i)%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">挂件</td>
                              <td align="center"> <%=A(1)%> </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%  
End If                        
next
If bdiv<>"" Then 
Set A = Conn.ExeCute("SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&bdiv&"' and JaType=3")
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=3 and JaNum='"&bdiv&"'")
If Bn.Eof Then
CountM = CountM + Cint(A(1))
CountVip = CountVip + Cint(A(2))
AllBuyA = AllBuyA +1
%>
         <tr> 
                              <td align="center"> <input type="checkbox" name="bdiv" value="<%=bdiv%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=bdiv%>)" onMouseOut="Hide(titile<%=bdiv%>)" style="cursor:hand"> 
                                <%=A(0)%> 
                                <div class=article id=titile<%=bdiv%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="bannersel/<%=bdiv%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">banner</td>
                              <td align="center"> <%=A(1)%>  </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%
End If
End If
If cdiv<>""  Then
Set A = Conn.ExeCute("SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&cdiv&"' and JaType=6")
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=6 and JaNum='"&cdiv&"'")
If Bn.Eof Then
CountM = CountM + Cint(A(1))
CountVip = CountVip + Cint(A(2))
AllBuyA = AllBuyA +1
%>
         <tr> 
                              <td align="center"> <input type="checkbox" name="cdiv" value="<%=cdiv%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=cdiv%>)" onMouseOut="Hide(titile<%=cdiv%>)" style="cursor:hand"> 
                                <%=A(0)%> 
                                <div class=article id=titile<%=cdiv%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="classsel/<%=cdiv%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">植物</td>
                              <td align="center"> <%=A(1)%>  </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%
End If
End If
If pdiv="0" or pdiv="undefined"  Then
else 
Set A = Conn.ExeCute("SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&pdiv&"' and JaType=7")
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=7 and JaNum='"&pdiv&"'")
If Bn.Eof Then
CountM = CountM + Cint(A(1))
CountVip = CountVip + Cint(A(2))
AllBuyA = AllBuyA +1
%>
         <tr> 
                              <td align="center"> <input type="checkbox" name="pdiv" value="<%=pdiv%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=pdiv%>)" onMouseOut="Hide(titile<%=pdiv%>)" style="cursor:hand"> 
                                <%=A(0)%> 
                                <div class=article id=titile<%=pdiv%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="Saysel/<%=pdiv%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">公告栏</td>
                              <td align="center"> <%=A(1)%>  </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%
End If
End If
If cur<>"" then
Set A = Conn.ExeCute("SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&cur&"' and JaType=2")
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=2 and JaNum='"&cur&"'")
If Bn.Eof Then
CountM = CountM + Cint(A(1))
CountVip = CountVip + Cint(A(2))
AllBuyA = AllBuyA +1
%>
         <tr> 
                              <td align="center"> <input type="checkbox" name="cur" value="<%=cur%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=cur%>)" onMouseOut="Hide(titile<%=cur%>)" style="cursor:hand"> 
                                <%=A(0)%> 
                                <div class=article id=titile<%=cur%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="cursel/<%=cur%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">鼠标</td>
                              <td align="center"> <%=A(1)%>  </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%
End If
End IF
Dim Po

If fdiv<>"|4" then
fdiv = fdiv & "|2"
Po = Split(fdiv,"|")
Set A = Conn.ExeCute("SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&fdiv&"' and JaType=5")
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=5 and JaNum='"&fdiv&"'")
If Bn.Eof Then
CountM = CountM + Cint(A(1))
CountVip = CountVip + Cint(A(2))
AllBuyA = AllBuyA +1
%>
         <tr> 
                              <td align="center"> <input type="checkbox" name="fdiv" value="<%=Po(0)%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=Po(0)%>)" onMouseOut="Hide(titile<%=Po(0)%>)" style="cursor:hand"> 
                                <%=A(0)%> 
                                <div class=article id=titile<%=Po(0)%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="Flysel/<%=Po(0)%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">漂浮</td>
                              <td align="center"> <%=A(1)%>  </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%
End If
End If
If bg<>"" and bg<>"0" then
Set A = Conn.ExeCute("SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&bg&"' and JaType=1")
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=1 and JaNum='"&bg&"'")
If Bn.Eof Then
CountM = CountM + A(1)
CountVip = CountVip + A(2)
AllBuyA = AllBuyA +1
%>
         <tr> 
                              <td align="center"> <input type="checkbox" name="bg" value="<%=bg%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=bg%>)" onMouseOut="Hide(titile<%=bg%>)" style="cursor:hand"> 
                                <%=A(0)%> 
                                <div class=article id=titile<%=bg%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="bgsel/<%=bg%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">皮肤</td>
                              <td align="center"> <%=A(1)%>  </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%
End If
End IF
If music<>"" then
Set A = Conn.ExeCute("SELECT JaSname,JaBuy,JaSbuy FROM [JaSel] WHERE JaSale='"&music&"' and JaType=8")
Set Bn = Conn.ExeCute("SELECT * FROM [JaBuy] WHERE JaUid='"&SESSION("VicNum")&"' and JaType=8 and JaNum='"&music&"'")
If Bn.Eof Then
CountM = CountM + A(1)
CountVip = CountVip + A(2)
AllBuyA = AllBuyA +1
%>
         <tr> 
                              <td align="center"> <input type="checkbox" name="music" value="<%=music%>" checked> 
                              </td>
                              <td align="center" onMouseOver="Show(titile<%=music%>)" onMouseOut="Hide(titile<%=music%>)" style="cursor:hand"> 
                                <%=A(0)%> 
                                <div class=article id=titile<%=music%> align=left> 
                                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                                    <tbody>
                                      <tr> 
                                        <td><img src="musicsel/<%=music%>.gif"  width="86" height="86"></td>
                                      </tr>
                                    </tbody>
                                  </table>
                                </div></td>
                              <td align="center">1</td>
                              <td align="center">普通</td>
                              <td align="center">播放器</td>
                              <td align="center"> <%=A(1)%>  </td>
                              <td align="center"><img src="Qz/money.gif" width="12" height="12" hspace="1" align="absmiddle"> 
                                 <%=A(2)%></td>
                              
                            </tr>
<%
End If
End IF
%>
  <tr> 
                              <td height="1" colspan="8" background="Qz/line1.gif"></td>
                            </tr>
                          </table>

</td>
                    </tr>
          </table></td>
              </tr>
      

              <tr align="center">
                <td><img src="Qz/money.gif" width="12" height="12" hspace="2" align="absmiddle">选购产品共 <span class="num" style="color:#ff6600" id="edittext1">
                  <%=AllbuyA%>
                  </span> 件，
				<%
  Dim IsVip
  Set IsVip = Conn.ExeCute("SELECT JaVip,JaMonery FROM [JaUser] WHERE JaUid='"&SESSION("VicNum")&"'")
  Dim IsM,IsK
  IsM = IsVip(1)
  IsK = 0
  If IsVip(0) = 1 Then
  Response.Write "你是 VIP用户 总计 <span class=""num"" style=""color:#ff6600"" id=""edittext2"">"&CountVip&"</span> H币</td>"
  IsK = CountVip
  else
  Response.Write "你是 普通用户 总计 <span class=""num"" style=""color:#ff6600"" id=""edittext2"">"&CountM&"</span> H币</td>"
  IsK = CountM
  End If
 %>
                  <td><img src="Qz/money1.gif" width="12" height="12" hspace="2" align="absmiddle"><a href="MyBank.Asp">查询余额</a>,你现有:<span class="num" style="color:#ff6600" id="edittext2"><%=IsM%></span> 分</td>
              </tr>
            </table>
              <br />
              <img src="Qz/pay1_bt.gif" style="cursor: hand;" width="71" height="21" hspace="3" vspace="5" onClick="pay(<%=IsM%>,<%=IsK%>);"> 
              <br>   <input type="hidden" name="IsK" value="<%=IsK%>">
                      <input type="hidden" name="fyt" value="<%=fy%>">
                     <input type="hidden" name="fxy" value="<%=fxy%>">
                      <input type="hidden" name="bdiva" value="<%=bdiv%>">
                      <input type="hidden" name="pdiva" value="<%=pdiv%>">
                      <input type="hidden" name="cdiva" value="<%=cdiv%>">
                       <input type="hidden" name="fdiva" value="<%=fdiv%>">
                      <input type="hidden" name="bga" value="<%=bg%>">
                      <input type="hidden" name="cura" value="<%=cur%>">
					  <input type="hidden" name="musica" value="<%=music%>">
                     <input type="hidden" name="bxy" value="<%=bxy%>">
                     <input type="hidden" name="cxy" value="<%=cxy%>">
					 <input type="hidden" name="mxy" value="<%=mxy%>">
                     <input type="hidden" name="divc" value="<%=divc%>">
		    </td>
            <td width="10" background="Qz/table_bg_6.gif"></td>
        </tr>
        <tr>
            <td width="10" height="10" background="Qz/table_bg_7.gif"></td>
            <td height="10" background="Qz/table_bg_8.gif"></td>
            <td width="10" height="10" background="Qz/table_bg_9.gif"></td>
        </tr>
      </form>
    </table></td>
    <td>&nbsp;</td>
    <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
          <td><img src="Qz/table_123_top_img.gif" width="126" height="55"></td>
      </tr>
      <tr>
          <td background="Qz/table_123_bg_img.gif"> 
            <table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                  <tr>
                      <td align="center">&nbsp;</td>
                  </tr>
                  <tr>
                    <td><div align="center"></div></td>
                  </tr>
                  <tr>
                      <td align="center">&nbsp;</td>
                  </tr>
                  <tr>
                      <td align="center">&nbsp;</td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td height="5"></td>
            </tr>
            <tr>
              <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                  <tr>
                      <td align="center">&nbsp;</td>
                  </tr>
                  <tr>
                    <td><div align="center"></div></td>
                  </tr>
                  <tr>
                      <td align="center">&nbsp;</td>
                  </tr>
                  <tr>
                      <td align="center">&nbsp;</td>
                  </tr>
              </table></td>
            </tr>
        </table></td>
      </tr>
      <tr>
          <td><img src="Qz/table_123_foot_img.gif" width="126" height="12"></td>
      </tr>
    </table></td>
  </tr>
</table>


 
<%
else
Dim server_v1
Dim server_v2
Dim Ms,Ks,Yu
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
if mid(server_v1,8,len(server_v2))<>server_v2 then 
response.write "^-^" 
response.end 
End If

fy = request.Form("fyt")
Dim bdiva,cdiva,fdiva,pdiva,cura,bga,musica
fxy = request.Form("fxy")
bxy = request.Form("bxy")
cxy = request.Form("cxy")
mxy = request.Form("mxy")
music = request.Form("musica")
musica = request.Form("music")
bdiv = request.Form("bdiva")
bdiva =  request.Form("bdiv")
cdiv = request.Form("cdiva")
cdiva =  request.Form("cdiv")
pdiv = request.Form("pdiva")
pdiva =  request.Form("pdiv")
cur = request.Form("cura")
cura =  request.Form("cur")
fdiv = request.Form("fdiva")
fdiva =  request.Form("fdiv")
if fdiva<>"" then
  fdiva = fdiva & "|4|2"
end if
divc = request.Form("divc") 
bg = request.Form("bga") 
bga = request.Form("bg") 


Ms = Cint(request.Form("Isk"))
Conn.ExeCute("UPDATE [JaUser] Set JaMonery=JaMonery-"&Ms&" WHERE JaUid='"&SESSION("VicNum")&"'")
Conn.ExeCute("UPDATE [JaClass] SET JaWat=JaWat+"&Cint(Ms/100)&",JaYin=JaYin+"&Cint(Ms/200)&" WHERE JaUid='"&SESSION("VicNum")&"'")
If request.Form("fy")<>"" Then
Ks = Split(Trim(request.Form("fy")),",")
for i=0 to Ubound(Ks)
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',4,'"&Trim(Ks(i))&"')")
Next 
End If
if bdiva<>"" Then
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',3,'"&bdiva&"')")
End if
if pdiva<>"" Then
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',7,'"&pdiva&"')")
End if
if cdiva<>"" Then
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',6,'"&cdiva&"')")
End if

if fdiva<>"" Then
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',5,'"&fdiva&"')")
End if
if cura<>"" Then
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',2,'"&cura&"')")
End if
if bga<>"" Then
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',1,'"&bga&"')")
End if
if musica<>"" Then
 Conn.ExeCute("INSERT INTO [JaBuy](JaUid,JaType,JaNum)VALUES('"&SESSION("VicNum")&"',8,'"&musica&"')")
End if
sqlc="JaCursorSet='"&cur&"',JaFlySet='"&fdiv&"',JaBottom='"&cdiv&"',JaDiv="&divc&",Jaxy='"&fxy&"'"

if bg<>"" then
   sqlc = sqlc & ",JaBgSet='"&bg&"'"
  end if

   sqlc = sqlc & ",Jaflytop='"&fy&"'"

  sqlc = sqlc & ",JaBanner='"&bdiv&"'"

if pdiv<>"undefined" and pdiv<>"0" then
   sqlc = sqlc & ",JaSay='"&pdiv&"'"
else
if pdiv="0" then 
   sqlc = sqlc & ",JaSay=''"
end if
end if 
sqlc = sqlc & ",JaMuisc='"&music&"'"
if bxy<>"" then 
  sqlc = sqlc & ",Jabxy='"&bxy&"'"
  end if
if cxy<>"" then 
 sqlc = sqlc & ",JaPxy='"&cxy&"'"
 end if
if mxy<>"" then 
 sqlc = sqlc & ",JaMxy='"&mxy&"'"
 end if
' response.Write sqlc
 'response.end
'Conn.ExeCute("Update [JaFaceSet] SET "&sqlc&" WHERE JaUid='"&SESSION("VicNum")&"'")
JaZ.JaVicBlog sqlc,"JaFaceSet","JaUid='"&SESSION("VicNum")&"'"

%>
<body id="body" name="body" leftmargin="0" topmargin="0" style="background-color:transparent;" text="#cccccc" link="#cccccc" vlink="#cccccc" alink="#cccccc">
<br>
<br>
<table width="450"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="3" align="center"><img src="Qz/succ.gif" width="287" height="202"><br>
        <table width="90%"  border="0" cellspacing="0" cellpadding="10">
          <tr>
            <td height="1" background="Qz/line1.gif"></td>
          </tr>
          <tr>
            <td>保存装扮方案成功!<br>              
        <font color="red">&nbsp;</font></a><br>
<a href=""><font color="orange"></font></a><br>
        <a href="" target="_blank"></a></td>
          </tr>
          <tr>
            <td height="1" background="line1.gif"></td>
          </tr>
        </table>        <br>
    <a href="javascript: top.location.reload();"><img src="Qz/bt_close1.gif" border="0" width="58" height="19" vspace="3" style="cursor:hand"></a><br></td>
  </tr>
</table>
<%End If%>
</body>

</html>
