📄 buylist.asp
字号:
<% response.buffer=true %>
<!--#include file="conn.asp"-->
<!-- #include file="adovbs.inc" -->
<!--#include file="error.asp"-->
<%
'Lex.Shi code
user=session("user")
pwd=session("pwd")
chkuser user,pwd
%>
<%
on error resume next
dim currentPage,rowCount,i
sql="select * from PayProduct order by id desc"
'response.Write sql & request("currentPage")
'---------------------------------------------------------connect_recordset---begin--
currentPage=trim(request("currentPage"))
if currentPage="" then
currentPage=1
end if
currentPage=cINT(currentPage)
set rs=Server.CreateObject("ADODB.Recordset")
rs.PageSize=15 '-----每页15条记录---
rs.CursorType = adOpenStatic '---*-
rs.CursorLocation = adUseServer '--*--
rs.open Sql,Conn,adOpenStatic
'---------------------------------------------------------connect_recordset---end--
%>
<html>
<head>
<title>- 购买商品管理 - </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<!-- #include file="select.js" -->
</head>
<body bgcolor="#FEFBF1" background="images/sky2.gif" leftmargin=5 topmargin=0>
<p align="center"></p>
<p align="center"></p>
<div align="center"><br>
<font color="0099FF">购买商品管理</font> </div>
<div align=center>
<table width=742><tr>
<td bgcolor=#FEFBF1>
<%
if rs.eof then
showerr "没有信息！","buylist.asp"
else
rs.AbsolutePage=cINT(currentPage)
if currentPage>rs.PageCount then
currentPage=rs.PageCount
end if
%>
<form name="f_member" action="buylist.asp?idd=1" method="get">
<% ShowPage %>
<% ShowTitle %>
<%
rowCount=0
k=0
while not rs.eof and rowCount<rs.PageSize
k=k+1
T_Id=rs("Id")
usr=trim(rs("usr"))
tel=trim(rs("tel"))
post=trim(rs("post"))
addr=rs("addr")
product=trim(rs("product"))
num=rs("num")
price=trim(rs("price"))
paycls=trim(rs("paycls"))
DisplayData
rowCount=rowCount+1
rs.MoveNext
wend
%>
<% ShowFunction %>
</form>
<% ShowSubmitForm %>
<%
end if
%>
<table cellspacing=0 cellpadding=0 border=0><tr><td height=1 bgcolor=black></td></tr></table>
</td>
</tr></table>
<table width="56%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="10"> <div align="center"></div></td>
</tr>
<tr>
<td height="10"> <div align="center"><font size="2" face="宋体" color="#CCCCCC"><font color="#999999">CBUBS科技有限公司提供技术支持</font></font></div></td>
</tr>
<tr>
<td height="20"><div align="center"></div></td>
</tr>
</table>
</div>
<% Sub ShowPage()%>
<table width="742" cellpadding="0" cellspacing="1" bordercolor="#000000" border="0" >
<tr bgcolor="#FFFFFF">
<td height=25 colspan=8 align="right" valign="top" bgcolor="#B5E6FD" class="bfont">
<font color='#000000'>
<%
if currentPage<>1 then
response.write("<a href=memberlist.asp?currentPage=1>首页</a> ")
response.write("<a href=memberlist.asp?currentPage="& (currentPage-1) &">上一页</a> ")
else
response.write("首页 上一页 ")
end if
if currentPage<>rs.PageCount then
response.write("<a href=memberlist.asp?currentPage="& (currentPage+1) &">下一页</a> ")
response.write("<a href=memberlist.asp?currentPage="& rs.PageCount &">末页</a> ")
else
response.write("下一页 末页 ")
end if
%>
</font> 页次:<strong><font color='red'><%=currentPage%></font></strong>/<%=rs.pagecount%>页
共:<font color='red'><b><%=rs.RecordCount%></b></font>个会员
</td>
</tr></table>
<% end sub %>
<% Sub ShowTitle() %>
<table width="742" height="11%" cellpadding="1" cellspacing="1">
<tr bgcolor="#f2f2f2">
<td height=16 nowrap class="bfont" width="21"> </td>
<td height=16 nowrap class="bfont" width="61"> <div align=center>序号</div></td>
<td height=16 class="bfont"><div align="center">名称：</div></td>
<td height=16 nowrap class="bfont" width="86"> <div align="center">操作</div></td>
</tr>
</table>
<% end sub %>
<% Sub DisplayData() %>
<table width="742" cellpadding="2" cellspacing="1" bgcolor=#E9EEF3>
<%
if(k mod 2)<>0 then
response.write"<tr bgcolor='#FFFFFF'>"
else
response.write"<tr bgcolor='#eeeeee'>"
end if
%>
<td width="26" nowrap class="bfont"> <input type="checkbox" name="SelectMemberId<%=rowCount%>" value="<%=T_Id%>"> </td>
<td nowrap class="bfont" width="52"> <div align="center"><%=k%></div></td>
<td nowrap class="bfont" align="left">姓名：<%=usr%>； 电话：<%=tel%>； 邮编：<%=post%>； <br>地址：<%=addr%>； <br>商品名称：<%=product%>； 购买数量：<%=num%>； 价格：<%=price%>； 方式：<%=paycls%></td>
<td class="bfont" nowrap width="80"> <div align="center"><a href="javascript:OMDD('<%=T_Id%>')">[删除]</a></div></td>
</tr>
</table>
<% end sub %>
<%Sub ShowFunction() %>
<table width="742" height="1%" cellpadding="0" cellspacing="0">
<tr bgcolor="#DAFDFE">
<td height=11 colspan=8 align="right" valign="top" bgcolor="#B5E6FD" class="bfont">
〖
<input type="checkbox" name="allbox" onClick="CA()">
<font size="2" class="bfont">全部选中 </font> 〗 〖<a href='javascript:MDD()'><font size="2" class="bfont">删除选中的记录</font></a>〗 </td>
</tr></table>
<% end sub %>
<%Sub ShowSubmitForm() %>
<form name="showMemberdetail" action="?idd=3" method="POST">
<input type="hidden" name="MemberIdUni">
</form>
<form name="deleteMemberdetail" action="buydele.asp?hot=1" method="POST">
<input type="hidden" name="MemberIdUni">
</form>
<%end sub%>
<%
set rs=nothing
conn.close
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -