📄 makedetail.asp
字号:
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&"'/><div id='search_resultmsg' style=""display:none"">"
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>"
Websen_Contact=Websen_Contact&"</div>"
rsmp.close
end if
'招商信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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_InfoPicTure=HOPE_InfoPicTure&"<TABLE width=700 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 width=600> <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=550 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>650){this.width=650;}"" 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>点击1小图<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")&" widht='64' height='64' 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' 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);' 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 class=prmcontentborder>"
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=30>"
HOPE_XG=HOPE_XG&"<FONT color=#333333>该公司其他求购信息推荐 </FONT>"
sql="select top 6 info_id,sortid,draw1,draw,draw2,typeid,typeid_2,showname,dateandtime,picture,picture_summ,type from Websen_Info where flag=1 And type='买' And gsid="&gsid&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,1
sqlkk="select * from Websen_corporation where id="&gsid&""
Set rskk= Server.CreateObject("ADODB.Recordset")
rskk.Open sqlkk,conn,1,1
If rs.Eof Then
HOPE_XG=HOPE_XG&"<br><br><br><div align='center' class=s>该公司暂无其他求购信息</div>"
Else
keywords="急"
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("draw"))<>"null" then
If rs("type")="买" Then
HOPE_XG=HOPE_XG&"<A class=s href="&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html><IMG src="&HOPE_InstallDir&"Vipcom/"&rskk("user")&"/"&rs("draw")&" height=100 width=100 border=0> </A>"
End If
elseif trim(rs("draw1"))<>"" and trim(rs("draw1"))<>"null" then
If rs("type")="买" Then
HOPE_XG=HOPE_XG&"<A class=s href="&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html><IMG src="&HOPE_InstallDir&"Vipcom/"&rskk("user")&"/"&rs("draw1")&" height=100 width=100 border=0> </A>"
End If
elseif trim(rs("draw2"))<>"" and trim(rs("draw2"))<>"null" then
If rs("type")="买" Then
HOPE_XG=HOPE_XG&"<A class=s href="&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html><IMG src="&HOPE_InstallDir&"Vipcom/"&rskk("user")&"/"&rs("draw2")&" height=100 width=100 border=0> </A>"
End If
else
If rs("type")="买" Then
HOPE_XG=HOPE_XG&"<A class=s href="&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html><div class='nopic_jpg'></div></A>"
End If
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>"
If rs("type")="买" Then
HOPE_XG=HOPE_XG&"<A class=M href='"&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html'>"
End If
HOPE_XG=HOPE_XG&"<SPAN class=lh15>"&Replace(rs("showname"),keywords,"<font color=red>"&keywords&"</font>")&"</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_resultmsg6' 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> <small>></small> <a href='"&HOPE_InstallDir&"seller/index.html'>我要销售</a> > "&HOPE_Sort&" "&HOPE_Type&" > "&HOPE_Title
'………………………………………………………………………………………………………………………………………………
'替换标签函数调用^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pencat=Hope_HtmlResult(pencat)
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^生成页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set fso = YXFSO
Set sort_save = fso.CreateTextFile(Server.mappath(HOPE_InstallDir&"seller/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".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
rskk.Close
Set rskk=Nothing
conn.Close
Set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -