<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'***企业会员店铺调用
'<script language="JavaScript" src="jsuser.asp?num=6&words=15&tj=ok"></script>
'num为调用条数：默认为6条
'words为标题显示字数。默认为10个字符。
'tj  是否调用推荐用户，如果只调用推荐用户，请保留此参数，否则留空
'========================================================================
qq=lcase(request.servervariables("url"))
rr=InstrRev(""&qq&"","/")
dd=left(""&qq&"",""&rr&"")
hp="http://"&request.servervariables("server_name")&""&dd&""
%>
<%
dim fyshow
s_num=changechr(request("num"))
s_words=changechr(request("words"))
tj=changechr(request("tj"))
tempcontent="<table cellspacing=0 cellpadding=0 width=100% align=center border=0>"
tempcontent=tempcontent&"  <tbody>"
tempcontent=tempcontent&"  <tr>"
tempcontent=tempcontent&"    <td height=4></td>"
tempcontent=tempcontent&"  </tr>"
if s_num="" then
s_num=6
end if
if s_words="" then
s_words=10
end if
			set rsa=server.createobject("adodb.recordset")
			strsql="select Top "&s_num&" * from Dat_Member Where State =0 and  MemberType=2 "
			if tj="ok" then
			strsql=strsql&" and jb=1 "
			end if
			strsql=strsql&" Order By MemberKey Desc"
			rsa.Open strsql,conn,1,1
			if rsa.EOF or rsa.BOF then
tempcontent=tempcontent&" <tr><td>暂时没有任何信息！</td></tr>"
			end if
			do while not rsa.EOF
			tempcontent=tempcontent&"  <tr>" 
			sstit=Trim(rsa("CompanyName"))
			xxidb=Trim(rsa("MemberKey"))
if len(sstit)>cint(s_words) then
					atempTitle = Left(sstit,s_words)&"..."
		   		else
					atempTitle =sstit
end if


tempcontent=tempcontent&"    <td height=20 valign=top><div align='left'>"
tempcontent=tempcontent&"·<a  target=_blank href='"&hp&"hy/company.asp?cid="&xxidb&"'>"&atempTitle&"</a>"
tempcontent=tempcontent&"    </div></td>"
tempcontent=tempcontent&"  </tr>"

	rsa.movenext
	loop
	rsa.close
	set rsa = nothing
tempcontent=tempcontent&"  </tbody>"
tempcontent=tempcontent&"</table>"
%>
document.write("<%=tempcontent%>");