|
我想实现这样的功能,在管理员点击:该用户的用户名时就出现其购买过的所有产品: 也就是:<tr> <a href="goumai.asp?用户名=<%=Rs("用户名")%>" target="_blank">查看该用户购买的产品信息!</a> <% Set Rs = Server.CreateObject("Adodb.ReCordSet") Rs.open "Select * From 订购单 where 用户名='"&request("user")&"'order by 时间 DESC",Conn,3,3 if Not Rs.eof then %> <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="eeeeee"> <tr bgcolor="#FFCCFF"> <td width="22%">品名</td> <td width="23%">数量</td> <td width="24%">金额</td> <td width="16%">时间</td> <td width="15%">删除</td> </tr> <% curpage = Request.querystring("page") if curpage = "" then curpage = 1 RS.pagesize = 20 RS.absolutepage = Cint(curpage) for i = 1 to 20%> <tr bgcolor="ffffff"> <td><%=Rs("品名")%></td> <td><%=rs("数量")%></td> <td><%=rs("金额")%> </td> <td><%=rs("时间")%></td> <td> </td> </tr> <%Rs.movenext if Rs.eof then Exit for Next%> </table> <p><%else Response.Write("") end if%> </p> 其运行结果是:ErrOr, |
|