<!--#include file=CONN.ASP-->
<!--#include file=foxx.asp-->
<!--#include file="config.asp"-->
<!--#include file="usercookies.asp"-->
<link href="fox.css" rel="stylesheet" type="text/css">
<%
dim username,huitype,yz,leixing,fangbt,fangfx,sheng,shi,fangxq,fangdw,fangzq,fangdz,fangyxq,fangjia,fangjai,fangjaif,fangjzm,fangzxc,fangfk,fangyj,fangsm,rs,sql,userip
dim fanghx,fanghx1,fanghx2,fanghx3,fanghx4,fanglc,fanglc1,fanglc2,fangpt,fangpt1,fangpt2,fangpt3,fangpt4,fangpt5,fangpt6,fangpt7,fangpt8,fangpt9,fangpt10,fangpt11,fangpt12,fangpt13,fangpt14
dim fanglxr,fangtel,fangmod,fangqq,fangemail
username=trim(request("username"))
yz=trim(request("yz"))
huitype=trim(request("huitype"))
leixing=trim(request("leixing"))
sheng=trim(request("sheng"))
shi=trim(request("shi"))
fangbt=trim(request("fangbt"))
fangfx=trim(request("fangfx"))
fangxq=trim(request("fangxq"))
fangdz=trim(request("fangdz"))
fangzq=trim(request("fangzq"))
fangyxq=trim(request("fangyxq"))
fangjia=trim(request("fangjia"))
fangdw=trim(request("fangdw"))
fangjai=trim(request("fangjai"))
fangjaif=trim(request("fangjaif"))
fangjzm=trim(request("fangjzm"))
fangzxc=trim(request("fangzxc"))
fangfk=trim(request("fangfk"))
fangyj=trim(request("fangyj"))
fangsm=trim(request("fangsm"))

fanghx1=trim(request("fanghx1"))
fanghx2=trim(request("fanghx2"))
fanghx3=trim(request("fanghx3"))
fanghx4=trim(request("fanghx4"))
fanghx=fanghx1&"|"&fanghx2&"|"&fanghx3&"|"&fanghx4

fanglc1=trim(request("fanglc1"))
fanglc2=trim(request("fanglc2"))
fanglc=fanglc1&"|"&fanglc2

fangpt1=trim(request("fangpt1"))
fangpt2=trim(request("fangpt2"))
fangpt3=trim(request("fangpt3"))
fangpt4=trim(request("fangpt4"))
fangpt5=trim(request("fangpt5"))
fangpt6=trim(request("fangpt6"))
fangpt7=trim(request("fangpt7"))
fangpt8=trim(request("fangpt8"))
fangpt9=trim(request("fangpt9"))
fangpt10=trim(request("fangpt10"))
fangpt11=trim(request("fangpt11"))
fangpt12=trim(request("fangpt12"))
fangpt13=trim(request("fangpt13"))
fangpt14=trim(request("fangpt14"))
fangpt=fangpt1&"|"&fangpt2&"|"&fangpt3&"|"&fangpt4&"|"&fangpt5&"|"&fangpt6&"|"&fangpt7&"|"&fangpt8&"|"&fangpt9&"|"&fangpt10&"|"&fangpt11&"|"&fangpt12&"|"&fangpt13&"|"&fangpt14

fanglxr=trim(request("fanglxr"))
fangtel=trim(request("fangtel"))
fangmod=trim(request("fangmod"))
fangqq=trim(request("fangqq"))
fangemail=trim(request("fangemail"))

set rs=server.createobject("adodb.recordset")
sql="select * from [FOX_fang] where UserName='"&UserName&"'"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("fanglxr")=fanglxr
rs("fangtel")=fangtel
rs("fangmod")=fangmod
rs("fangqq")=fangqq
rs("fangemail")=fangemail
rs("fangbt")=fangbt
rs("fangfx")=fangfx
rs("fanghx")=fanghx
rs("sheng")=sheng
rs("shi")=shi
rs("huitype")=huitype
rs("fangxq")=fangxq
rs("fangdw")=fangdw
rs("fangdz")=fangdz
rs("fanglc")=fanglc
rs("leixing")=leixing
rs("fangfbsj")=now()
rs("fangyxq")=rs("fangfbsj")+int(fangyxq)
rs("fangzq")=fangzq
rs("fangjia")=fangjia
rs("fangjai")=fangjai
rs("fangjaif")=fangjaif
rs("fangjzm")=fangjzm
rs("fangzxc")=fangzxc
rs("fangpt")=fangpt
rs("fangfk")=fangfk
rs("fangyj")=fangyj
rs("fangsm")=fangsm
if huitype>"0" and yz="1" then
rs("yz")=1
else
rs("yz")=0
end if

userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then 
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("userip")=userip
rs.update
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select meng,jf from [FOX_user] where UserName='"&UserName&"'"
rs.open sql,conn,1,3
rs("jf")=rs("jf")+lmjf
rs.update
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from [FOX_fang] where UserName='"&UserName&"'"
rs.open sql,conn,1,3
if rs.Recordcount>=3 then
conn.execute("update FOX_fang set fangjai=1 where UserName='"&UserName&"'") 
rs.update
else
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from [FOX_fang] where fangtel='"&fangtel&"'"
rs.open sql,conn,1,3
if rs.Recordcount>=3 then
conn.execute("update FOX_fang set fangjai=1 where fangtel='"&fangtel&"'") 
rs.update
else
end if
rs.close
set rs=nothing
closedb
    Response.Write "<script>alert('·¢²¼³É¹¦£¡');this.location.href='fang.asp';</SCRIPT>"
     response.end
Response.Redirect "fang.asp"
%>
