<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%
titlename="求购商品详情"
If shopnet("qgid")<>"" And Not isnumeric(shopnet("qgid"))  Then
	 response.redirect"/note.asp?errid=0"
End If
If shopnet("qgid")<>"" And trim(trim("qgid"))=""  Then
	 response.redirect"/note.asp?errid=0"
End If

%>
<!--#include file="top.asp"-->
<!--#include file="../include/tishi.asp" -->
<!--#include file="../include/page.asp" -->
    <style type="text/css" media="screen">
	@import url("../home/css/sys/detail.php@t=20060522.css");
</style>
<%if shopnet("abc")="ping" and Request.Cookies(Rikee)("huiyuan")<>"" and shopnet("ping")<>"" then
conn.execute("Insert into pinglun(qgcpid,lx,huiyuan,ping,zt)values("&shopnet("id")&",0,'"&Request.Cookies(Rikee)("huiyuan")&"','"&shopnet("ping")&"',"&clng(my_shenhe)&")")
if my_shenhe=0 then shenhe="<br>·请等待管理人员审核。" else shenhe=""
width="500"
my_bt="评论发布成功！"
my_nr="<meta http-equiv=refresh content=5;url=?qgid="&shopnet("id")&"><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=../index.asp>返回首页</a><br><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=# onclick='javascript:window.history.go(-1)'>返回上一页</a><br><img src=../../pics/2k5/sys/component/icon_arrow_r.gif>系统正在转向到评论产品页，如您的浏览器不支持跳转请 <a href=?qgid="&shopnet("id")&">直接点这里</a>"
xitongtishi()
Response.Write"</td></tr></table>"
%> <!--include file="bottom.asp" --> <%
response.End
end if%>
<%if shopnet("qgid")="" Then
	 response.redirect"/note.asp?errid=0"
'response.write"<script language='javascript'>alert('出错了，没有找到您要的求购信息!');this.location.href='../index.asp';</script>"
 end If
 qgid=shopnet("qgid")
      sql="select * from qiugou where id="&qgid
      set rss=conn.execute(sql)
	  if rss.eof then
	 response.redirect"/note.asp?errid=5"
	  else
	  conn.execute("update qiugou set c=c+1 where id="&qgid)
	  qiuname=rss("huiyuan")
	  end if
	  %>
<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  
  <tr> 
    <td width="180" valign="top">
<%if Request.Cookies(Rikee)("huiyuan")<>"" then%>
<!--#include file="left.asp"-->
<%else%>
<% set banner1= conn.execute("select top 1 * from ad where adtype1=6 and show=1 order by date desc")
if not banner1.eof then
if banner1("adtype")=2 then
Response.Write("<embed src=user/images/gg/"&banner1("imageurl")&" border=0>")
else
Response.Write("<div align=center><a href=../click.asp?url="&banner1("url")&"&id="&banner1("id")&" target=_blank onFocus=this.blur()><img src=../user/images/gg/"&banner1("imageurl")&" border=0></a></div>")
end If
end if
banner1.close
set banner1=nothing%><br>
<%end if%></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" bgcolor="#FFFFFF"><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>
      </td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" >
    <tr>
      <td height="4" bgcolor="1E88C1"></td>
    </tr>
  </table>
  <br>
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=#efefef>
        <tr>
           <td width="324"  class="makesure" background="../image/bk.gif" height=21>&nbsp;求购商品名称：<%= InterceptString(rss("mc"),38)%></td>
       </tr>
    
    <tr>
      <td height="271" colspan="6" bgcolor=#ffffff><table width="100%" height="154" border="0" cellspacing="1" bgcolor=#efefef>
          <tr>
            <td width="73%" height="154" valign="top" class="yellowborder" bgcolor=#ffffff><table width="95%" height="168" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor=#efefef>
              <tr>
                <td height="54" bgcolor=#ffffff><font class="makesure">基本价格：<%=rss("jg1")%></font></td>
                <td bgcolor=#ffffff><font class="makesure">求购数量：<%=rss("num")%></font></td>
              </tr>
              <tr>
                <td height="54" bgcolor=#ffffff>地区:<%=rss("dz")%></td>
                <td bgcolor=#ffffff><font class="makesure">发布时间：<%=rss("date")%></font></td>
              </tr>
              <tr>
                <td height="30" colspan="2" bgcolor=#ffffff>&nbsp;</td>
              </tr>
              <tr>
                <td height="30" colspan="2" bgcolor=#ffffff><%
					neirong=rss("js")
					rss.close
set rss=nothing 
					Response.Write("<table width=95%  border=0 align=center cellpadding=0 cellspacing=0>")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select huiyuan,ping,hf,sj from pinglun where lx=0 and zt<>0 and qgcpid="&qgid&" order by id desc"
rs.open sql,conn,3,1 
if rs.eof then
Response.Write("<tr><td height=30>目前暂无人与求购者联系。</td></tr>")
else
page1("5")
i=1
do while not rs.eof and i<=rs.pagesize
Response.Write("<tr><td height=50 class=table-xia bgcolor=#ffffff>供货者：<b>"&rs("huiyuan")&"</b>&nbsp;<SCRIPT src='../zhanneixin/jst.asp?huiyuan="&huiyuan&"'></SCRIPT>&nbsp;"&rs("sj")&"<br>内容： "&rs("ping")&"")
if rs("hf")<>"" then Response.Write("<br><font color=#ff6600>回复： "&rs("hf")&"</font>")
Response.Write("</td></tr>")
i=i+1
rs.MoveNext                                              
loop 
Response.Write("<tr><td height=25 align=center>")
page2("id="&request("id")&"&")
end if
rs.close
set rs=nothing
Response.Write("</td></tr></table>")
if Request.Cookies(Rikee)("huiyuan")<>"" then%>
                    </a>
                    <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor=#efefef>
                      <form action="?id=<%=request("qgid")%>&amp;abc=ping" method="post" name="pinglun" id="pinglun" onSubmit="javascript:return add(this)">
                        <script language="JavaScript" type="text/javascript">
function add(aa){		 
if(aa.ping.value==''){			
alert("留言内容不能为空!");
return false;}
if(aa.ping.value.length>500){			
alert("留言内容不能超过500字!");
return false;}}
                    </script>
                        <tr valign="middle" bgcolor="#FFFFFF">
                          <td width="450" height="50" align="left" nowrap="nowrap" bgcolor=#ffffff >姓名：
                            <input name="huiyuan" type="text" class="wenbenkuang" id="huiyuan" value="<%=Request.Cookies(Rikee)("huiyuan")%>" size="20" maxlength="16" readonly="true" /></td>
                        </tr>
                        <tr valign="middle" bgcolor="#FFFFFF">
                          <td width="450" height="25" bgcolor=#ffffff> 我有该商品：(留言给<%=qiuname%>)
                            <textarea name="ping" cols="50" rows="3" class="wenbenkuang"></textarea>
                          </td>
                        </tr>
                        <tr valign="middle" bgcolor="#FFFFFF">
                          <td width="450" height="25" bgcolor=#ffffff><input name="Submit" type="submit" class="go-wenbenkuang" value="OK,提交" />
                              <input name="Submit" type="reset" class="go-wenbenkuang" value="重写" />
                          </td>
                        </tr>
                      </form>
                    </table>
                  <%else
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;向卖家提问，会员请 [<a href=../user/login.asp>登陆</a>] ，不是会员？ [<a href=../user/reg.asp>免费注册</a>]"
end if
%></td>
              </tr>
            </table></td>
            <td width="27%" valign="top" class="yellowborder"><table width="100%" height="149" border="0" cellspacing="0">
                <tr>
                  <td width="100%" height="25" bgcolor="#FFCC66"><h5><strong>&nbsp;求购者档案</strong></h5></td>
                </tr>
                <tr>
				<%set Rs11=server.createobject("adodb.recordset")
sql="select * from huiyuan where huiyuan='"&qiuname&"'"
Rs11.open sql,conn,1,1%>
                  <td height="126"><table width="100%" border="0" cellpadding="0" cellspacing="2">
                    <tr>
                      <td height="22">求购者：<%=rs11("huiyuan")%>&nbsp;(信用：<%=rs11("xinyong")%>)</td>
                    </tr>
                    <tr>
                      <td height="22">身份认证：<%if rs11("rz")=0 then%>没有认证<%else%>已认证<%end if%>&nbsp;</td>
                    </tr>
                    <tr>
                      <td height="22"><%if rs11("oicq")<>"" then%><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=RS11("oicq")%>&Site=<%=rs11("huiyuan")%>&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=RS11("oicq")%>:3 alt="联系<%=rs11("huiyuan")%>"></a><%else%><img src="../image/noqq.gif" /><%end if%></td>
                    </tr>
                    <tr>
                      <td height="22">求购者邮箱:<br><%if Request.Cookies(Rikee)("huiyuan")="" then%>
                        <a href="login.asp">请登录察看</a><%else%><%=RS11("mail")%><%end if%></td>
                    </tr>
                    <tr>
                      <td height="22">最后登陆:<br />
                        <%=rs11("sj2")%><br><%Response.Write("<SCRIPT src='../zhanneixin/jst.asp?huiyuan="&rs11("huiyuan")&"'></SCRIPT></td></tr>")%></td>
                    </tr>
                  </table></td>
                </tr>
            </table></td>
          </tr>
        </table>
          <table width="100%" height="114" border="0" cellspacing="1" >
            <tr>
              <td valign="top"><table width="100%" height="115" border="0" cellspacing="1" bgcolor="#efefef">
                  <tr>
                    <td height="18" bgcolor="#FFFFFF">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="32" bgcolor="#ffffff" ><strong><font class="makesure">求购物品详情</font></strong></td>
                  </tr>
                  <tr>
                    <td bgcolor="#ffffff" ><table width="100%" border="0" cellspacing="0">
                        <tr>
                          <td><%=neirong%></td>
                        </tr>
                    </table></td>
                  </tr>
              </table></td>
            </tr>
        </table></td>
    </tr>
	        <tr>
           <td width="324"  class="makesure" background="../image/bk1.gif" height=21></td>
       </tr>
  </table>  </td>
  </tr>
</table>

<!--#include file="../bottom.asp"-->
