📄 orderlist.asp
字号:
<!-- #include file = "include/sysbase.asp" -->
<!-- #include file = "../include/config.asp" -->
<%
dim rsObj,strSQL
dim page, myKeyword, thisUrl, i, bShowAdd, sAddPage
page = Request.QueryString("page")
if (page = "" or IsEmpty(page)) then page = 1
thisUrl = "orderList.asp?true=1"
Session("adminOldUrl") = thisUrl&"&page = "&page
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM OrderList WHERE state = 0 "
strSQL = strSQL & " ORDER by id desc"
rsObj.Open strSQL, conn, 1,2
rsObj.pagesize = conMaxPerPage
%>
<html>
<head>
<title>????(maintance)</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
</head>
<body text = "#000000" leftmargin = "0" topmargin = "0">
<div align = "center"><br>
</div>
<table width = "99%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center">
<tr bgcolor = "#4296E7">
<form method = "post" action = "memberList.asp" name = "form1">
<td height = "28" colspan = "7" bgcolor="#FF0099">
<div align = "center"><font color="#FFFFFF">定单维护</font>(maintenance)</div> </td>
</form>
</tr>
<tr bgcolor = "#5EA5E6">
<td width = "4%" nowrap bgcolor="#FF0000"> num
<div align = "center"><font color = "#FFFFFF"> </font></div> </td><td width = "13%" nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">guest account </font></div> </td>
<td width = "10%" nowrap bgcolor="#000000"><font color = "#FFFFFF">guest name </font></td>
<td width = "26%" nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">address</font></div> </td>
<td width = "29%" nowrap bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">phone</font></div> </td>
<td width = "5%" nowrap bordercolor="#FFFF00" bgcolor="#000000">
<div align = "center"><font color = "#FFFFFF">Email</font></div> </td>
<td width = "6%" nowrap bgcolor="#FF0000">
<div align = "center"><font color = "#FFFFFF">detail</font></div> </td>
</tr>
<%
dim rsID
i = 1
if not (rsObj.eof or err) then rsObj.move (page-1)*conMaxPerPage
do while not (rsObj.eof or err)
rsID = rsObj("id")
%>
<tr>
<td width = "4%">
<div align = "center"><%=rsObj("id")%></div>
</td>
<%if rsObj("memberID")<>"0" then%>
<td width = "13%" title = "more detail" style = "cursor:hand" onClick = "Javascript:window.location = 'memModify.asp?memberID=<%=rsObj("memberID")%>'" nowrap><font color = red><b><%=rsObj("memberID")%></b></font> </td>
<%else %>
<td width = "10%">非会员(informal)</td>
<%end if %>
<td width = "26%" nowrap><%=rsObj("customerName")%></td>
<td width = "29%"><%=rsObj("address")%></td>
<td width = "5%" nowrap><%=rsObj("phone")%></td>
<td width = "6%" nowrap><%=rsObj("email")%></td>
<td width = "7%" title = "more detail" style = "cursor:hand" onClick = "Javascript:window.location = 'orderProcess.asp?id=<%=rsObj("id")%>'" nowrap>process</td>
</tr>
<%
i = i+1
if i>conMaxPerPage then exit do
rsObj.MoveNext
loop
%>
<tr bgcolor = "#4296E7">
<td colspan = "7" bgcolor="#FF3399">
<div align = "right"><font color = #FFFFFF><%=rsObj.recordCount%> item<%=page%>/<%=rsObj.pageCount%>page</font>
<%if page>1 then%>
<input type = "button" name = "Submit3" value = "home" onClick = "Javascript:jumpTo(1)">
<input type = "submit" name = "Submit4" value = "privious" onClick = "Javascript:jumpTo(2)">
<%else%>
<input type = "button" name = "Submit3" value = "home" disabled>
<input type = "submit" name = "Submit4" value = "privious" disabled>
<%end if
if rsObj.recordCount>page*conMaxPerPage then%>
<input type = "submit" name = "Submit5" value = "next" onClick = "Javascript:jumpTo(3)">
<input type = "submit" name = "Submit6" value = "last page" onClick = "Javascript:jumpTo(4)">
<%else%>
<input type = "submit" name = "Submit5" value = "next" disabled>
<input type = "submit" name = "Submit6" value = "last page" disabled>
<%end if%>
</div> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -