checkuser.asp

单班同学录 一个非常漂亮的同学录 哦

<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="session.asp" -->
<!--#include file="conn.asp" -->
<%
if session("usergroup")=1 then
	response.write"<script>alert('对不起，您还没有经过同学验证，无权进入！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
	response.end
end if
userid=request.QueryString("id")
if userid="" then response.Redirect("error.asp")
set rs = server.CreateObject("adodb.recordset")
strsql="select userid,username,realname,usergroup from [user] where userid="&userid
rs.open strsql,conn,1,3
rs("usergroup")=2
rs.update
strsql="insert into mssg (mssgtext,mssguser,mssgtime) values('[color=#FF0000]本班有新同学[/color][color=#0000FF]"&rs("realname")&"("&rs("username")&"[/color])[color=#FF0000]加入[/color]','"&session("username")&"','"&now()&"')"
rs.close
conn.execute(strsql)
CloseDatabase
response.Redirect("index.asp")
%>