grade.asp

基于ASP开发的聊天室源码

    <td width="18" align="center"><%if gradeinfo(i,2)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,3)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,4)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,5)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,6)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,7)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%=gradeinfo(i,8)%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,9)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,10)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,11)=true then Response.Write "√"%>　</td>
    <td width="18" align="center"><%if gradeinfo(i,12)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,25)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,13)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,27)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,28)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,26)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,30)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,14)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,15)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,16)=true then Response.Write "√"%>　</td>
    <td width="19" align="center">
    <%if gradeinfo(i,17)=true and gradeinfo(i,21)<>true then
    Response.Write "√"
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center">
    <%if gradeinfo(i,17)=true and gradeinfo(i,21)<>true then
    Response.Write gradeinfo(i,18)
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center">
    <%if gradeinfo(i,19)=true and gradeinfo(i,21)<>true then
    Response.Write "√"
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center">
    <%if gradeinfo(i,19)=true and gradeinfo(i,21)<>true then
    Response.Write gradeinfo(i,20)
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center">
    <%if gradeinfo(i,21)=true then
    Response.Write "√"
    elseif gradeinfo(i,17)=true or gradeinfo(i,19)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center"><%if gradeinfo(i,22)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,23)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,24)=true then Response.Write "√"%>　</td>
    <td width="19" align="center"><%if gradeinfo(i,29)=true then Response.Write "√"%>　</td>
  </tr>
<%else%>
  <tr>
    <td width="17" align="center" bgcolor="#008080"><%=i%>　</td>
    <td width="68" align="center" bgcolor="#008080">
    <%if gradeinfo(i,0)=true and i<>0 and i<>1 then
    Response.Write gradeinfo(i,1)
    elseif i=0 or i=1 then
    Response.Write "-"
    end if%> 　</td>
    <td width="18" align="center" bgcolor="#008080">
    <%if gradeinfo(i,0)=true and i<>0 and i<>1 then
    Response.Write "√"
    elseif i=0 or i=1 then
    Response.Write "-"
    end if%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,2)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,3)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,4)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,5)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,6)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,7)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%=gradeinfo(i,8)%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,9)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,10)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,11)=true then Response.Write "√"%>　</td>
    <td width="18" align="center" bgcolor="#008080"><%if gradeinfo(i,12)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,25)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,13)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,27)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,28)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,26)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,30)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,14)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,15)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,16)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080">
    <%if gradeinfo(i,17)=true and gradeinfo(i,21)<>true then
    Response.Write "√"
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center" bgcolor="#008080">
    <%if gradeinfo(i,17)=true and gradeinfo(i,21)<>true then
    Response.Write gradeinfo(i,18)
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center" bgcolor="#008080">
    <%if gradeinfo(i,19)=true and gradeinfo(i,21)<>true then
    Response.Write "√"
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center" bgcolor="#008080">
    <%if gradeinfo(i,19)=true and gradeinfo(i,21)<>true then
    Response.Write gradeinfo(i,20)
    elseif gradeinfo(i,21)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center" bgcolor="#008080">
    <%if gradeinfo(i,21)=true then
    Response.Write "√"
    elseif gradeinfo(i,17)=true or gradeinfo(i,19)=true then
    Response.Write "-"
    end if%> 　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,22)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,23)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,24)=true then Response.Write "√"%>　</td>
    <td width="19" align="center" bgcolor="#008080"><%if gradeinfo(i,29)=true then Response.Write "√"%>　</td>
  </tr>

<%
end if
next%>
</table>
  </center>
</div>
<br>
注：只有室主允许的操作(或室主特权)：<br>
&nbsp;&nbsp;&nbsp; 1.更改系统参数<br>
&nbsp;&nbsp;&nbsp; 2.更改权限分配<br>
&nbsp;&nbsp;&nbsp; 3.压缩数据<br>
&nbsp;&nbsp;&nbsp; 4.手动清理管理日志(只能清理保存日期超过三天的管理记录。如果站长不清理，系统会自动清理保存日期超过7天的管理记录)<br>
&nbsp;&nbsp;&nbsp; 5.进入任何一个房间不受任何限制<br>
&nbsp;&nbsp;&nbsp; 6.不能被踢或封锁IP或轰炸<div align="center"><input type="button" value="关闭窗口" class="but" onclick="window.close()"></div>
</div>
<div align="right"><a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank"><font style="font-size:8.5pt" color="#EAEAEA">NowChat 2.2 - Powered by 喳喳鸟</font></a></div>
<%if Request("reload")="ok" then%>
<script language="javascript">
alert("操作成功！同时已经清空了在线人员，请点击名单区的“同步服务器”，否则你将无法看到新的在线名单列表。");
</script>
<%end if%>
</body></html>