<!-- #include file="conn.asp" -->
<%Call Head()
dim xx
uid=request.querystring("uid")
If request.querystring("x")=1 then


dim zzonename,zzonecf
zzonename=trim(request("zzonename"))
zzonecf=trim(request("zzonecf"))
if zzonename="" then
call cardz("出错啦","user_info_cg.asp?sid="&sid&"&amp;uid="&uid&"&amp;saytk="&saytk&"")
response.write "空间名称不能留空,请重试!<br/><a href=""user_info_cg.asp?sid="&sid&"&amp;uid="&uid&"&amp;saytk="&saytk&""">正在返回来源页…</a>"
call head1()
response.end
end if
if len(zzonename) >10 then
call cardz("出错啦","user_info_cg.asp?sid="&sid&"&amp;uid="&uid&"&amp;saytk="&saytk&"")
response.write "空间名称不能超过10字以上!<br/><a href=""user_info_cg.asp?sid="&sid&"&amp;uid="&uid&"&amp;saytk="&saytk&""">正在返回来源页…</a>"
call head1()
response.end
end if
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from zone where zoneid="&uid,conn,1,2
rs("zonename")=zzonename
rs("zonecf")=zzonecf
rs.update
call cardz("设置空间资料","user.asp?sid="&sid&"&amp;id="&rs("id")&"&amp;saytk="&saytk&"")
response.write "设置成功!<br/><a href=""user.asp?sid="&sid&"&amp;id="&rs("id")&"&amp;saytk="&saytk&""">正在返回个人档…</a>"


Else



set rsq=Server.CreateObject("ADODB.Recordset")
  rsq.open"select zonename,zonecf from zone where zoneid="&uid,conn,1,1
zzonename=rsq("zonename")
zzonecf=rsq("zonecf")
rsq.close
set rsq=nothing
call saycard("设置空间资料","left")

               zonepost("user_info_cg.asp?x=1&amp;sid="&sid&"&amp;uid="&uid&"&amp;saytk="&saytk&"")
if saytk=1 then
Response.Write "空间名称（10字内）<br/>"&_
               "<input name=""zzonename"" maxlength=""15"" value="""&zzonename&""" type=""text""/><br/>" &_
               "个人签名（250字内）<br/>"&_
               "<input name=""zzonecf"" maxlength=""50"" value="""&zzonecf&""" type=""text""/><br/>"&_
               "<anchor>提交空间资料"&_
               "<go href=""user_info_cg.asp?x=1&amp;sid="&sid&"&amp;uid="&uid&"&amp;saytk="&saytk&""" method=""post"" accept-charset='utf-8'>"&_
               "<postfield name=""zzonename"" value=""$(zzonename)""/>"&_
               "<postfield name=""zzonecf"" value=""$(zzonecf)""/>"&_
               "</go></anchor>"
else
Response.Write "空间名称（10字内）<br/>"&_
               "<textarea name=""zzonename"" cols=""20"" rows=""1"">"&zzonename&"</textarea><br/>"&_
               "个人签名（250字内）<br/>"&_
               "<textarea name=""zzonecf"" cols=""20"" rows=""3"">"&zzonecf&"</textarea><br/>"&_
               "<input type='submit' value='提交空间资料'/>"&_
               "</form><br/>"
end if
response.write"<br/>说明：不修改处保留原有资料，修改后半小半内生效<br/>－－－－－<br/>"

end if




Call zonelast()
call headsay()
conn.close
set conn=nothing
%>