📄 keywords_yp.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp" -->
<!--#include file="../cook.asp"-->
<%if fla17<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End
end if%>
<% page=Trim(Request.QueryString("page"))
if page="" or not isnumeric(page) then
page=1
else
page=cint(page)
end if
KeywordsID=request("KeywordsID")
if KeywordsID="" then
response.write "<script>alert('发生错误，系统传递参数丢失！');history.go(-1);</Script>"
Response.End
end if%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>关键词管理</title>
<%= citycss %>
<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body leftmargin="10" topmargin="10" marginwidth="10" marginheight="10">
<table width="100%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td>
<table width="100%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<tr bgcolor="#EFEFEF">
<td width="51%">企业</td>
<td width="34%">顺序</td>
<td width="15%">操作</td>
</tr>
<%
Set rsOD=conn.execute("select max(OD),min(OD) from SMT_Keywords_yp where KeywordsID="&KeywordsID&"")
MaxOD=rsOD(0)
MinOD=rsOD(1)
set rs= Server.CreateObject("ADODB.Recordset")
rs.open("select SMT_Keywords_yp.*,SMT_yp.SMT_coname from SMT_Keywords_yp left join SMT_yp on SMT_Keywords_yp.SMT_yp_id=SMT_yp.SMT_id where KeywordsID="&KeywordsID&" order by OD ASC,id ASC"),conn,1,1
if not rs.eof or not rs.bof then
do while not rs.eof%>
<tr>
<td><%= rs("SMT_coname") %></td>
<td><%= rs("OD") %></td>
<td><a href="javascript:if(confirm('确定要删除？不可恢复！')){window.location='Keywords_yp_save.asp?action=del&id=<%= rs("id") %>'}">删除</a> <% If rs("OD")<>MinOD Then %><a href="Keywords_yp_save.asp?action=up&id=<%= rs("id") %>">升</a> <% End If %><% If rs("OD")<>MaxOD Then %><a href="Keywords_yp_save.asp?action=down&id=<%= rs("id") %>">降</a> <% End If %></td>
</tr>
<%
rs.movenext
loop
else%>
<tr>
<td colspan=3>没有记录</td>
</tr>
<%end if %>
<tr><td colspan="3" bgcolor="#cccccc"><div align="right">
<input name="Submit" type="button" onclick="MM_goToURL('self','Keywords_yp_add.asp?keywordsID=<%= keywordsID %>');return document.MM_returnValue" value="添加企业列表" />
</div></td></tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -