📄 tag.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
if request("action")="tag" then
tag=request("tag")
bhx=request("bh")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from NEWS where bh="+ bhx
rs.Open sql,conn,2,3
rs("tag")=""
rs.update
rs.close
set rs=nothing
response.Redirect("admin_right.asp?url=tag.asp&reason=成功删除tag标签!")
end if
if request("action")="xiangguan" then
tag=request("xiangguan")
bhx=request("bh")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from NEWS where bh="+ bhx
rs.Open sql,conn,2,3
rs("xiangguan")=""
rs.update
rs.close
set rs=nothing
response.Redirect("admin_right.asp?url=tag.asp&reason=成功删除tag标签!")
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>标签管理</title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div>
<div align="center">
<table width="861" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td background="image/item_bg.gif" class="STYLE2" id="new" style="border:#999999 1px solid"><div align="left">tag 标签管理 插件1.0</div></td>
</tr>
<tr>
<td><div align="left" class="STYLE13">因为标签主要是在寻找文章时候很方便,所以不需要更改设置，但是提示你,发布新闻的时候请添加tag的时候有规律,不要乱加,也可以不加,<span class="STYLE8">点击直接删除</span>！</div></td>
</tr>
<tr>
<td class="STYLE8">注意 点击直接删除！</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td class="tb1"><%
kong=""
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from NEWS where tag<>'"&kong&"'order by bh desc "
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
%>
<img src="image/btn_close.gif" width="16" height="16" />你没有添加新闻或者没有tag标签
<%
else
do while not rs.eof
%>
<a href="tag.asp?tag=<%=rs("tag")%>&action=tag&bh=<%=rs("bh")%>"><%response.Write(rs("tag")&" ")%></a>
<%
rs.movenext
if rs.eof then exit do
loop
end if
%></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE2" id="new" style="border:#999999 1px solid">相关新闻 标签管理</td>
</tr>
<tr>
<td class="STYLE13">相关新闻标签为调用的时候做模版使用,有重复的请慎重删除!</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td class="tb1"><%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from NEWS where xiangguan<>'"&kong&"'order by bh desc "
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
%>
<img src="image/btn_close.gif" width="16" height="16" />你没有添加新闻或者没有相关新闻标签
<%
else
do while not rs.eof
%>
<a href="tag.asp?tag=<%=rs("xiangguan")%>&action=xiangguan&bh=<%=rs("bh")%>">
<%response.Write(rs("xiangguan")&" ")%>
</a>
<%
rs.movenext
if rs.eof then exit do
loop
end if
%></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -