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

Px=ChkStr(Request("Px"),1)

If Px="" Then Px="SetTaxis"

Call PxFilter(Px,"ID,SetFlag,SetFlag_2,SetDesc,SetType,SetTaxis")

Sql="Select SetBClassDesc From CFCount_SetBClass Where SetBClassFlag='"&SetBClassFlag&"'"
Set Rs=Conn.Execute(Sql)
SetBClassDesc=Rs("SetBClassDesc")

Sql="Select SetSclassDesc From CFCount_SetSClass Where SetBClassFlag='"&SetBClassFlag&"' And SetSClassFlag='"&SetSClassFlag&"'"
Set Rs=Conn.execute(Sql)
SetSclassDesc=Rs("SetSclassDesc")

Sql="Select * From CFCount_SetContent Where SetBClassFlag='"&SetBClassFlag&"' And SetSClassFlag='"&SetSClassFlag&"' Order By "&Px
Set Rs=Conn.execute(Sql)
%>
<table class="tb_1">


	<tr> 
      <td colspan="8"><a href="?Action=setcontentadd&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>" class="t_button">增加三级设置配置</a>
<a href="?Action=setsclasslist&SetBClassFlag=<%=SetBClassFlag%>" class="t_button">返回二级设置配置</a>
<a href="?Action=setbclasslist" class="t_button">返回一级设置配置</a></td>
    </tr>



    <tr class="tr_1"> 
      <td colspan="8">三级配置列表 当前位置：<%=SetBClassDesc%>-<%=SetSclassDesc%></td>
  </tr>
  	
	<tr class="tr_2"> 
      <td class="td_nowrap"><a href="?Action=<%=Action%>&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>&Px=ID">序号</a></td>
      <td class="td_nowrap"><a href="?Action=<%=Action%>&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>&Px=SetFlag">设置标识</a></td>
      <td class="td_nowrap"><a href="?Action=<%=Action%>&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>&Px=SetFlag_2">设置副标识</a></td>
      <td class="td_nowrap"><a href="?Action=<%=Action%>&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>&Px=SetDesc">设置描述</a></td>	 
      <td class="td_nowrap"><a href="?Action=<%=Action%>&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>&Px=SetType">设置类型</a></td>
      <td class="td_nowrap"><a href="?Action=<%=Action%>&SetBClassFlag=<%=SetBClassFlag%>&SetSClassFlag=<%=SetSClassFlag%>&Px=SetTaxis">排序数字</a></td>
      <td class="td_nowrap">值</td>
      <td class="td_nowrap">操作</td>
    </tr>
<%
while not rs.eof
I=I+1
%>
    <tr class="tr_2"> 
      <td class="td_nowrap"><%=I%></td>
      <td class="td_nowrap"><%=rs("SetFlag")%></td>
	  <td class="td_nowrap"><%=rs("SetFlag_2")%></td>
      <td><%=rs("SetDesc")%></td>
      <td class="td_nowrap">
<%
If rs("SetType")=1 Then
 Response.write "内部设置"
ElseIf rs("SetType")=2 Then
 Response.write "外部设置"
End If
%></td>
      <td class="td_nowrap"><%=rs("SetTaxis")%></td>
      <td class="td_nowrap"><input name="textfield" type="text" value="<%=server.HTMLEncode(rs("SetValue"))%>" size="8" readonly /></td>
      <td class="td_3 td_nowrap">
<%
If Rs("SetType")=2 Then
 Response.write "&nbsp;&nbsp;<a href='AdminUser.aspx?Action=setcontentdel&SetFlag="&Rs("SetFlag")&"&SetBclassFlag="&Rs("SetBclassFlag")&"' onClick=""return confirm('确定要删除吗?')"">删除</a>"
End If

Response.write "<a href='?Action=setcontentmodify&SetFlag="&rs("SetFlag")&"' class='t_button'>修改</a>"
%>
</td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>