<!--#include file="inc.asp"-->
<%
    '接受xmlhttp对象传过来的值^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     id=Replace_Text(Request("id"))     '接受xmlhttp对象传过来的值
     If id<>"" Then
      '取出模版页和对标签赋值^^^^^^^^^^^^^^^^^^^^^^  start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
     Dim fso,fmodify
 	 Set fso = YXFSO
 		Set rs=Server.CreateObject("adodb.recordset")
		rs.Open ("select productshow_type from [Yixiang_worldec_Temp] where yx_selected=1"),conn,1,1
	    If Not rs.Eof Then
 	     pencat=rs("productshow_type")        
	    End If
	 Set rs=Server.CreateObject("adodb.recordset")
		rs.Open ("SELECT * FROM Yixiang_class_2 where typeID="&id&""),conn,1,1
 	 If not rs.Eof Then
		 ttid=rs("typeID")
		 sttid=rs("sortID")
	   End If
	 rs.Close
	 If ttid="" Then 
	    ttid=0
	 End If
	 If sttid="" Then
	   sttid=0
	  End If
 		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		 
		 '商品比较标签#HOPE_BJ(typeid)#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		 '参数：typeid----1 为横向分单元格显示；0--为纵向分行显示
		 Function  HOPE_BJ(typeid)
			 If typeid<=0 Then 
			 typeid=0
			 Else
			 typeid=1
			 End If
			 strs=""
			 strs=" <script type='text/javascript' src='"&HOPE_InstallDir&"compare.js'></script><script language='javascript' >function zhu(str){ if(str.checked){ document.getElementById('searchwordb').value= document.getElementById('searchwordb').value+str.value; }else{ document.getElementById('searchwordb').value=document.getElementById('searchwordb').value.replace(str.value,''); } } </script> <div> <input type='text' id='searchwordb'  style='display:none'  value=''/><input type='text' id='installurlb'  style='display:none; width:12;height:1'  value="&HOPE_InstallDir&" />  <input type='text' id='typeid'  style='display:none; width:12;height:1'  value="&typeid&" /> </div> <div id='search_resultb'></div>"
			   HOPE_BJ=strs
		 End Function
		 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     msg_per_page=15
 	 '查出详细信息只属于该二级分类的产品 ^^^^^^^^^^^^^^^^^^^^^
	Set rs=Server.CreateObject("adodb.recordSet")
     rs.Open ("select Yixiang_productshow.*,Yixiang_corporation.id as corid,Yixiang_corporation.msn,Yixiang_corporation.flag as corflag,Yixiang_corporation.qymc,Yixiang_corporation.tm,Yixiang_corporation.[user],Yixiang_corporation.tm,Yixiang_corporation.country,Yixiang_corporation.sf,Yixiang_corporation.city,Yixiang_corporation.web,Yixiang_corporation.gradeid,Yixiang_corporation.url,Yixiang_corporation.trust_score from Yixiang_productshow,Yixiang_corporation where Yixiang_productshow.typeid="&ttid&" and  Yixiang_corporation.id=Yixiang_productshow.gsid and Yixiang_productshow.flag=1 order by Yixiang_corporation.trust_score"),conn,1,1
    	 '对具体的供应信息进行分页^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     If not rs.Eof Then
	   totalrec=RS.RecordCount'总记录条数
       rs.Pagesize=msg_per_page  '每页数
       mpage2=rs.Pagecount     '得到总页数
	   rowcount=msg_per_page
      End If
	 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 %>
     <!--#include file="../inc/headpage_html.asp"-->
