📄 makedetail.asp
字号:
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&"'/>"
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>"
rsmp.close
end if
'产品图片信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TABLE width='100%' border=0 align=center cellPadding=0 cellSpacing=0>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TBODY>"
If rs("draw")<>"" and rs("draw1")<>"" and rs("draw2")<>"" Then
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TR>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TD > <a name=zoom></a>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<SCRIPT LANGUAGE=JavaScript>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"viewArray = new Array();"
HOPE_InfoPicTure=HOPE_InfoPicTure&"viewArray[0] = new Image;"
HOPE_InfoPicTure=HOPE_InfoPicTure&"viewArray[1] = new Image;"
HOPE_InfoPicTure=HOPE_InfoPicTure&"viewArray[2] = new Image;"
HOPE_InfoPicTure=HOPE_InfoPicTure&"viewArray[0].src = """&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw")&""";"
HOPE_InfoPicTure=HOPE_InfoPicTure&"viewArray[1].src = """&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw1")&""";"
HOPE_InfoPicTure=HOPE_InfoPicTure&"viewArray[2].src = """&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw2")&""";"
HOPE_InfoPicTure=HOPE_InfoPicTure&"function changeView(x) {"
HOPE_InfoPicTure=HOPE_InfoPicTure&" document.images[""prodView""].src = viewArray[x].src;}"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</SCRIPT>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TABLE width='100%' height=350 border=0 align=center cellPadding=0 cellSpacing=0 class=porductborder>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TBODY>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TR>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TD align=middle> <div align=center>"
If rs("draw")="" and rs("draw1")="" and rs("draw2")="" Then
HOPE_InfoPicTure=HOPE_InfoPicTure&"<div class='nopic_jpg'></div>"
Else
If trim(rs("draw1"))<>"" and trim(rs("draw2"))<>"" and trim(rs("draw"))<>"" Then
PTpic=rs("draw")
Elseif trim(rs("draw2"))="" and trim(rs("draw1"))="" Then
PTpic=rs("draw")
Elseif trim(rs("draw2"))="" and trim(rs("draw"))="" Then
PTpic=rs("draw1")
Else
PTpic=rs("draw2")
End If
HOPE_InfoPicTure=HOPE_InfoPicTure&"<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&PTpic&" NAME=prodView onload=""javascript:if(this.width>400){this.width=400;}"" border=0>"
End If
HOPE_InfoPicTure=HOPE_InfoPicTure&"</div></TD>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</TR>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</TBODY>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</TABLE></TD>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TD width=15 valign=top> </TD>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<TD align=center valign=top class=S lh15>"
If rs("draw")<>"" Then
HOPE_InfoPicTure=HOPE_InfoPicTure&"<br>点击小图<br>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"浏览图片<br>"
HOPE_InfoPicTure=HOPE_InfoPicTure&" <br>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<table width=64 border=0 cellpadding=0 cellspacing=0 class=picstyle>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<tr>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<td height=64 align=center><img src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw")&" width='64' height='64' border=0 style='cursor:hand' onclick='changeView(0);'></td>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</tr>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</table>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<br>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<table width=64 border=0 cellpadding=0 cellspacing=0 class=picstyle>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<tr>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<td height=64 align=center><img src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw1")&" width='64' height='64' border=0 style='cursor:hand' onclick='changeView(1);'></td>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</tr>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</table>"
End If
If rs("draw2")<>"" Then
HOPE_InfoPicTure=HOPE_InfoPicTure&"<br>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<table width=64 border=0 cellpadding=0 cellspacing=0 class=picstyle>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<tr>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"<td height=64 align=center><img src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw2")&" onclick='changeView(2);' border=0 width='64' height='64' style='cursor:hand'></td>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</tr>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</table>"
End If
HOPE_InfoPicTure=HOPE_InfoPicTure&"</TD>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</TR>"
End If
HOPE_InfoPicTure=HOPE_InfoPicTure&"</TBODY>"
HOPE_InfoPicTure=HOPE_InfoPicTure&"</TABLE>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'公司供应信息相关信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_XG=HOPE_XG&"<table width='100%' border=0 align=center cellpadding=0 cellspacing=0 >"
HOPE_XG=HOPE_XG&"<tr>"
HOPE_XG=HOPE_XG&"<td><TABLE width='100%' border=0 align=center cellPadding=0 cellSpacing=0>"
HOPE_XG=HOPE_XG&"<TBODY>"
HOPE_XG=HOPE_XG&"<TR align=middle bgColor='#efefef'>"
HOPE_XG=HOPE_XG&"<TD class=C bgColor='#efefef' height=25>"
HOPE_XG=HOPE_XG&"<FONT color=#333333>该公司供应信息推荐 </FONT>"
HOPE_XG=HOPE_XG&"<IMG height=19 src="&HOPE_InstallDir&"images/icon_point.gif width=18 align=absMiddle border=0>"
'--是否使用的名片页------------------------------------------------------------
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_XG=HOPE_XG&"<A href='http://"&rs("user")&"."&weburl1&"/VipProduct1.htm' target=_blank>全部产品目录</A> "
Else
HOPE_XG=HOPE_XG&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/VipProduct1.htm' target=_blank>全部产品目录</A> "
End If
HOPE_XG=HOPE_XG&"<IMG height=19 src="&HOPE_InstallDir&"images/icon_point.gif width=18 align=absMiddle border=0>"
If is2weburl=1 Then
HOPE_XG=HOPE_XG&"<A href='http://"&rs("user")&"."&weburl1&"/supply1.htm' target=_blank>全部供求信息</A>"
Else
HOPE_XG=HOPE_XG&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank>全部供求信息</A>"
End If
end if
rsmp2.close
end if
sql="select top 6 Websen_info.info_id,Websen_info.flag as Websen_infoflag,Websen_info.gsid,Websen_info.sortid as infosortid,Websen_info.typeid as infotypeid,Websen_info.typeid_2 as infotypeid_2,Websen_info.type,Websen_info.showname,Websen_info.content,Websen_info.period,Websen_info.dateandtime,Websen_info.picture,Websen_info.picture_summ,Websen_info.Specifications,Websen_info.Quantity,Websen_info.Packaging,Websen_info.draw,Websen_info.draw1,Websen_info.draw2,Websen_info.PriceTerms,Websen_corporation.* from Websen_Info,Websen_corporation where Websen_info.gsid="&gsid&" and Websen_corporation.id=Websen_info.gsid and Websen_info.flag=1 and Websen_info.type='卖'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,1
gsid=rs("gsid")
If rs.Eof Then
HOPE_XG=HOPE_XG&"<br><br><br><div align='center' class=s>该公司暂无其他供应信息</div>"
Else
HOPE_XG=HOPE_XG&"</TD>"
HOPE_XG=HOPE_XG&"</TR>"
HOPE_XG=HOPE_XG&"</TBODY>"
HOPE_XG=HOPE_XG&"</TABLE>"
HOPE_XG=HOPE_XG&"<TABLE width='100%' height=85 border=0 cellPadding=5 cellSpacing=5 align=left>"
HOPE_XG=HOPE_XG&"<TBODY>"
HOPE_XG=HOPE_XG&"<TR>"
j=1
do while Not rs.Eof
HOPE_XG=HOPE_XG&"<TD width=100 align=middle>"
HOPE_XG=HOPE_XG&"<TABLE class=porductborder height=64 cellSpacing=0 cellPadding=0 width=64 border=0>"
HOPE_XG=HOPE_XG&"<TBODY>"
HOPE_XG=HOPE_XG&"<TR>"
HOPE_XG=HOPE_XG&"<TD align=middle>"
If trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" Then
PTpic="<div class='nopic_jpg'></div>"
Else
If trim(rs("draw1"))<>"" and trim(rs("draw2"))<>"" and trim(rs("draw"))<>"" Then
PTpic="<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw")&" border=0 height=100 width=100>"
Elseif trim(rs("draw2"))="" and trim(rs("draw1"))="" Then
PTpic="<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw")&" border=0 height=100 width=100>"
Elseif trim(rs("draw2"))="" and trim(rs("draw"))="" Then
PTpic="<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw1")&" border=0 height=100 width=100>"
Else
PTpic="<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw2")&" border=0 height=100 width=100>"
End If
End If
If rs("type")="卖" Then
HOPE_XG=HOPE_XG&"<A href="&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html>"&PTpic&"</A>"
End If
HOPE_XG=HOPE_XG&"</TD>"
HOPE_XG=HOPE_XG&"</TR>"
HOPE_XG=HOPE_XG&"</TBODY>"
HOPE_XG=HOPE_XG&"</TABLE></TD>"
HOPE_XG=HOPE_XG&"<TD class=cate>"
HOPE_XG=HOPE_XG&"<A class=M href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html'>"
HOPE_XG=HOPE_XG&"<SPAN class=lh15>"&rs("showname")&"</SPAN></a><BR>"
HOPE_XG=HOPE_XG&"<FONT color=#666666>"&FormatDate(rs("dateandtime"),2)&"</FONT></TD>"
If j mod 2 = 0 Then
HOPE_XG=HOPE_XG&"</TR>"
HOPE_XG=HOPE_XG&"<tr>"
End If
rs.movenext
j=j+1
loop
End If
HOPE_XG=HOPE_XG&"</TBODY>"
HOPE_XG=HOPE_XG&"</TABLE></td>"
HOPE_XG=HOPE_XG&"</tr>"
HOPE_XG=HOPE_XG&"</table>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
rs.Close
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_Title=showname '页面标题
'^用于发送发送留言^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_ToMessage="<div id='search_resultmsg5' style=""display:none""><a href='"&HOPE_InstallDir&"member/getprice/message.asp?info_id="&ttid&"' target='_blank'>给该公司发送留言 </a></div>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'用于留言讯价用的用户传值id^^^^^^^^^^^^^^^^^^^^^^^
HOPE_AskId=ttid
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'导航标签#HOPE_TradeGo#
HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"tradeinfo/index.html'>供应信息</a> > "&HOPE_Sort&" > "&HOPE_Type&""
'替换模版中的标签函数^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pencat=Hope_HtmlResult(pencat)
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'进行静态页面的生成^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fso =YXFSO
Set sort_save = fso.CreateTextFile(server.mappath(HOPE_InstallDir&"tradeinfo/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html"))
sort_save.Write pencat
sort_save.Close
If Request("other")="1" Then Response.end
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 + -