lockuser.asp

一个不错的论坛原代码

<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->

<%
cpbtitle="查看屏蔽用户"
call toptitle(l_title,cpbtitle)
%>
<% 
if request.querystring("l_id")="" then 
errormsg="<LI>很抱歉，你没有选择论坛,请从论坛首页正确登陆</li>"
call error(errormsg)
call bq()
response.end 
 end if

sql="select l_title,l_lockuser,l_pbuser from lanmu where l_id="&request.querystring("l_id")
set rs=conn.execute(sql)
 ltitle=rs("l_title")
call head(3,cpbusername&"的控制面板首页","userindex.asp",cpbtitle)
%>







 <table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse">        
                 <tr  align="center"> 
            <td width="30%" <%=tColor%> class=tdc1 height=25 colspan="2">屏蔽/禁止用户</td>
          </tr>
<%if not rs.eof then
l_lockuser=rs("l_lockuser")
l_pbuser=rs("l_pbuser")%>
 <tr  > 
            <td width="15%"  bgcolor=<%=tColor2%> class=tdc height=30 align=center>被屏蔽用户</td>
            <td width="85%" bgcolor=<%=tColor2%> class=tdc align="left"> <%if l_lockuser<>"" then
      l_lockuser1=split(l_lockuser, "|")
      for i=0 to ubound(l_lockuser1)%>
      <a href=viewuser.asp?username=<%=l_lockuser1(i)%> title=查看用户资料 target=_blank><%=l_lockuser1(i)%></a>
<%response.write(" ")
      next
      
    end if%>
　</td>
          </tr>
       <tr  > 
            <td width="15%" bgcolor=<%=tColor2%> class=tdc height=30 align=center>被禁止用户</td>
            <td width="85%" bgcolor=<%=tColor2%> class=tdc height=30 align="left"> <%if l_pbuser<>"" then
      l_lockuser1=split(l_pbuser, "|")
      for i=0 to ubound(l_lockuser1)%>
      <a href=viewuser.asp?username=<%=l_lockuser1(i)%> title=查看用户资料 target=_blank><%=l_lockuser1(i)%></a>
<%response.write(" ")
      next
      
    end if%>
</td>
          </tr>




<%else%>
<tr> 
            <td colspan="2" bgcolor=<%=tColor2%> class=tdc height=22>　<tr  align="center" height=23> 
            <td bgcolor=<%=tColor2%> class=tdc colspan="2" height=23>本版无屏蔽用户</td>
          </tr>
<%end if
set rs=nothing%>
</table>
</div>
<!--#include file="bq.asp" -->