📄 makedetail.asp
字号:
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=""16%"" 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 Websen_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&"</table>" & vbCrlf
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Contact=HOPE_Contact&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>"
HOPE_Contact=HOPE_Contact&"<td height='30' colspan='2'><b>联 系 人：</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> <a href="""&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&""" target=""_blank"">【发表留言】</a></td>"
HOPE_Contact=HOPE_Contact&"</tr>"
HOPE_Contact=HOPE_Contact&"<tr><td height='30' colspan='2'><b>电 话：</b> "&rs("phone")&"</td></tr>"
HOPE_Contact=HOPE_Contact&"<tr><td height='30' colspan='2'><b>移动电话：</b> "&rs("mobile")&"</td></tr>"
HOPE_Contact=HOPE_Contact&"<tr><td height='30' colspan='2'><b>传 真：</b> "&rs("fax")&"</td></tr>"
HOPE_Contact=HOPE_Contact&"<tr><td height='30' colspan='2'><b>电 话：</b> "&rs("mobile")&"</td></tr>"
HOPE_Contact=HOPE_Contact&"<tr><td height='30' colspan='2'><b>地 址：</b> "
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='30' colspan='2'><b>邮 箱：</b> "&rs("email")&"</td></tr>"
HOPE_Contact=HOPE_Contact&"<tr><td width='140' height='30'><b>公司主页：</b></td><td width='400'>"
'--是否使用的名片页------------------------------------------------------------
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_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>"
if rs("Qyjj")="" then
HOPE_Contaect=HOPE_Contaect&"暂无公司简介信息!"
Else
HOPE_Contaect=HOPE_Contaect&rs("Qyjj")
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
if rs("C_logo") then
websen_logo="<div class=' h_logo'><img src='"&HOPE_InstallDir&"vipcom/"&rs("C_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="&HOPE_InstallDir&"vipcom/"&rs("cimg")&" width=250 height=250 border='0'></div>"
end if
if rs("cimg") then
websen_gozne="<img src="&HOPE_InstallDir&"vipcom/"&rs("cimg")&" width=250 height=250 border='0'>"
else
websen_gozne="<img src="&HOPE_InstallDir&"images/nopic_250x200.gif width=250 height=250 border='0'>"
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_CorCount=HOPE_CorCount&"<table border=0 cellspacing=0 cellpadding=0 width='100%'>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
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&"<td height=30><strong>会 员 类 型 ：</strong> <font color=red style=""font-size:14px;"" ><b>"&rsgr("gradename")&"</b></font></td>"
rsgr.close
end if
end if
HOPE_CorCount=HOPE_CorCount&"<td> </td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td height=30><strong>工商注册信息：</strong>已通过认证</td>"
HOPE_CorCount=HOPE_CorCount&"<td></td></tr><tr>"
HOPE_CorCount=HOPE_CorCount&"<td height=30><strong>证书 及 荣誉：</strong>"
sqlc="select count(id) from Websen_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>项</td>"
HOPE_CorCount=HOPE_CorCount&"<td></td></tr><tr>"
totlec.Close
Set totlec=Nothing
End If
HOPE_CorCount=HOPE_CorCount&"<td height=30><strong>会员评价总数：</strong>"
sqlt3="select count(id) from Websen_trustadv where Websen_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>条</td>"
totlet3.Close
Set totlet3=Nothing
HOPE_CorCount=HOPE_CorCount&"</tr><tr><td height=30><strong>诚信指数：<font color=red style=""font-size:14px"">"&rs("trust_score")&"</font></strong></td></tr></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_HtmlResult(pencat)
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'生成信息页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
conn.Execute("update Websen_corporation Set html_pass=1 where id="&ttid&"")
Set fso = YXFSO
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
Function changechr(fString)
If Not IsNull(fString) Then
fString = trim(fString)
fString = replace(fString, "--", "——")
fString = replace(fString, "%20", "")
fString = replace(fString, "==", "")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
changechr = fString
End If
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -