<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="forbbs.asp"-->
<!--#include file="chinahanzi.asp"-->
<%call head()
call saycardd("修改用户资料")

dim TP,ids
ids=Request("ids")
tp=Request("tp")
if ids="" or Isnumeric(ids)=False then
  Call Error("ID无效！")
  end if
'检查ID是否存在
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT name FROM users where id="&ids,conn,1,1
if rs.eof then
  rs.close
  set rs=Nothing
  Call Error("会员ID不存在！")
end if
  rs.close
  set rs=Nothing

dim username,about,sex,city,sr,email,age,newdatainfo,sjhmnum,cent,sore,pass,newrmbcent,newrzzt,newxm,newsfz,tl,ch,ml,cw


cw=trim(request("cw"))

sr=forbbs(sr)
if TP=1 then
'if sjhmnum="" or username="" or about="kkuy" or city="54345ii" or sex="" or sr="" or age="199" or cent="ku" or pass="" then
 'Call Error("各项都要填写！")
  'end if



rs("cw")=cw
rs.update
rs.close
set rs=nothing
 Response.Write "修改资料成功！<br/>"
ELSE
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from Users where id="&ids,conn,1,1
if rs.eof then
  Call Error("会员不存在！")
  end if
cw=rs("cw")

rs.close
set rs=nothing


 if saytk>1 then
 call xlanlj("cwxd1.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;ids="&ids&"&amp;tp=1")
  Response.Write "宠物管理<select name=""cw"" value='"&cw&"'>"
  else
 Response.Write "宠物管理<select name=""cw"&tt&""" value='"&cw&"'>"
 end if
 Response.Write "<option value=""0"">放生</option>"
 Response.Write "<option value=""1"">11</option>"
 Response.Write "<option value=""2"">22</option>"
 Response.Write "<option value=""3"">33</option>"
 Response.Write "</select><br/>"
 if saytk>1 then

 call xlanlj1("确定修改")
 else
 Response.Write "<anchor>[确定修改]"
 Response.Write "<go href=""cwxd1.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;ids="&ids&"&amp;tp=1"" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""cw"" value=""$(cw"&tt&")""/>"
 Response.Write "</go></anchor><br/>"
 end if
  end if
conn.close
set conn=nothing
response.write"<a href=""show.asp?id="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""">用户信息</a>"
%><!--#include file="fanhui.asp"-->
<%call head1%>