📄 usercard.asp
字号:
HOPE_Show=HOPE_Show&"未提供"
Else
HOPE_Show=HOPE_Show&""&rsc1("title")&"<br>"
End If
rsc1.Close
Set rsc1=Nothing
HOPE_Show=HOPE_Show&"</span></td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">公司成立时间：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_EstablishedYear")&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">主要经营地点：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_BizPlace")&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">主要市场：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_KeyClients")&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">经营品牌：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_BrandName")&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">主要客户：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_KeyClients")&"</span></td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">管理体系认证：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_Certification")&"</span></td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">开户银行：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_Bank")&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">银行帐号：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"&rs("p_z_Z_Account")&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-right: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""2%"" style=""BORDER-left: #cccccc 1px solid""> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">是否提供OEM代加工： </span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"
If rs("p_z_Z_OemOdm")="y" Then
HOPE_Show=HOPE_Show&"是"
Elseif rs("p_z_Z_OemOdm")="n" Then
HOPE_Show=HOPE_Show&"否"
End If
HOPE_Show=HOPE_Show&"</span></td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <tr> " & vbCrlf
HOPE_Show=HOPE_Show&" <td width=""15%"" bgcolor=""#FFFFFF"" style=""word-break:break-all""> <strong><span class=""S"">研发部门人数：</span></strong> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" <td bgcolor=""#FFFFFF"" width='30%'> <span class=""S"">"
c="select * from Yixiang_cor_total where id="&rs("p_z_Z_RndStaffNum")&""
Set rsc=Server.CreateObject("ADODB.Recordset")
rsc.Open c,conn,1,1
If rsc.Eof Then
HOPE_Show=HOPE_Show&"未提供"
Else
HOPE_Show=HOPE_Show&""&rsc("title")&"<br>"
End If
rsc.Close
Set rsc=Nothing
HOPE_Show=HOPE_Show&"</span> </td> " & vbCrlf
HOPE_Show=HOPE_Show&" </tr> " & vbCrlf
HOPE_Show=HOPE_Show&"</table></td></tr>"
HOPE_Show=HOPE_Show&"<tr><td style='word-break:break-all'><b><font color=red>「公司简介」</font></b><br>"
If rs("Qyjj")="" Then
HOPE_Show=HOPE_Show&"暂无公司简介信息!"
Else
HOPE_Show=HOPE_Show&rs("Qyjj")
End If
HOPE_Show=HOPE_Show&"</td></tr>"
HOPE_Show=HOPE_Show&"<tr><td><a href="""&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&""" target=""_blank""><img src="""&HOPE_InstallDir&"images/liuy.gif"" width=""114"" height=""30"" border=""0""></a> </td></tr></table>" & vbCrlf
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Contact=HOPE_Contact&"<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
HOPE_Contact=HOPE_Contact&"<tr> "
HOPE_Contact=HOPE_Contact&"<td align=""center"" valign=""top"" class=""lh15"">"
HOPE_Contact=HOPE_Contact&"<table border=0 cellspacing=0 cellpadding=0 width='100%' id=secTable class=cardFont>"
HOPE_Contact=HOPE_Contact&"<tr align=center>"
HOPE_Contact=HOPE_Contact&"<td width=100 height=""27"" class=cardSelected1 nowrap> <img src="&HOPE_InstallDir&"images/icon_contact.gif width=""23"" height=""15"" align=absmiddle border=0><font style=""text-decoration: none""> </font>联系信息 </td>"
HOPE_Contact=HOPE_Contact&"<td class=cardNormal1 width=230> </td>"
HOPE_Contact=HOPE_Contact&"</tr>"
HOPE_Contact=HOPE_Contact&"</table>"
HOPE_Contact=HOPE_Contact&"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""5"" class=boardMain>"
HOPE_Contact=HOPE_Contact&"<tr><td colspan=2 height=""50"" valign=""middle""> <b> <A href=""mailto:"&rs("email")&""">"&rs("name")&"</A> "&rs("ch")&""
If rs("zw")<>"" Then
HOPE_Contact=HOPE_Contact&"("&rs("zw")&")"
End If
HOPE_Contact=HOPE_Contact&"</b> <img src="""&HOPE_InstallDir&"images/icon_tianjiasy.gif"" width=""13"" height=""12"" align=""absmiddle"" border=""0""> <a href="""&HOPE_InstallDir&"member/myfriend/addfriend.asp?user="&rs("user")&""" target=""_blank"">添加为商业伙伴</a><br></td>"
HOPE_Contact=HOPE_Contact&"</tr>"
HOPE_Contact=HOPE_Contact&"<tr><td colspan=2>"
HOPE_Contact=HOPE_Contact&"<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
HOPE_Contact=HOPE_Contact&"<tr><td height=""18"" class=""S"" width=90><b>地 址：</b></td>"
HOPE_Contact=HOPE_Contact&"<td class=""lh13 S""><span class=""s"">"
If rs("country")="中国" Then
HOPE_Contact=HOPE_Contact&""&rs("sf")&" "&rs("city")&""
Else
HOPE_Contact=HOPE_Contact&""&rs("country")&""
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'msn交谈
IF rs("msn")<>"" Then
HOPE_Contact=HOPE_Contact&"(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
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Contact=HOPE_Contact&" "&rs("address")&""
HOPE_Contact=HOPE_Contact&"</span></td></tr>"
HOPE_Contact=HOPE_Contact&"<tr><td height=""18"" class=""S""><b>邮 箱：</b></td>"
HOPE_Contact=HOPE_Contact&"<td class=""lh13 S""> <a href=""mailto:"&rs("email")&""">"&rs("email")&"</a> </td></tr>"
HOPE_Contact=HOPE_Contact&"<tr><td height=""18"" class=""S""><b>公司主页：</b></td><td class=""lh13 S"">"
If rs("flag")=1 Then
If is2weburl=1 Then
HOPE_Contact=HOPE_Contact&"「本站」<a href='http://"&rs("user")&"."&weburl1&"' target=_blank> http://"&rs("user")&"."&weburl1&"</a> "
Else
HOPE_Contact=HOPE_Contact&"「本站」<a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank>http://"&WebUrl1&HOPE_InstallDir&"vipcom/"&rs("user")&"/ </a> "
End If
End If
If rs("web")<>"" Then
HOPE_Contact=HOPE_Contact&"<br>「其它」<a href="&rs("web")&" target=_blank>"&rs("web")&"</a> "
End If
HOPE_Contact=HOPE_Contact&"</td></tr></table></td></tr></table>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rs("flag")=1 Then
'显示易商通会员信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_CorCount=HOPE_CorCount&"<table border=0 cellspacing=0 cellpadding=0 width='100%' id=secTable class=cardFont>"
HOPE_CorCount=HOPE_CorCount&"<tr align=center>"
HOPE_CorCount=HOPE_CorCount&"<td width='32%' height=27 class=cardSelected1 >易商通指数<img src="&HOPE_InstallDir&"images/trust.gif width=22 height=14 align=absmiddle border=0><strong>"&rs("trust_score")&"</strong></td>"
HOPE_CorCount=HOPE_CorCount&"<td height=27 class=cardNormal nowrap colspan=4></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</table>"
HOPE_CorCount=HOPE_CorCount&"<table border=0 cellspacing=0 cellpadding=0 width='100%' height=38 id=mainTable class=boardMain>"
HOPE_CorCount=HOPE_CorCount&"<tbody style='display:blank;'>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td width=100 align=center><img src="&HOPE_InstallDir&"images/big_trustpass.gif width=75 height=75 align=absmiddle border=0></td>"
HOPE_CorCount=HOPE_CorCount&"<td align=center valign=middle> <table width='95%' align=left border=0 cellspacing=0 cellpadding=0>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td><table width='100%' border=0 cellspacing=0 cellpadding=0>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td class=S style='line-height:180%;padding-top:5px'> <strong>工商注册信息：</strong>已通过认证<br>"
HOPE_CorCount=HOPE_CorCount&"<strong>易商通会员：</strong><img src="""&HOPE_InstallDir&"images/trustpass_logo_min1.gif"" width=""44"" height=""15"" align='absmiddle'><br>"
HOPE_CorCount=HOPE_CorCount&"<strong>证书及荣誉：</strong>"
sqlc="select count(id) from Yixiang_bizre where gsid="&rs("id")&" and sh=1"
Set totlec=Server.CreateObject("ADODB.Recordset")
totlec.Open sqlc,conn,1,1
If totlec.Eof Then
totle2c=0
End If
If Not totlec.Eof Then
totle2c=totlec(0)
HOPE_CorCount=HOPE_CorCount&"<FONT color=red><b>"&totle2c&"</b></font>项"
totlec.Close
Set totlec=Nothing
End If
HOPE_CorCount=HOPE_CorCount&"<br>"
HOPE_CorCount=HOPE_CorCount&"<strong>会员评价总数：</strong>"
sqlt3="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&rs("id")&""
Set totlet3=Server.CreateObject("ADODB.Recordset")
totlet3.Open sqlt3,conn,1,1
If totlet3.Eof Then
totle3=0
End If
If Not totlet3.Eof Then
totle3=totlet3(0)
End If
HOPE_CorCount=HOPE_CorCount&"<FONT color=red><b>"&totle3&"</b></font>条 "
totlet3.Close
Set totlet3=Nothing
HOPE_CorCount=HOPE_CorCount&"</td></tr>"
HOPE_CorCount=HOPE_CorCount&"</table></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -