www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/OrderManage/index.asp
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/admin.asp"-->
<!--#include file="../inc/PubCls.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
-->
</style>
<link rel="stylesheet" href="../Admin_Style.css"></head>
<body>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td height="26" style="background-image: url('../Images/topbg1.gif')"> <FONT COLOR="#FFFFFF">申请人列表</FONT></td>
</tr>
</table>
<form name="myform" >
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr align="center">
<td width="30%" height="20" class="tdbg"><strong> 公司（个人）名稱
</strong></td>
<td width="16%" class="tdbg" height="25"><strong>联系人</strong></td>
<td width="18%" class="tdbg"><strong>联系电话</strong></td>
<td width="18%" class="tdbg"><strong>申请时间</strong></td>
<td width="8%" class="tdbg"><strong>查看</strong></td>
<td width="10%" class="tdbg"><strong>删除</strong></td>
</tr>
<%
APage=request("APage")
if APage="" then
APage=1
end if
sql = "select * from OrderCase order by CreateTime desc"
set rs = server.createobject("ADODB.Recordset")
rs.open sql,conn,3,1
if not rs.eof then
'翻页
rs.PageSize=20
rs.AbsolutePage=APage
RCount=rs.RecordCount
PCount=rs.PageCount
for i=1 to rs.PageSize
if rs.eof then
exit for
end if
%>
<tr align="center">
<td class="tdbg" height="25"><%=rs("company")%></td>
<td class="tdbg"><%=rs("contact")%></td>
<td class="tdbg"><%=rs("tel")%></td>
<td class="tdbg"><%=rs("CreateTime")%></td>
<td class="tdbg">
<a href="OrderShow.asp?Id=<%=rs("Id")%>">查看</a></td>
<td class="tdbg"><a href="TakeOrderOk.asp?Id=<%=rs("Id")%>" onClick="return window.confirm('确实要删除吗?')">删除</a></td>
</tr>
<%
rs.movenext
Next
%>
<tr align="center">
<td colspan="6" class="bg-down-left"><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr align="center">
<td width="24%" class="tdbg" height="25"><a href="index.asp?APage=<%=1%>"><strong>首页</strong></a></td>
<td width="22%" class="tdbg">
<%if cint(APage) > 1 then%>
<a href="index.asp?APage=<%=APage-1%>&TypeId=<%=TypeId%>"><strong>上一页</strong></a>
<%end if%>
</td>
<td width="19%" class="tdbg">
<%if cint(APage) < cint(PCount) then%>
<a href="index.asp?APage=<%=APage+1%>&TypeId=<%=TypeId%>"><strong>下一页</strong></a>
<%end if%>
</td>
<td width="11%" class="tdbg"><a href="index.asp?APage=<%=PCount%>&TypeId=<%=TypeId%>" ><strong>末页</strong></a></td>
<td width="24%" class="tdbg"> <%=APage%>/<%=PCount%> <strong>共</strong><%=RCount%><strong>条记录</strong> </td>
</tr>
</table></td>
</tr>
<%
else
%>
<tr class="bg-down-left">
<td height="21" colspan="6">目前没有人申请！</td>
</tr>
<%
end if
rs.close
set rs = nothing
%>
</table>
</form>
</body>
</html>
<%
conn.close
set conn = nothing
%>