addvip.asp

聊天

<%@ 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('出错原因：请填完所有空白！');history.go(-1)</script>"
response.end
end if

if request("level")<200 then
response.write "<script>alert('出错原因：嘉宾默认等级为200，设定等级请不要小于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('添加成功：您已经将"&request("username")&"添加为嘉宾！');history.go(-1)</script>"
	response.end
end if

Conn.Close
Set Conn = Nothing
%>