<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%titlename="我的求购"%>
<body onLoad="show(A41),show(A42)">
<!--#include file="../include/page.asp"-->
<!--#include file="top.asp"-->
<%hy "login.asp"%>
<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="22" colspan="2"></td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->
    </td>
<td width="582" height="280" valign="top">
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td><table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><font color="#FFFFFF" span class="C">我的求购</font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table>
          <table border="0" align="left" cellpadding="0" cellspacing="0">
            <tr>
              <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
              <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="qiugou.asp?userid=<%=myuserid%>">求购商品</a></span></font></td>
              <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
            </tr>
          </table>
        </td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="4" bgcolor="1E88C1"></td>
    </tr>
  </table>
  <div align="center">
    <%
Dim rsqg
huiyuan=Request.Cookies(Rikee)("huiyuan")
set rsqg=server.createobject("adodb.recordset")
sql="select * from qiugou where huiyuan='"&huiyuan&"' order by date DESC"
rsqg.open sql,conn,1,1

   response.write"<br><table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""tablebg"" bgcolor=""#efefef"">" & vbcrlf
	response.Write"<tr class=titletd>" & vbcrlf
	response.Write"<td width=5% align=center height=""21"" valign=""middle"" background=""../image/bk.gif"" bgcolor=#ffffff>浏览量</td>" & vbcrlf
	response.Write"<td width=20% align=center height=""21"" valign=""middle"" background=""../image/bk.gif"" bgcolor=#ffffff>信息标题</td>" & vbcrlf
	response.Write"<td width=15% align=center height=""21"" valign=""middle"" background=""../image/bk.gif"" bgcolor=#ffffff>发布时间</td>" & vbcrlf
	response.Write"<td width=10% align=center height=""21"" valign=""middle"" background=""../image/bk.gif"" bgcolor=#ffffff>状态</td>" & vbcrlf
	response.Write"</tr>" & vbcrlf
  if rsqg.eof then
   response.write"<tr class=td>" & vbcrlf
   response.write"<td bgcolor=#ffffff align=center colspan=4 height=21>您还没有任何求购信息记录</td>" & vbcrlf
   response.write"</tr>" & vbcrlf
   'response.write"</table>" & vbcrlf
else
	
   Do While Not rsqg.EoF and i<=rsqg.pagesize
if rsqg("sell")<>"" then
	Dim rsqgUSer,UserName
	sql="select huiyuan from huiyuan where huiyuan="& rsqg("sell")
	Set rsqguser=conn.execute(sql)
	if rsqguser.eof then
   	   username="不存在"
	else
	   username=rsqguser("huiyuan")
	end if
	end if
	response.Write"<tr class=td>" & vbcrlf
	response.Write"<td align=center bgcolor=#ffffff height=21>"& rsqg("c") &"</td>" & vbcrlf
	response.Write"<td align=center bgcolor=#ffffff><a href=""qiugouinfo.asp?qgid="& rsqg("id") &""">"& InterceptString(rsqg("mc"),20) &"</a></td>" & vbcrlf
	response.Write"<td align=center bgcolor=#ffffff>"& rsqg("date") &"</td>" & vbcrlf
	response.Write"<td align=center bgcolor=#ffffff><a href=""qiugoudel.asp?qgid="& rsqg("id")&""">删除</a></td>" & vbcrlf
	response.Write"</tr>" & vbcrlf
   rsqg.movenext
   Loop

	response.Write"<input name=act type=hidden value=qg>"& vbcrlf
	response.Write"</form>" & vbcrlf
	response.Write "<tr>"& vbcrlf
	response.Write "<td colspan=8 width=100% align=center bgcolor=#ffffff background=../image/bk1.gif height=21 algin=center>"& Vbcrlf

	response.Write "</td>"& vbcrlf
	response.Write "</tr>" & Vbcrlf
end if	
	response.Write"</table>" & vbcrlf
	response.Write"<br>" & Vbcrlf

rsqg.close
set rsqg=nothing
%>
  </div></td>
  </tr>
</table>
<br>
<!--#include file="bottom.asp"-->
