<!--#include file="inc.asp"-->
<%
    '接受xmlhttp对象传过来的值^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	pages=split(Replace_Text(request("pages")),",")
	page=pages(0)
	id=pages(1)
	currentPage2=page
	tttid=page
 	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
   If  isnumeric(page) and isnumeric(id)  then
 
     '取出模版页和对标签赋值^^^^^^^^^^^^^^^^^^^^^^  start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
     Dim fso,fmodify
 	 Set fso = YXFSO
 		Set rs=Server.CreateObject("adodb.recordset")
		rs.Open ("select tradeinfo_sort from [Yixiang_worldec_Temp] where yx_selected=1"),conn,1,1
	    If Not rs.Eof Then
 	     pencat=rs("tradeinfo_sort")        
	    End If
	 Set rs=Server.CreateObject("adodb.recordset")
		rs.Open ("SELECT * FROM Yixiang_class_1 where sortid="&id&""),conn,1,1
 	 If not rs.Eof Then
		sortid=rs("sortid")
		sortname=rs("sort")
	   End If
	 rs.Close
	 If sortid="" Then 
	    sortid=0
	 End If
 		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	         HOPE_type=HOPE_type&"<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr'  style='display:none; width:12;height:1'  value="&HOPE_InstallDir&"autokind/trade_2.asp><table width='100%' border='1'  bordercolor='#F6F6F6' cellspacing='0' cellpadding='0'><tr><td>" 
	         HOPE_type=HOPE_type&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr bgcolor=#F6F6F6><td colspan=5 height=25>〖<font color=#3287BA><b>"&sortname&"</b></font>〗</td></tr><tr>"
	sqltype="SELECT * FROM Yixiang_class_2 WHERE sortid="&sortid
	Set rstype=Server.CreateObject("ADODB.Recordset")
	rstype.Open sqltype,conn,1,1 
	If Not rstype.Eof Then
	  j=1
 	 Do While Not rstype.Eof
         '^^^^^^^^^^^^^^^^^^^^^^^^^    start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		 '查询出属于第一类的二级分类下的所含小分类的总数
		 Set thirrs=Server.CreateObject("ADODB.Recordset")
		  thirsql="SELECT COUNT(*)AS thircount FROM yixiang_Class_3 WHERE typeid="&rstype("typeid")
		  thirrs.Open thirsql,conn,1,1
		  If thirrs.Eof Then
		  seCount_sale=""
		  End If
		  If not thirrs.Eof Then
		  If thirrs("thircount")<=0 Then
		  seCount_sale=""
		  Else
		  seCount_sale="<font style='font-size:12px'>(<font color=red>"&thirrs("thircount")&"</font>)</font>"
		  End If
		  thirrs.close    
		  End If
 		 '^^^^^^^^^^^^^^^^^^^^^^^^^     end    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
   			HOPE_type=HOPE_type&" <td   height=25 valign=top  ><img src="""&HOPE_InstallDir&"images/icon_4x7_arrow2.gif"" width=""4"" height=""12"">"
			HOPE_type=HOPE_type&"<span class=lh15>&nbsp;<A href="""&sortid&"-"&rstype("typeid")&".html"" class=M  onclick='AjaxSearchtr("&rstype("typeid")&")'>"&rstype("typename")&"</A> <span class=""S"">"&seCount_sale&"</span>  "
 		    HOPE_type=HOPE_type&" </td> " 
		If j MOD 4 = 0 Then 
			HOPE_type=HOPE_type&"</TR><tr>" 
		End If 
	rstype.Movenext
		j=j+1
	Loop
    Set rstype=Nothing
  End If
           HOPE_type=HOPE_type&"</TABLE></td></tr></table><br>"
     msg_per_page=13
 	 Set rs=Server.CreateObject("adodb.recordset")
 		rs.Open ("select Yixiang_info.*,Yixiang_corporation.id,Yixiang_corporation.msn,Yixiang_corporation.flag as corflag,Yixiang_corporation.qymc,Yixiang_corporation.tm,Yixiang_corporation.[user],Yixiang_corporation.gradeid,Yixiang_corporation.country,Yixiang_corporation.sf,Yixiang_corporation.city,Yixiang_corporation.web,Yixiang_corporation.url,Yixiang_corporation.trust_score from Yixiang_Info,Yixiang_corporation where Yixiang_info.sortid="&sortid&" and Yixiang_info.type='卖' and Yixiang_corporation.id=Yixiang_info.gsid and Yixiang_info.flag=1 order by Yixiang_corporation.trust_score desc"),conn,1,1
     If not rs.Eof Then
		 totalrec=RS.RecordCount    '总记录条数
		 rs.Pagesize=msg_per_page   '每页数
		 mpage2=rs.Pagecount        '总页数
		 rowcount=msg_per_page
		 rs.Move  (currentPage2-1)*MaxPerPage
       End If
