<%@ language="vbscript" %>
<!-- #include file="addvip.inc" -->
<%
Response.Expires=0
Response.Buffer=True

dim conn,sql,rs

Set Conn = CreateConn(adModeReadWrite,adUseClient)

if request("username")="" or request("level")="" then
response.write "<script>alert('出錯原因：請?zhí)钔晁锌瞻祝?#039;);history.go(-1)</script>"
response.end
end if

if request("level")<200 then
response.write "<script>alert('出錯原因：嘉賓默認(rèn)等級為200，設(shè)定等級請不要小于200！');history.go(-1)</script>"
response.end
end if

Sql="select username from echat_v3 where username='"&request("username")&"'"

Set Rs=Conn.Execute(Sql, ,adCmdText)

if rs.eof or rs.bof then
	response.write "<script>alert('出錯原因：這個用戶還沒有注冊，無法成為嘉賓！');history.go(-1)</script>"
	response.end
else
	Sql="update echat_v3 set chatlevel='"&request("level")&"' where username='menmen'"
	Conn.Execute Sql, ,adCmdText + adExecuteNoRecords
	response.write "<script>alert('添加成功：您已經(jīng)將"&request("username")&"添加為嘉賓！');history.go(-1)</script>"
	response.end
end if

Conn.Close
Set Conn = Nothing
%>