<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
dim x
x=request.querystring("x")
if x<>"1" then x="2"
Select Case x
Case "1"
Call a()
Case "2"
Call b()
end select
Sub a()
dim zzonename,zzonecf
zzonename=trim(request("zzonename"))
zzonecf=trim(request("zzonecf"))
if zzonename="" then
call zonecardy("出错啦","user_info_cg.asp?sid="&sid&"&amp;saytk="&saytk&"")
response.write "空间名称不能留空,请重试!<br/><a href=""user_info_cg.asp?sid="&sid&"&amp;saytk="&saytk&""">正在返回来源页…</a>"
call zonelast()
call head1()
response.end
end if
if len(zzonename) >10 then
call zonecardy("出错啦","user_info_cg.asp?sid="&sid&"&amp;saytk="&saytk&"")
response.write "空间名称不能超过10字以上!<br/><a href=""user_info_cg.asp?sid="&sid&"&amp;saytk="&saytk&""">正在返回来源页…</a>"
call zonelast()
call head1()
response.end
end if
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from zone where zoneid="&myid,conn,1,2
rs("zonename")=zzonename
rs("zonecf")=zzonecf
rs.update
call zonecardy("设置空间资料","user_info.asp?sid="&sid&"&amp;saytk="&saytk&"")
response.write "设置成功!<br/><a href=""user_info.asp?sid="&sid&"&amp;saytk="&saytk&""">正在返回个人档…</a>"
call zonelast()
call headsay()
end sub
sub b()
set rsq=Server.CreateObject("ADODB.Recordset")
  rsq.open"select zonename,zonecf from zone where zoneid="&myid,conn,1,1
zzonename=rsq("zonename")
zzonecf=rsq("zonecf")
rsq.close
set rsq=nothing
call zonecard("设置空间资料","left")
if myid=clng(uid) then
response.write "<a href=""index_gl.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">个人中心</a>|"
end if
response.write "<a href=""index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "<a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"&_
               "<a href='user_info.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>个人档</a><br/>"&_
               "－－－－－<br/>"
               zonepost("user_info_cg.asp?x=1&amp;sid="&sid&"&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;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/>"
call zonelast()
call headsay()
end sub
conn.close
set conn=nothing
%>