📄 makedetail.asp
字号:
set rsdm=server.CreateObject("adodb.recordset")
sqldm="select gradename from Websen_vipgrade where roleid="&rs("gradeid")
rsdm.open sqldm,conn,1,1
if not rsdm.eof then
HOPE_CorCount=HOPE_CorCount&"<font color=red style=""font-size:14px""><b>"&rsdm("gradename")&"</b></font>"
HOPE_HuiYuan=HOPE_HuiYuan&"<font color=#ffffff style=""font-size:14px""><b>"&rsdm("gradename")&"</b></font>"
rsdm.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'> "
HOPE_CorCount=HOPE_CorCount&"<strong>工商注册信息：</strong>已通过认证<br>"
HOPE_GsRint=HOPE_GsRint&"已通过认证"
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
HOPE_CorCount=HOPE_CorCount&"<br>"
HOPE_CorCount=HOPE_CorCount&"<strong>会员评价总数：</strong>"
sqlw="select count(id) from Websen_trustadv where Websen_trustadv.bprid="&rs("id")&""
Set totlew=Server.CreateObject("adodb.recordset")
totlew.Open sqlw,conn,1,1
If Not totlew.Eof Then
totle2w=totlew(0)
HOPE_CorCount=HOPE_CorCount&" <FONT color=red><b>"&totle2w&"</b></font>条 "
HOPE_PingLint=HOPE_PingLint&"<FONT color=red><b>"&totle2w&"</b></font>条 "
totlew.Close
Set totlew=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>"
End If
HOPE_CorCount=HOPE_CorCount&"</td></tr>"
HOPE_CorCount=HOPE_CorCount&"</table></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"<tr><td height=20 class=S><div >"
HOPE_CorCount=HOPE_CorCount&"<div id='search_resultmsg3' style=""display:none"">"
'--是否使用的名片页------------------------------------------------------------
set rsmp2=server.CreateObject("adodb.recordset")
sqlmp2="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp2.open sqlmp1,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&"「本站」<a href='"&HOPE_InstallDir&"ptcom/"&rs("user")&".html' target=_blank>http://"&WebUrl1&HOPE_InstallDir&"ptcom/"&rs("user")&".html </a></div> "
end if
rsmp2.close
end if
HOPE_CorCount=HOPE_CorCount&"</td></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>"
HOPE_CorCount=HOPE_CorCount&"<div id='search_resultmsg4' style=""display:none"">"
'--是否使用的名片页------------------------------------------------------------
set rsmp3=server.CreateObject("adodb.recordset")
sqlmp3="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp3.open sqlmp1,conn,1,1
if not rsmp3.eof then
if instr(rsmp3("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
rsmp3.close
End If
HOPE_CorCount=HOPE_CorCount&"</div>"
HOPE_CorCount=HOPE_CorCount&"</td></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>"
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("post")&"</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>"
'--是否使用的名片页------------------------------------------------------------
set rsmp4=server.CreateObject("adodb.recordset")
sqlmp4="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp4.open sqlmp1,conn,1,1
if not rsmp4.eof then
if instr(rsmp4("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_CorCount=HOPE_CorCount&"<tr><TD class=text13 colspan=2 style='WORD-BREAK: break-all'>「本站」<a href='http://"&rs("user")&"."&weburl1&"' target=_blank> http://"&rs("user")&"."&weburl1&"</a></td></tr>"
Else
HOPE_CorCount=HOPE_CorCount&"<tr><TD colspan=2 class=text13 style='WORD-BREAK: break-all'>「本站」<a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank>http://"&WebUrl1&HOPE_InstallDir&"vipcom/"&rs("user")&"/ </a></td></tr>"
End If
Else
HOPE_CorCount=HOPE_CorCount&"<tr><TD colspan=2 class=text13 style='WORD-BREAK: break-all'>「本站」<a href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank>http://"&WebUrl1&HOPE_InstallDir&"Ptcom/"&rs("user")&".html </a></td></tr>"
end if
rsmp4.close
End If
HOPE_CorCount=HOPE_CorCount&"<tr><td colspan=2>「其它」<a href="&rs("web")&" target=_blank>"&rs("web")&"</a> </TD>"
HOPE_CorCount=HOPE_CorCount&"</TR>"
HOPE_CorCount=HOPE_CorCount&"</TBODY>"
HOPE_CorCount=HOPE_CorCount&"</TABLE></div></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</tbody>"
HOPE_CorCount=HOPE_CorCount&"</table>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'详细说明
HOPE_CountInfo= "<table border=0 cellpadding=0 cellspacing=0 width='730' ><tr><td>"&rs("content")&"</td></tr></table>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
' 产品相关属性'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_BC=HOPE_BC&"<TABLE width='100%' border=0 cellPadding=0 cellSpacing=0>"
HOPE_BC=HOPE_BC&"<TBODY>"
HOPE_BC=HOPE_BC&"<TR>"
HOPE_BC=HOPE_BC&"<TD height=35>产品规格： "&rs("Specifications")&"</TD>"
HOPE_BC=HOPE_BC&"</TR>"
HOPE_BC=HOPE_BC&"<TR>"
HOPE_BC=HOPE_BC&"<TD height=35>产品数量： "&rs("Quantity")&"</TD>"
HOPE_BC=HOPE_BC&"</TR>"
HOPE_BC=HOPE_BC&"<TR>"
HOPE_BC=HOPE_BC&"<TD height=35>包装说明： "&rs("Packaging")&"</TD>"
HOPE_BC=HOPE_BC&"</TR>"
HOPE_BC=HOPE_BC&"<TR>"
HOPE_BC=HOPE_BC&"<TD height=35>价格说明： "&rs("PriceTerms")&"</TD>"
HOPE_BC=HOPE_BC&"</TR>"
HOPE_BC=HOPE_BC&"</TBODY>"
HOPE_BC=HOPE_BC&"</TABLE>"
' 所在地'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Websen_Address=Websen_Address&"所 在 地："&rs("Country")&" "&rs("Sf")&"省 "&rs("City")&"市"
' 公司相关信息'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'--是否使用的名片页------------------------------------------------------------
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
Websen_Related=Websen_Related&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td width='52%' height='26'><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&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td width='52%' height='26'><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&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td width='52%' height='26'><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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -