<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Public/Person_Cookies.asp" -->
<%dim upload,file,formName,formPath,iCount,filename,fileExt,rs,sql,username,photochk,photo,tupian
Username = Session("Person")(0)
Perid    = Session("Person")(2)
Set Rs = Server.Createobject("adodb.recordset")
SQL = "Select Username,PhotoUrl From [pH_Person_Info] Where Username='"&username&"'"
'response.Write(sql)
'response.end
Rs.Open SQL,Conn,1,3
Function HtmlEncode(str)
    If Trim(Str)="" Or IsNull(str) Then Exit Function
    str=Replace(str,">","&gt;")
    str=Replace(str,"<","&lt;")
    str=Replace(str,Chr(32),"&nbsp;")
    str=Replace(str,Chr(9),"&nbsp;")
    str=Replace(str,Chr(34),"&quot;")
    str=Replace(str,Chr(39),"&#39;")
    str=Replace(str,Chr(13),"")
    str=Replace(str,Chr(10) & Chr(10), "</p><p>")
    str=Replace(str,Chr(10),"<br> ")
    HtmlEncode=str
End Function

picurl= Replace_Text(request.QueryString("picurl"))

rs("photourl") = picurl
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing

Response.write "<script>alert('Δϊ΅ΔΥΥΖ¬ΕΔΙγ³ΙΉ¦£‘');window.close();</script>"
Response.end

%>



