history.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 153 行
ASP
153 行
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!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" />
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<title></title>
<style type="text/css">
<!--
.STYLE1 {
color: #0099CC;
font-weight: bold;
}
.STYLE3 {color: #CC4A44}
.STYLE4 {color: #CE4942}
.STYLE5 {
color: #0033FF;
font-weight: bold;
}
-->
</style>
<script language="javascript">
function gook()
{
var i=confirm("你确定要删除吗？");
if(i)
{
return true ;
}
else
{
return false;
}
}
function isdeal()
{
var i=confirm("注意：此操作在一个月内只能进行一次并且必须(请确保本月竞价已经结束，审核工作已经结束才执行此操作！)------竞价成功(通过审核)的记录将保存到历史记录中，请注意竞价失败的记录将被删除，当前竞价数据将全部被清空,以备下次竞价使用！");
if(i)
{
return true ;
}
else
{
return false;
}
}
</script> <script language="javascript">
function isshen()
{
var i=confirm("请先确定该竞价者已经支付费用！该操作只在进行竞价处理操作执行前是可逆的，一旦通过审核，将在竞价处理操作执行后被删除！");
if(i)
{
return true ;
}
else
{
return false;
}
}
</script>
</head>
<%
'--删除记录----------------------------------------
action=Replace_Text(request("action"))
delid=Replace_Text(request("delid"))
ratedeal=Replace_Text(request("ratedeal"))
if action<>"" and delid<>"" then
conn.execute "delete from yixiang_history_price where id="&delid
end if
%>
<body>
<table cellpadding="1" cellspacing="1" border="0" width="100%" class="tableBorder" align="center">
<tr align="center">
<th height="25" align="center"><span class="tableHeaderText"><strong>历史竞价数据管理</strong></span> </th>
</tr>
<tr><td align="left"> <font color="red">◆</font> 操作提示：<font color="red">本系统针对每个关键字的竞价最多只保留前三名的成功记录！第三名以后的将全部删除！</font>
</td></tr>
</table>
<table cellpadding="0" bordercolor="#EBF1FA" cellspacing="0" border="1" width="98%" align="center">
<tr ><td >
<table cellpadding="0" bordercolor="#EBF1FA" cellspacing="0" border="0" width="100%" align="center">
<tr><td colspan="7" align="center" height="1" bgcolor="#D1D1D1"></td></tr>
<tr height="25" bgcolor="#C6CFE7" style="color:#000000"><td width="28%" > 竞价的关键词 </td>
<td width="32%" >竞价公司</td>
<td width="9%" > 竞价金额 </td>
<td width="16%" > 竞价时间 </td>
<td width="5%">操作</td>
</tr>
<tr><td colspan="7" height="1" bgcolor="#006699"></td></tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from yixiang_history_price order by keywords,price desc,addtime desc "
rs.open sql,conn,1,1
msg_per_page=40'定义每页显示记录条数
if rs.eof then
response.Write("<tr><td colspan=7 align=center height=50><font color=red>暂无任何记录!</font></td></tr>")
end if
if not rs.eof then
%>
<!--#include file="../../inc/headpage.asp"-->
<%
j=1
do while not rs.eof and rowcount > 0
%>
<tr <%if j mod 2=0 then response.Write("bgcolor=#F7F7F7 onMouseOut=""this.style.backgroundColor='#F7F7F7'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'""") else response.Write("bgcolor=#ffffff onMouseOut=""this.style.backgroundColor='#ffffff'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'""") end if%> height="25"><td >
<font color="#4983BC"><b><%=rs("keywords")%></b> </font> </td> <td>
<%
set rsg=server.CreateObject("adodb.recordset")
sqlg="select * from wygkcn_corporation where id="&rs("gsid")
rsg.open sqlg,conn,1,1
if not rsg.eof then
%>
<a href="../vipgrade/edit.asp?id=<%=rsg("id")%>"><%=rsg("qymc")%></a>
<%
else
response.Write("不详")
end if
rsg.close
%></td>
<td><font color="red"><%=rs("price")%></font> <font color="#666666">元</font></td><td><font color="#666666"><%=rs("addtime")%></font></td> <td><a href="history.asp?action=del&delid=<%=rs("id")%>" onClick="return gook();">删除</a></td> </tr>
<%
j=j+1
rowcount=rowcount-1
rs.movenext
loop
%>
<tr><td colspan="7" align="center" ><%=listPages("history.asp")%></td></tr>
<%
rs.close
end if
%>
</table>
</td> </tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?