checkuser.asp

来自「一个不错的论坛原代码」· ASP 代码 · 共 49 行

<%'------------------检查回复后才能观看程序-----------------
chkbanzhu=false
chkreply=false
chktopic1=false

if isuser and issupermaste=false and ismaster=false then
'检查版主
sqlchecadmin="select l_banzhu from lanmu where l_id="&chktopic(request.querystring("l_id"))&""
set rschecadmin=conn.execute(sqlchecadmin)
if not (rschecadmin.eof or rschecadmin.bof) then
l_banzhu=rschecadmin("l_banzhu")
if not isnull(l_banzhu) and l_banzhu<>"" and cpbusername<>"" then
  if instr(l_banzhu,cpbusername)>0 then
 chkbanzhu=true
 chktopic1=true
chkreply=true
  end if
  end if
  end if
  
if chkbanzhu=false then


'检查主题作者
sqlcheckreply="select  t_username from topic where l_id="&chktopic(request.querystring("l_id"))&" and t_id="&chktopic(request.querystring("t_id"))&" and t_username='"&cpbusername&"'"
set rscheckreply=conn.execute(sqlcheckreply)
if not (rscheckreply.eof or rscheckreply.bof) then
chktopic1=true
chkreply=true
end if
set rscheckreply=nothing


if chktopic1=false then
sqlcheckreply="select  r_username from reply where l_id="&chktopic(request.querystring("l_id"))&" and t_id="&chktopic(request.querystring("t_id"))&" and r_username='"&cpbusername&"'"
set rscheckreply=conn.execute(sqlcheckreply)
if not (rscheckreply.eof or rscheckreply.bof) then
chkreply=true
end if
set rscheckreply=nothing
end if
end if
else
chkreply=false


end if
'----------------------------------------检查结束-----------------
%>