<%
 	Set rssort1=Server.CreateObject("adodb.recordSet")
		rssort1.Open ("select * from Yixiang_class_1 where sortID="&sttid&""),conn,1,1
 		Set rssort=Server.CreateObject("adodb.recordSet")
		rssort.Open ("select * from Yixiang_class_2 where typeID="&ttid&""),conn,1,1
 		Set rstype=Server.CreateObject("adodb.recordSet")
		rstype.Open ("select * from Yixiang_class_3 where typeid="&ttid&""),conn,1,1
		If rstype.Eof Then
  		'^下级类别导航^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		HOPE_Type=HOPE_Type&""
		Else
        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/pro_3.asp>"
  		HOPE_Type=HOPE_Type&"<TABLE width=""98%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""0"" class=""blackborder"">"
		HOPE_Type=HOPE_Type&"<tr><td>〖<font color=#3287BA><b>"&rssort("typename")&"</b></font>〗</td></tr><TR><TD align=center>"
		HOPE_Type=HOPE_Type&"<TABLE cellSpacing=5 cellPadding=0 width=""95%"" border=0>"
		HOPE_Type=HOPE_Type&"<TR vAlign=top>"
		do while not rstype.Eof
 		'^查出第三级所含的产品数量^^^^^^^^^^ 
		thiCount=""
		Set rsproth=Server.CreateObject("adodb.recordSet")
		prothsql="select count(*) as totalpro from Yixiang_productshow where flag=1 and  typeid_2="&rstype("typeid_2")
		rsproth.Open prothsql,conn,1,1
		If not rsproth.Eof Then
		If rsproth("totalpro")>0 Then
		thiCount="(<font color=red>"&rsproth("totalpro")&"</font>)"
		Else
		thiCount=""
		End If
		
		End If
  		 
		HOPE_Type=HOPE_Type&"<TD vAlign=top width='20%'><a class=c href='"&HOPE_InstallDir&"productshow/offerlist/"&rstype("sortid")&"-"&rstype("typeid")&"-"&rstype("typeid_2")&".html'  onclick='AjaxSearchtr("&rstype("typeid_2")&")'>"&rstype("typename_2")&"</a>"
		HOPE_Type=HOPE_Type&"<font class=s> "&thiCount&"</font></td>"
		a=a+1
		If a=5 Then
		HOPE_Type=HOPE_Type&"</tr>"
		a=0
		End If
		rstype.movenext
		loop
		rstype.Close
		HOPE_Type=HOPE_Type&"</TABLE></TD></TR></TABLE>"
		End If
  		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'/> "
		 
    		do while not rs.Eof and rowcount > 0
 		HOPE_body=HOPE_body&"<TABLE width='100%' height=85 border=0 align=center cellPadding=0 cellSpacing=1>"
		HOPE_body=HOPE_body&"<TBODY>"
		HOPE_body=HOPE_body&"<TR"
		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='15%'>"
		HOPE_body=HOPE_body&"<TABLE class=porductborder height=64 cellSpacing=0 cellPadding=0 width=64 border=0>"
		HOPE_body=HOPE_body&"<TBODY>"
		HOPE_body=HOPE_body&"<TR>"
		HOPE_body=HOPE_body&"<TD align=center><font color=#cccccc>比较</font><input type='checkbox' name='id' value='"&rs("id")&",' onclick='zhu(this);' />"
 		If rs("picture")<>"../../UploadFile/nopicture.gif" or rs("picture")<>"" Then
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html' target=_blank class=s><IMG src='"&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("picture")&"'  border=0  height=64   width=64 >"
		HOPE_body=HOPE_body&"</A>"
		 Else
		HOPE_body=HOPE_body&"<FONT class=C color=#cecfce>无图</FONT>"
		End If
 		HOPE_body=HOPE_body&"</TD></TR></TBODY></TABLE></TD>"
		HOPE_body=HOPE_body&"<TD width='40%' class=cate><A class=M href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank><SPAN class=lh15>"&rs("cpmc")&"</SPAN></A><BR>"
		HOPE_body=HOPE_body&"<FONT color=#009900>"
		
