
<% data_path="../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<!--#include file="../Dns/Dns.asp"-->
<!--#include file="../inc/filesystem.asp"-->
 <% 
 Class Websen_Class
 	public user,pass,question,answer,tm,qymc,qylb,Frdb,Zycp,Qyjj,Country,Sf,City,Post,Address,Phone,Fax,mobile,Email,web,name
	Public ch,bm,zw,Sortid,typeid,typeid_2,Tjbz,Hybz,Flag,Cflag,Uflag,logo,cimg,cimg_title,isournotify,isothernotify,click
	Public idate,BeginDate,EndDate,trust_score,zczj,p_z_Z_LegalStatus,p_z_Z_EmployeesCount,p_z_Z_AnnualRevenue,p_z_Z_RegCapital,p_z_Z_AnnualExportAmount,p_z_Z_AnnualImportAmount,p_z_Z_RndStaffNum,p_z_Z_ProductionCapacity,p_z_Z_OemOdm,p_z_Z_QaQc,p_z_Z_FoundedPlace,p_z_Z_BizPlace,p_z_Z_EstablishedYear,p_z_Z_BrandName,p_z_Z_KeyClients,p_z_Z_Certification,p_z_Z_Bank,p_z_Z_Account,p_z_Z_FactorySize,html_pass,userid,url,contact,zs,shuiwu,jinying,chanpin,qita,hps,haopin,pinpin,gjzs,jczs,swzs,qtzs,hp,jy,cp,nian,fuwunian,vipbs,gradename,gsid,username
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	 Public	Function RegExpTest(patrn, strng)
	   Dim regEx, Match, Matches   ' 建立变量。
	   Set regEx = New RegExp   ' 建立正则表达式。
		regEx.Pattern = patrn   ' 设置模式。
	   regEx.IgnoreCase = False   ' 设置是否区分字符大小写。
	   regEx.Global = True   ' 设置全局可用性。
	   Set Matches = regEx.Execute(strng)   ' 执行搜索。
	   For Each Match in Matches   ' 遍历匹配集合。
	   On Error Resume Next
		   RetStr = RetStr & Match.Value&"|"
	   Next
	   RegExpTest = RetStr
	End Function


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
  
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

 	Public Function tempinfo(str)
		n1=instr(str,"(")
		n2=instr(str,")")	
		tempinfo=mid(str,n1+1,n2-n1-1)
	End Function
	Public Function HOPE_msg()
	
		if issession=0 then
		username=Replace_Text(request.Cookies("Yxmember"))
		else
		username=session("user")
		end if
	      ss="<img src="&HOPE_InstallDir&"vCode.asp?  onClick=""this.src+=Math.random()""  alt=""图片看不清？点击重新得到验证码"" style=""cursor:hand;"">"
	 	'msg="<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.js'><//script><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"">"
		msg=msg&"<FORM name=form1 action='"&HOPE_InstallDir&"member/getprice/SaveMessage.asp' method=post>"
        msg=msg&"<TABLE cellSpacing=2 cellPadding=3 width=""100%"" border=0>"
        msg=msg&"<TR><TD    vAlign=top align=left width=""25%""  ><B>发送给：</B></TD><TD width=""75%"" bgColor=#F8F8F8 align=left><INPUT name=touser value="&username&" size=15 maxlength=""50"" style='background-color:#cccccc' readonly></TD></TR>"
		msg=msg&"<TR><TD   align=left><B>附加码： </B></TD><TD  bgcolor=#F8F8F8  align=left><INPUT size=5 maxlength=5  name=verifycode>请在附加码框中输入： "&ss&"</TD></TR>"
		msg=msg&"<TR><TD    align='left'><B>主题：</B></TD><TD bgColor=#F8F8F8 align=left><INPUT maxLength=25 size=50 name=messageTitle> </TD></TR>"
		msg=msg&"<TR  ><TD  align='left'><B>主要内容：</B></TD><TD bgColor=#F8F8F8  align='left'><TEXTAREA name=messageContent rows=10 cols=55></TEXTAREA> </TD></TR>"
 		  msg=msg&"<TABLE width=300 border=0 align=""center"" cellPadding=4 cellSpacing=0><TR align=center><TD noWrap><INPUT type=submit value=""  发送  "" name=sendButton> </TD><TD noWrap><INPUT type=reset value=""  重填  "" name=resetButton></TD></TR></TABLE></FORM>"
		  'msg=msg&"</div>"
	  HOPE_msg=msg	
	End Function

 
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    '公司信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^   start   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	public Sub company()
   	    vipbs=10	
		if issession=0 then
		userid=Replace_Text(request.Cookies("Yxmemberid"))
		username=Replace_Text(request.Cookies("Yxmember"))
 		else
		userid=session("id") //用户id
		 username=session("user")	
 		end if

		    
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from [Websen_corporation] where id="&userid
 		rs.open sql,conn,1,3
  	
		//'企业信息开始==========================================================	
		    url=rs("url")

			ID=rs("ID")

			User=rs("User")
			Pass=rs("Pass")
			Question=rs("Question")
			Answer=rs("Answer")
			tm=rs("tm")
			Qymc=rs("Qymc")
			Qylb=rs("Qylb")
			Frdb=rs("Frdb")
			Zycp=rs("Zycp")
			if zycp="" then
			zycp="暂无"
			end if
			if trim(rs("Qyjj")&"ok")<>"ok" then
             Qyjj="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td style='word-break:break-all' align=left>"&changechr(rs("Qyjj"))&" 			 </td></tr></table>"
 			else
			Qyjj="暂无企业信息"
			end if
			
			if rs("despic")<>"" then 
			
			 Qyjj=Qyjj&"<table border=0  cellpadding=0 cellspacing=0 width='100%'><tr><td><br>"
			 
			 picjs=split(rs("despic"),",")
 				 for i=0 to  ubound(picjs)-1
 			 Qyjj=Qyjj&"<a href="&HOPE_InstallDir&"vipcom/"&username&"/"&picjs(i)&" target='_blank'><img border='0'   width='80'  height='80' src="&HOPE_InstallDir&"vipcom/"&username&"/"&picjs(i)&"></a>&nbsp;&nbsp;"
				
				if (i+1) mod 5=0 then 
				Qyjj=Qyjj&"<br>"
				end if
 				 next
			 Qyjj=Qyjj&"</td></tr></table>"
			end if
			
  			Country=rs("Country")
			Sf=rs("Sf")
			City=rs("City")
			Post=rs("Post")
			Address=rs("Address")
			Phone=rs("Phone")
			Fax=rs("Fax")
			mobile=rs("mobile")
			Email=rs("Email")
			Web=rs("Web")
			name=rs("name")
			ch=rs("ch")
			bm=rs("bm")
			zw=rs("zw")
			Sortid=rs("Sortid")
			Typeid=rs("Typeid")
			typeid_2=rs("typeid_2")
			Tjbz=rs("Tjbz")
			Hybz=rs("Hybz")
			Flag=rs("Flag")
			Cflag=rs("Cflag")
			Uflag=rs("Uflag")
			logo=rs("c_logo")
			if logo<>"" then 
				logo="<img src="&HOPE_InstallDir&"Vipcom/"&logo&" border=0  width=80 height=65>"
			else
				logo=""
			end if 
			cimg=rs("cimg")
			cimg_title=rs("cimg_title")
			if isnull(cimg_title) then cimg_title=""
			if cimg <>"" then 
				cimg="<table border=0 cellpadding=0 cellspacing=0 align=center width='100%' ><tr><td align=center><img src="&HOPE_InstallDir&"Vipcom/"&cimg&" onload='javascript:if(this.width>300){this.width=300;}if(this.height>280){ this.height=280;}'  title="&cimg_title&"></td></tr></table>"
			else
				cimg="暂无图片说明"
			end if 
 			url=rs("url")
			isournotify=rs("isournotify")
			isothernotify=rs("isothernotify")
			click=rs("click")
			idate=rs("idate")
			BeginDate=rs("BeginDate")      '认证时间
			EndDate=rs("EndDate")
			trust_score=rs("trust_score")  '指数
			zczj=rs("zczj")
			p_z_Z_LegalStatus=rs("p_z_Z_LegalStatus")
			p_z_Z_EmployeesCount=rs("p_z_Z_EmployeesCount")
			p_z_Z_AnnualRevenue=rs("p_z_Z_AnnualRevenue")			
			p_z_Z_RegCapital=rs("p_z_Z_RegCapital")
			p_z_Z_AnnualExportAmount=rs("p_z_Z_AnnualExportAmount")
			p_z_Z_AnnualImportAmount=rs("p_z_Z_AnnualImportAmount")
			p_z_Z_RndStaffNum=rs("p_z_Z_RndStaffNum")
			p_z_Z_ProductionCapacity=rs("p_z_Z_ProductionCapacity")
			p_z_Z_OemOdm=rs("p_z_Z_OemOdm")
			p_z_Z_QaQc=rs("p_z_Z_QaQc")
			p_z_Z_FoundedPlace=rs("p_z_Z_FoundedPlace")
			p_z_Z_BizPlace=rs("p_z_Z_BizPlace")
			p_z_Z_EstablishedYear=rs("p_z_Z_EstablishedYear")
			p_z_Z_BrandName=rs("p_z_Z_BrandName")
			p_z_Z_KeyClients=rs("p_z_Z_KeyClients")
			p_z_Z_Certification=rs("p_z_Z_Certification")
			p_z_Z_Bank=rs("p_z_Z_Bank")
			p_z_Z_Account=rs("p_z_Z_Account")
			p_z_Z_FactorySize=rs("p_z_Z_FactorySize")
			html_pass=rs("html_pass")
			contact="<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.js'></script><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""><table width=90% height=100 border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td align=left><b>企业名称："&Qymc&"</b></td></tr><tr><td align=left><font style='line-height:150%' ><br>电话："&Phone&"<br>移动电话："&mobile&"<br>传真："&fax&"<br>地址："&Address&"<br>邮编："&Post&"<br>公司主页："&Web&"<br>邮箱："&email&"</font></td></tr></table></div>"
	'企业信息结束=====================================================================
	 
 	rs.close
	set rs=nothing 	
	
 	
	End Sub	
	
    '公司信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^   end    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
 	 
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	public function zsyh()
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
	 gradename="<b>服务会员</b>"
	  '--会员等级名称-#vip_grade#-----------------------------------------------------------
 	  set rsgn=server.CreateObject("adodb.recordset")
	  sqlgn="select  gradeid from Websen_corporation where id="&gsid
	  rsgn.open sqlgn,conn,1,1
	  if  rsgn.eof  then
	  gradename="<b>服务会员</b>"
	  else
	  set rsng=server.CreateObject("adodb.recordset")
	  sqlng="select gradename from Websen_vipgrade where roleid="&rsgn("gradeid")
	  rsng.open sqlng,conn,1,1
	  if not rsng.eof then
	  gradename="<b><font   style='font-size:14px'>"&rsng("gradename")&"</font></b>"
	  rsng.close	  
	  end if
 	  rsgn.close
	  end if
  	  '----------------------------------------------------------
	
	
 	 vipbs=10
	 '会员使用年限:
        set rsc=server.CreateObject("adodb.recordset")
	   sqlc="select  BeginDate from Websen_corporation where id="&gsid
	   rsc.open sqlc,conn,1,1
	   if rsc.eof then
         nian=0
	   end if
	   if not rsc.eof then
	   fuwunian=cint(datediff("d",rsc("BeginDate"),date())/365)+1
       if datediff("d",rsc("BeginDate"),date())>365 then '从第 2 年开始，加 20 分 / 年
         nian=cint(datediff("d",rsc("BeginDate"),date())/365)*20
       else
         nian=0
       end if
	   set rsc=nothing
	   end if
	
	
	set rszz=server.CreateObject("adodb.recordset")
	  sqlzz="select * from Websen_bizre where sh=1 and typeid=3 and  gsid="&gsid
	  rszz.open sqlzz,conn,1,1
	  if rszz.eof then
	  shuiwu=0
	  end if
	  if not rszz.eof then
	  shuiwu=5
	  set rszz=nothing
	  end if
	  '^^^^^^^^
 	  '经营许可证类证书
	 set rsz2=server.CreateObject("adodb.recordset")
	 sqlz2="select count(*) as ztotal from  Websen_bizre where sh=1 and typeid =1 and gsid="&gsid
	 rsz2.open sqlz2,conn,1,1
	 if rsz2.eof then
     jinying=0
	 end if
	 if not rsz2.eof then
	   jinying=rsz2("ztotal")*2
	   if jinying>10 then
		jinying=10
	   end if
	 set rsz2=nothing
	 end if
	 
	  '^^^^^^^^
 	  '产品类证书
	  set rsz3=server.CreateObject("adodb.recordset")
	  sqlz3="select count(*) as ztotal from  Websen_bizre where sh=1 and typeid =2 and gsid="&gsid
	  rsz3.open sqlz3,conn,1,1
	  if rsz3.eof then
       chanpin=0
	  end if
	  if not rsz3.eof then
	   chanpin=rsz3("ztotal")*2
	   
	   if chanpin>10 then
		chanpin=10
	   end if
	  set rsz3=nothing
	  end if
	  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	  
	  '其他证书
	 set rsz4=server.CreateObject("adodb.recordset")
	 sqlz4="select count(*) as ztotal from  Websen_bizre where sh=1 and typeid =4 and gsid="&gsid
	 rsz4.open sqlz4,conn,1,1
	 if rsz4.eof then
      qita=0
	 end if
	 if not rsz4.eof then
	   qita=rsz4("ztotal")*2
	   if qita>10 then
		qita=10
	   end if
	 set rsz4=nothing
	 end if
	 
	 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	   '执行加分的操作:
	  haopin=0
	  set rsjj=server.CreateObject("adodb.recordset")
	  sqljj="select * from Websen_trustadv where abs(pass)=1 and type='好评' and bprid="&gsid
	  rsjj.open sqljj,conn,1,1
	  if rsjj.eof then
          haopin=0
	  end if
	  if not rsjj.eof then
	  do while not rsjj.eof 
	      haopin=haopin+1
 	  rsjj.movenext
	    loop
		 
   	    set rsjj=nothing
	    end if
	  '^^^^^^^^^^^^^^^^^^^^^^^^减分^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	  pipin=0
	  set rspp=server.CreateObject("adodb.recordset")
	  sqlpp="select * from Websen_trustadv where abs(pass)=1 and type='批评' and bprid="&gsid
	  rspp.open sqlpp,conn,1,1
	   if rspp.eof then
          pipin=0
	   end if
	   if not rspp.eof then
	   do while not rspp.eof 
	      pipin=pipin-1
 	   rspp.movenext
	   loop
	   
	   set rspp=nothing
	   end if
	  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	  zs=shuiwu+jinying+chanpin+qita
 	  hps=haopin+pipin
 		'证书及荣誉=======================================================================
	 	'dim gjzs '经营许可证张数
		gjzs=0
 		'dim jczs '产品证书张数
		jczs=0
 		'dim swzs  '税务登记证张数
		 swzs=0   
 		'dim qtzs '其它证书
		qtzs=0
 		'dim zs
		bizre_sql="select typeid from Websen_bizre where gsid="&gsid&" and sh=1"
		set bizre_totle=server.CreateObject("adodb.recordset")
		bizre_totle.open bizre_sql,conn,1,1
	
		if bizre_totle.eof then
		'zs=0
		gjzs=0
		swzs=0
		glzs=0
		qtzs=0
		else
			do while not bizre_totle.eof 
				if bizre_totle("typeid")=1 then 
				if gjzs="" then
				gszj=0
				end if
				gjzs=gjzs+1
				elseif bizre_totle("typeid")=2 then 
				if jczs="" then
				jczs=0
				end if
				jczs=jczs+1
				elseif bizre_totle("typeid")=3 then 
				if swzs="" then
				swzs=0
				end if
				swzs=swzs+1
				else
				if qtzs="" then
				qtzs=0
				end if
				qtzs=qtzs+1
				end if 
				bizre_totle.movenext
				 			loop
 			
		end if 
		bizre_totle.close
		set bizre_totle=nothing
	end function
	
	public function hypj()
	
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
		'会员评价==================================================================
		'dim hp '好评
		hp=0
		'dim jy '建议
		jy=0
		'dim cp '差评
		cp=0
		trustadv_sql="select [type] from Websen_trustadv where Websen_trustadv.bprid="&gsid&""
		set trustadv_totle=server.CreateObject("adodb.recordset")
 		trustadv_totle.open trustadv_sql,conn,1,1
 		if trustadv_totle.eof then
			do while not trustadv_totle.eof 
				if trustadv_totle("type")="好评" then 
				hp=hp+1
				elseif trustadv_totle("type")="建议" then 
				jy=jy+1
				else
				cp=cp+1
				end if 
				trustadv_totle.movenext
			loop
		else
			hp=0
			jy=0
			cp=0
		end if 
 		trustadv_totle.close 
		set trustadv_totle=nothing
		hypj="会员评价"
		
	end function
	
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	Public Function HOPE_CompanyInfo()
 		Info=""
		Info=Info&"<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.js'></script><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""><table width='96%' align='center' cellpadding='0' cellspacing='0'>"
		Info=Info&"<TR>"
		Info=Info&"<TD width='22%' height='13' bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>主营产品或服务：</STRONG> </DIV></TD>"
		Info=Info&"<TD width='28%' align='center' bgColor='#ffffff' class='td150'>#Zycp#</TD>"
		Info=Info&"<TD width='29%' height='14' bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>法定代表人/负责人：</STRONG> </DIV></TD>"
		Info=Info&"<TD width='21%' align='center' bgColor='#ffffff' class='td150'>#Frdb#</TD>"
		Info=Info&"</TR>"
		Info=Info&"<TR>"
		Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>企业类型：</STRONG></DIV></TD>"
		Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#Qylb#</TD>"
		Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>电话：</STRONG></DIV></TD>"
		Info=Info&"<TD align='center' class='td150'>#Phone#</TD>"
		Info=Info&"</TR>"
		Info=Info&"<TR>"
		Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>公司注册地：</STRONG></DIV></TD>"
		Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#p_z_Z_FoundedPlace#</TD>"
		Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><strong>手机：</strong></DIV></TD>"
		Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'> #Mobile#</TD>"
		Info=Info&"</TR>"
		Info=Info&"<TR>"
		Info=Info&"<TD height='13' bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>公司主页：</STRONG></DIV></TD>"
		Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#Web#</TD>"
		Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><strong>传真：</strong></DIV></TD>"
		Info=Info&"<TD align='center' class='td150'>#Fax#</TD>"
		Info=Info&"</TR>"
		Info=Info&"<TR>"
		Info=Info&"<TD bgColor='#f0f0f0' align=right><b>主要经营地点</b>：</TD>"
		Info=Info&"<TD align='center' bgColor='#ffffff'>#p_z_Z_BizPlace#</TD>"
		Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>电子邮件：</STRONG></DIV></TD>"
		Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#Email#</TD>"
		Info=Info&"</TR>"
		Info=Info&"</table></div>"
		if zycp<>"" then 
		Info=replace(Info,"#Zycp#",Zycp)
		else
		Info=replace(Info,"#Zycp#","")
		end if
		if Frdb<>"" then 
		Info=replace(Info,"#Frdb#",Frdb)
		else
		Info=replace(Info,"#Frdb#","")
		end if 
		if Qylb<>"" then 
		Info=replace(Info,"#Qylb#",Qylb)
		else
		Info=replace(Info,"#Qylb#","")
		end if 
		Info=replace(Info,"#Phone#",Phone)
		if p_z_Z_BizPlace<>"" then
		Info=replace(Info,"#p_z_Z_BizPlace#",p_z_Z_BizPlace)
		else
		Info=replace(Info,"#p_z_Z_BizPlace#","")
		end if 
			if p_z_Z_FoundedPlace<>"" then
		Info=replace(Info,"#p_z_Z_FoundedPlace#",p_z_Z_FoundedPlace)
		else
		Info=replace(Info,"#p_z_Z_FoundedPlace#","")
		end if 
		
		
		if trim(Mobile&"ok")="ok" then
		Mobile=0
		end if
		Info=replace(Info,"#Mobile#",Mobile)
		if Web<>"" then 
		Info=replace(Info,"#Web#",Web)
		else
		Info=replace(Info,"#Web#","")
		end if
		Info=replace(Info,"#Fax#",Fax)
		Info=replace(Info,"#Email#",Email)
  HOPE_CompanyInfo=Info
