用户加入社区逻辑验证-优快云博客

本文展示了一段用于验证用户是否可以加入特定社区的ASP代码。该代码检查用户身份（如是否已登录、是否为创建者、管理员或成员等），并根据这些条件决定用户能否加入。若用户无法加入，则会显示相应的错误消息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%
if request.Cookies("userid")="" then
Response.Write "<script>alert('用户加入出错，下面是产生错误的可能原因：\n\n·对不起，您还没有登录!，不能申请加入');history.go(-1);</Script>"
Response.End
end if
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&trim(request.Cookies("userid"))&" and "&WebSqlType&"_Cid="&trim(request("Cid"))&" and "&WebSqlType&"_key=1",conn
if not rs.EOF then
Response.Write "<script>alert('用户加入出错，下面是产生错误的可能原因：\n\n·对不起，您是创使人!，不能加入!');history.go(-1);</Script>"
Response.End
end if
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&request.Cookies("userid")&" and "&WebSqlType&"_Cid="&request("Cid")&" and "&WebSqlType&"_key=2",conn
if not rs.EOF then
Response.Write "<script>alert('用户加入出错，下面是产生错误的可能原因：\n\n·对不起，您己经是圈子的管理员!，不能加入');history.go(-1);</Script>"
Response.End
end if
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&request.Cookies("userid")&" and "&WebSqlType&"_Cid="&request("Cid")&" and "&WebSqlType&"_key=3",conn
if not rs.EOF then
Response.Write "<script>alert('用户加入出错，下面是产生错误的可能原因：\n\n·对不起，您己经是圈子的成员!，不能再加入!');history.go(-1);</Script>"
Response.End
end if
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&request.Cookies("userid")&" and "&WebSqlType&"_Cid="&request("Cid")&" and "&WebSqlType&"_key=4",conn
if not rs.EOF then
Response.Write "<script>alert('用户加入出错，下面是产生错误的可能原因：\n\n·对不起，您己经申请了圈子的成员!，请等待审核!');history.go(-1);</Script>"
Response.End
end if
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cuserid="&request.Cookies("userid")&" and "&WebSqlType&"_Cid="&request("Cid")&" and "&WebSqlType&"_key=0",conn
if not rs.EOF then
Response.Write "<script>alert('用户加入出错，下面是产生错误的可能原因：\n\n·对不起，您己经申请了圈子的成员!，请等待审核!');history.go(-1);</Script>"
Response.End
end if
if clng(request("type"))=2 then
Response.Write "<script>alert('用户加入出错，下面是产生错误的可能原因：\n\n·对不起，圈子关闭!，不能加入!');history.go(-1);</Script>"
Response.End
else
key=0
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_Cmember"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_Cid")=request("Cid")
rs(""&WebSqlType&"_Ctitle")=request("Ctitle")
rs(""&WebSqlType&"_Cuserid")=request.Cookies("userid")
rs(""&WebSqlType&"_Cuser")=request.Cookies("username")
rs(""&WebSqlType&"_key")=key
rs.update
rs.close
conn.execute("update "&WebSqlType&"_club set "&WebSqlType&"_club="&WebSqlType&"_club+"&cint(trim(Cprice(1)))&" where "&WebSqlType&"_id="&request("Cid"))

set rs=nothing
Response.Write "<script>alert('用户加入成功');history.go(-1);</Script>"
response.Redirect("/quan.asp?id="&request("Cid")&"")
response.End()
%>

圈子添加