<!-- #include file="../../Inc/saycard.asp" -->
<%
Function zoneh()
Call head()

End Function


Function zone22()

%>
<!--#include virtual="/3gsaytk.asp"-->

<%
End Function

function zonexd()
dim v,vzs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select v,vzs from Users where sid='"&RequestStr(sid)&"'",conn,1,1
v=rs("v")             
vzs=rs("vzs")             
rs.close
set rs=nothing
end function
call zonexd()
dim username,zonenamee,suid
uid=trim(request.querystring("uid"))
if uid="" or IsNumeric(uid) = False then uid=myid
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [Users] where [id]="&uid,conn,1,1
if rs.eof then
Call Head()
 Call Error("出错啦","没有此会员！")
  end if
username=rs("name")
suid=rs("id")
sex=rs("sex")
City=rs("City")
sr=rs("sr")
age=rs("age")
ids=rs("id")
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zone] where [zoneid]="&uid,conn,1,1
if rs.eof then
if myid<>clng(uid) then
Call zoneh()
call zonecard("出错啦","left")
response.write"对方还没有开通空间！"
response.write"<br/><a href=""index.asp?saytk="&saytk&"&amp;sid="&sid&""">返回我的空间</a><br/>"&chr(13)

call zonelast()
call zone22()
response.end
else
Call zoneh()
call zonecard("你还没有开通空间","left")
response.write"你还没有开通空间！"
response.write"<a href=""zone_add.asp?saytk="&saytk&"&amp;sid="&sid&""">申请空间</a><br/>"
call zonelast()
call zone22()
response.end
  end if
  end if

zonenamee=rs("zonename")
zonecf=rs("zonecf")
zoneyangguang=rs("zoneyangguang")
zoneyulou=rs("zoneyulou")
zoneaixin=rs("zoneaixin")
zoneyingyang=rs("zoneyingyang")
zonefkrsrs=rs("zonefkrsrs")
zonefkrs=rs("zonefkrs")
if myid<>clng(uid) then
dim rstz
set rstz=Server.CreateObject("ADODB.Recordset")
rstz.open"select * from zonedt where fid="&uid&" and ids="&myid,conn,1,2
if rstz.eof then
rstz.addnew
end if
rstz("ME")=myni
rstz("ids")=myid
rstz("fid")=uid
rstz("tm")=now()
rstz.update
rstz.close
set rstz=nothing
Set rsfk = Server.CreateObject("ADODB.Recordset")
rsfk.open"select zonefktm,zonefkrs_s from [zone] where [zoneid]="& uid,conn,1,1
zonefktm=rsfk("zonefktm")
zonefkrs_s=rsfk("zonefkrs_s")
if zonefktm="" or zonefktm<>date() then
conn.Execute("update zone set zonefktm='"&date()&"',zoneyangguang = zoneyangguang+1,zonefkrsrs = zonefkrsrs+1,zonefkrs = 1,zonefkrs_s=1  Where zoneid=" & uid)
else
if zonefkrs_s>=8 then
conn.Execute("update zone set zoneyangguang = zoneyangguang,zonefkrsrs = zonefkrsrs+1,zonefkrs = zonefkrs+1,zonefkrs_s=8  Where zoneid=" & uid)
else
conn.Execute("update zone set zoneyangguang = zoneyangguang+1,zonefkrsrs = zonefkrsrs+1,zonefkrs = zonefkrs+1,zonefkrs_s= zonefkrs_s+1 Where zoneid=" & uid)
end if
end if
rsfk.close
set rsfk=Nothing

end if
%>
<%

function zonedt(c)
dim rszonedt
set rszonedt=Server.CreateObject("ADODB.Recordset")
rszonedt.open"select * from zonedt_my where gid="&uid&" and cid="&myid,conn,1,2
rszonedt.addnew
rszonedt("txt")="<a href=""index.asp?uid="&myid&"&amp;sid=[sid]"">"&myni&"</a>"& c &""
rszonedt("cid")=myid
rszonedt("gid")=uid
rszonedt("yid")=0
rszonedt("htm")=now()
rszonedt.update
rszonedt.close
set rszonedt=nothing
end function
function Lasts()
	response.Write ">><a href='index.asp?sid=" & sid & "'>我的空间</a>" & vbNewLine
	response.write "<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a>" & vbNewLine
  response.write "<a href='so.asp?sid=" & sid & "'>搜索</a>" & vbNewLine
  response.write "<a href='/index.asp?sid=" & sid & "'>首页</a><br/>" & vbNewLine