'--是否使用的名片页------------------------------------------------------------
	   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><FONT color=#666666>"&rs("qymc")&"</font></A>"
		 Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank><FONT color=#666666>"&rs("qymc")&"</font></A>"
		 End If
 		Else
 		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html'  target=_blank><FONT color=#666666>"&rs("qymc")&"</font></A>"
 		End If
		rsmp.close
		end if
 		HOPE_body=HOPE_body&"<FONT color=#666666><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&"/VipProduct1.htm' target=_blank><FONT color=#666666>该会员所有产品</FONT></A> <a target='_blank' href='http://"&rs("user")&"."&weburl1&"'><font color='#666666'>查看该会员企业网站</font></a>"
		 Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/VipProduct1.htm'  target=_blank><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></FONT></TD>"
		HOPE_body=HOPE_body&"<TD align=center width='15%'>"
 		HOPE_body=HOPE_body&" <FONT class=c><b>"&rs("trust_score")&"</b></FONT> "
  		HOPE_body=HOPE_body&"</TD>"
		HOPE_body=HOPE_body&"<TD class=s align=center width='15%'><div align=center>"
		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>"
			HOPE_body=HOPE_body&"<TD  align=center width='15%' ><input type='checkbox'   style='display:none;'    name='msgid' checked  value='"&i&",'/><div id='msgdiv"&i&"' style=""display:none"">"&vbCrlf
			'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		'msn交谈
		IF rs("msn")<>"" Then 
		    HOPE_body=HOPE_body&"(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")&"' />) "
		End If
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		 If rs("tm")="" Then
			HOPE_body=HOPE_body&"<a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&"  target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
		Else
			HOPE_body=HOPE_body&"<script>"&vbCrlf
			HOPE_body=HOPE_body&"document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td nowrap> </td><td> <table width='100%' border=1 bordercolor=#E2E7EB align=center  cellspacing=0 cellpadding=0  ><tr ><td   align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&" class='s' target=_blank>网站<br>留言</a></td><td width=5></td><td  align='center' bgcolor=#E2E7EB><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&"') class='s'>用TM<br>留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
		   HOPE_body=HOPE_body&"</SCRIPT>"&vbCrlf
		End If
			HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR></TBODY></TABLE><br>"
 		icolor=icolor+1
		i=i+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><td align=center><br><font color=red>→</font><input type=checkbox value='' checked  disabled>请选择要比较的项:<input type='button' onclick='AjaxSearchb();' style='background-color:#CCCCCC'   value='我要进行产品比较' /></td></tr><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=1
			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="&sttid&"-"&ttid&"-p"&blockPage-10&".html  onclick=AjaxSearchtrp("&ttid&","&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="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&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="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&ttid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sttid&"-"&ttid&"-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="&sttid&"-"&ttid&"-p"&blockPage-10&".html onclick=AjaxSearchtrp("&ttid&","&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="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&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="&sttid&"-"&ttid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&ttid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&ttid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sttid&"-"&ttid&"-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/pro_2_page.asp' />"&vbCrlf
   		   HOPE_Title=rssort("typename") '网页标题头
  		   HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"productshow/'>产品库</a> > <a href='"&HOPE_InstallDir&"productshow/trade/"&rssort1("sortid")&".html'>"&rssort1("sort")&"</a> > "&HOPE_Title
  	'属于该行业的推荐的易商通会员的产品^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		Set rstjy=Server.CreateObject("ADODB.Recordset")
		 sqltjy="select  top  15  yixiang_productshow.id,yixiang_productshow.sortid,yixiang_productshow.typeid,yixiang_productshow.typeid_2,yixiang_productshow.Cpmc from yixiang_productshow,yixiang_corporation where yixiang_productshow.GsID=yixiang_corporation.id and yixiang_corporation.Tjbz like '%0%' and yixiang_productshow.flag=1  and yixiang_productshow.sortid="&sttid&" and  yixiang_productshow.typeid="&ttid&" and yixiang_corporation.flag=1  order by yixiang_corporation.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&"&nbsp;．<a href='"&HOPE_InstallDir&"productshow/offerdetail/"&rstjy("sortid")&"-"&rstjy("typeid")&"-"&rstjy("typeid_2")&"-"&rstjy("id")&".html'  target=_blank>"&rstjy("cpmc")&"</a><br>"
		   If tji=15 Then	   Exit Do
		   tji=tji+1
		   rstjy.Movenext
		   Loop
		   rstjy.Close
		   End If 
 		HOPE_TjCom=tjcompany
    	    rs.Close
		rssort.Close
		rssort1.Close
       '取出模版页和对标签赋值^^^^^^^^^^^^^^^^^^^^^^  end  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  		  If fso.FileExists(server.MapPath(HOPE_InstallDir&"productshow/trade/"&sttid&"-"&ttid&".html")) Then
		  If kindtime<>"0" then 
     		Set fmodify = fso.GetFile(server.MapPath(HOPE_InstallDir&"productshow/trade/"&sttid&"-"&ttid&".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&"productshow/trade/"&sttid&"-"&ttid&".html"))
				'如果文件存在就按时间进行更新^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
				fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/pro_2.asp?id="&id&"'></script>"
				fout.Close
			  End If
			  End If  
  		  Else
           pencat=Hope_HtmlResult(pencat)
  		   Set foutc = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"productshow/trade/"&sttid&"-"&ttid&".html"))
		   '如果文件存在就按时间进行更新^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		   foutc.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/pro_2.asp?id="&id&"'></script>"
		   foutc.Close
 		 End If	
	  Set fso = nothing
      conn.Close
     Set conn=nothing
  End If
%>