⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 keywords.asp

📁 实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下:管理员通过登录该系统
💻 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%>
<!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 %>
</head>

<body leftmargin="10" topmargin="10" marginwidth="10" marginheight="10">
<table width="100%" border="0" cellspacing="0" cellpadding="10">
  <tr>
    <td>
<table width="99%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
  <tr>
    <td width="2%" bgcolor="#efefef" nowrap>选择</td>
    <td width="50%" bgcolor="#efefef">关键词(点开管理企业)</td>
    <td width="29%" bgcolor="#efefef">价格</td>
    <td width="20%" bgcolor="#efefef">操作</td>
  </tr>
  <form action="Keywords.asp" method="post" target="_self">
<%set rs= Server.CreateObject("ADODB.Recordset")
rs.open("select * from SMT_Keywords"),conn,1,1
if not rs.eof or not rs.bof then
rs.pagesize=20
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page 
do while not rs.eof%>
  <tr>
    <td><input type="checkbox" name="id" value="<%= rs("id") %>" style="border:0" /></td>
    <td><a href="Keywords_yp.asp?KeywordsID=<%= rs("id") %>"><%= rs("Keywords") %></a></td>
    <td><%= rs("Price") %>元</td>
    <td><a href="Keywords_edit.asp?id=<%= rs("id") %>">修改</a> <a href="javascript:if(confirm('确定要删除?不可恢复!')){window.location='Keywords_save.asp?action=del&id=<%= rs("id") %>'}">删除</a> <a href="Keywords_yp_add.asp?keywordsID=<%= rs("ID") %>">添加企业</a></td>
  </tr>
<% 
rs.movenext
loop
else%>
  <tr>
    <td colspan=4>没有记录</td>
  </tr>
<%end if %>
<tr>
<%filename="Keywords.asp?action=query"%>
<td colspan=5 align=right bgcolor=#cccccc>
	  共 <%=Rs.pagecount%> 页 
      <% if page>1 then %>
      <a href=<%=filename%>><strong>|<<</strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>><strong><<</strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>><b>[<%=page-1%>]</b></a>&nbsp; 
      <%end if%>
	  <b>[<%=page%>]</b>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>&page=<%=page+1%>><b>[<%=page+1%>]</b></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page+1%>><strong>>></strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=Rs.pagecount%>><strong>>>|</strong></a>&nbsp; 
	  <%end if%>
  <input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form)" style="border:0">全选
 <input type="submit" name="Submit" value="删 除">&nbsp;&nbsp;</td>
 </tr></form>
</table></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -