📄 order_list.asp

📁 增添网站节日气氛
💻 ASP
字号:
<!--#include file="../weblink/conn2.asp"-->

<% 
if request("action")="del" then
doid = Request("id")
delsql="DELETE * FROM orderon WHERE id="&doid
conn.Execute delsql,3
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看订单</title>
<link href="../../css/admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function cdel(id,pageno){
var id;
if (confirm("你真的要删除这条订单吗？")){
	document.location.href="order_list.asp?action=del&id="+id+"&pageno="+pageno;
	}
}
//-->
</script>
</head>
<body>
<br>
<br>
<TABLE width="80%" border=0 align="center" cellPadding=1 cellSpacing=1 bgColor=#FFFFFF  class="tableBorder">
    
      <TR align="center"> 
        <Th width="15%" height="26" >编号</Th>
        <Th width="39%" height="26">公司名称：</Th>
        <Th width="25%" height="26" >日期</Th>
        <Th width="21%" height="26">操作</Th>
      </TR>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from orderon"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td colspan=4 height=30 class=forumrow align=center>没有订单!</td></tr>"
pageno=1
mpage=1
else
rcount=rs.recordcount
pmcount=12
rs.pagesize=pmcount
mpage=rs.pagecount
pageno=request("pageno")
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if
rs.absolutepage=pageno	'将指针移至指定页的第一条记录
for i=1 to pmcount
%>
      <TR align="left"> 
        <TD height="26" class=forumrow>&nbsp;&nbsp;<%=rs("id")%></TD>
        <TD height="26"  class=forumrow>&nbsp;&nbsp;
        <% =rs("company")%></TD>
        <TD height="26"  class=forumrow>&nbsp;&nbsp;<%=rs("addtime")%></TD>
        <TD height="26"  class=forumrow>&nbsp;&nbsp;<a href="order_view.asp?id=<%=rs("id")%>">查看</a>&nbsp;&nbsp;&nbsp;<a href="javascript:cdel('<%=rs("id")%>','<%=pageno%>')">删除</a></TD>
</TR>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>    
</TABLE>
<table  width="80%" border=0 align="center" cellpadding=4 cellspacing=2>
<form name="form1" method="get" action="order_list.asp"><tr> 
<td align="right"> 
<%
If Pageno <>1 Then
	Response.Write "&nbsp;<A href=order_list.asp?pageno=1>第一页</A>&nbsp;"
	Response.Write "&nbsp;<A href=order_list.asp?pageno=" & (pageno-1) & ">上一页</A>&nbsp;"
Else
	Response.Write "&nbsp;第一页&nbsp;"
	Response.Write "&nbsp;上一页&nbsp;"
End If
If Pageno<>mpage Then
	Response.Write "&nbsp;<A href=order_list.asp?pageno="&pageno+1& ">下一页</A>&nbsp;"
	Response.Write "&nbsp;<A href=order_list.asp?pageno="&mpage&">最后一页</A>"
Else
	Response.Write "&nbsp;下一页&nbsp;"
	Response.Write "&nbsp;最后一页&nbsp;"
End If
%>&nbsp;&nbsp;当前位置：<%=pageno%>/<%=mpage%>页&nbsp;&nbsp;转到:<select name="pageno" size="1" onChange="javascript:submit()">
<%
for i=1 to mpage
Response.Write "<option value="&i&">第"&i&"页</option>"
next
%>
</select>
</tr></form>
</table>
<%
rs.close  
set rs=nothing  
conn.close
set conn=nothing            
%>
</body>
</html>
⌨️ 快捷键说明

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