<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
SetBclassFlag=ChkStr(Request("SetBclassFlag"),1)

Sql="Select * From CFCount_SetBClass Where SetBclassFlag='"&SetBclassFlag&"'"
Set Rs=conn.execute(Sql)
SetBClassDesc=Rs("SetBClassDesc")

Sql="Select * From CFCount_SetSClass Where SetBclassFlag='"&SetBclassFlag&"' Order By SetTaxis"
Set Rs=conn.execute(Sql)
%>      
        
<table class="tb_1">

  
<tr> 
<td  colspan="6"><a href="?Action=setsclassadd&SetBclassFlag=<%=SetBclassFlag%>" class="t_button">二级设置配置增加</a><a href="?Action=setbclasslist" class="t_button">返回一级设置配置列表</a></td>
  </tr>

    <tr class="tr_1"> 
      <td colspan="6">二级设置配置列表 当前位置：<%=SetBClassDesc%></td>
  </tr>
    
		  <tr class="tr_2"> 
            <td>序号</td>
            <td>设置位置标识</td>
            <td>设置位置描述</td>
            <td>设置类型</td>
			<td>排序数字</td>
            <td>操作</td>
          </tr>
<%
While Not Rs.eof
I=I+1
%>
<tr class="tr_2"> 
            <td><%=I%></td>
            <td><%=Rs("SetSClassFlag")%></td>
            <td><%=Rs("SetSclassDesc")%></td>
            <td><%
If rs("SetType")=1 Then
 Response.write "内部设置"
ElseIf rs("SetType")=2 Then
 Response.write "外部设置"
End If
%></td>
<td><%=Rs("SetTaxis")%></td>
<td class="td_3">
<%
Response.write "<a href='?Action=setsclassmodify&id="&Rs("ID")&"'>修改</a>"
If Rs("SetType")=2 Then
 Response.write "&nbsp;&nbsp;<a href='AdminUser.aspx?Action=setsclassdel&SetBClassFlag="&Rs("SetBclassFlag")&"&SetSClassFlag="&Rs("SetSClassFlag")&"' onClick=""return confirm('确定要删除吗?')"">删除</a>"
End If
Response.write "&nbsp;&nbsp;<a href='?Action=setcontentlist&SetBClassFlag="&SetBClassFlag&"&SetSClassFlag="&Rs("SetSClassFlag")&"' class='t_button'>管理</a>"
%>
</td>
  </tr>

<%Rs.movenext
wend%> 
</table>