<table width="100" border="0" cellpadding="0" cellspacing="0" bgcolor="#f0f0f0">
  <tr>
    <td><table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#f0f0f0">
    <tr>
      <td width="9%"><img src="zh_img/Snap1.jpg" width="15" height="18" /></td>
      <td width="91%" style="font-size:14px; color:#ff8603; font-weight:bold;">诚信品牌商家<span style="margin-left:80px;"><a  onclick="window.open('/viewMorepp.asp','_blank')" style="cursor:pointer;">更多>></a></span></td>
    </tr>
  </table>
  <div><img src="zh_img/Snap3.jpg" width="254" height="1" /></div></td>
  </tr>
  <tr>
    <td height="41" bgcolor="#f0f0f0"><br>
      <table width="95%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#f0f0f0">
      <%
	  set rsxx = server.CreateObject("adodb.recordset")
	  rsxx.open "select top 5 id,gsname,pgAllCarID,pgxj from member where ifchehang = 'yes' and ifpp='1' order by id desc",conn,1,1	  
	  do while not rsxx.eof
	  %>
      <tr>
        <td align="left" bgcolor="#f0f0f0"><span style="margin-left:5px; line-height:120%; color:#000000; cursor:pointer;">·<a onclick="window.open('/viewpp.asp?id=<%=rsxx("id")%>','_blank')" onfocus="this.blur()"><%=rsxx("gsname")%></a></span></td>
        </tr>
	  <%
	rsxx.movenext
	loop
	%>
    </table></td>
  </tr>
</table>
<br />
<%
'================================================
'获取字符串中评估邀请的数量
function countpg(str1,str2)
	dim i,counter
	counter=0
	if InStr(str2,str1) then
		for i=1 to len(str2)
			if mid(str2,i,len(str1))=str1 then
				counter=counter+1
			end if
		next 
	end if
	countpg=counter
 end function
%>
<%
'================================================
'功能：获得评估的数量
function getAllPg(pinggushid)	
	dim tmp
	tmp=0
	
	set rs_getallpg=server.createobject("adodb.recordset")  
	rs_getallpg.open "select top 1 pgAllCarId from member where Id="& pinggushid &" order by id desc",conn,1,1		
	
	if rs_getallpg.eof then    
		tmp = -1
	else		
		if countpg("|",rs_getallpg("pgAllCarId"))=0 then
			if trim(rs_getallpg("pgAllCarId"))="nothing" then  '如果本来为空
				tmp=0
			else        '如果有1个，但无逗号
				tmp=1
			end if
		else	        '有1个以上逗号		
			tmp=countpg("|",rs_getallpg("pgAllCarId"))+1
		end if
	end if
	rs_getallpg.close
	getAllPg = tmp
end function
%>