<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
Call saycardd("联系资料设定")
%>

<!--#INCLUDE file="newguest.asp"-->
<%
dim qqhaoma,fxhaoma
qqhaoma=request("qqhaoma")
fxhaoma=request("fxhaoma")
TP=clng(request("TP"))
if TP=1 then

if qqhaoma="" or IsNumeric(listn)=False then
  Call Error("无效QQ号码！")
  end if

if fxhaoma="" or IsNumeric(viewn)=False then
  Call Error("无效的飞信号！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where id="&myid,conn,1,2
If rs.eof Then
  Call Error("会员不存在！")
  end if
rs("qqhaoma")=qqhaoma
rs("fxhaoma")=fxhaoma
rs("answer")=answer
rs.update
rs.close
set rs=Nothing
 Response.Write "设置成功！<br/>"

else
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where id="&myid,conn,1,1
listn=rs("listnum")
viewn=rs("viewnum")
relistn=rs("relistnum")
reviewnum=rs("review")
rs.close
set rs=Nothing
 Response.Write "联系 q q 号码<br/>"
 Response.Write "<input name=""qqhaoma"&tt&""" maxlength=""9"" value="""&qqhaoma&"""/><br/>"
 Response.Write "联系飞信号码<br/>"
 Response.Write "<input name=""fxhaoma"&tt&""" maxlength=""9"" value="""&fxhaoma&"""/><br/>"
 Response.Write "<anchor>确定登记资料"
 Response.Write "<go href=""DJ.asp?bbsid="&bbsid&"&amp;tid="&tid&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""qqhaoma"" value=""$(qqhaoma"&tt&")""/>"
 Response.Write "<postfield name=""fxhaoma""   value=""$(fxhaoma"&tt&")""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "</go></anchor>"&chr(13)
  end if
conn.close
set conn=nothing
%>
<!--#include file="fanhui.asp"-->
<%Call headsay()%>