<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->

<%Call head()
Call saycarda("高等学府")%>


<%
wap=request.querystring("wap")
iduse=Session("useid")
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select qs,love,mytl,myml,mych,myzl,xf,xl,id,myjb,nianji from users where id="&myid&""
  objgbrs.open ssql,conn
  if objgbrs("nianji")>=1 then
  Response.write "我晕~你已经是在读海岸高等学府了！"
  end if
  if objgbrs("nianji")=0 then
	sql="update users set nianji=1,xf=0 where id="&myid&""
    conn.execute(sql)
Response.write "哈哈,已经成为海岸高等学府的一员了,奋发读书吧!"
end if
conn.close
set conn=nothing
%><br/>
<a href='/bbs/school/school.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>高等学府</a>
<br/>
<%  
Call headsay()

%>