%>
     <!--#include file="page_html.asp"-->
<%
 	   HOPE_body=HOPE_body&"<SCRIPT language=javascript>function killErrors(){return true;}window.onerror = killErrors;</SCRIPT>"
	If rs.Eof Then
	   HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无具体供应信息</div><br>"
	Else
 	   i=1
 	   HOPE_body=HOPE_body&"<script type='text/javascript' src='"&HOPE_InstallDir&"autokind/showmsgrole.js'></script><script   language='vbscript'>sub   window_onload() AjaxSearchmsg() end  sub </script><input type='text' id='installurlmsg'  style='display:none; width:12;height:1'  value='"&HOPE_InstallDir&"autokind/showmsgrole.asp'/>〖<font color='#3287BA'><b>"&sortname&"</b></font>〗<font color=red>相关产品:</font> <br><br>"
	do while not rs.Eof and rowcount > 0
	 '是否为特色商机类型
	if rs("tsbz")=0 then
		tsbz=""
	elseif rs("tsbz")=1 then 
		tsbz="<img src='"&HOPE_InstallDir&"images/xinpin.gif'>"
	elseif rs("tsbz")=2 then 
		tsbz="<img src='"&HOPE_InstallDir&"images/youhui.gif'>"
	elseif rs("tsbz")=3 then 
		tsbz="<img src='"&HOPE_InstallDir&"images/jiangjia.gif'>"
	end if
	   HOPE_body=HOPE_body&"<TABLE width='100%' height=85 border=0 align=center cellPadding=0 cellSpacing=1>"&vbCrlf
	   HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
	   HOPE_body=HOPE_body&"<TR ID=compareColor"&i&""
	If icolor=0 Then 
	   HOPE_body=HOPE_body&" bgColor=#ffffff" 
	Else 
	   HOPE_body=HOPE_body&" bgColor=#f6f6f6" 
	End If
	    HOPE_body=HOPE_body&">"
	    HOPE_body=HOPE_body&"<TD align=middle width='5%'> </TD>"&vbCrlf
	    HOPE_body=HOPE_body&"<TD align=middle width='5%' >"&vbCrlf 
	    HOPE_body=HOPE_body&"<TABLE class=porductborder height=64 cellSpacing=0 cellPadding=0 width=64 border=0>"&vbCrlf
	    HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
	    HOPE_body=HOPE_body&"<TR>"&vbCrlf 
	    HOPE_body=HOPE_body&"<TD align=middle>"&vbCrlf 
 	'处理产品图片^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		If rs("draw")<>"" Then
		  HOPE_body=HOPE_body&"<A class=s href="&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html  target=_blank>"
		  HOPE_body=HOPE_body&"<IMG src='"&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw")&"'  width='64' height='64'  border=0> </A>" 
		Else
		  HOPE_body=HOPE_body&"<FONT class=C color=#cecfce>无图</FONT>"
		End If
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		HOPE_body=HOPE_body&"</TD>"&vbCrlf
		HOPE_body=HOPE_body&"</TR>"&vbCrlf
		HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
		HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD width='40%' class=cate><A class=M href="&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html target=_blank><SPAN class=lh15>"&rs("showname")&"</SPAN></A>"&tsbz&"<BR>"&vbCrlf
 '--是否使用的名片页------------------------------------------------------------
	   set rsmp=server.CreateObject("adodb.recordset")
	   sqlmp="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp.open sqlmp,conn,1,1
	   if not rsmp.eof  then
	   if instr(rsmp("rolelist"),"qw")>0 then		 	'用于二级域名处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	If is2weburl=1 Then
		HOPE_body=HOPE_body&"<a href='http://"&rs("user")&"."&WebUrl1&"'   target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
	Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'  target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
	End If
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	Else
 		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html'   target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
	End If
	rsmp.close
	end if
 		HOPE_body=HOPE_body&"<FONT color=#666666> </FONT><FONT color=#666666>"&rs("dateandtime")&"</FONT> <BR>"
 '--是否使用的名片页------------------------------------------------------------
	   set rsmp1=server.CreateObject("adodb.recordset")
	   sqlmp1="select * from yixiang_vipgrade where roleid="&rs("gradeid")
	   rsmp1.open sqlmp1,conn,1,1
	   if not rsmp1.eof  then
	   if instr(rsmp1("rolelist"),"qw")>0 then	
	   		If is2weburl=1 Then
		HOPE_body=HOPE_body&"<A href='http://"&rs("user")&"."&WebUrl1&"/supply1.htm'  target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a   href='http://"&rs("user")&"."&WebUrl1&"'  target=_blank><font color='#666666'>查看该会员企业网站</font></a>"
	Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a target='_blank' href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'><font color='#666666'>查看该会员企业网站</font></a>"
	End If
	end if
	rsmp1.close
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	End If
         HOPE_body=HOPE_body&"</FONT></TD>"&vbCrlf
        HOPE_body=HOPE_body&"<TD align=middle width='10%' >"&vbCrlf
  	'用于二级域名处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  		HOPE_body=HOPE_body&" <FONT class=c><b>"&rs("trust_score")&"</b></FONT> "
 
 		HOPE_body=HOPE_body&"</TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD class=s align=middle width='15%' >"&vbCrlf
		HOPE_body=HOPE_body&"<div align=center>"&vbCrlf
 	If rs("country")="中国" Then 
		HOPE_body=HOPE_body&""&rs("sf")&"-"&rs("city")&"" 
	Else 
		HOPE_body=HOPE_body&""&rs("country")&"" 
	End If
		

	
 		HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD class=text13 align=middle width='5%' > "&vbCrlf
		
				'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		'msn交谈
		IF rs("msn")<>"" Then 
		  HOPE_body=HOPE_body&"<input type='checkbox'   style='display:none;'    name='msgid' checked  value='"&i&",'/><div id='msgdiv"&i&"' style=""display:none"">(MSN:<a href='msnim:chat?contact="&rs("msn")&"'><img alt='点击这里发MSN消息' align='absMiddle' border='0' onerror=""this.onerror=null;this.src='http://osi.hshh.org/msnunknown.gif';"" src='http://osi.hshh.org:8888/msn/"&rs("msn")&"' />)</div> "
		End If
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
			
		HOPE_body=HOPE_body&"</TD></TR>"&vbCrlf
		HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
		HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
	    i=i+1
 	   icolor=icolor+1
	If icolor>1 Then icolor=0
	   rowcount=rowcount-1
	rs.Movenext
	loop
	End If
 '进行分页处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^		
			HOPE_body=HOPE_body&"<br>"&vbCrlf
			HOPE_body=HOPE_body&"<TABLE width='100%' border=0 align=center cellPadding=1 cellSpacing=0 style='BORDER-TOP: #9C9A9C 1px solid;BORDER-Bottom: #9C9A9C 1px solid'>"&vbCrlf
			HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"<TR>"&vbCrlf
			HOPE_body=HOPE_body&"<TD>"&vbCrlf
			HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=4 width='100%' border=0>"&vbCrlf
			HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"<TR>"&vbCrlf
			HOPE_body=HOPE_body&"<TD class=M noWrap align=middle>"&vbCrlf
		If not (rs.Eof and rs.Bof) Then
			gopage=currentpage2
			totalpage=mpage2
			blockPage=Int((gopage-1)/10)*10+1
 		If LCase(Request.ServerVariables("HTTPS")) = "off" Then 
			strTemp = "http://" 
		Else 
			strTemp = "https://" 
		End If 
			strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 
		If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 
			strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
			lenstrTemp=Len(strTemp)+1	
		If Instr(Left(linkfile,lenstrTemp),"?")>0 Then 
			
		If blockPage = 1 Then
		   HOPE_body=HOPE_body&"<span disabled>【←前10页</span>&nbsp;"
		Else
		   HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sortid&"-p"&blockPage-10&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage-10&")>←前10页</a>&nbsp;"
		End If
		   i=1
	    Do Until i > 10 or blockPage > mpage2
		If blockPage=Int(gopage) Then
		   HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
		Else
		   HOPE_body=HOPE_body&" <a href="&sortid&"-p"&blockPage&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage&")>["&blockPage&"]</a> "
		End If
			blockPage=blockPage+1
			i = i + 1
		Loop
		If blockPage > totalpage Then
		   HOPE_body=HOPE_body&"&nbsp;<span disabled>后10页→】"
		Else
		   HOPE_body=HOPE_body&"&nbsp;<a href="&sortid&"-p"&blockPage&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&sortid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sortid&"-p" & i & ".html"
		If i=gopage Then HOPE_body=HOPE_body&"   selected"
			HOPE_body=HOPE_body&">"&i&"</option>"
		next
			HOPE_body=HOPE_body&"</select>"
			HOPE_body=HOPE_body&" 页<Br><Br>"
 		Else
	If blockPage = 1 Then
		   HOPE_body=HOPE_body&"<span disabled>【←前10页</span>&nbsp;"
		Else
		   HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sortid&"-p"&blockPage-10&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage-10&")>←前10页</a>&nbsp;"
		End If
		   i=1
		Do Until i > 10 OR blockPage > mpage2
		If blockPage=int(gopage) Then
		    HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
		Else
		    HOPE_body=HOPE_body&" <a href="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&blockPage&")>["&blockPage&"]</a> "
		End If
			blockPage=blockPage+1
			i = i + 1
		Loop
		If blockPage > totalpage Then
		   HOPE_body=HOPE_body&"&nbsp;<span disabled>后10页→】"
		Else
		   HOPE_body=HOPE_body&"&nbsp;<a href="&sortid&"-p"&blockPage&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&sortid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sortid&"-p" & i & ".html"
		If i=gopage Then HOPE_body=HOPE_body&"   selected"
			HOPE_body=HOPE_body&">"&i&"</option>"
		next
			HOPE_body=HOPE_body&"</select>"
			HOPE_body=HOPE_body&" 页<Br><Br>"
 		End If
 			Startinfo=((gopage-1)*msg_per_page)+1
			Endinfo=gopage*msg_per_page
		If Endinfo>totalrec Then Endinfo=totalrec
		    HOPE_body=HOPE_body&"&nbsp;&nbsp;共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&mpage2&" 页"
		End If
 			HOPE_body=HOPE_body&"</TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR>"&vbCrlf
			HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR>"&vbCrlf
			HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"</TABLE><script language='javascript' src="&HOPE_InstallDir&"autokind/autokind_p.js></script><input type='text' id='installurltrp'  style='display:none; width:12;height:1'  value='"&HOPE_InstallDir&"autokind/trade_1_page.asp' />"&vbCrlf
 		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
      '紧急求购信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		  
		sqlj="select top 15 Yixiang_info.*,Yixiang_corporation.trust_score,Yixiang_corporation.[user],Yixiang_corporation.tm,Yixiang_corporation.flag as cflag,Yixiang_corporation.country,Yixiang_corporation.sf,Yixiang_corporation.city from Yixiang_Info,Yixiang_corporation where Yixiang_info.sortid="&sortid&" and Yixiang_info.flag=1 and Yixiang_info.type='买' and Yixiang_info.jinji=1 and Yixiang_corporation.id=Yixiang_info.gsid order by Yixiang_corporation.trust_score desc"
		
		Set rsj= Server.CreateObject("ADODB.Recordset") 
		rsj.Open sqlj,conn,1,1
		If rsj.Eof Then
		   HOPE_JinJi=HOPE_JinJi&"<br>&nbsp;该类暂无<font color=""red"">紧急</font>求购信息"
		Else
		 
		Do While Not rsj.Eof
		   HOPE_JinJi=HOPE_JinJi&"<TABLE width='100%' height=30  border=0 align=""center"" cellPadding=0 cellSpacing=0>" 
		   HOPE_JinJi=HOPE_JinJi&"<TR"
		If icolor=0 Then
		   HOPE_JinJi=HOPE_JinJi&" bgColor=#f6f6f6>"
		Else
		   HOPE_JinJi=HOPE_JinJi&" bgColor=#ffffff>"
		End If
		   HOPE_JinJi=HOPE_JinJi&"<TD width='15%' align=center valign=top> <TABLE  class=porductborder height=35 cellSpacing=0 cellPadding=0 width=64 border=0>" 
		
		
		   HOPE_JinJi=HOPE_JinJi&"<TR><TD align=middle>"
		
		
		If rsj("draw")<>"" Then 
		   HOPE_JinJi=HOPE_JinJi&"<A class=s href='"&HOPE_InstallDir&"seller/offerdetail/"&rsj("sortid")&"-"&rsj("typeid")&"-"&rsj("typeid_2")&"-"&rsj("info_id")&".html' target=""_blank""><IMG src='"&HOPE_InstallDir&"Vipcom/"&rsj("user")&"/"&rsj("draw")&"' border=0  width='31' height='31'  onmouseover=this.width='100';this.height='100';   onmouseout=this.width='31';this.height='31';> </A>" 
		 Else
		   HOPE_JinJi=HOPE_JinJi&"<FONT class=C color=#cecfce>无图</FONT>"
		End If
		
		
		   HOPE_JinJi=HOPE_JinJi&"</TD></TR> </TABLE></TD>" 
		   HOPE_JinJi=HOPE_JinJi&"<TD width='45%' class=cate><A class=M href='"&HOPE_InstallDir&"seller/offerdetail/"&rsj("sortid")&"-"&rsj("typeid")&"-"&rsj("typeid_2")&"-"&rsj("info_id")&".html' target='_blank'>" 
		   HOPE_JinJi=HOPE_JinJi&"<SPAN class=lh15>"&rsj("showname")&"</SPAN></a><br>"
		
       If is2weburl=1 Then 
	 	   HOPE_JinJi=HOPE_JinJi&"<a href='http://"&rsj("user")&"."&weburl1&"' target=_blank>"&rsj("user")&"</a>"
	   Else
		 HOPE_JinJi=HOPE_JinJi&"<a href='"&HOPE_InstallDir&"vipcom/"&rsj("user")&"/' target=_blank>"&rsj("user")&"</a>"
	   End If 
		   HOPE_JinJi=HOPE_JinJi&"&nbsp;&nbsp;[<FONT color=#666666  style='font-size:12px'>"&FormatDate(rsj("dateandtime"),2)&"</FONT>]</TD>"
		   HOPE_JinJi=HOPE_JinJi&"<td width='10%' align=center>"
		
 		 
		
 		    HOPE_JinJi=HOPE_JinJi&rsj("trust_score")&""
  		
 		   HOPE_JinJi=HOPE_JinJi&"</td>"
		   HOPE_JinJi=HOPE_JinJi&"<td width=""15%"" class=s align=center>"
		If rsj("country")="中国" Then
		   HOPE_JinJi=HOPE_JinJi&""&rsj("sf")&"-"&rsj("city")&""
		Else
		    HOPE_JinJi=HOPE_JinJi&""&rsj("country")&"" 
		End If
		    HOPE_JinJi=HOPE_JinJi&"</td>"
		    HOPE_JinJi=HOPE_JinJi&"<TD class=text13 align=middle width='15%' ><div align='center'>"&vbCrlf
		If rsj("tm")="" Then
		    HOPE_JinJi=HOPE_JinJi&"<a href="&HOPE_InstallDir&"member/getprice/message.asp?info_id="&rsj("info_id")&"  target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
		Else
		    HOPE_JinJi=HOPE_JinJi&"<script>"&vbCrlf
		 	HOPE_JinJi=HOPE_JinJi&"document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td nowrap><img SRC="&HOPE_InstallDir&"images/list_mytlogo_offline.gif border=0 align=absmiddle></td><td   nowrap>  </td><td> <table width='100%' border=1 bordercolor=#E2E7EB  cellspacing=0 cellpadding=0  ><tr ><td   align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/message.asp?info_id="&rsj("info_id")&" class='s' target=_blank>网站留言</a></td><td width=5></td><td  align='center' bgcolor=#E2E7EB><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rsj("tm")&"') class='s'>用TM留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
		
		 
		   HOPE_JinJi=HOPE_JinJi&"</SCRIPT>"&vbCrlf
		End If
		   HOPE_JinJi=HOPE_JinJi&"</div></TD>"&vbCrlf
		   HOPE_JinJi=HOPE_JinJi&"</TR></TABLE>"
		 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		  
 		icolor=icolor+1
		If icolor>1 Then icolor=0
		rsj.Movenext
		loop
		End  If
		rsj.Close
		Set rsj=nothing
                HOPE_Title=sortname      '网页标题头
  	        If totalrec="" Then
		      totalrec=0 
			End If	
             HOPE_TotalRec="(<font color=red>"&totalrec&"</font>)" 
 	  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  
 	  '属于该行业的推荐的易商通会员的供应信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	Set rstjy=Server.CreateObject("ADODB.Recordset")
	 sqltjy="select  top  15   yixiang_Info.showname,yixiang_Info.Info_ID,yixiang_Info.sortid,yixiang_Info.typeid,yixiang_Info.typeid_2 from yixiang_Info,yixiang_corporation where yixiang_Info.Gsid=yixiang_corporation.id and yixiang_Info.tjhome=1 and yixiang_corporation.flag=1  and yixiang_Info.sortid="&sortid&" and yixiang_Info.type='买' order by trust_score desc"
       rstjy.Open sqltjy,conn,1,1
	   If rstjy.Eof Then
	    tjcompany="暂无"
	   End If
	   If Not rstjy.Eof Then 
        tjcompany=""
 	   End If
	   If Not rstjy.Eof Then 
	    tji=1
	    tjcompany=""
	   Do While Not rstjy.Eof 
	    tjcompany=tjcompany&"．<a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rstjy("sortid")&"-"&rstjy("typeid")&"-"&rstjy("typeid_2")&"-"&rstjy("Info_ID")&".html' target=_blank>"&rstjy("showname")&"</a><br>"
	   If tji=15 Then	   Exit Do
  	   tji=tji+1
 	   rstjy.Movenext
	   Loop
	   rstjy.Close
	   End If 
 	HOPE_TjCom=tjcompany
 	 rs.Close
	
   '取出模版页和对标签赋值^^^^^^^^^^^^^^^^^^^^^^  end  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
   
 		  If fso.FileExists(server.MapPath(HOPE_InstallDir&"tradeinfo/trade/"&sortid&"-p"&tttid&".html")) Then
		  If kindtime<>"0" then 
     		Set fmodify = fso.GetFile(server.MapPath(HOPE_InstallDir&"tradeinfo/trade/"&sortid&"-p"&tttid&".html"))
 		    ShowDateModified = fmodify.DateLastModified
 		    dtime=DateDiff("s",ShowDateModified,now())
		    mtime=dtime/60
  			  If trim(mtime)>=kindtime then
  				pencat=Hope_HtmlResult(pencat)
				Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"tradeinfo/trade/"&sortid&"-p"&tttid&".html"))
				'如果文件存在就按时间进行更新^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
				fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/trade_1_page.asp?pages="&Replace_Text(request("pages"))&"'></script>"
				fout.Close
			  End If
			  End If 
  		  Else
           pencat=Hope_HtmlResult(pencat)
  		   Set foutc = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"tradeinfo/trade/"&sortid&"-p"&tttid&".html"))
		   '如果文件存在就按时间进行更新^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		   foutc.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/trade_1_page.asp?pages="&Replace_Text(request("pages"))&"'></script>"
		   foutc.Close
 		 End If	
	  Set fso = nothing
      conn.Close
     Set conn=nothing
    End If
%>