End function
Function zonehead()
 Response.ContentType = "text/vnd.wap.wml"
    Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
    Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">"
    Response.Write "<wml>"
    Response.Write "<head>"
    Response.Write "<meta name=""keywords"" content=""龙门建站saytk.com"" />"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache""/>"
    Response.Write "</head>"
	
End Function
function zonecard(a,b)

if b="" then b="left"
Call saycard("" & a & "","" & b & "")

end function

function zonecardy(d,e)

Call cardz("" & d & "","" & e & "")

end function
Public Sub zoneLast()
response.write"<br/>----------<br/>"
response.write"<a href='/bbs/blog/index_gl.asp?sid="&sid&"&amp;saytk="&saytk&"'>个人中心</a>>>"

response.write"<a href='/bbs/?sid="&sid&"&amp;saytk="&saytk&"'>社区</a>>>"
response.write"<a href='/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>首页</a><br/>"
Response.write ">><a href='/bbs/show.asp?sid="&sid&"&amp;saytk="&saytk&"'>我的小屋</a><br/>"

Response.write "报时:"
Response.write now()

end sub
function hydt(c)
dim rsdt
set rsdt=Server.CreateObject("ADODB.Recordset")
rsdt.open"select * from hydt where uid="&myid,conn,1,2
if rsdt.eof then
rsdt.addnew
end if
rsdt("txt")="<a href=""/bbs/uinfo.asp?id="&myid&"&amp;sid=[sid]"">"&myni&"</a>"& c &""
rsdt("uid")=myid
rsdt("tm")=now()
rsdt.update
rsdt.close
set rsdt=nothing
end function
function zone_Page(PageCount,Page,Str_Url,intRecordCount,Sort)
if page-pagecount<0 then Response.Write "<a href="""&Str_Url&"&amp;"&Sort&"="&(page+1)&""">下页</a>"
	if page>1 then Response.Write "<a href="""&Str_Url&"&amp;"&Sort&"="&(page-1)&""">上页</a>"
Response.Write "(" &Page& "/" &PageCount& "/" &intRecordCount& ")<br />"
If V = 2 Then
Response.Write "<form method=""post"" action="""&Str_Url&""">"&_
			    	"<input type=""text"" name="""&Sort&""" emptyok=""true"" value=""" &Page + 1& """ maxlength=""3"" size=""3"" />页" &_
				    "<input type=""submit"" value=""GO"" class=""submit""/></form><br/><br />" 
Else
Response.Write "<input type=""text"" name="""&Sort&""" emptyok=""true"" value=""" &Page + 1& """ size=""3"" format=""*N"" />页" &_
				    "<a href="""&Str_Url&"&amp;"&Sort&"=$("&Sort&")"">跳页</a><br />"
End If
end function
function Error(erstr,erstra)
  conn.close
  set conn=Nothing
  if saytk>1 then
Response.Write "<title>" & erstr & "</title></head><body>"
  else
Response.Write "<card title=""" & erstr & """><p align=""left"">"
  end if
Response.Write ""&erstra&""
  if saytk>1 then
Response.Write "<br/><a href=""javascript:window.history.back(1);"">返回</a>"&_
            ""
  else
Response.Write "<br/><anchor><prev/>返回</anchor>"&_
              "</p></card></wml>"
  end if
  Response.end
end function

function Errorh(erstra)
  conn.close
  set conn=Nothing
Response.Write ""&erstra&""
  if saytk>1 then
Response.Write "<br/><a href=""javascript:window.history.back(1);"">返回</a>"&_
            ""
  else
Response.Write "<br/><anchor><prev/>返回</anchor>"&_
            "</p></card></wml>"
  end if
  Response.end
end function
function zonepost(vname)
if saytk<>1 then
Response.Write "<form action="""& vname &""" method=""post"">"
end if
end function
%>
