<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="Ex_Cls/Ex_CommonCls.asp"-->
<!--#include file="Ex_Cls/Ex_SplitPageCls.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>易心博客--日志标签Tags插入</title>
</head>
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css"> 
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<script language="JavaScript">
	function insert(v)
	{
		var vt=opener.document.getElementById("tags").value;
		if (vt=="")
		{
			opener.document.getElementById("tags").value=v;
		}
		else
		{
			opener.document.getElementById("tags").value=vt+" "+v;
		}
		return false;
	}
</script>
<% 
Dim ExComm
Set ExComm=new Ex_CommonCls
	ExComm.IsAdLogin 
	ExComm.IsIpAllow
  Dim ExPages,page,Rs
  Set ExPages=new Ex_SplitPageCls
  Expages.letConn=Conn
  Expages.letColumns="select *"
  ExPages.letDataFrom="from Ex_Tags"
  ExPages.letOrder=""
  Set rs=server.CreateObject("adodb.recordset")
  Expages.letPageSize="15"
  If ExComm.G(request("page"))="" Then
	page=1
  Else
	page=ExComm.G(request("page"))
  End if
  ExPages.letPage=CInt(page)
  ExPages.letStrPage=""
  ExPages.Execute()
 %>
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr>
    <th class="topbg" colspan="3">所有关键字</th>
  </tr>
  <tr>
    <td align="center" class="tdbg">关键字</td>
    <td align="center" class="tdbg">次数</td>
    </tr>
  <%
 Set Rs=ExPages.getRs()
    If ExPages.getRsCount<>0 Then
       Do While Not rs.eof
   %>
  <tr>
     <td align="center" class="tdbg"><a href="#" onclick="return insert(this.innerText);"><%=Trim(rs("tagname"))%></a></td>
    <td align="center" class="tdbg"><%=rs("times")%></td>
    </tr>
  <%rs.movenext
   loop%>
   <tr>
     <td colspan="3" align="center" class="tdbg"><%=ExPages.Show%></td>
    </tr>
</table>
<%End if
%>
</body>
</html>
