www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > Admin_InsertTags.asp
<%@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>