<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Admin_SQLTag.aspx.vb" Inherits="b2bNet.Admin_SQLTag" %>
<%On Error Resume Next%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="inc/admin_style.css" rel="stylesheet" type="text/css" />
<title><%=AppConst.SiteName%></title>
<script type="Text/JavaScript" language=javascript>
//反选ＩＤ复选框
function selectAllCheckBox(obj)
{
	if(obj.length)
	{
		for(var i=0;i<obj.length;i++)
		{
			obj[i].checked=!obj[i].checked
		}
	}else{
		
		obj.checked=!obj.checked
	}
}
function WorkSubmit(send){
	if(confirm("您确定要进行您现在的操作吗？")){
		ListNews.action="Article_action.aspx?channelid=<%=channelid%>&action="+send+"";
		ListNews.submit();
		}
}

function ImportDll()
{
    if (confirm("请将 b2b.ST*.dll 标签文件上传至 bin 目录下，然后点击确定继续！"))
    {
        window.location = 'Admin_SQLTag.aspx?action=restdll';
    }
}

function Del(name,id)
{
    if (confirm("确定要删除“" + name + "”标签吗？"))
    {
        window.location = 'Admin_SQLTag.aspx?action=del&id=' + id;
    }
}
</script>
<script type="Text/JavaScript" language="javascript" src="inc/title.js"></script>
</head>
<body style="margin-top:0; margin-left:0">
<table style="height:22; width:100%" border="0" cellpadding="0" cellspacing="1">
        <tr class="topbg"> 
          <td style="height:22" align="center" class="topbg"><strong>系统动态标签列表</strong></td>
        </tr>
</table>
<table style="width:100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td style="width:25"><div align="center"><img src="<%=AppConst.SiteUrl%>/<%=AppConst.Skinpath%>/gojump01.gif" width="16" height="16" /></div></td>
    <td><a href="Admin_SQLTag_Add.aspx">添加</a> | <a href="#" onclick="ImportDll();">导入</a></td>
  </tr>
</table>
<table style="width:100%" border="0" align="center" cellpadding="1" cellspacing="1" class="border">
    <form name="ListNews" method="post" onsubmit="return check();">
      <tr align="center" class="Title">
        <td style="height:22; width:60"><strong>ID</strong></td>
        <td><strong>标签名</strong></td>
        <td style="width:100"><div align="center"><strong>模板调用</strong></div></td>
        <td><strong>SQL语句</strong></td>
        <td style="width:160"><strong>操作</strong></td>
      </tr>
      <%Dim i = 0 : Do While Not rslist.EOF AndAlso i < rslist.PageSize%>
      <tr class='tdbg' onmouseout="this.className='tdbg'" onmouseover="this.className='tdbgmouseover'">
        <td style="width:60" align="center"><%=rslist("id").Value%></td>
        <td><%=rslist("T_NAME").Value%></td>
        <td>[ST,<%=rslist("T_NAME").Value%>(...)]</td>
        <td><%=rslist("T_SQL").Value %></td>
        <td align="right"><a href="Admin_SQLTag_edit.aspx?id=<%=rslist("id").Value%>">编辑</a> | <a href="#" onclick="Del('<%=rslist("T_NAME").Value%>', <%=rslist("id").Value%>)">删除</a> | <%If IsTrue(rslist("IsUsable").Value) Then%><a href="?action=disable&id=<%=rslist("id").Value%>">禁用</a><%Else%><a href="?action=enable&id=<%=rslist("id").Value%>">启用</a><%End If%></td>
      </tr>
      <% i = i + 1 : rslist.MoveNext() : Loop%>
  </form>
</table>
<table style="width:100%"  border="0" cellpadding="5" cellspacing="0">
    <tr>
        <td><%=Pagination(rslist.pagecount, IsNull(Request("page"), 1), rslist.recordcount, rslist.pagesize)%></td>
    </tr>
</table>
</body>
</html>
