📄 makedetail.asp
字号:
HOPE_CorCount=HOPE_CorCount&"<td class=cardSpace width=6> </td>"
HOPE_CorCount=HOPE_CorCount&"<td width=95 height=27 class=cardNormal onclick='secCard(2);secBoard(1);'>公司信息</td>"
HOPE_CorCount=HOPE_CorCount&"<td class=cardSpace width=6> </td>"
HOPE_CorCount=HOPE_CorCount&"<td width=95 height=27 class=cardNormal onclick='secCard(3);secBoard(2);' nowrap>联系信息</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>"
set rsjj=server.CreateObject("adodb.recordset")
sqljj="select gradename from Websen_vipgrade where roleid="&rs("gradeid")
rsjj.open sqljj,conn,1,1
if not rsjj.eof then
HOPE_CorCount=HOPE_CorCount&"<font color=red style=""font-size:14px""><b>"&rsjj("gradename")&"</b></font>"
HOPE_HuiYuan=HOPE_HuiYuan&"<font color=#ffffff style=""font-size:14px""><b>"&rsjj("gradename")&"</b></font>"
rsjj.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>"
HOPE_CorCount=HOPE_CorCount&"<td class=S style='line-height:180%;padding-top:5px'> <strong>工商注册信息：</strong>已通过认证<br>"
HOPE_GsRint=HOPE_GsRint&"已通过认证"
HOPE_CorCount=HOPE_CorCount&"<strong>证书及荣誉：</strong>"
sql1="select count(id) from Websen_bizre where gsid="&rs("id")&" and sh=1"
Set totle=Server.CreateObject("adodb.recordset")
totle.Open sql1,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>"
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)
HOPE_CorCount=HOPE_CorCount&"<FONT color=red><b>"&totle2s&"</b></font>条 "
HOPE_PingLint=HOPE_PingLint&"<FONT color=red><b>"&totle2s&"</b></font>条 "
totles.Close
Set totles=nothing
End If
HOPE_CorCount=HOPE_CorCount&"<a href="&HOPE_InstallDir&"trustadv/rempost.asp?id="&rs("id")&" target=_blank >发表评价</a></td>"
HOPE_PingLant=HOPE_PingLant&"<a href="&HOPE_InstallDir&"trustadv/rempost.asp?id="&rs("id")&" target=_blank >发表评价</a></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</table></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"<tr><td height=20 class=S><div id='search_resultmsg3' style=""display:none""> "
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'--是否使用的名片页------------------------------------------------------------
set rsmp5=server.CreateObject("adodb.recordset")
sqlmp5="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp5.open sqlmp5,conn,1,1
if not rsmp5.eof then
if instr(rsmp5("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_CorCount=HOPE_CorCount&" <a href=http://"&rs("user")&"."&weburl1&" target=_blank>查看该公司</a></div> "
Else
HOPE_CorCount=HOPE_CorCount&" <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>查看该公司</a></div>"
end if
rsmp5.close
end if
set rsmp5=server.CreateObject("adodb.recordset")
sqlmp5="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp5.open sqlmp5,conn,1,1
if not rsmp5.eof then
if instr(rsmp5("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_Corprant=HOPE_Corprant&" <a href=http://"&rs("user")&"."&weburl1&" target=_blank>查看该公司</a></div> "
Else
HOPE_Corprant=HOPE_Corprant&" <a href="&HOPE_InstallDir&"vipcom/"&rs("user")&"/ target=_blank>查看该公司</a></div> "
End If
else
HOPE_Corprant=HOPE_Corprant&" <a href="&HOPE_InstallDir&"ptcom/"&rs("user")&".html target=_blank>查看该公司</a></div>"
end if
rsmp5.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
End If
Set rsc=nothing
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> </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_resultmsg4' 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")&")"
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 colspan=2><strong>公司主页：</strong></TD></tr>"
'--是否使用的名片页------------------------------------------------------------
set rsmp1=server.CreateObject("adodb.recordset")
sqlmp1="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp1.open sqlmp1,conn,1,1
if not rsmp1.eof then
if instr(rsmp1("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
rsmp1.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>"
'招商信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from Websen_corporation where ID="&gsid
rsmp.open sqlmp,conn,1,1
if rsmp("C_logo") then
logo=rsmp("C_logo")
websen_logo="<div class=' h_logo'><img src='../../../vipcom/"&logo&"' onload=""javascript:if(this.width>250){this.width=250;};if(this.height>250){this.height=250} "" border=""0""></div>"
else
websen_logo="<div class=' h_logo'><img src='../../hc360/nopicture.gif' onload=""javascript:if(this.width>250){this.width=250;};if(this.height>250){this.height=250} "" border=""0""></div>"
end if
hope_bcom="../../../vipcom/"&rsmp("user")&"/index.htm"
hope_chance="../../../vipcom/"&rsmp("user")&"/supply1.htm"
hope_contact="../../../vipcom/"&rsmp("user")&"/Contact.htm"
gradeid=rsmp("gradeid")
rsmp.close
set rsmp=nothing
'具体产品信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_CountInfo=HOPE_CountInfo&""&rs("content")&""
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
' 产品相关属性'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -