www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/user/ordermana.asp
<!--#include file="../inc/admin.asp"--> <!--#include file="../inc/conn.asp"--> <SCRIPT language=javascript> function ConfirmDel() { if(confirm("确定要删除选中的记录吗?一旦删除将不能恢复!")) return true; else return false; } </SCRIPT> <% dim SQL, Rs, contentID,CurrentPage,id id=request("id") CurrentPage = request("Page") contentID=request("ID") set rs=server.createobject("adodb.recordset") if id<>"" then sqltext="select * from product where sid="&id&" order by S_order" else sqltext="select * from orderlist where isok>0 order by id desc" end if rs.open sqltext,conn,1,1 dim MaxPerPage MaxPerPage=15 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call showpages call list If Rs.recordcount > MaxPerPage then call showpages end if '显示帖子的子程序 Sub list()%> <html> <head> <title>产品管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="../Admin_Style.css" rel="stylesheet" type="text/css"> <script language="javascript"> function checkAll() { for (var i=0;i<form1.elements.length;i++) { var e = form1.elements[i]; if (e.name != 'selectAll') e.checked = form1.selectAll.checked; } } </script> </head> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"> <br> <table width="816" border="0" cellspacing="0" cellpadding="0" class="border"> <form action="" method="post" name="form1"> <tr> <td height="26" colspan="3" style="background-image: url('../Images/topbg1.gif')"> <div align="center"><strong><FONT COLOR="#FFFFFF">订单管理</FONT></strong></div></td> </tr> <tr> <td><table width="100%" border="0" cellspacing="2" cellpadding="3"> <script language="javascript"> <!-- function menu_tree(meval){ var leftn=eval(meval); if (leftn.style.display=='none'){ eval(meval+".style.display='';"); }else{ eval(meval+".style.display='none';"); } } //--> </script> <tr bgcolor="#C0C0C0"> <td height="25" align="center" bgcolor="#E1F4EE"> ID</td> <td align="center" bgcolor="#E1F4EE"> 订单号</td> <td align="center" bgcolor="#E1F4EE">产品名</td> <td align="center" bgcolor="#E1F4EE">姓名</td> <td align="center" bgcolor="#E1F4EE">订购数量</td> <td align="center" bgcolor="#E1F4EE">当前状态</td> <td align="center" bgcolor="#E1F4EE"> 操作</td> </tr> <% if not rs.eof then i=0 do while not rs.eof %> <tr bgcolor="#E3E3E3"> <td height="22" bgcolor="#E1F4EE"><div align="center"> <input name="checkid" type="checkbox" value="<%=rs("id")%>"> </div></td> <td align="center" bgcolor="#E1F4EE"><%=rs("orderid")%></td> <td align=center bgcolor="#E1F4EE"> <% set rs1=server.createobject("adodb.recordset") sql="select * from product where id="&rs("proid") rs1.open sql,conn,1,1 if rs1.eof then response.Write "no record" else response.Write "<a href='../../cpzsinfo.asp?id="&rs("proid")&"' target='_blank'>"&rs1("title")&"</a>" end if rs1.close set rs1=nothing %> </td> <td align=center bgcolor="#E1F4EE"><%=rs("username")%></td> <td align=center bgcolor="#E1F4EE"><%=rs("num")%></td> <td align=center bgcolor="#E1F4EE"> <% select case rs("isok") case 1 response.Write "未处理" case 2 response.Write "未到款" case 3 response.Write "已到款" case 4 response.Write "已发货" case 5 response.Write "处理完毕" end select %> </td> <td align="center" bgcolor="#E1F4EE"><a href="orderedit.asp?id=<%=rs("id")%>">修改</a></td> </tr> <% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %> <tr bgcolor="#C0C0C0"> <td height="25" colspan="10" bgcolor="#E1F4EE"><input name="selectAll" type="checkbox" class="input" onClick="javascript:checkAll();"> 选择/反选 <select name="liebiao" size="1" id="liebiao"> <option value="">选择操作</option> <option value="ShanChu">删除订单</option> </select> <input name="submit" type="submit" onClick="return confirm('确定执行本次操作?')" value="执行"> <% Response.write "<strong><font color='#000000'>-> 全部-</font>" Response.write "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条产品</font></strong> " Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage)& "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong> " If currentpage > 1 Then response.write "<strong><a href='?id="&id&"&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>" Response.write "<strong><a href='?id="&id&"&page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>" Else Response.write "<strong><font color='#000000'>上一页 </font></strong>" End if If currentpage < Rs.PageCount Then Response.write "<strong><a href='?id="&id&"&page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>" Response.write "<a href='?id="&id&"&page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong> " Else Response.write "" Response.write "<strong><font color='#000000'>下一页</font></strong> " End if 'response.write "</td><td align='right'>" 'response.write "<font color='#000000' >转到:</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&"> " 'response.write "<input class=buttonface type='submit' value='Go' name='cndok'> " %></td> </tr> </table> <% End sub rs.close %></td> </tr> </form> </table> <% 'if Request.form("liebiao")="Edit" then Call Edit 'if Request.form("liebiao")="setnew" then Call setnew 'if Request.form("liebiao")="nonew" then Call nonew 'if Request.form("liebiao")="hot" then Call hot 'if Request.form("liebiao")="nohot" then Call nohot if Request.form("liebiao")="ShanChu" then Call ShanChu Sub ShanChu checkid=trim(request("checkid")) If checkid="" Then Response.Write ("<SCRIPT language=JavaScript>alert('错误!\n\n您至少需要选择一个');javascript:window.close();</SCRIPT>") Response.end End If viewArray=Split(checkid, ",") Num = UBound(viewArray) For i=0 To Num conn.execute ("delete * from orderlist where id="&viewArray(i)&"") next response.Redirect "ordermana.asp" End sub %> <br> <br> </td> </tr> </table>