end Function


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	
		Public Function HOPE_productView(thispage,num,numbr,Nulls)'会员推荐产品(第几页，每页条数，几个换行,占位参数)
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		j=0	
		sql="select Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.cpmc,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.url,Websen_corporation.[user] from Websen_productshow,Websen_corporation where Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.gsid="&gsid&" order by Websen_productshow.id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipproduct="暂无产品信息"
		Else
			j=0
			rs.pagesize=num
			rs.absolutepage=thispage
	vipproduct=vipproduct&"<table  width='100%'><tr><td align='left'>橱窗展示商品&nbsp;&nbsp;<a href='VipProduct_p1.htm'>目录方式展示商品</a></td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
			do while not rs.eof and j<rs.pagesize
				vipproduct=vipproduct&"<TD align=middle valign=top style='word-break:break-all'><A href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank>a<IMG src="""&rs("picture")&""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank>"&rs("cpmc")&"</a></TD>"
				rs.movenext
				j=j+1
				If j mod numbr=0 then vipproduct=vipproduct&"</TR><tr>"
			loop
			vipproduct=vipproduct&"</TR></TABLE>"
		End If
		HOPE_productView=vipproduct
	End Function	


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


	Public Function HOPE_productView2(thispage,num,numbr,Nulls)' 会员推荐产品(第几页，每页条数，几个换行,占位参数)
		j=0	
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		sql="select Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.cpmc,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.url,Websen_corporation.[user] from Websen_productshow,Websen_corporation where Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.gsid="&gsid&" order by Websen_productshow.id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipproduct="暂无产品信息"
		Else
			j=0
			
			rs.pagesize=num
			rs.absolutepage=thispage
	vipproduct=vipproduct&"<table  width='100%'><tr><td align='left'><a href='VipProduct1.htm'>橱窗展示商品</a>&nbsp;&nbsp;目录方式展示商品</td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=100% border=0><TR>"
			do while not rs.eof and j<rs.pagesize
			if j mod 2=0 then 
			bgco="#EEEEEE"
			else
			bgco="#FFFFFF"
			end if 
				vipproduct=vipproduct&"<TD align=left valign=top><table width='100%' border='0' cellspacing='1' cellpadding='0'  bgcolor='#ffffff'><tr><td width='15%' height='33' bgcolor='"&bgco&"'><A href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank><IMG src="""&rs("picture")&""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A></td><td width='85%' bgcolor='"&bgco&"'><A class=s href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank>"&rs("cpmc")&"</a></td></tr></table></TD>"
				rs.movenext
				j=j+1
				If j mod 1=0 then vipproduct=vipproduct&"</TR><tr>"
			loop
			vipproduct=vipproduct&"</TR></TABLE>"
		End If
		HOPE_productView2=vipproduct
	End Function	


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

		Public Function HOPE_ClassView(thispage,num,numbr,PtClassid)' 会员推荐产品(第几页，每页条数，几个换行,类别ID)
		j=0	
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		sql="select Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.cpmc,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.url,Websen_corporation.[user] from Websen_productshow,Websen_corporation where Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.gsid="&gsid&" and Websen_productshow.bigclassid="& PtClassid &" order by Websen_productshow.id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipproduct="暂无产品信息"
		Else
			j=0
			rs.pagesize=num
			rs.absolutepage=thispage
			vipproduct=vipproduct&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
			do while not rs.eof and j<rs.pagesize
				vipproduct=vipproduct&"<TD align=middle valign=top style='word-break:break-all'><A href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank><IMG src="""&rs("picture")&""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank>"&rs("cpmc")&"</a></TD>"
				rs.movenext
				j=j+1
				If j mod numbr=0 then vipproduct=vipproduct&"</TR><tr>"
			loop
			vipproduct=vipproduct&"</TR></TABLE>"
		End If
		HOPE_ClassView=vipproduct
	End Function	
		
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    function createfile(fname,nfasp)   
    set myFSO=YXFSO  
    set myfile=myfso.opentextfile(fname,2,true)   
     myfile.write nfasp   
     myfile.close   
    set myFso=nothing   
   end function   	
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

		Function HOPE_newzhanhui(tj,num)
	
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		if tj=1 then  'tj为推荐
			sql="select top "&num&" title,beginDate,endDate,id from Websen_expo where sh=1 and gsid="&gsid&" and tj like '01' order by dateandtime desc"
		elseif tj=2 then
			sql="select top "&num&" title,beginDate,endDate,id from Websen_expo where sh=1 and gsid="&gsid&" and tj like '02' order by dateandtime desc"
		elseif tj=3 then
			sql="select top "&num&" title,beginDate,endDate,id from Websen_expo where sh=1 and gsid="&gsid&" and tj like '03' order by dateandtime desc"
		else
			sql="select top "&num&" title,beginDate,endDate,id from Websen_expo where sh=1 and gsid="&gsid&" order by dateandtime desc"
		end if
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		if rs.eof then
				newzhanghui="暂无展会信息"
		else
		do while not rs.eof
				newzhanghui=newzhanghui&"·<a href='"&HOPE_InstallDir&"service/expo/detail/"&rs("id")&".html' target='_blank' title="&rs("title")&"''>"&left(rs("title"),18)&" </a><font class='S'>( "&FormatDate(rs("beginDate"),2)&" — "&FormatDate(rs("endDate"),3)&" )</font><br>"
		rs.movenext
		loop
		end if 
		HOPE_newzhanhui=newzhanghui
	End Function
	
	
 	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

 	
 	'产品导行=========================================================================
	public function cpdh()
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
  	 set productclass_rs=server.CreateObject("adodb.recordset")
	 sqlproductclass_rs="select * from Websen_productclass where gsid="&gsid
		productclass_rs.open sqlproductclass_rs,conn,1,1
		if not productclass_rs.eof then
		dim productclassdh ' 产品导行
		dim PtClassid,Ptgsid,httpUrl,EndhttpUrl,UrlName,num,numbr
		num=12
		numbr=6
		 set productclass_rs2=server.CreateObject("adodb.recordset")
		 sqlds="select * from Websen_productclass where gsid="&gsid
		 productclass_rs2.open sqlds,conn,1,1
		 if not productclass_rs2.eof then
		 do while not productclass_rs2.eof
 		UrlName2="PtClass_"
		PtClassid2=productclass_rs2("bigclassid")
		Ptgsid2=productclass_rs2("gsid")
		httpUrl2="<a href='"&UrlName2&""&PtClassid2&"_"&Ptgsid2&"1.htm'>"
		EndhttpUrl2="</a>"
		cpdh2=cpdh2&httpUrl2&productclass_rs2("bigclassname")&EndhttpUrl2&"&nbsp;"
		productclass_rs2.movenext
		 loop
	      productclass_rs2.close
		set productclass_rs2=nothing
		end if
 	 do while not productclass_rs.eof
  		UrlName="PtClass_"
		PtClassid=productclass_rs("bigclassid")
		Ptgsid=productclass_rs("gsid")
		httpUrl="<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&"1.htm'>"
		EndhttpUrl="</a>"
 		sqltemp="select Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.bigclassid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.cpmc,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.url,Websen_corporation.[user] from Websen_productshow,Websen_corporation where Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.gsid="&gsid&" and Websen_productshow.bigclassid="& PtClassid &" order by Websen_productshow.id desc"
 		set rstemp=Server.CreateObject("ADODB.Recordset") 
		rstemp.open sqltemp,conn,1,3
		allnum=rstemp.recordcount
   	sqlskin="select id, SkinPtHall from Websen_userskin where id="&url&" and ispass=1"
 	 set rsskin=server.CreateObject("adodb.recordset")
	 rsskin.open sqlskin,conn,1,1
 	dim zhu
	if not rsskin.eof then 
 		 zhu=rsskin("SkinPtHall")  '模版	
		f2=rsskin("SkinPtHall")  '模版	
		fy=""
 		 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
  		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
  		subject=productclass_rs("bigclassname")
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#buttominfo#",buttominfo)
 		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
  		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh2)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
 		
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		Dim thispage,endpage,everypage
		thispage=1
		everypage=12  '每页显示几条
		endpage=allnum mod everypage
		if endpage=0 then 
	     endpage=fix(allnum/everypage)
		  else
		  endpage=fix(allnum/everypage)+1
		end if 
		  if allnum=0 then 
		    allnum=1
			end if  
 		For page_num=1 to allnum
			if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then 
 			
				  if thispage>1 then   
				   fy="<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&"1.htm'>首页</a>&nbsp;" 
				   fy=fy&"<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&""&(thispage-1)&".htm'>上一页</a>&nbsp;"   
			  else   
				   fy=fy&"首页&nbsp;" 
				   fy=fy&"上一页"  
			  end if   
			   fy=fy&"&nbsp;|&nbsp;第："&thispage&"页&nbsp;|&nbsp;"   
			   fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页&nbsp;|&nbsp;"  
			  if thispage<endpage then   
				   fy=fy&"<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&""&(thispage+1)&".htm'>下一页</a>&nbsp;"  
				   fy=fy&"<a href='"&UrlName&""&PtClassid&"_"&Ptgsid&""&endpage&".htm'>尾页</a>&nbsp;"   
			  else   
				   fy=fy&"下一页&nbsp;" 
				   fy=fy&"尾页"  
			  end if 
  				f2=zhu
  			 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
  		subject=productclass_rs("bigclassname")
  		 f2=replace(f2,"#buttominfo#",buttominfo)
 		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh2)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_ProductGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
 	strinfo=RegExpTest("#HOPE_vipproduct\(\d+,\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
 			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 			if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_ClassView(thispage,arry(1),arry(2),PtClassid))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
   		set f=fso.CreateTextFile(server.mappath( HOPE_InstallDir&"Vipcom/"&user&"/"&UrlName&""&PtClassid&"_"&Ptgsid&""&thispage&".htm" ), true )
 			f.WriteLine(f2)
			f.close 
			thispage=thispage+1
			End If			
		Next
 		set f = nothing 
		set fso = nothing
	end if 
	
	productclassdh=productclassdh&httpUrl&productclass_rs("bigclassname")&EndhttpUrl&"&nbsp;"
		
		productclass_rs.movenext
		loop
		
		productclass_rs.close
		set productclass_rs=nothing
		end if
		cpdh=productclassdh
	end function
	
	
  	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	
	public function Hope_Search(typeid)
		if typeid=1 then 
		'站内搜索=========================================================================
		Websearch="<SCRIPT LANGUAGE='JavaScript' SRC='"&HOPE_InstallDir&"js/search.js' TYPE='text/javascript'></script>"
		Websearch=Websearch&"<FORM name=searchForm action="&HOPE_InstallDir&"select.asp title=_blank onsubmit='javascript:if(doSearch()==false) return false;' method=post>"
		Websearch=Websearch&"<INPUT size=20 name=""keywords"" value='请输入关键字搜索' maxlength=16><SELECT class=TEXT13 name=""which"">"
		Websearch=Websearch&"<OPTION value=""all"" selected>供求信息</OPTION>"
		Websearch=Websearch&"<OPTION value=""sale"">供应信息</OPTION>"
		Websearch=Websearch&"<OPTION value=""buy"">求购信息</OPTION>"
		Websearch=Websearch&"<OPTION value=""productshow"">产品目录</OPTION>"
		Websearch=Websearch&"<OPTION value=""corporation"">公司库</OPTION>"
		Websearch=Websearch&"<OPTION value=""news"">行业资讯</OPTION>"
		Websearch=Websearch&"<OPTION value=""vipinfo"">专项商机</OPTION>"
		Websearch=Websearch&"</SELECT><input name=""imageField"" type=""image"" src="&HOPE_InstallDir&"images/serch.gif align=""top"" width=""65"" height=""22"" border=""0""></FORM>"
		Websearch=Websearch
	    else
		
		Websearch="<SCRIPT LANGUAGE='JavaScript' SRC='"&HOPE_InstallDir&"js/search.js' TYPE='text/javascript'></script>"
		Websearch=Websearch&"<FORM name=searchForm action="&HOPE_InstallDir&"select.asp title=_blank onsubmit='javascript:if(doSearch()==false) return false;' method=post>"
		Websearch=Websearch&"<INPUT size=25 name=""keywords"" value='请输入关键字搜索' maxlength=16><SELECT class=TEXT13 name=""which"">"
		Websearch=Websearch&"<OPTION value=""all"" selected>供求信息</OPTION>"
		Websearch=Websearch&"<OPTION value=""sale"">供应信息</OPTION>"
		Websearch=Websearch&"<OPTION value=""buy"">求购信息</OPTION>"
		Websearch=Websearch&"<OPTION value=""productshow"">产品目录</OPTION>"
		Websearch=Websearch&"<OPTION value=""corporation"">公司库</OPTION>"
		Websearch=Websearch&"<OPTION value=""news"">行业资讯</OPTION>"
		Websearch=Websearch&"<OPTION value=""vipinfo"">专项商机</OPTION>"
		Websearch=Websearch&"</SELECT><input name=""imageField"" type=""image"" src="&HOPE_InstallDir&"images/serch.gif align=""top"" width=""65"" height=""22"" border=""0""></FORM>"
		Websearch=Websearch
		end if 
		Hope_Search=Websearch
	end function 
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	'产品搜索开始=====================================================================
	'cpsearch
	public function cp_search()
	%>
	<script language = "JavaScript"> 
	sallt=new Array();
	<%
	Dim ii
	ii=0
	set rs8=server.CreateObject("adodb.recordset")
	sql8="select * from Websen_productclass_1 where gsid="&id
	rs8.open sql8,conn,1,1
	if not rs8.eof then
	do while not rs8.eof
	%>
	sallt[<%=ii%>]=new Array("<%=rs8("smallclassname")%>","<%=rs8("bigclassid")%>","<%=rs8("smallclassid")%>");
	<%
	ii=ii+1
	rs8.movenext
	loop
	rs8.close
	end if
	%>
	function changeselect1(selvalue)  
	   { 
		  document.form.smallclassid.length=0;  
		  var selvalue=selvalue;
		  var ii;
		  for(ii=0;ii<sallt.length;ii++) 
		{
			if(sallt[ii][1]==selvalue) 
				{
		var newOption1=new Option(sallt[ii][0],sallt[ii][2]);
		document.all.smallclassid.add(newOption1);
			}
		}
	}
	</script> 
	<%
	if bigclassid<>"" and smallclassid<>"" then
	set rs3=server.CreateObject("adodb.recordset")
	sql3="select Websen_productclass_1.*,Websen_productclass.* from Websen_productclass_1,Websen_productclass where Websen_productclass_1.smallclassid="&smallclassid&" and Websen_productclass.bigclassid=Websen_productclass_1.bigclassid and Websen_productclass.gsid="&id&" and Websen_productclass_1.gsid="&id
	rs3.open sql3,conn,1,1
	if not rs3.eof then
 	cpsearch="<TABLE cellSpacing=0 cellPadding=5 width=100% align=center border=0>"&_
	"<FORM name=form action='' method=post>"&_
	"<TBODY>"&_
	"<TR>"&_
	"<TD bgColor=#d7fff9>"&_
	"<FONT color=#cc0000><STRONG>按系列查看产品:</STRONG></FONT>"&_
	"<select name=bigclassid onChange='changeselect1(document.form.bigclassid.options[document.form.bigclassid.selectedIndex].value)' size=1>"&_
	"<option selected value="&rs3("bigclassid")&">"&rs3("bigclassname")&"</option>" 
	set rs12=server.CreateObject("adodb.recordset")
	sql12="select * from Websen_productclass where bigclassid<>"&rs3("bigclassid")&" and gsid="&id
	rs12.open sql12,conn,1,1
	if not rs12.eof then
	do while not rs12.eof
	cpsearch=cpsearch&"<option value='"&rs12("bigclassid")&"'>"&rs12("bigclassname")&"</option>"&chr(13)+chr(10)
	rs12.movenext
	loop
	rs12.close
	end if
	cpsearch=cpsearch&"</select>"&_
	"<select name=smallclassid> "&_
	"<option selected value="&rs3("smallclassid")&">"&rs3("smallclassname")&"</option> "
	set rs4=server.CreateObject("adodb.recordset")
	sql4="select * from Websen_productclass_1 where bigclassid="&rs3("bigclassid")&" and smallclassid<>"&rs3("smallclassid")&" and gsid="&id
	rs4.open sql4,conn,1,1
	if not rs4.eof then
	do while not rs4.eof
	cpsearch=cpsearch&"<option value='"&rs4("smallclassid")&"'>"&rs4("smallclassname")&"</option>"&chr(13)+chr(10)
	rs4.movenext
	loop
	rs4.close
	end if
	rs3.close
	end if
	cpsearch=cpsearch&"</select>"&_
	"<INPUT type=submit value=查看 name=Submit22>"&_
	"</TD>"&_
	"</TR>"&_
	"</TBODY>"&_
	"</FORM>"&_
	"</TABLE>"
	else
	cpsearch="<TABLE cellSpacing=0 cellPadding=5 width=""100%"" align=center border=0>"&_
	"<FORM name=form action='' method=post>"&_
	"<TBODY><TR><TD bgColor=#d7fff9>"&_
	"<FONT color=#cc0000><STRONG>按系列查看产品:</STRONG></FONT>"&_
	"<select name=bigclassid onChange='changeselect1(document.form.bigclassid.options[document.form.bigclassid.selectedIndex].value)' size=1>"&_
	"<option selected value=''>--请选择产品大类--</option>"
	set rs7=server.CreateObject("adodb.recordset")
	sql7="select * from Websen_productclass where gsid="&id
	rs7.open sql7,conn,1,1
	if not rs7.eof then
	do while not rs7.eof
	cpsearch=cpsearch&"<option value='"&rs7("bigclassid")&"'>"&rs7("bigclassname")&"</option>"&chr(13)+chr(10)
	rs7.movenext
	loop
	rs7.close
	end if
	cpsearch=cpsearch&"</select>"&_
	"<select name=smallclassid>"&_
	"<option selected value=''>--请选择产品小类--</option>"&_
	"</select><INPUT type=submit value='查看' name=Submit22></TD>"&_
	"</TR></TBODY></FORM></TABLE>"
	end if
	'response.write cpsearch
	'产品搜索结束=====================================================================
	
	end function
	
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function cpzs()
	
	'产品展示开始=====================================================================
	dim cpsz
	bigclassid=replace_text(request("bigclassid"))
	smallclassid=replace_text(request("smallclassid"))
	sqlp="select * from Websen_productshow where gsid="&id&" and flag=1"
	if  Chkrequest(bigclassid) then sqlp=sqlp&" and bigclassid="&bigclassid&""
	sqlp=sqlp&" order by id desc"
	Set rsp= Server.CreateObject("ADODB.Recordset") 
	rsp.open sqlp,conn,1,1
	
	msg_per_page=1 '定义每页显示记录条数
	
	%>
	<%
	rsp.pagesize=msg_per_page '定义分页记录集每页显示记录数
	
	if not (rsp.eof and rsp.bof) then
		totalrec=rsp.RecordCount'总记录条数
		if rsp.recordcount mod msg_per_page=0 then'计算总页数,recordcount:数据的总记录数
			n=rsp.recordcount\msg_per_page'n:总页数
		else
			n=rsp.recordcount\msg_per_page+1                        
		end if                                                                
		currentpage=request("page")'currentpage:当前页
		If currentpage <> "" then
			currentpage =  cint(currentpage)
			if currentpage < 1 then  
				currentpage = 1
			end if  
			if err.number <> 0 then '错误处理
				err.clear
				currentpage=1
			end if
		else
			currentpage=1
		End if                                                                
		if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
			currentPage=1
		end if
		rsp.absolutepage=currentpage'absolutepage：设置指针指向某页开头
		rowcount=rsp.pagesize'pagesize：设置每一页的数据记录数
	end if
	
 	if rsp.eof or rsp.bof then
	cpzs="<TABLE cellSpacing=0 cellPadding=0 width=""100%"" align=center border=0>"&_
	"<TR><TD><FONT class=M color=silver><BR><BR>"&_
	"<CENTER>该会员目前尚未发布任何的产品信息！ <BR><BR><BR><BR></CENTER></TD>"&_
	"<TR></TR></TBODY></TABLE>"
	else
	cpzs="<TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0>"&_
	"<TBODY>"&_
	"<TR>"&_
	"<TD bgColor=#d1d1d1><IMG height=1 src=image/shim.gif width=1></TD>"&_
	"</TR>"&_
	"</TBODY>"&_
	"</TABLE>"
	
	Dim t
	t=1
	i=0
	cpzs=cpzs&"<table width=""100%"" ><tr>"
	do while not rsp.eof and rowcount > 0
	
	cpzs=cpzs&"<td width=""25%"" align=center valign=top><DIV style=PADDING-TOP: 10px></DIV>"&_
	"<TABLE width=""100%"" border=0 align=center cellSpacing=1>"&_
	"<TBODY>"
	if icolor=0 then 
	color="bgColor=#ffffff" 
	else 
	color="bgColor=#ffffff"
	end if
	cpzs=cpzs&"<TR "& color &">"&_
	"<TD width=15% align=center>"&_
	"<TABLE  height=64 cellSpacing=0 cellPadding=0 width=64 border=0>"&_
	"<TBODY>"&_
	"<TR>"&_
	"<TD align=middle>"
	if rsp("picture")<>"nopicture.gif" then
	cpzs=cpzs&"<A href="&HOPE_InstallDir&""&weburl&"productshow/offerdetail/"&rsp("sortid")&"-"&rsp("typeid")&"-"&rsp("typeid_2")&"-"&rsp("id")&".html target=_blank><IMG src=/Vipcom/"&rsp("picture")&" border=0 width=100 height=85></A>" 
	else
	cpzs=cpzs&"<FONT class=C color=#cecfce>无图</FONT>"
	end if
	cpzs=cpzs&"</TD>"&_
	"</TR>"&_
	"</TBODY>"&_
	"</TABLE>"&_
	"<table width=""100%""  border=""0"" cellspacing=0 cellpadding=0>"&_
	"<tr>"&_
	"<td width=""4%"">&nbsp;</td>"&_
	"<td width=""96%"" class=""lh13 s"">"&_
	"<A href="""&HOPE_InstallDir&""&weburl&"productshow/offerdetail/"&rsp("sortid")&"-"&rsp("typeid")&"-"&rsp("typeid_2")&"-"&rsp("id")&".html target=_blank>"&_
	"<B>"&rsp("cpmc")&"</B><BR>"&_
	"<FONT color=#666666>发表时间："&rsp("idate")&_
	"</A></td>"&_
	"</tr>"&_
	"</table>"&_
	"</TD>"
 	cpzs=cpzs&"</TR></TBODY></TABLE></td>"
	if tm<>"" then
	t=t+1
	end if
	icolor=icolor+1
	if icolor>1 then icolor=0
	rowcount=rowcount-1
 	rsp.movenext
	i=i+1
	if i mod 4=0 then cpzs=cpzs&"</tr><tr><td colspan=4><hr size=""1"" noshade=""noshade""></td></tr><tr>"
  	loop
	cpzs=cpzs&"</table>"
	cpzs=cpzs&"<TABLE cellSpacing=0 cellPadding=4 width=""100%"" border=0>"&_
	"<TBODY>"&_
	"<TR bgcolor=#f0f0f0>" &_
	"<td align=center class=s>"
	Pages("index.asp?MemberId="&user&"&bigclassid="&bigclassid&"&smallclassid="&smallclassid&"")
	cpzs=cpzs&"</td>"&_
	"</TR>"&_
	"</TBODY>"&_
	"</TABLE>"
	end if
	'产品结束开始=====================================================================
	
	end function
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	Function Pages(LinkFile) 
	   if not (rsp.eof and rsp.bof) then
		gopage=currentpage
		totalpage=n
		blockPage=Int((gopage-1)/10)*10+1
		
		If LCase(Request.ServerVariables("HTTPS")) = "off" Then 
		strTemp = "http://" 
		Else 
		strTemp = "https://" 
		End If 
		strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 
		If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 
		strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
		lenstrTemp=len(strTemp)+1	
		if instr(left(linkfile,lenstrTemp),"?")>0 then 
		
		if blockPage = 1 Then
			cpzs=cpzs&"<span disabled>前10页</span>&nbsp;"
		Else
			cpzs=cpzs&"<a href=" & LinkFile & "&page="&blockPage-10&">前10页</a>&nbsp;"
		End If
	   i=1
	   Do Until i > 10 or blockPage > n
		If blockPage=int(gopage) Then
			cpzs=cpzs&"<font color=#FF0000><b>"&blockPage&"</b></font>"
		Else
			cpzs=cpzs&"<a href=" & LinkFile & "&page="&blockPage&">"&blockPage&"</a>"
		End If
		blockPage=blockPage+1
		i = i + 1
		Loop
		if blockPage > totalpage Then
			cpzs=cpzs&"&nbsp;<span disabled>后10页"
		Else
			cpzs=cpzs&"&nbsp;<a href=" & LinkFile & "&page="&blockPage&">后10页</a><span disabled>"
		End If 
		cpzs=cpzs&" 直接到第 "&_
		"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
		if i=gopage then 
			ch="selected"
		else
			ch=""
		end if
		cpzs=cpzs&"<option value='" & LinkFile & "&page=" & i & "' "& ch &">"&i&"</option>"
		next
		cpzs=cpzs&"</select>"
		cpzs=cpzs&" 页<Br><Br>"
		
		else
		
		if blockPage = 1 Then
			cpzs=cpzs&"<span disabled>【←前10页</span>&nbsp;"
		Else
			cpzs=cpzs&"<span disabled>【</span><a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a>&nbsp;"
		End If
	   i=1
	   Do Until i > 10 or blockPage > n
		If blockPage=int(gopage) Then
			cpzs=cpzs&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
		Else
			cpzs=cpzs&"<a href=" & LinkFile & "?page="&blockPage&">["&blockPage&"]</a> "
		End If
		blockPage=blockPage+1
		i = i + 1
		Loop
		if blockPage > totalpage Then
			cpzs=cpzs&"&nbsp;<span disabled>后10页→】"&_
		El
			cpzs=cpzs&"&nbsp;<a href=" & LinkFile & "?page="&blockPage&">后10页→</a><span disabled>】"
		End If 
		cpzs=cpzs&" 直接到第 "&_
		"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
		if i=gopage then 
			ch="selected"
		else
			ch=""
		end if
		cpzs=cpzs&"<option value='" & LinkFile & "&page=" & i & "' "& ch &">"&i&"</option>"
		next
		cpzs=cpzs&"</select>"
		cpzs=cpzs&" 页<Br><Br>"
		
		End If
		
		Startinfo=((gopage-1)*msg_per_page)+1
		Endinfo=gopage*msg_per_page
		if Endinfo>totalrec then Endinfo=totalrec
			  cpzs=cpzs&"&nbsp;&nbsp;共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页"
	end if
	End Function
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	
	
		public function cp_list_fun()
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		
		'产品展示不分页=====================================================================
		dim cp_list    '参数1: 调用条数 
					   '参数2: 调用标题长度,以字符为单位，超过部分将不会显示。
					   '参数3：排序方法，为1按发表时间，为2按点击数，为3按回复数。
					   '参数4: 是否推荐，为1调用所有产品，为2调用推荐产品。
					   '参数5: 产品分类, 为1则调用所有分类的分类
					   '参数6: 是否显示图片 为1显示图片,2不显示
					   '参数7: 显示信息 1为显示发表时间 2 显示点击数
		sqlp="select top 12 id,picture,cpmc,idate from Websen_productshow where gsid="&gsid&" and flag=1"
		sqlp=sqlp&" order by id desc"
		Set rsp= Server.CreateObject("ADODB.Recordset") 
		rsp.open sqlp,conn,1,1
		if not rsp.eof then
		cp_list=cp_list&"<table width=""100%"" border=0 bgcolor=#ffffff><tr>"
		dim cpi
		cpi=0
		do while not rsp.eof 
			cp_list=cp_list&"<td align=center width=""25%"" style=line-height:25px;><table width=""100%""><tr><td align=center><img src="&weburl&"picture\"&rsp("picture")&" width=""100"" height=""75""></td></tr><tr><td align=center><p class=s><a href= >"&rsp("cpmc")&"</a></p></td></tr></table></td>"
		rsp.movenext
		cpi=cpi+1
		if cpi mod 4=0 then cp_list=cp_list&"</tr><tr><td colspan=4><hr size=""1"" noshade=""noshade""></td></tr></tr>"
		
		loop
		cp_list=cp_list&"</tr></table>"
		end if 	
		cp_list_fun=cp_list
		
		end function
		
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


		Function HOPE_newgong(typeid,num)			
			'供应
			if issession=0 then
			gsid=Replace_Text(request.Cookies("Yxmemberid"))
			else
			gsid=session("id")
			end if
			if typeid=0 then 
				sql="select top "&num&" info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='卖' and gsid="&gsid&" and flag=1 order by info_id desc"
			else
				sql="select top "&num&" info_id,type,draw,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where typeid="&typeid&" and type='卖' and gsid="&gsid&" and flag=1 order by info_id desc"
			end if
				Set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1
				if rs.eof then
					newgong="暂无供求信息"
				else
					newgong=newgong&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
				do while not rs.eof
				if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
				   img=rs("picture")
			   else
				  if  trim(rs("draw"))<>"" then 
				   img=rs("draw")
				  elseif  trim(rs("draw1"))<>"" then
					img=rs("draw1")
				  else
					 img=rs("draw2")
				  end if 
			   end if 
					newgong=newgong&"<td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'><img src='"&img&"' width=108 height=80 vspace=5 border=0 hspace=5></a><br><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'>"&rs("showname")&" </a></td>"
					rs.movenext
				loop
				newgong=newgong&"</tr></table>"
				end if	
				HOPE_newgong=newgong
	End Function


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

		Function HOPE_newqiu(typeid,num)			
			'采购
			if issession=0 then
			gsid=Replace_Text(request.Cookies("Yxmemberid"))
			else
			gsid=session("id")
			end if
			if typeid=0 then 
				sql="select top "&num&" info_id,type,showname,picture,draw,draw1,draw2,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='买' and flag=1 and gsid="&gsid&" order by info_id desc"
			else
				sql="select top "&num&" info_id,type,showname,draw,draw1,draw2,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where typeid="&typeid&" and type='买' and gsid="&gsid&" and flag=1 order by info_id desc"
			end if
				Set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1
				if rs.eof then
					newgong="暂无采购信息"
				else
					newgong=newgong&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
				do while not rs.eof
				if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
				   img=rs("picture")
			   else
				  if  trim(rs("draw"))<>"" then 
				   img=rs("draw")
				  elseif trim(rs("draw1"))<>"" then
					img=rs("draw1")
				  else
					 img=rs("draw2")
				  end if 
			   end if 
					newgong=newgong&"<td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'><img src='"&img&"' width=108 height=80 vspace=5 border=0 hspace=5></a><br><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'>"&rs("showname")&" </a></td>"
					rs.movenext
				loop
				newgong=newgong&"</tr></table>"
				end if	
				HOPE_newqiu=newgong
	End Function


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

		Function HOPE_newjob()
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		
		sql="select * from Websen_work where gsid="&gsid&" order by info_id desc"
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			newjob="暂无招聘"
		Else
			newjob="<br><table width=""97%"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""1"" bgcolor=""#EEEEEE"">"
			Do while not rs.eof
				newjob=newjob&"<tr><td height=""25"" bgcolor=""#FFF3EC"" align=left><a href=../../member/work/work_info.asp?info_id="&rs("info_id")&" target=_blank><b>"&rs("showname")&"</b></a>&nbsp;&nbsp;&nbsp;<font color=999999>有效期：("&rs("period")&")&nbsp;&nbsp;发布时间："&formatdatetime(rs("dateandtime"),2)&"</font></td></tr>"
				newjob=newjob&"<tr><td bgcolor=""#FFFFFF"" align=left><span style='font-size:12px;line-height:20px'><b>工作地点：</b>"&rs("xs")&"&nbsp;("&rs("type")&")<br><b>招聘人数：</b>"&rs("zrs")&"<br><b>招聘内容：</b>"&rs("content")&"</span></td></tr>"
				rs.movenext
			Loop
			newjob=newjob&"</table>"
		End If
		HOPE_newjob=newjob
	End Function


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


		Public Function HOPE_vipproduct(tj,num,numbr)' 会员推荐产品(推荐，个数，几个换行)
		j=0
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		sql="select top "&num&" Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.cpmc,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.url,Websen_corporation.[user] from Websen_productshow,Websen_corporation where Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.gsid="&gsid&" order by Websen_productshow.id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipproduct="暂无产品信息"
		Else
			vipproduct=vipproduct&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
			do while not rs.eof and j<num
				vipproduct=vipproduct&"<TD align=middle valign=top style='word-break:break-all'><A href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank><IMG src="""&rs("picture")&""" border=0 width=""200"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank>"&rs("cpmc")&"</a></TD>"
				rs.movenext
				j=j+1
				If j mod numbr=0 then vipproduct=vipproduct&"</TR><tr>"
			loop
			vipproduct=vipproduct&"</TR></TABLE>"
		End If
		HOPE_vipproduct=vipproduct
	End Function
	
		Public Function HOPE_SuppryView(thispage,num,numbr)' 会员推荐产品(第几页，每页条数，几个换行)
		j=0	
		sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='卖' and gsid="&gsid&" and flag=1 order by info_id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipSuppry="暂无产品信息"
		Else
			j=0
			rs.pagesize=num
			rs.absolutepage=thispage
			vipSuppry=vipSuppry&"<table  width='100%'><tr><td align='left'>橱窗展示信息&nbsp;&nbsp;<a href='supply_p1.htm'>目录方式展示信息</a></td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
			do while not rs.eof and j<rs.pagesize
				if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
			   PTpic=rs("picture")
			   else
				  if  trim(rs("draw"))<>"" then 
				   PTpic=rs("draw")
				  elseif trim(rs("draw1"))<>"" then
					PTpic=rs("draw1")
				  else
					 PTpic=rs("draw2")
				  end if 
			   end if 
			   
				 vipSuppry=vipSuppry&"<TD align=middle valign=top style='word-break:break-all'><A href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></TD>"
				rs.movenext
				j=j+1
				If j mod numbr=0 then vipSuppry=vipSuppry&"</TR><tr>"
			loop
			vipSuppry=vipSuppry&"</TR></TABLE>"
		End If
		HOPE_SuppryView=vipSuppry
	End Function	

	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	Public Function HOPE_SuppryView2(thispage,num,numbr)' 会员推荐产品(第几页，每页条数，几个换行)
		j=0	
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		
		sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='卖' and gsid="&gsid&" and flag=1 order by info_id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipSuppry="暂无产品信息"
		Else
			j=0
			rs.pagesize=num
			rs.absolutepage=thispage
			vipSuppry=vipSuppry&"<table  width='100%'><tr><td align='left'><a href='supply1.htm'>橱窗展示信息</a>&nbsp;&nbsp;目录方式展示信息</td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width='100%' border=0><TR>"
			do while not rs.eof and j<rs.pagesize
			if j mod 2=0 then 
			bgco="#EEEEEE"
			else
			bgco="#FFFFFF"
			end if 
				if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
			   PTpic=rs("picture")
			   else
				  if trim(rs("draw"))<>"" then 
				   PTpic=rs("draw")
				  elseif  trim(rs("draw1"))<>"" then
					PTpic=rs("draw1")
				  else
					 PTpic=rs("draw2")
				  end if 
			   end if 
			   
				 vipSuppry=vipSuppry&"<TD align=middle valign=top><table width='100%' border='0' cellspacing='1' cellpadding='0'  bgcolor='#ffffff'><tr><td width='15%' height='33' bgcolor='"&bgco&"'><A href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A></td><td width='85%' bgcolor='"&bgco&"' style='word-break:break-all'><A class=s href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></td></tr></table></TD>"
				rs.movenext
				j=j+1
				If j mod 1=0 then vipSuppry=vipSuppry&"</TR><tr>"
			loop
			vipSuppry=vipSuppry&"</TR></TABLE>"
		End If
		HOPE_SuppryView2=vipSuppry
	End Function	


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	
	Public Function HOPE_vipSuppry(tj,num,numbr)'供应信息(推荐，个数，几个换行)
		j=0
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		sql="select top "&num&" info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='卖' and gsid="&gsid&" and flag=1 order by info_id desc"
			response.Write sql
			response.End()
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipSuppry="暂无产品信息"
		Else
			vipSuppry=vipSuppry&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
			do while not rs.eof and j<num
				 if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
			   PTpic=rs("picture")
			   else
				  if  trim(rs("draw"))<>"" then 
				   PTpic=rs("draw")
				  elseif trim(rs("draw1"))<>"" then
					PTpic=rs("draw1")
				  else
					 PTpic=rs("draw2")
				  end if 
			   end if 
				vipSuppry=vipSuppry&"<TD align=middle valign=top><A href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></TD>"
				rs.movenext
				j=j+1
				If j mod numbr=0 then vipSuppry=vipSuppry&"</TR><tr>"
			loop
			vipSuppry=vipSuppry&"</TR></TABLE>"
		End If
		HOPE_vipSuppry=vipSuppry
	End Function	

  

  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


		Public Function HOPE_CaiGouView(thispage,num,numbr)'采购信息(第几页，每页条数，几个换行)
		j=0	
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='买' and gsid="&gsid&" and flag=1 order by info_id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipCaiGou="暂无产品信息"
		Else
			j=0
			rs.pagesize=num
			rs.absolutepage=thispage
			vipCaiGou=vipCaiGou&"<table  width='100%'><tr><td align='left'>橱窗展示信息&nbsp;&nbsp;<a href='PurInfo_p1.htm'>目录方式展示信息</a></td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
			do while not rs.eof and j<rs.pagesize
			   if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
			   PTpic=rs("picture")
			   else
				  if  trim(rs("draw"))<>"" then 
				   PTpic=rs("draw")
				  elseif  trim(rs("draw1"))<>"" then
					PTpic=rs("draw1")
				  else
					 PTpic=rs("draw2")
				  end if 
			   end if 
				vipCaiGou=vipCaiGou&"<TD align=middle valign=top><A href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></TD>"
				rs.movenext
				j=j+1
				If j mod numbr=0 then vipCaiGou=vipCaiGou&"</TR><tr>"
			loop
			vipCaiGou=vipCaiGou&"</TR></TABLE>"
		End If
		HOPE_CaiGouView=vipCaiGou
	End Function	


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	 Public Function HOPE_CaiGouView2(thispage,num,numbr)'采购信息(第几页，每页条数，几个换行)
		j=0	
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='买' and gsid="&gsid&" and flag=1 order by info_id desc"
		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipCaiGou="暂无产品信息"
		Else
			j=0
			rs.pagesize=num
			rs.absolutepage=thispage
			vipCaiGou=vipCaiGou&"<table  width='100%'><tr><td align='left'><a href='PurInfo1.htm'>橱窗展示信息</a>&nbsp;&nbsp;目录方式展示信息</td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=100% border=0><TR>"
			do while not rs.eof and j<rs.pagesize
				if j mod 2=0 then 
			bgco="#EEEEEE"
			else
			bgco="#FFFFFF"
			end if 
			   if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
			   PTpic=rs("picture")
			   else
				  if trim(rs("draw"))<>""  then 
				   PTpic=rs("draw")
				  elseif trim(rs("draw1"))<>"" then
					PTpic=rs("draw1")
				  else
					 PTpic=rs("draw2")
				  end if 
			   end if 
				vipCaiGou=vipCaiGou&"<TD align=middle valign=top><table width='100%' border='0' cellspacing='1' cellpadding='0'  bgcolor='#ffffff'><tr><td width='15%' height='33' bgcolor='"&bgco&"'><A href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A></td><td width='85%' bgcolor='"&bgco&"'><A class=s href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></td></tr></table></TD>"
				rs.movenext
				j=j+1
				If j mod 1=0 then vipCaiGou=vipCaiGou&"</TR><tr>"
			loop
			vipCaiGou=vipCaiGou&"</TR></TABLE>"
		End If
		HOPE_CaiGouView2=vipCaiGou
	End Function	
	
		
	Public Function HOPE_vipCaiGou(tj,num,numbr)'供应信息(推荐，个数，几个换行)
		j=0
		if issession=0 then
		gsid=Replace_Text(request.Cookies("Yxmemberid"))
		else
		gsid=session("id")
		end if
		sql="select top "&num&" info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='买' and gsid="&gsid&" and flag=1 order by info_id desc"
 
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.open sql,conn,1,1
		If rs.eof then
			vipCaiGou="暂无产品信息"
		Else
			vipCaiGou=vipCaiGou&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
			do while not rs.eof and j<num
				if trim(rs("draw"))="" and trim(rs("draw1"))=""  and trim(rs("draw2"))="" then 
			   PTpic=rs("picture")
			   else
				  if trim(rs("draw1"))<>""  then 
				   PTpic=rs("draw")
				  elseif  trim(rs("draw1"))<>"" then
					PTpic=rs("draw1")
				  else
					 PTpic=rs("draw2")
				  end if 
			   end if 
				vipCaiGou=vipCaiGou&"<TD align=middle valign=top><A href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></TD>"
				rs.movenext
				j=j+1
				If j mod numbr=0 then vipCaiGou=vipCaiGou&"</TR><tr>"
			loop
			vipCaiGou=vipCaiGou&"</TR></TABLE>"
		End If
		HOPE_vipCaiGou=vipCaiGou
	End Function	
	
	'产品展示不分页=====================================================================
	
	
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	
   public function update_index()
	'生成首页================================   start   ======================================
	    call  zsyh()     '处理指数
       call hypj()     '处理评论
	  call company() '调用企业信息
	   call cpdh() '产品导航
	dim strinfo
 	sqlskin="select skinmain from Websen_userskin where id="&url&" and ispass=1"
  	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("skinmain")  '模版
  		strinfo=RegExpTest("#HOPE_vipproduct\(\d+,\d+,\d+\)#", f2)
	    If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) and isnumeric(arry(2)) then
					f2=replace(f2,arrinfo(i),HOPE_vipproduct(arry(0),arry(1),arry(2)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
 			next
		End If	
 		strinfo=RegExpTest("#HOPE_newgong\(\d+,\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_newgong(arry(0),arry(1)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
 		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
 		subject="网站首页 产品展示 商机信息 招聘信息  会员档案"
		 f2=replace(f2,"#buttominfo#",buttominfo)
 		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
		'f2=replace(f2,"#HOPE_Search(1)#",Websearch)
		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
 		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vipbh#","会员编号")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#vip_rz_sj#",BeginDate)
		f2=replace(f2,"#rzjg#",rzjg)
 		f2=replace(f2,"#vip_jlz#",nian)      '经验值
		f2=replace(f2,"#vip_sysj#",fuwunian) '使用服务 #vip_sysj# 年 
		f2=replace(f2,"#vip_zs#",zs)         '证书及荣誉分数
		f2=replace(f2,"#vip_gj#",gjzs)       '经营许可证张数
   		f2=replace(f2,"#vip_jc#",jczs)       '产品类证书张数
		f2=replace(f2,"#vip_sw#",swzs)       '税务登记证张数
		f2=replace(f2,"#vip_qt#",qtzs)       '其他证书 #vip_qt# 张
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_pj#",hps)     '会员评价 #vip_pj#分 
		f2=replace(f2,"#vip_hp#",hp)     '好评 #vip_hp# 条
  		f2=replace(f2,"#vip_zp#",jy)     '中评 #vip_zp# 条
		f2=replace(f2,"#vip_cp#",cp)     '批评 #vip_cp# 条 
		f2=replace(f2,"#vipbs#","10")
 		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
		fs="<font color=red> </font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(server.mappath( HOPE_InstallDir&"Vipcom/"&user&"/index.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
 	end function
	'生成首页=======================  end  ===========================================
	
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_SkinSupply()
	'生成供应=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	sqlskin="select SkinSupply from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinSupply")  '模版
		strinfo=RegExpTest("#HOPE_newgong\(\d+,\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_newgong(arry(0),arry(1)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="供应信息"
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)'总指数
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		fs="<font color=red>aaa</font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(server.mappath(HOPE_InstallDir&"Vipcom/"&user&"/Supply.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_SkinPtHall()
	'产品展厅=========================================================================
	call company() '调用企业信息
 	dim strinfo
	sqlskin="select SkinPtHall from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinPtHall")  '模版
		strinfo=RegExpTest("#HOPE_vipproduct\(\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_vipproduct(arry(0),arry(1),arry(2)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
 		strinfo=RegExpTest("#HOPE_ProductGuide\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0))  then
					f2=replace(f2,arrinfo(i),HOPE_ProductGuide(arry(0)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
 		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
 		subject="产品展厅"
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
 		fs="<font color=red>member</font>"
 		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(server.mappath(HOPE_InstallDir&"Vipcom/"&user&"/VipProduct.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_Suppry()
	'供应信息=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
	sqltemp="select info_id,draw,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='卖' and gsid="&gsid&" and flag=1 order by info_id desc"
		set rstemp=Server.CreateObject("ADODB.Recordset") 
		rstemp.open sqltemp,conn,1,1
		allnum=rstemp.recordcount
 	sqlskin="select SkinSupply from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinSupply")  '模版	
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  		subject="供应信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
 		  f2=replace(f2,"#buttominfo#",buttominfo)
 		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_SuppryGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
 
 		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		Dim thispage,endpage,everypage
		thispage=1
		everypage=12  '每页显示几条
		endpage=allnum mod everypage
		if endpage=0 then 
		  endpage=fix(allnum/everypage)
		  else
		  endpage=fix(allnum/everypage)+1
		end if 
		if allnum=0 then 
	allnum=1
	end if 
		For page_num=1 to allnum
			if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then 
			
				  if thispage>1 then   
				   fy="<a href='Supply1.htm'>首页</a>&nbsp;" 
				   fy=fy&"<a href='Supply"&(thispage-1)&".htm'>上一页</a>&nbsp;"   
			  else   
				   fy=fy&"首页&nbsp;" 
				   fy=fy&"上一页&nbsp;"  
			  end if   
			   fy=fy&"&nbsp;|&nbsp;第："&thispage&"页&nbsp;|&nbsp;" 
			    fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页&nbsp;|&nbsp;"    
			  if thispage<endpage then   
				   fy=fy&"<a href='Supply"&(thispage+1)&".htm'>下一页</a>&nbsp;"  
				   fy=fy&"<a href='Supply"&endpage&".htm'>尾页</a>&nbsp;"   
			  else   
				   fy=fy&"下一页&nbsp;" 
				   fy=fy&"尾页"  
			  end if 
 			f2=rsskin("SkinSupply")  '模版	
 			 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="供应信息"
		  		subject="供应信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
 		  f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_SuppryGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		strinfo=RegExpTest("#HOPE_newgong\(\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
 			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_SuppryView(thispage,arry(1),arry(2)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
 			set f=fso.CreateTextFile(server.mappath( HOPE_InstallDir&"Vipcom/"&user&"/Supply"&thispage&".htm" ), true )
 			f.WriteLine(f2)
			f.close 
			thispage=thispage+1
			End If			
		Next
 		set f = nothing 
		set fso = nothing
	end if 
	end function
	
	
  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_Suppry2()
	'供应信息=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
	sqltemp="select info_id,draw,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='卖' and gsid="&gsid&" and flag=1 order by info_id desc"
		set rstemp=Server.CreateObject("ADODB.Recordset") 
		rstemp.open sqltemp,conn,1,1
		allnum=rstemp.recordcount
 	sqlskin="select SkinSupply from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinSupply")  '模版	
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  		subject="供应信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
 		 f2=replace(f2,"#buttominfo#",buttominfo)
 		
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_SuppryGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		Dim thispage,endpage,everypage
		thispage=1
		everypage=12  '每页显示几条
		endpage=allnum mod everypage
		if endpage=0 then 
		  endpage=fix(allnum/everypage)
		  else
		  endpage=fix(allnum/everypage)+1
		end if 
		if allnum=0 then 
	allnum=1
	end if 
		For page_num=1 to allnum
			if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then 
			
				  if thispage>1 then   
				   fy="<a href='Supply_p1.htm'>首页</a>&nbsp;" 
				   fy=fy&"<a href='Supply_p"&(thispage-1)&".htm'>上一页</a>&nbsp;"   
			  else   
				   fy=fy&"首页&nbsp;" 
				   fy=fy&"上一页&nbsp;"  
			  end if   
			   fy=fy&"&nbsp;|&nbsp;第："&thispage&"页&nbsp;|&nbsp;" 
			    fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页&nbsp;|&nbsp;"    
			  if thispage<endpage then   
				   fy=fy&"<a href='Supply_p"&(thispage+1)&".htm'>下一页</a>&nbsp;"  
				   fy=fy&"<a href='Supply_p"&endpage&".htm'>尾页</a>&nbsp;"   
			  else   
				   fy=fy&"下一页&nbsp;" 
				   fy=fy&"尾页"  
			  end if 
 			f2=rsskin("SkinSupply")  '模版	
 			 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="供应信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
 		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_SuppryGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
		 f2=replace(f2,"#buttominfo#",buttominfo)

  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		strinfo=RegExpTest("#HOPE_newgong\(\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
 			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_SuppryView2(thispage,arry(1),arry(2)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  			set f=fso.CreateTextFile(server.mappath( HOPE_InstallDir&"Vipcom/"&user&"/Supply_p"&thispage&".htm" ), true )
 			f.WriteLine(f2)
			f.close 
			thispage=thispage+1
			End If			
		Next

		set f = nothing 
		set fso = nothing
	end if 
	end function


  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_CaiGou()
	'采购信息=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
	sqltemp="select info_id,draw,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='买' and gsid="&gsid&" and flag=1 order by info_id desc"
		set rstemp=Server.CreateObject("ADODB.Recordset") 
		rstemp.open sqltemp,conn,1,1
		allnum=rstemp.recordcount
 	sqlskin="select SkinPurInfo from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinPurInfo")  '模版	
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  		subject="采购信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"




		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_CaigouGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		Dim thispage,endpage,everypage
		thispage=1
		everypage=12  '每页显示几条
		endpage=allnum mod everypage
		if endpage=0 then 
		  endpage=fix(allnum/everypage)
		  else
		  endpage=fix(allnum/everypage)+1
		end if 
	if allnum=0 then 
	allnum=1
	end if 
		For page_num=1 to allnum
			if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then 
 				  if thispage>1 then   
				   fy="<a href='PurInfo1.htm'>首页</a>&nbsp;" 
				   fy=fy&"<a href='PurInfo"&(thispage-1)&".htm'>上一页</a>&nbsp;"   
			  else   
				   fy=fy&"首页&nbsp;" 
				   fy=fy&"上一页&nbsp;"  
			  end if   
			   fy=fy&"&nbsp;|&nbsp;第："&thispage&"页&nbsp;|&nbsp;"  
			   fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页&nbsp;|&nbsp;"  
			  if thispage<endpage then   
				   fy=fy&"<a href='PurInfo"&(thispage+1)&".htm'>下一页</a>&nbsp;"  
				   fy=fy&"<a href='PurInfo"&endpage&".htm'>尾页</a>&nbsp;"   
			  else   
				   fy=fy&"下一页&nbsp;" 
				   fy=fy&"尾页&nbsp;"  
			  end if 
 			f2=rsskin("SkinPurInfo")  '模版	
 			 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="采购信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"

 		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_CaigouGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		strinfo=RegExpTest("#HOPE_newqiu\(\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
 			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
				'response.write arry(i)
				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_CaiGouView(thispage,arry(1),arry(2)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
   			set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/PurInfo"&thispage&".htm" ), true )
 			f.WriteLine(f2)
			f.close 
			thispage=thispage+1
			End If			
		Next
 		set f = nothing 
		set fso = nothing
	end if 
	end function
	
	
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_CaiGou2()
	'采购信息=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
	sqltemp="select info_id,draw,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Websen_Info where type='买' and gsid="&gsid&" and flag=1 order by info_id desc"
		set rstemp=Server.CreateObject("ADODB.Recordset") 
		rstemp.open sqltemp,conn,1,1
		allnum=rstemp.recordcount
 	sqlskin="select SkinPurInfo from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinPurInfo")  '模版	
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		
  		subject="采购信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"



		 f2=replace(f2,"#buttominfo#",buttominfo)

		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_CaigouGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		Dim thispage,endpage,everypage
		thispage=1
		everypage=12  '每页显示几条
		endpage=allnum mod everypage
		if endpage=0 then 
		  endpage=fix(allnum/everypage)
		  else
		  endpage=fix(allnum/everypage)+1
		end if 
	if allnum=0 then 
	allnum=1
	end if 
		For page_num=1 to allnum
			if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then 
			
				  if thispage>1 then   
				   fy="<a href='PurInfo_p1.htm'>首页</a>&nbsp;" 
				   fy=fy&"<a href='PurInfo_p"&(thispage-1)&".htm'>上一页</a>&nbsp;"   
			  else   
				   fy=fy&"首页&nbsp;" 
				   fy=fy&"上一页&nbsp;"  
			  end if   
			   fy=fy&"&nbsp;|&nbsp;第："&thispage&"页&nbsp;|&nbsp;"  
			   fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页&nbsp;|&nbsp;"  
			  if thispage<endpage then   
				   fy=fy&"<a href='PurInfo_p"&(thispage+1)&".htm'>下一页</a>&nbsp;"  
				   fy=fy&"<a href='PurInfo_p"&endpage&".htm'>尾页</a>&nbsp;"   
			  else   
				   fy=fy&"下一页&nbsp;" 
				   fy=fy&"尾页&nbsp;"  
			  end if 
 			f2=rsskin("SkinPurInfo")  '模版	
 			 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="采购信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"

 		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_CaigouGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
 		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		strinfo=RegExpTest("#HOPE_newqiu\(\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
 			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_CaiGouView2(thispage,arry(1),arry(2)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  			set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/PurInfo_p"&thispage&".htm" ), true )
 			f.WriteLine(f2)
			f.close 
			thispage=thispage+1
			End If			
		Next
 		set f = nothing 
		set fso = nothing
	end if 
	end function
	
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_product()
	'产品展厅=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
	sqltemp="select Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.cpmc,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.url,Websen_corporation.[user] from Websen_productshow,Websen_corporation where Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.gsid="&gsid&" order by Websen_productshow.id desc"
		set rstemp=Server.CreateObject("ADODB.Recordset") 
		rstemp.open sqltemp,conn,1,1
		allnum=rstemp.recordcount
 	sqlskin="select SkinPtHall from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinPtHall")  '模版	
 		 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  		subject="产品展厅"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
  		 f2=replace(f2,"#buttominfo#",buttominfo)
 		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_ProductGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		Dim thispage,endpage,everypage
		thispage=1
		everypage=12  '每页显示几条
		endpage=allnum mod everypage
		if endpage=0 then 
		  endpage=fix(allnum/everypage)
		  else
		  endpage=fix(allnum/everypage)+1
		end if 
	if allnum=0 then 
	allnum=1
	end if 
		For page_num=1 to allnum
			if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then 
			
				  if thispage>1 then   
				   fy="<a href='VipProduct1.htm'>首页</a>&nbsp;" 
				   fy=fy&"<a href='VipProduct"&(thispage-1)&".htm'>上一页</a>&nbsp;"   
			  else   
				   fy=fy&"首页&nbsp;" 
				   fy=fy&"上一页&nbsp;"  
			  end if   
			   fy=fy&"&nbsp;|&nbsp;第："&thispage&"页&nbsp;|&nbsp;" 
			   fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页&nbsp;|&nbsp;"   
			  if thispage<endpage then   
				   fy=fy&"<a href='VipProduct"&(thispage+1)&".htm'>下一页</a>&nbsp;"  
				   fy=fy&"<a href='VipProduct"&endpage&".htm'>尾页</a>&nbsp;"   
			  else   
				   fy=fy&"下一页&nbsp;" 
				   fy=fy&"尾页&nbsp;"  
			  end if 
 			f2=rsskin("SkinPtHall")  '模版	
 			 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="产品展厅"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"
 		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
		f2=replace(f2,"#vip_grade#",gradename)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
   		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_ProductGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		strinfo=RegExpTest("#HOPE_vipproduct\(\d+,\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
 			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_productView(thispage,arry(1),arry(2),arry(3)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
   			set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/VipProduct"&thispage&".htm" ), true )
 			f.WriteLine(f2)
			f.close 
			thispage=thispage+1
			End If			
		Next
 		set f = nothing 
		set fso = nothing
	end if 
	end function
	
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	
	public function update_product2()
	'产品展厅=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if
	sqltemp="select Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.typeid,Websen_productshow.typeid_2,Websen_productshow.cpmc,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.url,Websen_corporation.[user] from Websen_productshow,Websen_corporation where Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid and Websen_productshow.gsid="&gsid&" order by Websen_productshow.id desc"
		set rstemp=Server.CreateObject("ADODB.Recordset") 
		rstemp.open sqltemp,conn,1,1
		allnum=rstemp.recordcount
 	sqlskin="select SkinPtHall from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinPtHall")  '模版	
 		 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  		subject="产品展厅"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"

 		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
   		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_ProductGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		
		Dim thispage,endpage,everypage
		thispage=1
		everypage=12  '每页显示几条
		endpage=allnum mod everypage
		if endpage=0 then 
		  endpage=fix(allnum/everypage)
		  else
		  endpage=fix(allnum/everypage)+1
		end if 
	if allnum=0 then 
	allnum=1
	end if 
		For page_num=1 to allnum
			if((page_num>1 and (page_num mod everypage=0)) or page_num=allnum) then 
			
				  if thispage>1 then   
				   fy="<a href='VipProduct_p1.htm'>首页</a>&nbsp;" 
				   fy=fy&"<a href='VipProduct_p"&(thispage-1)&".htm'>上一页</a>&nbsp;"   
			  else   
				   fy=fy&"首页&nbsp;" 
				   fy=fy&"上一页&nbsp;"  
			  end if   
			   fy=fy&"&nbsp;|&nbsp;第："&thispage&"页&nbsp;|&nbsp;" 
			   fy=fy&"共：<font color='#ff0000'>"&endpage&"</font>页&nbsp;|&nbsp;"   
			  if thispage<endpage then   
				   fy=fy&"<a href='VipProduct_p"&(thispage+1)&".htm'>下一页</a>&nbsp;"  
				   fy=fy&"<a href='VipProduct_p"&endpage&".htm'>尾页</a>&nbsp;"   
			  else   
				   fy=fy&"下一页&nbsp;" 
				   fy=fy&"尾页&nbsp;"  
			  end if 
 			f2=rsskin("SkinPtHall")  '模版	
 			 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="产品展厅"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"

 		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_ProductGuide()#",fy)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
 		strinfo=RegExpTest("#HOPE_vipproduct\(\d+,\d+,\d+,\d+\)#", f2)
 		If strinfo<>"" then
									
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_productView2(thispage,arry(1),arry(2),arry(3)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
  			set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/VipProduct_p"&thispage&".htm" ), true )
 			f.WriteLine(f2)
			f.close 
			thispage=thispage+1
			End If			
		Next
 		set f = nothing 
		set fso = nothing
	end if 
	end function

	
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_SkinPurInfo()
	'采购信息=========================================================================
	call company() '调用企业信息
	call cpdh() '产品导航
	dim strinfo
	sqlskin="select SkinPurInfo from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinPurInfo")  '模版
		strinfo=RegExpTest("#HOPE_newqiu\(\d+,\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_newqiu(arry(0),arry(1)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
 		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="采购信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"

 		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#local_title#",subject)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
 		f2=replace(f2,"#shopabouts#",Qyjj)
   		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
		'Response.write user
		'response.end
		fs="<font color=red>aaa</font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/PurInfo.htm" ), true )
		'f.writeline("<title>"&qymc&"-"&webname&"</title>") 
		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    	
	public function update_SkinCompanyInfo()
	'公司介绍=========================================================================
	   call zsyh()     '处理指数
      call hypj()     '处理评论
	call company() '调用企业信息
	
	call HOPE_CompanyInfo()
	dim strinfo
	sqlskin="select SkinCompanyInfo from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
 		f2=rsskin("SkinCompanyInfo")  '模版
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		
 		subject="公司介绍"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"



		 f2=replace(f2,"#buttominfo#",buttominfo)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
		f2=replace(f2,"#Hope_ComapnyInfo#",HOPE_CompanyInfo)
		f2=replace(f2,"#local_title#",subject)
		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vipbh#","会员编号")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#vip_rz_sj#",BeginDate)
		f2=replace(f2,"#rzjg#",rzjg)
	    f2=replace(f2,"#vip_jlz#",nian)      '经验值
		f2=replace(f2,"#vip_sysj#",fuwunian) '使用服务 #vip_sysj# 年 
		f2=replace(f2,"#vip_zs#",zs)          '证书及荣誉分数
		f2=replace(f2,"#vip_gj#",gjzs)        '经营许可证张数
		f2=replace(f2,"#vip_jc#",jczs)         '产品证书张数
		f2=replace(f2,"#vip_sw#",swzs)       '税务登记证张数
		f2=replace(f2,"#vip_qt#",qtzs)       '其他证书 #vip_qt# 张
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_pj#",hps)     '会员评价 #vip_pj#分 
		f2=replace(f2,"#vip_hp#",hp)     '好评 #vip_hp# 条
		f2=replace(f2,"#vip_zp#",jy)     '中评 #vip_zp# 条
		f2=replace(f2,"#vip_cp#",cp)     '批评 #vip_cp# 条 
		f2=replace(f2,"#vip_cp#",cp)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
	
  		fs="<font color=red>aaa</font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/About.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_SkinCusApp()
	'客户评价=========================================================================
	call company() '调用企业信息
	
	dim strinfo
	sqlskin="select SkinCusApp from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
 	     
		f2=rsskin("SkinCusApp")  '模版
		  strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
 		subject="客户评价"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"



		 f2=replace(f2,"#buttominfo#",buttominfo)

		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
 		f2=replace(f2,"#shopabouts#",Qyjj)
   		f2=replace(f2,"#local_title#",subject)
		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#",vipbs)
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
 		fs="<font color=red>aaa</font>"
		set fso=YXFSO 
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/Appraisal.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_SkinUnInfo()
	'展会信息=========================================================================
	call company() '调用企业信息
	
	dim strinfo
	sqlskin="select SkinUnInfo from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinUnInfo")  '模版
		strinfo=RegExpTest("#HOPE_newzhanhui\(\d+,\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=split(tempinfo(arrinfo(i)),",")
 				if isnumeric(arry(0)) and isnumeric(arry(1)) then
					f2=replace(f2,arrinfo(i),HOPE_newzhanhui(arry(0),arry(1)))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		subject="展会信息"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"




		 f2=replace(f2,"#buttominfo#",buttominfo)
        f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
  		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#",vipbs)
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		fs="<font color=red>aaa</font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/EmpInfo.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
		
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_SkinCusMsg()
	'客户留言=========================================================================
	call company() '调用企业信息
	
	dim strinfo
	sqlskin="select SkinCusMsg from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinCusMsg")  '模版
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
	    f2=replace(f2,"#HOPE_msg#",HOPE_msg)
		subject="客户留言"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"



		 f2=replace(f2,"#buttominfo#",buttominfo)

		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
   		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#",vipbs)
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
  		fs="<font color=red>aaa</font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/Cusmsg.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
	
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	public function update_SkinCantact()
	'联系方式=========================================================================
	call company() '调用企业信息
	
	dim strinfo
	sqlskin="select SkinCantact from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinCantact")  '模版
		 strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
	    f2=replace(f2,"#HOPE_contact#",contact)
		subject="联系方式"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"



		 f2=replace(f2,"#buttominfo#",buttominfo)

		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
 		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#vip_rz_fs#",trust_score)
 		fs="<font color=red>aaa</font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&"/Contact.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
	public function update_SkinEmpInfo()
	'招聘中心=========================================================================
	call company() '调用企业信息
	
	dim strinfo
	sqlskin="select SkinEmpInfo from Websen_userskin where id="&url&" and ispass=1"
	set rsskin=server.CreateObject("adodb.recordset")
	rsskin.open sqlskin,conn,1,1
	if not rsskin.eof then 
		f2=rsskin("SkinEmpInfo")  '模版
		strinfo=RegExpTest("#HOPE_Search\(\d+\)#", f2)
	
		If strinfo<>"" then
			arrinfo=split(strinfo,"|")
			for i=0 to ubound(arrinfo)-1
				arry=tempinfo(arrinfo(i))
 			if isnumeric(arry) then
			  f2=replace(f2,arrinfo(i),HOPE_Search(arry))	
				else
					f2=replace(f2,arrinfo(i),"标签出错")	
				end if
			next
		End If	
		f2=replace(f2,"#HOPE_newjob#",HOPE_newjob)
		
	     subject="招聘中心"
 		 buttominfo="<table width='100%' border='0' align='center' cellpadding='0' cellspacing='5' bgcolor='#f2f2f2'> <tbody><tr><td width='18%' align='center'></td>  <td width='82%' align='center'><span class='s'>#webname#版权所有 2007-2008<span class='gray'></span><br /> <br />     <a href='#HOPE_InstallDir#about/index.html' target='_blank'>关于我们 </a>| <a href='#HOPE_InstallDir#about/copyright.html' target='_blank'>法律声明 </a>| <a href='#HOPE_InstallDir#about/service.html' target='_blank'>服务条款</a> |<a href='#HOPE_InstallDir#about/contact.html' target='_blank'> 联系我们</a> |<a href='#HOPE_InstallDir#help/' target='_blank'>帮助中心 </a>|<a href='#HOPE_InstallDir#webgo.asp' target='_blank'> 网站地图</a><a onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('#weburl#');return false;""  href='#webname#'> | 设为首页 </a>|<a href=""javascript:window.external.AddFavorite('#weburl#','#webname#');"" target='_self'> 加入收藏</a></span></td></tr> </tbody></table>"




		 f2=replace(f2,"#buttominfo#",buttominfo)

		f2=replace(f2,"#show_subject_l#",subject)
		f2=replace(f2,"#weburl#",weburl)
		f2=replace(f2,"#vip_grade#",gradename)
		
		f2=replace(f2,"#webshoplogo#",webshoplogo)
 		f2=replace(f2,"#show_newblog#",cp_list)
		f2=replace(f2,"#show_login#","<script src='/login/userskin_login.asp'></script>")
		f2=replace(f2,"#shopname#",qymc)
		f2=replace(f2,"#shoplogo#",logo)
		f2=replace(f2,"#local_title#",subject)
 		f2=replace(f2,"#shopabouts#",Qyjj)
   		f2=replace(f2,"#shopimgabouts#",cimg)
		f2=replace(f2,"#shopimgabouts_title#",cimg_title)
		f2=replace(f2,"#vip_sysj#",fuwunian)
		f2=replace(f2,"#vipbs#","10")
		f2=replace(f2,"#vip_rz_fs#",trust_score)
		f2=replace(f2,"#Shop_class#",cpdh)
		f2=replace(f2,"#webname#",webname)
		f2=replace(f2,"#HOPE_InstallDir#",HOPE_InstallDir)
 		fs="<font color=red>aaa</font>"
		set fso=YXFSO
		If fso.FolderExists(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))=False Then
			fso.CreateFolder(Server.MapPath(HOPE_InstallDir&"Vipcom/"&user&""))'不存在就建一个目录
		End If
		set f=fso.CreateTextFile(server.mappath(HOPE_InstallDir&"Vipcom/"&user&"/Job.htm" ), true )
 		f.WriteLine(f2)
		f.close 
		set f = nothing 
		set fso = nothing
	end if 
	end function
	
    End Class
       set yiwang=new Websen_Class
		yiwang.update_index               '生成首页
		yiwang.update_Suppry()            '生成供应
		yiwang.update_Suppry2()
		yiwang.update_product             '生成产品
		yiwang.update_product2 
		yiwang.update_CaiGou()            '生成采购
		yiwang.update_CaiGou2()           '生成采购
		yiwang.update_SkinCompanyInfo     '生成公司
		yiwang.update_SkinCusApp          '客户评价
		yiwang.update_SkinUnInfo          '生成展会
		yiwang.update_SkinCusMsg          '客户留言
		yiwang.update_SkinCantact         '联系方式
		yiwang.update_SkinEmpInfo()       '生成招聘
response.write ("<script>alert(""您的网站更新完毕"");location='index.asp';</script>") 
%>

