<!--#Include File="Connection.Asp"-->
 
<%
Dim JaZ,C,flyN,B,cur
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>")
flyN = split(Trim(C(2)),"|")
If Cint(Trim(C(1)))<>0 Then
cur = "CURSOR:url('cur/"&C(1)&".ani');"
Else
cur = ""
End If 
%>

<%
Dim JaCheckIsLog
JaCheckIsLog = JaZ.JaIsUser(B)
If JaCheckIsLog = "yes" Then

Dim baalna,baalxin,baalxue,baalhigh,baalweigh,baallove,baalmemo,ouPhoto,isshow,musicsel
Dim Janian,Jayue,Jari,baaldate
Dim JaInSQL
Dim JaVicNum
JaVicNum = SESSION("VicNum")
ouPhoto = JaZ.JaKillStr(Trim(Request.Form("ouPhoto")))
Janian = Trim(Request.Form("Janian"))
Jayue = Trim(Request.Form("Jayue"))
Jari = Trim(Request.Form("Jari"))
baaldate = Janian & "-" & Jayue & "-" & Jari
baalna = JaZ.JaKillStr(Trim(Request.Form("baalna")))
baalxin = JaZ.JaKillStr(Trim(Request.Form("baalxin")))
baalxue = JaZ.JaKillStr(Trim(Request.Form("baalxue")))
baalhigh = JaZ.JaKillStr(Trim(Request.Form("baalhigh")))
baalweigh = JaZ.JaKillStr(Trim(Request.Form("baalweigh")))
baallove = JaZ.JaKillStr(Trim(Request.Form("baallove")))
baalmemo = JaZ.JaKillStr(Trim(Request.Form("baalmemo")))
musicsel = Trim(Request.Form("select"))
isshow = Trim(Request.Form("isshow"))
If isshow="yes" Then
isshow = 1
Else
isshow = 0
End if

If Isnumeric(baalhigh)=False Or Isnumeric(baalweigh)=False Then
Response.Write "<script language=javascript>alert('身高和体重只能是数字,请正确填写!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else

If isshow=1 Then
JaZ.JaVicBlog "IsShow=0","JaBaal","JaUid='"&JaVicNum&"' and IsShow=1 "
End if

JaInSQL = "(JaMusicSpeID,JaUid,JaName,JaBorn,JaXin,JaXue,JaHigh,JaWeight,JaLove,JaMemo,JaUrl,IsShow) Values("&musicsel&",'"&JaVicNum&"','"&baalna&"','"&baaldate&"','"&baalxin&"','"&baalxue&"',"&baalhigh&","&baalweigh&",'"&baallove&"','"&baalmemo&"','"&ouPhoto&"',"&isshow&")"
JaZ.JaInsert "JaBaal",JaInSQL

Response.Write "<script language=javascript>alert('添加成功!');"
Response.Write "window.document.location.href='Baal.asp?JaUid="&JaVicNum&"';</script>"
End if

Else
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
%>
