<!--#Include File="Connection.Asp"-->

<!--#Include File="JaInc/Ja_MD5.Asp"-->
<%
Dim JaZ,C,flyN,B,cur
Set JaZ = new q_zone
B = 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 JaCheckID,JaUID,JaSheng,JaShi
Dim Jauserna,Japwd,Jazonena,Jainter,Jamemo
Dim Jayue,Janian,Jari,Jasex,Jaxue,Jaxin,JaAge
Dim JaBorn
Dim JaUser
Dim JaInSQL,JaInSQLs
Dim JaCheckIsLog
Dim JaSetA,JaAllOpen,wwh
Dim JaFace
Set JaUser = new q_zone
JaSetA = Trim(Request.Form("JaSet"))
Jazonena = JaUser.JaKillStr(Trim(Request.Form("Jazone")))
Jainter = Trim(Request.Form("Jainter"))

Janian = Trim(Request.Form("Janian"))
Jayue = Trim(Request.Form("Jayue"))
Jari = Trim(Request.Form("Jari"))
JaBorn = Janian & "-" & Jayue & "-" & Jari
JaAge = Trim(Request.Form("JaAge"))
Jasex = Trim(Request.Form("JaSex"))
JaSheng=Trim(Request.Form("province"))
JaShi=Trim(Request.Form("City"))
JaYou=Trim(Request.Form("JaYou"))
if jasex="男"then
	jaface="face/00.gif"
else
	jaface="face/01.gif"
end if
Jaxue = Trim(Request.Form("Jaxue"))
Jaxin = Trim(Request.Form("Jaxin"))
Jamemo = Trim(Request.Form("content"))
'Japwd = Trim(Request.Form("Japwd"))
'If Japwd <> "" Then Japwd = MD5(Japwd,"long")
wwh = JaUser.JaKillStr(Request.Form("wwh"))
JaAllOpen = JaUser.JaKillStr(Request.Form("passopen"))
If wwh="yes" Then JaAllOpen = ""

JaCheckIsLog = JaUser.JaIsUser(B)
If JaCheckIsLog = "no" Then
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
JaUID = SESSION("VicNum")
JaInSQL = "JaZoneName='"&Jazonena&"',JaAge="&JaAge&",JaSex='"&Jasex&"',JaInter='"&Jainter&"',JaXue='"&Jaxue&"',JaXin='"&Jaxin&"',JaBorn='"&JaBorn&"',JaMemo='"&Jamemo&"',JaAllOpen='"&JaAllOpen&"',JaFace='"&JaFace&"',province='"&JaSheng&"',city='"&JaShi&"',JaYou='"&JaYou&"'"
If Japwd<>"" Then JaInSQL = JaInSQL & ",JaPass='"&Japwd&"' "
JaInSQLs = "JaUid='"&JaUID&"' "

JaUser.JaVicBlog "JaSet='"&JaSetA&"'","JaFaceSet",JaInSQLs
JaUser.JaVicBlog JaInSQL,"JaUser",JaInSQLs


Response.Write "<script language=javascript>alert('修改成功!');"
Response.Write "window.document.location.href='UserInfo.asp?JaUid="&JaUID&"';</script>"
End if
Set JsUser=Nothing
%>
