📄 makedetail.asp
字号:
if rs("gradeid")<>"" then
set rsgr=server.CreateObject("adodb.recordset")
sqlgr="select gradename from Websen_vipgrade where roleid="&rs("gradeid")
rsgr.open sqlgr,conn,1,1
if not rsgr.eof then
HOPE_CorCount=HOPE_CorCount&"<font color=red style=""font-size:14px;"" ><b>"&rsgr("gradename")&"</b></font>"
HOPE_HuiYuan=HOPE_HuiYuan&"<font color=#ffffff style=""font-size:14px""><b>"&rsgr("gradename")&"</b></font>"
rsgr.close
end if
end if
'--是否使用的名片页------------------------------------------------------------
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp.open sqlmp,conn,1,1
if not rsmp.eof then
Websen_Related=Websen_Related&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center'><tr>"
Websen_Related=Websen_Related&"<td width='52%' height='26'>"
if instr(rsmp("rolelist"),"qw")>0 then
'公司信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If is2weburl=1 Then
Websen_Related=Websen_Related&"<A href='http://"&rs("user")&"."&weburl1&"' target=_blank><img src='#HOPE_InstallDir#Blue/fl_bg.gif' width='121' height='25' border='0' /></a>"
Else
Websen_Related=Websen_Related&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank><img src='#HOPE_InstallDir#Blue/fl_bg.gif' width='121' height='25' border='0' /></a>"
End If
Else
Websen_Related=Websen_Related&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank><img src='#HOPE_InstallDir#Blue/fl_bg.gif' width='121' height='25' border='0' /></A>"
End If
Websen_Related=Websen_Related&"</td><td width='48%'></td>"
if instr(rsmp("rolelist"),"qw")>0 then
Websen_Related=Websen_Related&"</tr><td height='25' colspan='2'><A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank>最新供应</a> | <A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/About.htm' target=_blank>公司介绍</a></td>"
else
Websen_Related=Websen_Related&""
end if
Websen_Related=Websen_Related&"</tr><tr><td height='25' colspan='2'>经营模式： "&rs("Qylb")&"</td></tr>"
Websen_Related=Websen_Related&"<tr><td height='25' colspan='2'>会员评价总数："
sqls="select count(id) from Websen_trustadv where Websen_trustadv.bprid="&rs("id")&""
Set totles=Server.CreateObject("adodb.Recordset")
totles.Open sqls,conn,1,1
If Not totles.Eof Then
totle2s=totles(0)
Websen_Related=Websen_Related&"<FONT color=red><b>"&totle2s&"</b></font>条 "
totles.Close
Set totles=nothing
End If
Websen_Related=Websen_Related&"<a href="&HOPE_InstallDir&"trustadv/rempost.asp?id="&rs("id")&" target=_blank >发表评价</a></td></tr>"
Websen_Related=Websen_Related&"<tr><td height='25' colspan='2'>诚信指数： <strong><font color=red style=""font-size:14px"">"&rs("trust_score")&"</font></strong></td></tr></table>"
' 联系方式信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Websen_Contact=Websen_Contact&"<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&"'/><div id='search_resultmsg' style=""display:none"">"
Websen_Contact=Websen_Contact&"<table width='100%' border='0' cellspacing='0' cellpadding='0' id=secTable><tr>"
Websen_Contact=Websen_Contact&"<td height='20'><span style=' font-size: 18px; color: #000000; font-weight: bold; line-height: 200%'>"&rs("name")&"</span> <span style=' font-size: 18px; color: #000000; font-weight: bold; line-height: 200%'>"&rs("ch")&"</span>"
if rs("zw")<>"" then
Websen_Contact=Websen_Contact&" (<span style=' font-size: 16px; color: #000000; line-height: 180%'>"&rs("zw")&"</span>)</td></tr><tr>"
else
Websen_Contact=Websen_Contact&"</td></tr><tr>"
end if
Websen_Contact=Websen_Contact&"<td height='20'>电 话："&rs("Phone")&"</td></tr><tr><td height='30'>移动电话："&rs("mobile")&"</td>"
Websen_Contact=Websen_Contact&"</tr><tr><td height='20'>传 真："&rs("Fax")&"</td></tr><tr><td height='30'>地 址："&rs("Address")&"</td>"
Websen_Contact=Websen_Contact&"</tr><tr><td height='20'>邮 箱："&rs("Email")&"</td></tr><tr>"
if instr(rsmp("rolelist"),"qw")>0 then
If is2weburl=1 Then
Websen_Contact=Websen_Contact&"<td height='20'>公司网站：<A href='http://"&rs("user")&"."&weburl1&"' target=_blank>http://"&rs("user")&"."&weburl1&"</a></td>"
Else
Websen_Contact=Websen_Contact&"<td height='20'>公司网站：<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank>"&HOPE_WebUrl&"vipcom/"&rs("user")&"</a></td>"
End If
Else
Websen_Contact=Websen_Contact&"<td height='20'>公司网站：<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank>"&HOPE_WebUrl&"Ptcom/"&rs("user")&".html</a></td>"
End If
Websen_Contact=Websen_Contact&"</tr></table>"
Websen_Contact=Websen_Contact&"</div>"
rsmp.close
end if
HOPE_CorCount=HOPE_CorCount&"</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><td class=S style='line-height:180%;padding-top:5px'>"
If rs("flag")=1 Then
HOPE_CorCount=HOPE_CorCount&" <strong>工商注册信息：</strong>已通过认证<br>"
HOPE_CorCount=HOPE_CorCount&"<strong>会员 </strong> <br>"
HOPE_CorCount=HOPE_CorCount&"<strong>证书及荣誉：</strong>"
sql="select count(id) from Websen_bizre where gsid="&rs("id")&" and sh=1"
Set totle=Server.CreateObject("adodb.recordSet")
totle.Open sql,conn,1,1
If Not totle.Eof Then
totle2=totle(0)
HOPE_CorCount=HOPE_CorCount&"<FONT color=red><b>"&totle2&"</b></font>项"
HOPE_ZheSint=HOPE_ZheSint&"<FONT color=red><b>"&totle2&"</b></font>项"
totle.Close
Set totle=Nothing
End If
HOPE_CorCount=HOPE_CorCount&"<br>"
HOPE_CorCount=HOPE_CorCount&"<strong>会员评价总数：</strong>"
sql1="select count(id) from Websen_trustadv where Websen_trustadv.bprid="&rs("id")&""
Set totle1=Server.CreateObject("adodb.recordSet")
totle1.Open sql1,conn,1,1
If Not totle1.Eof Then
totle21=totle1(0)
HOPE_CorCount=HOPE_CorCount&" <FONT color=red><b>"&totle21&"</b></font>条 "
HOPE_PingLint=HOPE_PingLint&"<FONT color=red><b>"&totle21&"</b></font>条 "
totle1.Close
Set totle1=Nothing
End If
HOPE_CorCount=HOPE_CorCount&"<a href='"&HOPE_InstallDir&"trustadv/rempost.asp?id="&rs("id")&"' target=_blank>发表评价</a>"
HOPE_PingLant=HOPE_PingLant&"<a href="&HOPE_InstallDir&"trustadv/rempost.asp?id="&rs("id")&" target=_blank >发表评价</a></td>"
End If
HOPE_CorCount=HOPE_CorCount&"</td></tr>"
HOPE_CorCount=HOPE_CorCount&"</table></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td height=20 class=S><div id='search_resultmsg3' style=""display:none""><div align=right>"
'--是否使用的名片页------------------------------------------------------------
set rsmp2=server.CreateObject("adodb.recordset")
sqlmp2="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp2.open sqlmp2,conn,1,1
if not rsmp2.eof then
if instr(rsmp2("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_CorCount=HOPE_CorCount&"<img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href='http://"&rs("user")&"."&weburl1&"' target=_blank>查看该公司</a></div> "
Else
HOPE_CorCount=HOPE_CorCount&" <img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href="&HOPE_InstallDir&"vipcom/"&rs("user")&" target=_blank>查看该公司</a></div> "
End If
Else
HOPE_CorCount=HOPE_CorCount&" <div align=right><img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href="&HOPE_InstallDir&"Ptcom/"&rs("user")&".html target=_blank>查看该公司</a></div>"
End If
rsmp2.close
end if
HOPE_CorCount=HOPE_CorCount&"</div></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</table></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</tbody>"
HOPE_CorCount=HOPE_CorCount&"<tbody style='display:none;'>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td align=center> <table width='90%' 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 lh15"">"
c="select * from Websen_cor_format where id="&rs("p_z_Z_LegalStatus")&""
Set rsc=Server.CreateObject("adodb.recordSet")
rsc.Open c,conn,1,1
If not rsc.Eof Then
HOPE_CorCount=HOPE_CorCount&"<strong>企业类型：</strong> "&rsc("title")&" <br>"
rsc.Close
Set rsc=Nothing
End If
HOPE_CorCount=HOPE_CorCount&"<strong>经营模式：</strong> "&rs("qylb")&" <br>"
c1="select * from Websen_cor_total where id="&rs("p_z_Z_EmployeesCount")&""
Set rsc1=Server.CreateObject("adodb.recordSet")
rsc1.Open c1,conn,1,1
If Not rsc1.Eof Then
HOPE_CorCount=HOPE_CorCount&"<strong>员工人数：</strong> "&rsc1("title")&" <br>"
rsc1.Close
Set rsc1=Nothing
End If
c2="select * from Websen_cor_bank where id="&rs("p_z_Z_RegCapital")&""
Set rsc2=Server.CreateObject("adodb.recordSet")
rsc2.Open c2,conn,1,1
If not rsc2.Eof Then
HOPE_CorCount=HOPE_CorCount&"<strong>注册资金：</strong> "&rsc2("title")&""
rsc2.Close
Set rsc2=Nothing
End If
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</table></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td height=20 align=right class=S><div id='search_resultmsg4' style=""display:none"">"
'--是否使用的名片页------------------------------------------------------------
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from Websen_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_CorCount=HOPE_CorCount&" <img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href='http://"&rs("user")&"."&weburl1&"' target=_blank>查看该公司</a> "
Else
HOPE_CorCount=HOPE_CorCount&" <img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href="&HOPE_InstallDir&"Vipcom/"&rs("user")&" target=_blank>查看该公司</a> "
End If
Else
HOPE_CorCount=HOPE_CorCount&" <img src="&HOPE_InstallDir&"images/icon_point.gif width=18 height=19 align=absmiddle border=0> <a href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank>查看该公司</a>"
End If
rsmp.close
end if
HOPE_CorCount=HOPE_CorCount&"</div></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</table></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</tbody>"
HOPE_CorCount=HOPE_CorCount&"<tbody style='display:none;'>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td align=center valign=top> <div id='search_resultmsg5' style=""display:none""><table width='90%' border=0 cellpadding=0 cellspacing=0>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td height=22><A href=mailto:"&rs("email")&">"&rs("name")&"</A> "&rs("ch")&""
If rs("zw")<>"" Then
HOPE_CorCount=HOPE_CorCount&"("&rs("zw")&")"
Else
End If
HOPE_CorCount=HOPE_CorCount&"<br> </td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</table>"
HOPE_CorCount=HOPE_CorCount&"<TABLE cellSpacing=0 cellPadding=0 width='90%' align=center border=0>"
HOPE_CorCount=HOPE_CorCount&"<TBODY>"
HOPE_CorCount=HOPE_CorCount&"<TR>"
HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top noWrap height=18><strong>电 话：</strong></TD>"
HOPE_CorCount=HOPE_CorCount&"<TD class=text13>"&rs("phone")&"</TD>"
HOPE_CorCount=HOPE_CorCount&"</TR>"
HOPE_CorCount=HOPE_CorCount&"<TR>"
HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top height=18><strong>传 真：</strong></TD>"
HOPE_CorCount=HOPE_CorCount&"<TD class=text13>"&rs("fax")&" </TD>"
HOPE_CorCount=HOPE_CorCount&"</TR>"
HOPE_CorCount=HOPE_CorCount&"<TR>"
HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top noWrap height=18><strong>移动电话：</strong></TD>"
HOPE_CorCount=HOPE_CorCount&"<TD class=text13>"&rs("mobile")&"</TD>"
HOPE_CorCount=HOPE_CorCount&"</TR>"
HOPE_CorCount=HOPE_CorCount&"<TR>"
HOPE_CorCount=HOPE_CorCount&"<TD class=text13 vAlign=top noWrap height=18><strong>办公地址：</strong></TD>"
HOPE_CorCount=HOPE_CorCount&"<TD class=lh13><SPAN class=text13>"&rs("Country")&""&rs("sf")&""&rs("city")&""&rs("address")&"</SPAN></TD>"
HOPE_CorCount=HOPE_CorCount&"</TR>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -