makedetail.asp

网胜B2B电子商务蓝色风格2008SP6.0.1普及版

	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>" 
	
	
	HOPE_CorCount=HOPE_CorCount&"<tr><TD class=text13 colspan=2 style='WORD-BREAK: break-all'>"
 '--是否使用的名片页------------------------------------------------------------
	   set rsmp3=server.CreateObject("adodb.recordset")
	   sqlmp3="select * from Websen_vipgrade where roleid="&rs("gradeid")
	   rsmp3.open sqlmp3,conn,1,1
	   if not rsmp3.eof  then
	   if instr(rsmp3("rolelist"),"qw")>0 then		
	   	If is2weburl=1 Then
				HOPE_CorCount=HOPE_CorCount&"「本站」<a href='http://"&rs("user")&"."&weburl1&"'    target=_blank> http://"&rs("user")&"."&weburl1&"</a> " 
			Else
				HOPE_CorCount=HOPE_CorCount&" 「本站」<a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'  target=_blank>http://"&WebUrl1&HOPE_InstallDir&"vipcom/"&rs("user")&"/ </a> " 
			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
 rsmp3.close
	 end if
	HOPE_CorCount=HOPE_CorCount&"</td></tr><tr><td colspan=2 style='WORD-BREAK: break-all'> </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>" 
	
	HOPE_CountInfo="<table border=0 cellpadding=0 cellspacing=0 width='100%' ><tr><td style='word-break:break-all'>"&replace(rs("xxsm"),chr(10),"<br>")&"</td></tr></table>"
	
	HOPE_BC=HOPE_BC&"<TABLE width=""98%"" border=0 align=""center"" cellPadding=0 cellSpacing=0>"
	If rs("cpgg")<>"" Then
	HOPE_BC=HOPE_BC&"<TR><TD height=25>产品型号："&rs("cpgg")&"</TD></TR>"
	else
	HOPE_BC=HOPE_BC&"<TR><TD height=25>产品型号：-</TD></TR>"
	End If
	If rs("cpcd")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR><TD height=25 >原 产 地："&rs("cpcd")&"</TD></TR>"
	else
	HOPE_BC=HOPE_BC&"<TR><TD height=25 >原 产 地：-</TD></TR>"
	End If
	If rs("cpsb")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR><TD height=25 >产品品牌："&rs("cpsb")&"</TD></TR>"
	else
	HOPE_BC=HOPE_BC&"<TR><TD height=25 >产品品牌：-</TD></TR>"
	End If
	If rs("Quantity")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR><TD height=25 >产品数量："&rs("Quantity")&"</TD></TR>"
	else
	HOPE_BC=HOPE_BC&"<TR><TD height=25 >产品数量：-</TD></TR>"
	End If
	If rs("Packaging")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR><TD height=25>包装说明："&rs("Packaging")&"</TD></TR>"
	else
	HOPE_BC=HOPE_BC&"<TR><TD height=25>包装说明：-</TD></TR>"
	End If
	If rs("Cpjg")<>"" Then 
	HOPE_BC=HOPE_BC&"<TR><TD height=25>价格说明："&rs("Cpjg")&"</TD></TR>"
	HOPE_BC=HOPE_BC&"<TR><TD height=25>价格说明：-</TD></TR>"
	End If
	HOPE_BC=HOPE_BC&"</TABLE>"
	
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TABLE width='100%'  border=0  align=center cellPadding=0 cellSpacing=0>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TBODY>" 
	If rs("picture")<>"../../UploadFile/nopicture.gif" Then 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TR>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TD align=center> <a name=zoom></a>"  
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<TABLE width=500 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("picture")<>"../../UploadFile/nopicture.gif" Then
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("picture")&" NAME=prodView onload=""javascript:if(this.width>650){this.width=650;}""  border=0>" 
	Else
	HOPE_InfoPicTure=HOPE_InfoPicTure&"<div class='nopic_jpg'></div>" 
	End If
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TD>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TR>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TBODY>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TABLE></TD>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TR>" 
	End If 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TBODY>" 
	HOPE_InfoPicTure=HOPE_InfoPicTure&"</TABLE>"
	
	HOPE_XG=HOPE_XG&"<table width='98%'  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&"<div id='search_resultmsg6' style=""display:none"">"
'--是否使用的名片页------------------------------------------------------------
	   set rsmp4=server.CreateObject("adodb.recordset")
	   sqlmp4="select * from Websen_vipgrade where roleid="&rs("gradeid")
	   rsmp4.open sqlmp4,conn,1,1
	   if not rsmp4.eof  then
	   if instr(rsmp4("rolelist"),"qw")>0 then		
	   HOPE_XG=HOPE_XG&"<FONT color=#333333>该公司供求信息推荐 </FONT><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&"/VipProduct1.htm' target=_blank>全部产品目录</A>&nbsp;&nbsp; <IMG height=19 src="&HOPE_InstallDir&"images/icon_point.gif width=18 align=absMiddle border=0>"
		 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")&"/VipProduct1.htm' target=_blank>全部产品目录</A>&nbsp;&nbsp; <IMG height=19 src="&HOPE_InstallDir&"images/icon_point.gif width=18 align=absMiddle border=0>"
		HOPE_XG=HOPE_XG&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank>全部供求信息</A>"
		 End If
		 end if
 rsmp4.close
	End If
	HOPE_XG=HOPE_XG&"</div>"
	sql="select top 6 Websen_info.info_id,Websen_info.draw,Websen_info.draw1,Websen_info.draw2,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.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
	If not rs.Eof Then 
	gsid=rs("gsid")
	End If 
	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 
		HOPE_XG=HOPE_XG&"<div class='nopic_jpg'></div>" 
	 Else
		  If Trim(rs("draw1"))<>"" And  Trim(rs("draw2"))<>""  And Trim(rs("draw"))<>"" Then 
		   pgong=rs("draw")
		  ElseIf Trim(rs("draw2"))="" And Trim(rs("draw1"))="" Then
			pgong=rs("draw")
		  ElseIf Trim(rs("draw2"))="" And Trim(rs("draw"))="" Then
			 pgong=rs("draw1")
		  Else
			 pgong=rs("draw2")
		  End If 
	 
	
 		HOPE_XG=HOPE_XG&"<A class=s href="&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html><IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&pgong&" height=100 width=100  border=0> </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>" 
	If rs("type")="买" Then
	HOPE_XG=HOPE_XG&"<A class=M href='"&HOPE_InstallDir&"seller/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html'>"
	ElseIf rs("type")="卖" Then
	HOPE_XG=HOPE_XG&"<A class=M href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("infosortid")&"-"&rs("infotypeid")&"-"&rs("infotypeid_2")&"-"&rs("info_id")&".html'>"
	End If
	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
	
	
	
	'招商信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		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='../../../UploadFile/nopicture.gif' onload=""javascript:if(this.width>250){this.width=250;};if(this.height>250){this.height=250} ""  border=""0""></div>"
		  end if
		  gradeid=rsmp("gradeid")
			
			  rsmp.close
		set rsmp=nothing
	
	
	
	Response.Write "<br><b>已生成/要生成的页面条数:<font color=#FF0000>"&currentPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
	If mpage<currentPage Then
	Response.Write ",完成时间"&Now()&"</b> "
	Else
 	
 	        HOPE_TradeInfoID=ttid '当前页面ID
 	        HOPE_Title=showname
			HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> > <a href='"&HOPE_InstallDir&"productshow/'>产品库</a> > "&HOPE_Sort&" "&HOPE_Type&""
  	
	
	pencat=Hope_HtmlResult(pencat)
	
	
	Set fso = YXFSO
	Set sort_save = fso.CreateTextFile(Server.mappath(HOPE_InstallDir&"productshow/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="&currentPage+1&"&schtml="&Request("schtml")&"'>"
	End If
	'************** 生成HTML页 结束 ***************
	Set rs=Nothing
	conn.Close
	Set conn=Nothing
	%>