<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="Class_Checkuser.asp" -->
<!--#INCLUDE FILE="Class_Top.asp" -->
<%
locat="快乐网签"
if membername="" Then
  	ErrMsg=ErrMsg+"<br>"+"<li>您还没有<a href=Class_Login.asp><font color=red>登录或注册校友录</font></a>。"
	Call top(1,1)
	Call Error("Information",ErrMsg)
	
	call footer()
else
call main()
end if
%>
<%
sub main()
	set rs=server.createobject("adodb.recordset")
	sql="select * from [scfav] where username='"&membername&"'"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		rs.close
		sql="select * from [scfav] where (id is null)"
		rs.open sql,conn,1,3
		rs.addnew
		rs("username")=membername
		rs("groups")="学习|娱乐|生活|资源|信息"
		rs("groupnum")=5
		rs.update
	end if
	response.redirect "n_url.asp"
end sub
%>