📄 makedetail.asp
字号:
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"">"
'--是否使用的名片页------------------------------------------------------------
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from yixiang_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_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
else
HOPE_Contact=HOPE_Contact&"「本站」<a href='"&HOPE_InstallDir&"ptcom/"&rs("user")&".html' target=_blank>http://"&WebUrl1&HOPE_InstallDir&"ptcom/"&rs("user")&".html </a> "
end if
rsmp.close
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><div><div id='search_resultmsg3' style=""display:none""></div><div id='search_resultmsg4' style=""display:none""></div><div id='search_resultmsg5' style=""display:none""></div><div id='search_resultmsg6' style=""display:none""></div>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'显示会员信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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> </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>"
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>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'--是否使用的名片页------------------------------------------------------------
set rsmp2=server.CreateObject("adodb.recordset")
sqlmp2="select * from yixiang_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&"<td height=20 class=S><div align=right><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></td>"
Else
HOPE_CorCount=HOPE_CorCount&"<td height=20 class=S><div align=right><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></td>"
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> "
end if
rsmp2.close
end if ''^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
''^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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 Yixiang_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 rsc1=Nothing
HOPE_CorCount=HOPE_CorCount&"<strong>经营模式：</strong> "&rs("qylb")&" <br>"
c1="select * from Yixiang_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 title from Yixiang_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> <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 colspan=2><strong>公司主页：</strong></TD></tr>"
'--是否使用的名片页------------------------------------------------------------
set rsmp1=server.CreateObject("adodb.recordset")
sqlmp1="select * from yixiang_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&"「本站」<a href='"&HOPE_InstallDir&"ptcom/"&rs("user")&".html' target=_blank>http://"&WebUrl1&HOPE_InstallDir&"ptcom/"&rs("user")&".html </a> "
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></td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</tbody>"
HOPE_CorCount=HOPE_CorCount&"</table>"
Response.Write "<br><b>已生成/要生成的页面条数:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
If mpage<currentPage Then
Response.Write ",完成时间"&Now()&"</b> "
Else
HOPE_TradeInfo=rs("qymc") '页面标题
HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"corporation/'>公司库</a> > "&HOPE_TradeInfo&" "
'执行模版页中的标签替换操作^^^^^^^^^^^^^^^^^^^^^^^^
pencat=Hope_htmlAll(pencat)
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'生成信息页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
conn.Execute("update wygkcn_corporation Set html_pass=1 where id="&ttid&"")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"Ptcom/"&user&".html"))
sort_save.Write pencat
sort_save.Close
Response.Write "<meta http-equiv=Refresh content='0; URL=makedetail.asp?all="&Request("all")&"&id1="&id1&"&id2="&id2&"&page="¤tPage+1&"&schtml="&Request("schtml")&"'>"
End If
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -