<%

'朱************************************  start  **************************************************

'作用：标签函数通用匹配替换，自动识别标签函数名称和参数及信息变量名称，自动调用函数执行和变量值

    '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     Function Hope_HtmlResult(str)
	   resultHtml=Hope_htmlAll(str)
	   resultHtml=Hope_htmlAll(resultHtml)  '使用三层，考虑资源问题
	   Hope_HtmlResult=resultHtml
	 End Function
    '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
	
    '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	Function  Hope_htmlAll(str)
 		str=Hope_htmlAllCus(str)            '替换自定义标签内容 
 		strInfo=RegExpTest("#\w+(\((\b[,0-9]+\b)?\))?#", str) '调用函数(RegExpTest)匹配出所有str变量中的标签
 		If strInfo<>"" Then
				arrInfo=Split(strInfo,"|")
 				For i=0 To ubound(arrInfo)-1
  				If Left(arrInfo(i),3)="#WS" Then 
				   '处理自定义标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
				   cusLabelcon=ReplceCusLabel(arrInfo(i))               '提出标签名称进行赋值
				   str=Replace(str,arrInfo(i),cusLabelcon)              '替换自定义标签内容 
 				   '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
 				Else
  				  If InStr(arrInfo(i),"(")>0 Then 
				  '替换函数标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
					   funTitle=tempTitle(arrInfo(i))    '调用函数(temptitle)取函数名称
 					   arry=tempInfo(arrInfo(i))         '调用函数(tempinfo)取参数列表
 					     On Error Resume Next
 					   str=Replace(str,arrInfo(i),Eval(funTitle&"("&arry&")"))'取函数返回值
				   '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^   
				  Else
   					   '替换静态标签和无参函数标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
					   staTitle=staticTitle(arrInfo(i))  '调用函数(statictitle)取变量名称
 					     On Error Resume Next
 					   str=Replace(str,arrInfo(i),Eval(staTitle)) '取变量值 
  				  End If
   				   '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
			   End If
 			   Next
 		  End If
 		 Hope_htmlAll=str	
	End Function
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
	'处理自定义标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
  	Function  Hope_htmlAllCus(str)
 		strInfo=RegExpTest("#WS_\w+#", str) '调用函数(RegExpTest)匹配出所有str变量中的标签
 		If strInfo<>"" Then
				arrInfo=Split(strInfo,"|")
 				For i=0 To ubound(arrInfo)-1
				   '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 				   cusLabelcon=ReplceCusLabel(arrInfo(i))               '提出标签名称进行赋值
				   str=Replace(str,arrInfo(i),cusLabelcon)              '替换自定义标签内容 
 				   '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
 				Next
 	    End If
 	   Hope_htmlAllCus=str	
	End Function
     '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


 	'查出该自定义标签的内容^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	Function ReplceCusLabel(str)
	 strs=""
	 nostr=str
	 Set rscul=server.CreateObject("ADODB.Recordset")
     sqlcul="select top 1 lcontent from Websen_cuslabel where lname='"&str&"'"
     rscul.Open sqlcul,conn,1,1
	 If rscul.Eof Then 
	 strs=nostr
	 End If
     If Not rscul.Eof Then
     strs=rscul("lcontent")
     rscul.close
     End If
     ReplceCusLabel=strs
 	End Function
	
	
    '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	'获取变量名称
	Function staticTitle(str)
		  no=Len(str)-2
		  staticTitle=Mid(str,2,no)
	End Function
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 '获取标签中的函数名称
	Function tempTitle(str)
		 nstart=Instr(str,"(")
		 tempTitle=mid(str,2,nstart-2)
	End Function
   	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
	'检测标签函数或信息变量的重复,多个性
	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
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
	'获取标签中的函数中的参数列表
	Function tempInfo(str)   '#HOPE_newinfo(1,10,5,100)#  '1,10,5,100
		nstart=Instr(str,"(")
		nend=Instr(str,")")	
		tempInfo=Mid(str,nstart+1,nend-nstart-1)
	End Function
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
	
	Function noHtml(str)
		Dim re
		Set re=New RegExp
		re.IgnoreCase =True
		re.Global=True
		re.Pattern="(\<.*?\>)"
		str=re.Replace(str,"")
		re.Pattern="(\<\/.*?\>)"
		str=re.Replace(str,"")
		noHtml=str
	End Function
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
	
	
	'***************************************  End  ******************************************************* 
	
	
	
	
	'以下是标签函数和信息变量：
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	'信息变量---------网站公用配置信息：
	
	 HOPE_WebUrl=WebUrl       '网站地址          #HOPE_WebUrl#
	 HOPE_Webname=webname     '网站名称          #HOPE_Webname#
	 HOPE_Title=webname
	 HOPE_tel=Systemtel       '网站联系电话      #HOPE_tel#
	 HOPE_fax=hotfax          '网站联系传真      #HOPE_fax#
	 HOPE_Copyright=Copyright '网站版权标        #HOPE_Copyright#
	 HOPE_address=address     '网站联系地址      #HOPE_address#
	 HOPE_post=HOPE_post      '网站联系邮政编码  #HOPE_post#
	 HOPE_Email=SystemEmail   '网站联系邮箱      #HOPE_Email#             
	
	
 	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	 
	 
 	'搜索热门关键字#HOPE_hotkey（Kind,brnum,Num）#  
	'Kind--属于那个栏目(0-全部，1-产品、2-供求、3-企业、4-行业、5-展会)
	'brnum--分几列显示
	'Num--显示多少数量
 	Function HOPE_hotkey(Kind,brnum,Num) 
			
			str=""
 			If Kind=0 Then
			 searchstr=""
			Else 
			 searchstr=" where Websen_KeyKindId="&Kind
			End If
 			Set rskey2=Server.CreateObject("ADODB.Recordset")
				sqlkey2="select top "&Num&"  * from Websen_Keywords  "&searchstr
				rskey2.open sqlkey2,conn,1,1
 		If rskey2.Eof Then
			 str=""
		End If
 		If Not rskey2.Eof Then 
			 Dim h
			 h=1
				str=str&"<TABLE border=0 cellpadding=0  align=center cellspacing=0 width='100%'><tr><td style=word-break:break-all align=left  valign=middle width=100>&nbsp;<font color='#ffffff'>热门关键字：</font></td><td align=left><TABLE border=0  cellpadding=0 cellspacing=0 align=left ><tr>"
				Do While Not rskey2.Eof 
 				str=str&"<td align=left><a href="&HOPE_InstallDir&"search/searchproduct.asp?keywords="&rskey2("Websen_Keyword")&" target=_blank ><font color='#ffffff'>"&rskey2("Websen_Keyword")&"</font></a>&nbsp;<td>"
 			If  h Mod brnum=0 Then
				 str=str&"</tr><tr>"
			End If
 				rskey2.Movenext 
				h=h+1
				Loop
				str=str&"</tr></TABLE></td></tr></TABLE>"
				rskey2.Close
				Set rskey2=Nothing 
 		End If
		HOPE_hotkey=str
	End Function
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
 	'会员登陆标签 --------#HOPE_ShowUsernLogin(ShowType)#
	'ShowType --显示方式，1为纵向，2为横向
	Function HOPE_ShowUsernLogin(ShowType)
			
			str=""
 			str=str&"<script>function checkLoginsafe(){var str1=document.loginForm1.UsernameGet;var str2=document.loginForm1.PasswordGet;var str3=document.loginForm1.Verifycode;if(str1.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入会员名称！');str1.focus();return false;}if(str2.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入密码！');str2.focus();return false;}if(str3.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入验证码！');str3.focus();return false;}if(/[0-9]{4}/.test(str3.value)==false){alert('请只输入正确的验证码！');str3.select();return false;}}</script>"
  		If ShowType=1 Then
 		   str=str&"<table width='100%' border='0'  cellpadding='0' align=left cellspacing='0'><FORM name='loginForm1' action='"&HOPE_InstallDir&"login/login1.asp' method=post onSubmit='return checkLoginsafe();' style='margin:0'> <tr> <td colspan=2><script language='javascript' src='"&HOPE_InstallDir&"login_js.asp'></script></td></tr></form> </table>"
 		Else
 			str=str&"<TABLE cellPadding=0  cellspacing=0 width='100%'  align=left  border=0> <FORM name='loginForm1' action='"&HOPE_InstallDir&"login/login1.asp' method=post onSubmit='return checkLoginsafe()' ><tr><td><span style='color:#DA1217'>■</span></td><td><script language='javascript' src='"&HOPE_InstallDir&"login_jsh.asp'></script></td><td align=right width=100 valign=middle><span style='color:#DA1217'>■</span></td><td width=180 align=right><a href="&HOPE_InstallDir&"login/register.asp target=_parent>注册会员</a>&nbsp;|&nbsp;<a href="&HOPE_InstallDir&"login/getanswer.asp target=_parent>忘记密码</a>&nbsp;|&nbsp;<a class=53 href="&HOPE_InstallDir&"login/loginout.asp   target=_blank>退出</a>&nbsp;</td></TR></form></TABLE>"
 		 End If
 		HOPE_ShowUsernLogin=str
 	End Function
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
	'已审核会员的总数： 
	Function  HOPE_GeneralMember()
 	   sql="select count(ID)  from Websen_corporation where flag=1"
	   Set totle=Server.CreateObject("adodb.recordset")
	    totle.Open sql,conn,1,1
		If Not totle.Eof Then
		  totlea=totle(0)
		  totle.Close
		 End If
	HOPE_GeneralMember=totlea
 	End Function
	
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
 	'全站统计标签 #HOPE_ShowSiteCountAll(ShowType,scrollhign,tablewidth,brnum,supply,buy,reg,info,supplyall,buyall,infoall,Dealall,orderall,memberall)
	'#---一共14个参数
	'ShowType参数1(滚动方式)：值：0--不滚动 | 1--上下 | 1--左右 '滚动方向|滚动显示的高度|宽度|换行|今日供应|今日求购|今日注册会员数|今日资讯数|供应总数|求购总数|行业资讯总数|成交总额|订单数|普通会员数|    
 	 Function HOPE_ShowSiteCountAll(ShowType,scrollhign,tablewidth,brnum,supply,buy,reg,info,supplyall,buyall,infoall,Dealall,orderall,memberall)
		   
		  str=""
		  '--------------------------------------------------------
		  usergrade=""
		  set rsgr=server.CreateObject("adodb.recordset")
		  sqlgr="select * from Websen_vipgrade"
		  rsgr.open sqlgr,conn,1,1
		  if not rsgr.eof then 
		  do while not rsgr.eof
   		  set rst=server.CreateObject("adodb.recordset")
		  sqlt="select count(*) as t1 from Websen_corporation where flag=1 and  gradeid="&rsgr("roleid")
		  rst.open sqlt,conn,1,1
		  if not rst.eof then 
		  usergrade=rsgr("gradename")&":"&rst("t1")&"个;"
		  rst.close
		  end if
		  userlist=userlist&usergrade
 		  rsgr.movenext
		  loop
		  rsgr.close
		  end if
		  
		  '---------------------------------------------------------	  
		  
 		  
 		  str=",本站信息：,"                    '控制是否显示的参数start^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		  If supply=0 Then
		   str=str&""
		  Else
		   str=str&"今日供应:"&todayinfo_sale&"个&nbsp;,"
		  End If
 		  If buy=0 Then
		   str=str&""
		  Else
		   str=str&"今日求购:"&todayinfo_buy&"个&nbsp;,"
		  End If
		  
		  If reg=0 Then
		   str=str&""
		  Else
		   str=str&"今日注册会员数:"&today_corporation&"个&nbsp;,"
		  End If
		  
		  If info=0 Then
		   str=str&""
		  Else
		   str=str&"今日资讯数;"&zixun_datetime&"条&nbsp;,"
		  End If
 		  If supplyall=0 Then
		   str=str&""
		  Else
		   str=str&"供应总数:"&allinfo_sale&"个&nbsp;,"
		  End If
 		  If buyall=0 Then
		   str=str&""
		  Else
		   str=str&"求购总数:"&allinfo_buy&"个&nbsp;,"
		  End If
 		  If infoall=0 Then
		   str=str&""
		  Else
		   str=str&"行业资讯总数:"&zixun_all&"个&nbsp;,"
		  End If
 		  If Dealall=0 Then 
		   str=str&""
		  Else
		   str=str&""
		  ' str=str&"成交总额?&nbsp;,"'???????????????????
		  End If
 		  If orderall=0 Then
		   str=str&""
		  Else
		   str=str&""
		  ' str=str&"订单数:?单&nbsp;,"'?????????????????
		  End If
 		   If memberall=0 Then
			str=str&""
		   Else
			str=str&""
			 str=str&userlist&"&nbsp;," 
		   End If               
													'^^^^end^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  		  If ShowType=1 Then   '控制滚动方向^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
			scrollgo="up"
 		  Elseif ShowType=2 Then
			scrollgo="left"
		  End If               '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		 strinfo="<table cellpadding=0 cellspacing=0 border=0 width="&tablewidth&" ><tr><td>"
		  If ShowType<>0 Then
		   strinfo=strinfo&" <marquee behavior=scroll direction="&scrollgo&" onMouseOver='stop()' onMouseOut='start()' height="&scrollhign&" scrollamount='1'  >"
		   Else
		   strinfo=strinfo&""
		  End If
  			arr=split(str,",")         '换行操作^^^^^^^^^^^^^^^^^^
		   For i=1 To ubound(arr)-1
			   strinfo=strinfo&arr(i)
			If brnum<>0 Then           'brnum=0时,不换行
			 If i Mod (brnum)=0 Then
			   strinfo=strinfo&"<br>"
			 End If
			Else
			   strinfo=strinfo&""
			End If
		   next    
										'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		   If ShowType=0 Then
			 strinfo=strinfo&""
		   Else
			 strinfo=strinfo&"</marquee>"
		   End If
		   strinfo=strinfo&"</td></tr></table>"
 	   HOPE_ShowSiteCountAll=strinfo
 	 End Function
	 
	 
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
 	 
	 
	 
 	 '显示搜索 #HOPE_ShowSearch(cityid)#
	 'cityid--(1为显示地区，0为关闭)
 	 Function HOPE_ShowSearch(cityid)
		 str=""
		 If cityid=0 Then
 		  str="<script> function checkSearchk(){ var"
		  str=str&"      strSearch=document.searchBarForm.keywords;if(strSearch.value=='请输入关键字'){alert('请输入搜索的关键字！');strSearch.focus();return false; }if(strSearch.value.replace(/^\s+|\s+$/g,'')==''){ alert('请输入搜索的关键字！');strSearch.focus();return false; } var querystr=document.searchBarForm.searchkind[document.searchBarForm.searchkind.selectedIndex].value; searchBarForm.action=querystr; } "
		  str=str&"function onChangestr(){ var "
		  str=str&"str=document.searchBarForm.searchkind[document.searchBarForm.searchkind.selectedIndex].index; var proa=document.all('sortid');  if(str==1){if(proa.style.display=='none') { proa.style.display='';  } else { proa.style.display='';  }}else{ proa.style.display='none';}} </script>"
		  str=str&"<table border='0' cellpadding='0' cellspacing='0' width='100%' align='center'><FORM name='searchBarForm' onSubmit='return checkSearchk();' action='' method='post'><tr><td>&nbsp;<FONT color=#ffffff><STRONG>请输入关键字：</STRONG></FONT></td><td><INPUT class='searchBarTxt' style='PADDING-RIGHT: 2px; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; PADDING-TOP: 2px' onclick=this.value='' size='35' name='keywords' value='请输入关键字' maxlength='25'> <select name='searchkind' size='1' onChange='onChangestr();'> <option value='"&HOPE_InstallDir&"search/searchall.asp'>-请选择类别-</option> <option value='"&HOPE_InstallDir&"search/searchproduct.asp'>产品</option> <option value='"&HOPE_InstallDir&"search/searchsale.asp'>供应</option><option value='"&HOPE_InstallDir&"search/searchbuy.asp'>求购</option> <option value='"&HOPE_InstallDir&"search/searchcom.asp'>企业</option> <option value='"&HOPE_InstallDir&"search/news_search.asp'>行业信息</option> <option value='"&HOPE_InstallDir&"search/searchvipinfo.asp'>专项商机</option> </select> <select name='sortid' size='1'  style='display:none'>"
 		 Set rssort=Server.CreateObject("ADODB.Recordset")
		 sortsql="select * from Websen_Class_1"
		 rssort.open sortsql,conn,1,1
		  If Not rssort.Eof Then 
		  Do While Not rssort.Eof
 		  str=str&"<option value="&rssort("SortID")&">"&Left(rssort("Sort"),4)&"</option>"
 		  rssort.Movenext
		  Loop
		  rssort.Close
		  Set rssort=Nothing
		  End If
  		str=str&"</select><INPUT style='POSITION: relative; TOP: 3px' type=image src="&HOPE_InstallDir&"images/top_searchbutton.gif name=imageField align=middle>  <a href='"&HOPE_InstallDir&"search/searchall.asp'>高级搜索</A>&nbsp;   <a href='"&HOPE_InstallDir&"search/searchSimple.asp'>简略搜索</A></td></tr> </FORM> </table>"
 		   Else
 		   str="<TABLE cellSpacing=0 cellPadding=0 border=0 align='center'>"
		   str=str&"<FORM name=frmAreaSearch action='"&HOPE_InstallDir&"search/searchall.asp?sortid="&sortid&"&typeid="&typeid&"&keywords="&keywords&"' method=post> <TR> <TD class=text13 noWrap>过滤信息： 时间<SELECT name='DateTime'>"
		   str=str&" <OPTION   value=90 selected>显示所有未过期</OPTION> <OPTION value=1>显示今日最新</OPTION><OPTION value=3>显示最近3天</OPTION>  <OPTION value=5>显示最近5天</OPTION> <OPTION value=10>显示最近10天</OPTION><OPTION value=30>显示最近30天</OPTION><OPTION value=60>显示最近60天</OPTION> <OPTION value=180>显示最近半年</OPTION><OPTION value='no'>显示所有过期</OPTION></SELECT> 地区<SELECT style='WIDTH: 90px'   onchange=javascript:changeCountry1(this); name=country1></SELECT>"
		   str=str&" <SELECT style='WIDTH: 60px'  onchange=changeProvince(this); name=province> <OPTION value='' selected>省份</OPTION> </SELECT> <SELECT name=city><OPTION value=''  selected>地级</OPTION></SELECT>  <input name='imageField' type='image' src='"&HOPE_InstallDir&"seller/images/search.gif' align='top' width='65' height='22' border='0'></TD>  </TR></FORM> </TABLE> "
		   str=str&"  <SCRIPT language=javascript src='"&HOPE_InstallDir&"js/area.js'   purpose='INITIALIZER'></SCRIPT>  <SCRIPT language=javascript> for (var i=0;i<5;i++){ if (country1Form1.options[i].value == ''){  country1Form1.options[i].selected=true;	}}"
		   str=str&"for(var i=0;i<catArr1.length;i++) {catForm1.options[i+1]=new  Option(catArr1[i].title,catArr1[i].id);if(catForm1.options[i+1].value == '"
		   str=str&" '){catForm1.options[i+1].selected=true;}}changeProvince(catForm1);var len = boardForm1.options.length;for (var i=0;i<len;i++) {	if(boardForm1.options[i].value == ' ') {  boardForm1.options[i].selected=true;}} "
			 str=str&"if (country1Form1.options[country1Form1.selectedIndex].value!='中国') { catForm1.style.display = 'none'; "
			 str=str&"boardForm1.style.display = 'none';} for (var i=0;i<9;i++){ if (document.frmAreaSearch.DateTime[i].value ==''){   document.frmAreaSearch.DateTime[i].selected = true; } }</SCRIPT>"
 		   End If
 		HOPE_ShowSearch=str
 	 End Function 
	 
	 
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
    '^加入等级和身份的搜索^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
   Function HOPE_SearchGrade()
   End Function 
 
 
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

  	
  	'所有分类#HOPE_Class(whoid,xiaolei,numed)# 
	'whoid  ---0为供应信息分类、1为企业库分类、2为产品库分类 ,3为求购信息
	'xiaolei ---0为不显示小类，1为显示
	'numed------ 多少个按行
	Function HOPE_Class(whoid,xiaolei,numed,brNum) 
		
		     HOPE_Class1_2="<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr'  style='display:none; width:12;height:1' "
 		 If xiaolei=1 Then
		 	 If whoid=1 Then
 	     	 HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/com_2.asp"
 			 ElseIf whoid=2 Then
			 HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/pro_2.asp"
			 ElseIf whoid=3 Then
			 HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/seller_2.asp"
			 Else
			  HOPE_Class1_2=HOPE_Class1_2&" value="&HOPE_InstallDir&"autokind/trade_2.asp"
            End If
		 End If
		  HOPE_Class1_2=HOPE_Class1_2&" ><script language='javascript' src="&HOPE_InstallDir&"autokind/autokind_index.js></script><input type='text' id='installurltri'  style='display:none; width:12;height:1'   "
		  If whoid=1 Then
					HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/com_1.asp"
				Elseif whoid=2 Then
					HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/pro_1.asp"
				Elseif whoid=3 Then
					HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/seller_1.asp"	
				Else
					HOPE_Class1_2=HOPE_Class1_2&"value="&HOPE_InstallDir&"autokind/trade_1.asp"
			 End If
		  
		HOPE_Class1_2=HOPE_Class1_2&"  />"
		  if BrNum=0 then
		  sortsql="select * from Websen_class_1" 
 		  else
		  sortsql="select top " & Num &" * from WebSen_class_1"
         end if   
		Set rssort=Server.CreateObject("ADODB.Recordset")
		rssort.open sortsql,conn,1,1
		If rssort.Eof Then
			HOPE_Class1_2=""
		Else
			HOPE_Class1_2=HOPE_Class1_2&"<table width='98%' border='0' cellspacing='0' cellpadding='0' align=center><TR>" 
			HOPE_Class1_2=HOPE_Class1_2&"<td height=2></td></tr><tr>"
			j=1
		Do While Not rssort.Eof
				If whoid=1 Then
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"corporation/trade/"&rssort("sortid")&".html  onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
				Elseif whoid=2 Then
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"productshow/trade/"&rssort("sortid")&".html  onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
				Elseif whoid=3 Then
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"seller/trade/"&rssort("sortid")&".html   onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"	
				Else
					HOPE_Class1_2=HOPE_Class1_2&"<TD valign=top><A href="&HOPE_InstallDir&"tradeinfo/trade/"&rssort("sortid")&".html  onclick=AjaxSearchtri("&rssort("sortid")&")><font style='font-size:13px'><b>"&rssort("sort")&"</b></font></A>"
				End If
				If xiaolei=1 Then
					HOPE_Class1_2=HOPE_Class1_2&"<table width='96%'  border='0' cellspacing='0' cellpadding='0'><tr><td>"
 					typesql1="select * from Websen_class_2 where sortid="&rssort("sortid")&"  and [Top]=1"
 					Set rstype1=Server.CreateObject("ADODB.Recordset")
					 rstype1.open typesql1,conn,1,1
 					If rstype1.Eof   Then
						HOPE_Class1_2=HOPE_Class1_2&""
					End If
					If Not rstype1.Eof Then
						Dim m
						m=1
 						Do While Not rstype1.Eof
							If m>1 Then	HOPE_Class1_2=HOPE_Class1_2&" <font class=listtopwd>|</font> "
							If whoid=1 Then
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"corporation/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html'  onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
							Elseif whoid=2 Then
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"productshow/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html'  onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
							Elseif whoid=3 Then
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"seller/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"	
							Else
								HOPE_Class1_2=HOPE_Class1_2&"<A href='"&HOPE_InstallDir&"tradeinfo/trade/"&rstype1("sortid")&"-"&rstype1("typeid")&".html' onclick='AjaxSearchtr("&rstype1("typeid")&")'>"&rstype1("typename")&"</A>"
							End If
							m=m+1
							rstype1.Movenext
						Loop
						rstype1.close
					End If
				HOPE_Class1_2=HOPE_Class1_2&"</td></tr></table>" 
			End If
			HOPE_Class1_2=HOPE_Class1_2&"</TD>"
			If j Mod numed = 0 Then HOPE_Class1_2=HOPE_Class1_2&"</TR><tr><td height=2></td></tr><tr>"	
			rssort.Movenext
			j=j+1
		Loop
		HOPE_Class1_2=HOPE_Class1_2&"</table>"
		End If
  	 HOPE_Class=HOPE_Class1_2
 	End Function	
	



	
	
  	'供求列表
	'#HOPE_Supply(ispic,picwidth,picheight,whotype,typeid,num,leftstr,isnew,brnum,timed)# 一共10个参数
	'ispic--(1为图片形式，2为文字形式)
	'[picwidth---（图片宽度）、picheight为高度,只有当ispic为1时生效]
	'whotype-------（0为全部，1-供(卖)、2-求(买))栏目
	'typeid------信息大类id
	'num--(显示条数)
	'leftstr--(显示字数)
	'isnew----(0为全部，1为紧急(由Websen_Info表中的jinji字段),2为 会员(gsid字段)--显示的类型
	'brnum---(几条信息换行)
	'time--(1为显示时间，0为不显示)
 	Function HOPE_Supply(ispic,picwidth,picheight,whotype,typeid,num,leftstr,isnew,brnum,timed)			
		 
		 strs="" 
 		 If typeid=0 Then
		   typestr=""
		 Else
		   typestr=" and Websen_Info.sortid="&typeid
		 End If
 		 If isnew=1 Then                 '显示的信息类型
			sign=" and Websen_Info.jinji=1"
		 Elseif  isnew=0 Then
			sign=""
		 Elseif isnew=2 Then 
			sign=""
		 End If                        '^^^^^^^^^^^^^^^^^^^
  		 If brnum<=0 Then    '换行
			brnum=1
		 End If
 		  sqlstr="select top "&num&" Websen_Info.*,Websen_corporation.[user] as userdd from Websen_Info left join [Websen_corporation] on Websen_corporation.id=Websen_Info.gsid where Websen_corporation.flag=1 and  Websen_Info.flag=1 "&sign&"  "&typestr&"   order by Websen_Info.Info_ID desc"
			Set rst=Server.CreateObject("ADODB.Recordset")
			rst.open sqlstr,conn,1,1
			If rst.Eof Then
			  strs="暂无信息"      
			End If
		 If Not rst.Eof Then 
	 If whotype=0 Then '信息大类
  			  Dim t
			  t=1
			  h=0
			  strs="<table border=0 align=center cellspadding=0 cellspacing=0 width='100%'><tr>"
 			If isnew =2 Then             '^^^^^^^^^^^^^^只处理会员信息start^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
			 Do While Not rst.Eof 
		   
			 If ispic=1 Then         '图片处理start
			    If trim(rst("draw")&"ok")="ok" OR rst("draw")="nopicture.gig" Then
 				picimg="<img src="&HOPE_InstallDir&"Uploadfile/nopictrue.gif   width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
				Else
				picimg="<img src="&HOPE_InstallDir&"vipcom/"&rst("userdd")&"/"&rst("draw")&"  width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
				End If
			 Else 
				picimg="·"
			 End If                '^^^^^^^^End ^^^^^^^
  			Set rsvip=Server.CreateObject("ADODB.Recordset")
			 vipsql="select * from Websen_corporation where flag=1 and  ID="&rst("Gsid")
			 rsvip.open vipsql,conn,1,1
			 If Not rsvip.Eof Then 
			  If rsvip("flag")=1 Then
			 
			   h=h+1
			   strs=strs&"<td>"
			   If rst("type")="卖" Then                        '买与卖的静态生成页面路径处理start
				 strs=strs&" <a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"
			   Else
				 strs=strs&" <a href='"&HOPE_InstallDir&"seller/offerdetail/"
			   End If                                           '^^^^^^^^^^^^end^^^^^^^^^
 			strs=strs&rst("sortid")&"-"&rst("typeid")&"-"&rst("typeid_2")&"-"&rst("info_id")&".html' target='_blank' class=c>"&picimg&left(rst("showname"),leftstr)&"</a>"
		   
			  If timed=0 Then                                    '时间显示处理
				strs=strs&""
			  Else
				strs=strs&"<font color='#666666' class='S'>("&month(rst("dateandtime"))&"-"&day(rst("dateandtime"))&")</font>"
			  End If                                          
														   '^^^^^^^^^End ^^^^^^^^^^^^^
 		   strs=strs&"&nbsp;</td>"
		  End If
		  'set rsvip=Nothing
		End If
		If h Mod brnum=0 Then
		 strs=strs&"</tr><tr>"
		End If
		rst.Movenext
		Loop
		   strs=strs&"</tr></table>"
 		   rst.Close
		   Set rst=Nothing
		End If 
									 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^end^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	 If isnew<>2 Then                      '^^^^^^^^^^^^不考虑会员情况start^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		Do While Not rst.Eof 	  
 		   If ispic=1 Then
		   
		    If trim(rst("draw")&"ok")="ok" OR rst("draw")="nopicture.gig" Then
			   picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gif'  width="&picwidth&"  height="&picheight&" border=0  align=center vspace=4 hspace=4><br>"

			Else
			  picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rst("userdd")&"/"&rst("draw")&"'  width="&picwidth&"  height="&picheight&" border=0  align=center vspace=4 hspace=4><br>"
	
			End If
		   Else 
			  picimg="·"
		   End If
			  strs=strs&"<td>"
		   If rst("type")="卖" Then
			  strs=strs&" <a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"
		   Else
			 strs=strs&" <a href='"&HOPE_InstallDir&"seller/offerdetail/"
		   End If
 		   strs=strs&rst("sortid")&"-"&rst("typeid")&"-"&rst("typeid_2")&"-"&rst("info_id")&".html' target='_blank' class=c>"&picimg&left(rst("showname"),leftstr)&"</a>"
		   
		   If timed=0 Then
			  strs=strs&""
		   Else
			  strs=strs&"<font color='#666666' class='S'>("&month(rst("dateandtime"))&"-"&day(rst("dateandtime"))&")</font>"
		   End If
 			strs=strs&"&nbsp;</td>"
 		If t Mod brnum=0 Then
			strs=strs&"</tr><tr>"
		End If
 		   rst.Movenext
			t=t+1
		   Loop
		 strs=strs&"</tr></table>"
		   rst.Close
		   Set rst=Nothing                     '^^^^^^^^^^^^^end^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		End If
	  End If
	 End If
  			'^^^^^^^^^^^^^^^^^
 	 If whotype=1 Then 
				sql="select top "&num&" Websen_Info.*,Websen_corporation.[user] as userdd from Websen_Info left join [Websen_corporation] on Websen_Info.gsid=Websen_corporation.id  where Websen_corporation.flag=1 and   Websen_Info.type='卖' and Websen_Info.flag=1 "&sign&"   "&typestr&"    order by Websen_Info.info_id desc"
 				Set rsg= Server.CreateObject("ADODB.Recordset") 
				rsg.open sql,conn,1,1
				If rsg.Eof Then
					strs="暂无供应信息"
				Else
				   strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
				   Dim tt
				   tt=1
				   hh=0
 			If isnew=2 Then
 				Do While Not rsg.Eof
 				If ispic=1 Then
				If trim(rsg("draw")&"ok")="ok" OR rsg("draw")="nopicture.gig" Then
				 	  picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gig'  width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"

				Else
			 		  picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rsg("userdd")&"/"&rsg("draw")&"'  width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"

				End If
				Else 
				  picimg="·"
				End If
 				 Set rsvip2=Server.CreateObject("ADODB.Recordset")
				 vipsql2="select * from Websen_corporation where ID="&rsg("Gsid")
				 rsvip2.open vipsql2,conn,1,1
				 If Not rsvip2.Eof Then 
				   If rsvip2("flag")=1  Then
					hh=hh+1
 					strs=strs&" <td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rsg("sortid")&"-"&rsg("typeid")&"-"&rsg("typeid_2")&"-"&rsg("info_id")&".html' target='_blank' class=c>"&picimg&left(rsg("showname"),leftstr)&"</a>"
					
					If timed=0 Then
					  strs=strs&""
					Else
					   strs=strs&"<font color='#666666' class='S'>("&month(rsg("dateandtime"))&"-"&day(rsg("dateandtime"))&")</font>"
					End If
 				 strs=strs&"&nbsp;</td>"
				 End If
					set rsvip2=Nothing
				End If
					if hh Mod brnum=0 Then
					   strs=strs&"</tr><tr>"
					End If
					rsg.Movenext
					Loop
				 strs=strs&"</tr></table>"
				 rsg.Close
				 Set rsg=Nothing
 			 End If
 			   '^^^^^^^^^^
			   If isnew<>2 Then
 			  Do While Not rsg.Eof
  				if ispic=1 Then
				If trim(rsg("draw")&"ok")="ok" OR rsg("draw")="nopicture.gif" Then
			 	    picimg="<img src="&HOPE_InstallDir&"UploadFile/nopicture.gif  width="&picwidth&"  height="&picheight&" border=0  align=center vspace=4 hspace=4><br>"

				Else
			 		 picimg="<img src="&HOPE_InstallDir&"vipcom/"&rsg("userdd")&"/"&rsg("draw")&"  width="&picwidth&"  height="&picheight&" border=0  align=center vspace=4 hspace=4><br>"

				End If
				Else 
					picimg="·"
				End If
					strs=strs&" <td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rsg("sortid")&"-"&rsg("typeid")&"-"&rsg("typeid_2")&"-"&rsg("info_id")&".html' target='_blank' class=c>"&picimg&left(rsg("showname"),leftstr)&"</a>"
 					If timed=0 Then 
					   strs=strs&"" 
					Else
					   strs=strs&"<font color='#666666' class='S'>("&month(rsg("dateandtime"))&"-"&day(rsg("dateandtime"))&")</font>"
					End If
 					strs=strs&"&nbsp;</td>"
					If tt Mod brnum=0 Then
						strs=strs&"</tr><tr>"
					End If
					rsg.Movenext
					tt=tt+1
					Loop
 				strs=strs&"</tr></table>"
					rsg.Close
					 Set rsg=Nothing
				End If	
				End If 
			   End If
		'^^^^^^^^^^^^^^^^^^^^^^^
	 If whotype=2 Then	
			sqlm="select top "&num&" Websen_Info.*,Websen_corporation.[user] as userbb from Websen_Info left join [Websen_corporation] on Websen_corporation.id=Websen_Info.gsid where Websen_corporation.flag=1 and  Websen_Info.type='买' and Websen_Info.flag=1  "&sign&"   "&typestr&"    order by Websen_Info.info_id desc"
		 
				Set rsm= Server.CreateObject("ADODB.Recordset") 
				rsm.open sqlm,conn,1,1
				If rsm.Eof Then
					strs="暂无求购信息"
				Else
				   Dim ttt
				   ttt=1
				   hhh=0
				strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
 				If isnew=2 Then
 				Do While Not rsm.Eof
 				if ispic=1 Then
				If trim(rsm("draw")&"ok")="ok" OR rsm("draw")="nopicture.gig" Then 
			 		   picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gif'  width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"

				Else
			 		   picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rsm("userbb")&"/"&rsm("draw")&"'  width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"

				End If
			   Else 
				 picimg="·"
			   End If
				 Set rsvip3=Server.CreateObject("ADODB.Recordset")
				 vipsql3="select * from Websen_corporation where ID="&rsm("Gsid")
				 rsvip3.open vipsql3,conn,1,1
			 If Not rsvip3.Eof Then 
			  If rsvip3("flag")=1  Then
				hhh=hhh+1
 					strs=strs&"<td><a href='"&HOPE_InstallDir&"seller/offerdetail/"&rsm("sortid")&"-"&rsm("typeid")&"-"&rsm("typeid_2")&"-"&rsm("info_id")&".html' target='_blank' title='"&rsm("showname")&"'>"&picimg&left(rsm("showname"),leftstr)&" </a>"
					
					If timed=0 Then
					  strs=strs&""
					Else
					 strs=strs&"<font color='#666666' class='S'>("&month(rsm("dateandtime"))&"-"&day(rsm("dateandtime"))&")</font>"
					End If
  					strs=strs&"&nbsp;</td>"
 					End If
					 Set rsvip3=Nothing
					End If
 					If hhh Mod brnum=0 Then
					  strs=strs&"</tr></tr>"
					End If
 					rsm.Movenext
					 Loop
				 strs=strs&"</tr></table>"
					 rsm.Close
					 Set rsm=Nothing
				End If
 				if isnew<>2 Then
 					Do While Not rsm.Eof
 				 If ispic=1 Then
				 If trim(rsm("draw")&"ok")="ok" OR rsm("draw")="nopicture.gif" Then
				 	picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gif'  width="&picwidth&"  height="&picheight&" border=0  align=center vspace=4 hspace=4><br>"

				 Else
			 		picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rsm("userbb")&"/"&rsm("draw")&"'  width="&picwidth&"  height="&picheight&" border=0  align=center vspace=4 hspace=4><br>"
 
				 End If
				Else 
				   picimg="·"
				End If
					strs=strs&"<td><a href='"&HOPE_InstallDir&"seller/offerdetail/"&rsm("sortid")&"-"&rsm("typeid")&"-"&rsm("typeid_2")&"-"&rsm("info_id")&".html' target='_blank' title='"&rsm("showname")&"'>"&picimg&left(rsm("showname"),leftstr)&" </a>"
 					If timed=0 Then
					  strs=strs&""
					Else
					  strs=strs&"<font color='#666666' class='S'>("&month(rsm("dateandtime"))&"-"&day(rsm("dateandtime"))&")</font>"
					End If
  					strs=strs&"&nbsp;</td>"
 					If ttt Mod brnum=0 Then
					  strs=strs&"</tr></tr>"
					End If
					  rsm.Movenext
					  ttt=ttt+1
					 Loop
					 strs=strs&"</tr></table>"
					 rsm.Close
					  Set rsm=Nothing
 				End If
				End If
				End If
  		 HOPE_Supply=strs
 	End Function
	
	
 	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
	
  	'专项商机信息 #HOPE_Vipinfo(ispic,width,height,typeid,num,leftstr,isnew,brnum,time)# 一共9个参数
	' ispic--(1为图片形式，2为文字形式)
	'[width---（图片宽度）、Hight为高度,只有当ispic为1时生效]
	'typeid--（信息大类id,0为全部）
	'num--(显示条数)
	'leftstr--(显示字数)
	'isnew----(0为全部，1为推荐)
	'brnum---(几条信息换行)
	'time--(1为显示时间，0为不显示) 
	Function  HOPE_Vipinfo(ispic,picwidth,picheight,typeid,num,leftstr,isnew,brnum,timed)
		 
		 strs=""
 		 If brnum<=0 Then
		   brnum=1
		 End If
 		 If typeid<=0 Then 
			typestr=""
		 Else
			typestr=" and sortid="&typeid
		 End If
 		 If isnew=1 Then
		   tuistr=" and tjhome=1"
		 Else
		   tuistr=""
		 End If
 		 Set rsv=Server.CreateObject("ADODB.Recordset") 
		 sqlv="select  top "&num&" * from Websen_vipinfo where vipinfo_id<>0  "&typestr&tuistr
		 sqlv=sqlv&"  order by vipinfo_id desc"
		 rsv.open sqlv,conn,1,1
		 If rsv.Eof Then
			 strs="暂无信息"
		 End If
		 If Not rsv.Eof Then
			v=1
			strs="<table border='0' cellpadding='0' cellspacing='0' width='100%' ><tr>"
 		  Do While Not rsv.Eof 
 		  If ispic=1 Then
			  picstr="<img src="&HOPE_InstallDir&rsv("picture")&" width="&picwidth&" height="&picheight&" border=0  align=center vspace=4 hspace=4>"
		  Else
			  picstr=""
		  End If
 		  strs=strs&"<td>·<a href="&HOPE_InstallDir&"vipinfo/offerdetail/"&rsv("viptype")&"-"&rsv("vipinfo_id")&".html target=_blank>"&picstr&left(rsv("vipshowname"),leftstr)&"</a>"
		  If timed=0 Then
			 strs=strs&""
		  Else
			strs=strs&"("&year(rsv("dateandtime"))&"-"&month(rsv("dateandtime"))&"-"&day(rsv("dateandtime"))&")"
		  End If
			strs=strs&"</td>"
		  If v Mod brnum=0 Then
			strs=strs&"</tr><tr>"
		  End If
  		  rsv.Movenext
		  v=v+1
		  Loop
		  strs=strs&"</tr></table>"
		  rsv.Close
		  Set rsv=Nothing
		 End If
 	HOPE_Vipinfo=strs
 	End Function
	
	
	
	 
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
   	
	'公司库 #HOPE_Company(ispic,picwidth,picheight,typeid,num,leftstr,isnew,tuitype,brnum,timed)# 一共10个参数
	' ispic--(1为图片形式，2为文字形式)
	'[width---（图片宽度）、Hight为高度,只有当ispic为1时生效]
	'typeid--（信息大类id   0-全部,...）
	'num--(显示条数)
	'leftstr--(显示字数)
	'isnew----(0为全部，1为推荐 )
	'tuitype--(类型有：0为全部,1 显示的推荐企业 )当isnew=1时有效
	'brnum---(几条信息换行)
	'timed--(1为显示时间，0为不显示) 
 	Function HOPE_Company(ispic,picwidth,picheight,typeid,num,leftstr,isnew,tuitype,brnum,timed)
			
			tjCOM=""
			
			If typeid=0 Then                          '所有类型
			  typestr=""
			Else
			  typestr="and Sortid="&typeid
			End If
 			If brnum<=0 Then
			  brnum=1 
			End If
			sql="select top "&num&" * from Websen_corporation where flag=1  "
 			If isnew=0 Then             '为所有企业 
				sql=sql&typestr		
			Elseif isnew=1 Then       '为推荐企业		
 					sql=sql&" and uflag=1  "&typestr
			  
 			Else     
			   sql=sql&"     "&typestr 
			End If	
 			sql=sql&" order by id desc"
  				Set rsz= Server.CreateObject("ADODB.Recordset") 
				rsz.open sql,conn,1,1
				If rsz.Eof Then
					tjCOM="暂无公司信息"
				Else	
 					gg=1
 					  tjCOM="<TABLE height=64 cellSpacing=0 cellPadding=0 width='100%'  border=0 align=center><TR>"
					Do While Not rsz.Eof
					
					set rsjs=server.CreateObject("adodb.recordset")
					sqljs="select  rolelist from Websen_vipgrade where roleid="&rsz("gradeid")
					rsjs.open sqljs,conn,1,1
					if not rsjs.eof then 
					if instr(rsjs("rolelist"),"qw")>0 then
					
   					   If is2weburl=1 Then
						comurl="http://"&rsz("user")&"."&weburl1
					   Else
						comurl=HOPE_InstallDir&"Vipcom/"&rsz("user")&""	
						End If
 					Else
						comurl=HOPE_InstallDir&"Ptcom/"&rsz("user")&".html"	
 					 end if
					 rsjs.close
					end if
 					
  					tjCOM=tjCOM&""
 						If ispic=1 Then
							If rsz("C_logo")<>"" Then
								logo=HOPE_InstallDir&"vipcom/"&rsz("C_logo")
							Else
								logo=HOPE_InstallDir&"UploadFile/nopicture.gif"
							End If
							tjCOM=tjCOM&"<TD align=center><a href='"&comurl&"' target='_blank'> <IMG src='"&logo&"' border=0  width="&picwidth&" height="&picheight&" align=center vspace=4 hspace=4 ></A><br><a href='"&comurl&"' target='_blank'><b>"&left(rsz("qymc"),leftstr)&"</b></a>"
 						Else
 							tjCOM=tjCOM&"<td>·<a href='"&comurl&"' target='_blank'>"&left(rsz("qymc"),leftstr)&"</a>"
						End If
 						If timed=1 and rsz("BeginDate")<>"" Then
						tjCOM=tjCOM&"("&rsz("BeginDate")&")"
						End If
 						tjCOM=tjCOM&"</TD>"
 						If gg Mod brnum=0 Then
						  tjCOM=tjCOM&"</tr><tr>"
						End If
						rsz.Movenext
						gg=gg+1
						Loop
					tjCOM=tjCOM&"</TR></TABLE>"
					rsz.Close
					Set rsz=Nothing
				End If
		HOPE_Company=tjCOM
 	End Function
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
  	'会员产品 #HOPE_Product(ispic,picwidth,picheight,typeid,num,leftstr,isnew,brnum,timed)# 一共9个参数
	' ispic--(1为图片形式，2为文字形式)
	'[picwidth---（图片宽度）、picheight为高度,只有当ispic为1时生效]
	'typeid--（信息大类id）
	'num--(显示条数)
	'leftstr--(显示字数)
	'isnew----(0为全部，1为推荐，2为会员,3产品报价)
	'brnum---(几条信息换行)
	'timed--(1为显示时间，0为不显示) 
 	Function HOPE_Product(ispic,picwidth,picheight,typeid,num,leftstr,isnew,brnum,timed)
			
			strs=""
 			If brnum<=0 Then
			   brnum=1 
			 End If 
 			 If typeid<=0  Then
				typestr="" 
			 Else
				typestr="  and SortID="&typeid
			  End If
 			 If isnew=1 Then
				kindstr="and Zsbz like '%0%' "
			 Else 
				kindstr=""
			 End If
  			 Set rsh=Server.CreateObject("ADODB.Recordset")
			 hsql="select top "&num&"  * from  Websen_productshow where id<>0 and flag=1  "&kindstr&typestr
			 if isnew=3 then '加入产品报价 
			 hsql=hsql&" and iscpbj=1 "
			 end if 
 			 hsql=hsql&" order by id desc"
			 rsh.open hsql,conn,1,1
			  If rsh.Eof Then
				strs="暂无信息"
			  Else
				ee=1
				ff=0
				strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
	 If isnew=3 Then   
  		   Do While Not rsh.Eof 
 				set rshv=Server.CreateObject("ADODB.Recordset")
				hvsql="select * from Websen_corporation where flag=1 and   ID="&rsh("GsID")
				rshv.open hvsql,conn,1,1
				 If Not rshv.Eof Then
				   If rshv("flag")=1   Then
					ff=ff+1
  				   If ispic=1 Then
					 picstr="a<img src="&HOPE_InstallDir&"vipcom/"&rshv("user")&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&" border=0  ><br>"
				   Else
					 picstr="·"
				   End If
 			  strs=strs&"<td height='line-height:160%'><a href="&HOPE_InstallDir&"productshow/offerdetail/"&rsh("SortID")&"-"&rsh("TypeID")&"-"&rsh("typeid_2")&"-"&rsh("ID")&".html  target=_blank>"&picstr&left(rsh("Cpmc"),leftstr)&"<br><font color=red>产品报价:"&rsh("cpjg")&"元</font></a>"
 				  If timed=0 Then
					 strs=strs&""
				  Else
			  strs=strs&"("&month(rsh("idate"))&"-"&day(rsh("idate"))&")"
				 End If
 			  strs=strs&"&nbsp;</td><td width=2></td>"
				 End If  
 				End If 
 				If ff Mod brnum =0 Then
				   strs=strs&"</tr><tr>"
				End If
 			  rsh.Movenext 
			  Loop  
			  If ff=0 Then
				 strs=strs&"<td height=25>暂无产品信息</td>"   
			  End If
			  strs=strs&"</tr></table>"
			  rsh.Close
			  Set rsh=Nothing
			 End If
			 
			 
 		If isnew=2 Then  '处理会员会员情况
  		   Do While Not rsh.Eof 
 				set rshv=Server.CreateObject("ADODB.Recordset")
				hvsql="select * from Websen_corporation where flag=1 and  ID="&rsh("GsID")
				rshv.open hvsql,conn,1,1
				 If Not rshv.Eof Then
				   If rshv("flag")=1   Then
					ff=ff+1
  				   If ispic=1 Then
					 picstr="<img src="&HOPE_InstallDir&"vipcom/"&rshv("user")&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&" border=0  ><br>"
				   Else
					 picstr="·"
				   End If
 			  strs=strs&"<td height='line-height:160%'><a href="&HOPE_InstallDir&"productshow/offerdetail/"&rsh("SortID")&"-"&rsh("TypeID")&"-"&rsh("typeid_2")&"-"&rsh("ID")&".html  target=_blank>"&picstr&left(rsh("Cpmc"),leftstr)&"</a>"
 				  If timed=0 Then
					 strs=strs&""
				  Else
			  strs=strs&"("&month(rsh("idate"))&"-"&day(rsh("idate"))&")"
				 End If
 			  strs=strs&"&nbsp;</td><td width=2></td>"
				 End If  
 				End If 
 				If ff Mod brnum =0 Then
				   strs=strs&"</tr><tr>"
				End If
 			  rsh.Movenext 
			  Loop  
			  If ff=0 Then
				 strs=strs&"<td height=25>暂无产品信息</td>"   
			  End If
			  strs=strs&"</tr></table>"
			  rsh.Close
			  Set rsh=Nothing
			 End If
  		If isnew=0 or isnew=1  Then
		  picv=""
			Do While Not rsh.Eof 
 			 Set rshv=Server.CreateObject("ADODB.Recordset")
				hvsql="select * from Websen_corporation where flag=1 and  ID="&rsh("GsID")
				rshv.open hvsql,conn,1,1
				 If Not rshv.Eof Then
 					picv=rshv("user")
					set rshv=Nothing
				 End If
  			  If ispic=1 Then
				 picstr="<img src="&HOPE_InstallDir&"vipcom/"&picv&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&" border=0  align=center vspace=4 hspace=4 ><br>"
			  Else
				picstr="·"
			  End If
 			  strs=strs&"<td style='line-height:150%'><a href="&HOPE_InstallDir&"productshow/offerdetail/"&rsh("SortID")&"-"&rsh("TypeID")&"-"&rsh("typeid_2")&"-"&rsh("ID")&".html  target=_blank>"&picstr&left(rsh("Cpmc"),leftstr)&"</a>"
 			  If timed=0 Then
				 strs=strs&""
			  Else
				 strs=strs&"("&year(rsh("idate"))&"-"&month(rsh("idate"))&"-"&day(rsh("idate"))&")"
			  End If
 			  strs=strs&"&nbsp;</td><td width=2></td>"
 			  If ee Mod brnum =0 Then
				 strs=strs&"</tr><tr>"
			  End If
 			  rsh.Movenext 
			  ee=ee+1
			  Loop  
			  strs=strs&"</tr></table>"
			  rsh.Close
			  Set rsh=Nothing
			 End If
			End If
 	HOPE_Product=strs
 	End Function 
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
 	
 	'行业新闻类别 #HOPE_infotype(brnum)# 
	' brnum---几个类别换行 
 	Function HOPE_infotype(brnum)
			
			strs=""
 			If brnum<=0 Then
				brnum=1 
			End If
 		   Set rsn=Server.CreateObject("ADODB.Recordset")
		   nsql="select * from Websen_newsType"
		   rsn.open nsql,conn,1,1
		   If rsn.Eof Then
			  strs="暂无信息"
 		   Else
 			n=1
			strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
		 Do While Not rsn.Eof 
 			strs=strs&"<td ><a href="&HOPE_InstallDir&"info/community/"&rsn("typeid")&".html class=black>"&rsn("type")&"</a>&nbsp;|</td>"
 			If n Mod brnum=0 Then
			  strs=strs&"</tr><tr>"
			End If
			rsn.Movenext
			n=n+1
			Loop
			strs=strs&"</tr></table>"
			rsn.Close
			Set rsn=Nothing
		   End If
		HOPE_infotype=strs
 	End Function 


	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
 	
	
 	'网站新闻 #HOPE_Webnews(ispic,picwidth,picheight,typeid,num,leftstr,brnum,isnew,timed)# 一共9个参数
	'ispic--(1为图片，2为文字)
	'[picwidth---（图片宽度）、pichight为高度,只有当ispic为1时生效]
	'typeid--（信息大类id,0为全部）
	'num--(显示条数)
	'leftstr--(显示字数)
	'isnew----(0为全部，1为推荐，2为热门)
	'brnum---(几条信息换行)
	'timed--(1为显示时间，0为不显示) 
	 
	Function HOPE_Webnews(ispic,picwidth,picheight,typeid,num,leftstr,brnum,isnew,timed) 	 
		
		strs=""
		If brnum<=0 Then
		brnum=1 
		End If
		if isnew=0 Then
		   strtj=""
		Elseif isnew=1 Then
		   strtj=" and tj=1"
		Elseif isnew=2 Then
		   strtj=" and tj=2"
		End If
 			if typeid=0 Then
				sql="select top "&num&" * from [Websen_worldec_about] where id<>0 "&strtj&"  order by id desc" 
			Else
				sql="select top "&num&" * from [Websen_worldec_about] where typeid="&typeid& strtj&"  order by id desc" 
			End If 
			Set rsp= Server.CreateObject("ADODB.Recordset") 
			rsp.open sql,conn,1,1
			If rsp.Eof Then
				strs="暂无信息！"
			Else
			   kk=1
			strs=strs&"<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
			Do While Not rsp.Eof
 				If ispic=1 Then
					picstr="<a href=javascript:win=window.open('"&HOPE_InstallDir&"about/about.asp?id="&rsp("id")&"','contact','width=600,height=600,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();><img src="&HOPE_InstallDir&"UploadFile/"&rsp("picture")&" width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4  ></a>"
				Else
					picstr="·"
				End If
 			 strs = strs&"<td>"&picstr&"<a href=javascript:win=window.open('"&HOPE_InstallDir&"about/about.asp?id="&rsp("id")&"','contact','width=600,height=600,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();>"&left(nohtml(rsp("title")),leftstr)&"</a>"
 			  If timed=1 Then
				  strs=strs&"("&rsp("dateandtime")&")"
			  Else
				  strs=strs&""
			  End If
 			 strs=strs&"&nbsp;</td>"
 				If kk Mod brnum=0 Then
					strs=strs&"</tr><tr>"
				End If
 			rsp.Movenext
			kk=kk+1
			Loop
			strs=strs&"</tr></table>"
 			rsp.Close 
			Set rsp=Nothing
		  End If
		HOPE_Webnews=strs
	End Function
	 

	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
 	
	'行业新闻图文并茂 HOPE_PicNewsInfo(picwidth,picHight,whichtype,typeid,num,leftstr,Content,ContentStr,isnew,timed) 
	'picwidth---（图片宽度）、picHight为高度
	'whichtype---(哪种形式显示图片。1为上下，2为左右,3为幻灯片)
	'typeid--（信息大类id,0为全部）
	'num--(显示条数)
	'leftstr--(显示标题字数)
	'isnew----(0为全部，1为推荐)
	'Content--(1为显示内容，0为不显示) 
	'ContentStr--(显示内容长度) 
	'timed--(1为显示时间，0为不显示) 
	
	Function HOPE_PicNewsInfo(picwidth,picHight,whichtype,typeid,num,leftstr,Content,ContentStr,isnew,timed)
	 
		strs=""
		If isnew=0 Then
			tjstr=""
		Else
			tjstr=" and Tjnews=1 "
		End If
		if typeid=0 Then
			sql="select top "&num&" * from Websen_news where newsid<>0  and pictext=1 "&tjstr&" order by dateandtime desc,NewsID Desc"
		Else
			sql="select top "&num&" * from Websen_news where pictext=1 and  typeid="&typeid&tjstr&" order by  dateandtime desc,NewsID Desc"
		End If
		
			Set rsw= Server.CreateObject("ADODB.Recordset") 
			rsw.open sql,conn,1,1
		num=rsw.recordcount '查出的行数
		If rsw.Eof Then 
					strs=strs&"暂时没有任何新闻"
		Else
			If whichtype=1 Then 
						strs=strs&"<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td>"
						strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' class=white><img src="&HOPE_InstallDir&"UploadFile/"&rsw("picture")&" border=0 width="&picwidth&" height="&picHight&" align=left vspace=4 hspace=4></a>"
						strs=strs&"</td></tr><tr><td>"
							strs=strs&"<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
					Do While Not rsw.Eof
						strs=strs&"<tr><td>"
						strs=strs&"<table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td align=left>"
							strs=strs&"<strong><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' class=white>"&left(nohtml(rsw("Title")),leftstr)&"</a></strong>&nbsp;"
							If timed=1 Then 
								strs=strs&"("&year(rsw("Dateandtime"))&"-"&month(rsw("Dateandtime"))&"-"&day(rsw("Dateandtime"))&")"
							End If	
						strs=strs&"</td></tr>"
							If Content=1 Then 
								strs=strs&"<tr><td>"
								strs=strs&left(nohtml(rsw("Content")),ContentStr)&"&nbsp;"
								strs=strs&"</td></tr>"
							End If
						strs=strs&"</table>"
						strs=strs&"</td></tr>"
					rsw.Movenext
						If rsw.Eof Then exit do
					Loop
					strs=strs&"</table>"
						strs=strs&"</td></table>"
			Elseif whichtype=2 then 
					strs=strs&"<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td>"
						strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' class=white><img src="&HOPE_InstallDir&"UploadFile/"&rsw("picture")&" border=0 width="&picwidth&" height="&picHight&" align=left vspace=4 hspace=4></a>"
						strs=strs&"</td><td>"
							strs=strs&"<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
					Do While Not rsw.Eof
					strs=strs&"<tr><td>"
						strs=strs&"<table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td  align=left>"
						
							strs=strs&"<strong><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' >"&left(nohtml(rsw("Title")),leftstr)&"</a></strong>&nbsp;"
							If timed=1 Then 
								strs=strs&"("&year(rsw("Dateandtime"))&"-"&month(rsw("Dateandtime"))&"-"&day(rsw("Dateandtime"))&")"
							End If	
						
						strs=strs&"</td></tr>"
							If Content=1 Then 
								strs=strs&"<tr><td>"
								strs=strs&left(nohtml(rsw("Content")),ContentStr)&"&nbsp;"
								strs=strs&"</td></tr>"
							End If
						strs=strs&"</table>"
					strs=strs&"</td></tr>"
					rsw.Movenext
					If rsw.Eof Then exit do
					Loop
					strs=strs&"</table>"
						strs=strs&"</td></table>"
			elseif whichtype=3 then 
				strs=strs&"<div id=hotImg>"
				strs=strs&"<style type=text/css>"
				strs=strs&".bigon{background:url("&HOPE_InstallDir&"info/images/newsb-02.gif);color:#FFF; line-height:18px;}"
				strs=strs&".bigoff{background:url("&HOPE_InstallDir&"info/images/newsb-03.gif);color:#000; line-height:18px;}"
				strs=strs&"a.bla{color:#000; text-decoration:none}"
				strs=strs&"a.bla:hover{color:#F00; text-decoration:underline}"
				strs=strs&"</style>"
				strs=strs&"<table width="&picwidth&" border=0 align=center cellpadding=0 cellspacing=0>"
				strs=strs&"<tr>"
				strs=strs&"<td width="&picwidth&"><div id=fc style=width:"&picwidth&"px;height:210px;filter:progid:DXImageTransform.Microsoft.Fade ( duration=0.5,overlap=1.0 );>"
				i=0
				
				do while not rsw.eof 
					if i=0 then 
					strs=strs&"<div style=display:block;>"
					else
					strs=strs&"<div style=display:none;>"
					end if 
					strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target=_blank><img src="&HOPE_InstallDir&"UploadFile/"&rsw("picture")&"  width="&picwidth&" height="&picHight&" border=0 onMouseOver='clearAuto();' onMouseOut='setAuto()' /></a></div>"
			    	if i=0 then 
						sj=sj&"<div style='display:block;'><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target=_blank class=bla>"&rsw("title")&"</a></div>"
						td=td&"<td width=14 height=18 align=center background=newsb-02.gif class=bigon onClick='Mea("&i&");' onMouseOver='clearAuto();' onMouseOut='setAuto()' style='cursor:pointer;'>"&i+1&"</td>"
					else
						sj=sj&"<div style='display:none;'><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target=_blank class=bla>"&left(nohtml(rsw("Title")),leftstr)&"</a></div>"
						td=td&"<td width=14 height=18 align=center background=newsb-03.gif class=bigoff onClick='Mea("&i&");' onMouseOver='clearAuto();' onMouseOut='setAuto()' style='cursor:pointer;'>"&i+1&"</td>"
					end if 
					
					
					
				rsw.movenext
				i=i+1
				loop	
				rsw.movefirst
							
				strs=strs&"</div></td>"
				strs=strs&"</tr>"
				strs=strs&"<tr>"
				strs=strs&"<td height=26 background="&HOPE_InstallDir&"info/images/newsb-01.gif><table width="&picwidth&" border=0 align=center cellpadding=0 cellspacing=0>"
				strs=strs&"<tr>"
				strs=strs&"<td  align=center  onmouseover='clearAuto();' onMouseOut='setAuto()'><div id=con>"
				
				strs=strs&sj
				
				strs=strs&"</td>"
				strs=strs&"<td width='100'><table border='0' align='center' cellpadding='0' cellspacing='3' class='lhn' id='num'>"
				strs=strs&"<tr>"
				
				strs=strs&td
				
				strs=strs&"</tr></table></td></tr></table></td></tr></table></div>"
				strs=strs&"<script >var piccount="&num&";</script>"
				strs=strs&"<script src="&HOPE_InstallDir&"js/hdp.js></script>"
			End If
			
		End If
					rsw.Close
					Set rsw=Nothing
		HOPE_PicNewsInfo=strs
 	End Function 
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
  	'行业新闻 #HOPE_NewsInfo(ispic,picwidth,picheight,whichtype,Typeid,Num,leftstr,brnum,isnew,timed)#一共十个参数
	'ispic--(1为图片，2为文字)
	'[picwidth---（图片宽度）、picHight为高度
	'whichtype---(哪种形式显示图片。1为上下，2为左右，3为包围,只有当ispic为1时生效]
	'typeid--（信息大类id,0为全部）
	'num--(显示条数)
	'leftstr--(显示字数)
	'isnew----(0为全部，1为推荐,２为热点，3今日导读)
	'brnum---(几条信息换行)
 	'timed--(1为显示时间，0为不显示) 
  	Function HOPE_NewsInfo(ispic,picwidth,picheight,whichtype,Typeid,Num,leftstr,brnum,isnew,timed)
	 
			If brnum<=0 Then
			  brnum=1
			End If
 			strs=""
			If isnew=0 Then
			   tjstr=""
			Elseif isnew=2 Then 
				tjstr=" order by hits desc "
			Elseif isnew=3 Then 
				tjstr=" order by Dateandtime desc "
			Else
			   tjstr=" and Tjnews=1 order by NewsID Desc"
			End If
			
			If typeid=0 Then
				sql="select top "&num&" * from Websen_news where newsid<>0  "&tjstr
			Else
				sql="select top "&num&" * from Websen_news where typeid="&typeid&tjstr
			End If
			Set rsi= Server.CreateObject("ADODB.Recordset") 
			rsi.open sql,conn,1,1
			If rsi.Eof Then
				strs="暂无该类新闻"
			Else
				w=1	
				strs=strs&"<table width='100%' border='0' cellpadding='0' cellspacing='0'  ><tr>"
 			Do While Not rsi.Eof
 				 strs=strs&"<td><table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td "
			If ispic=1 Then
			 If whichtype=1 Then
				 strs=strs&"align=center"
			 Else
				 strs=strs&"align=left"      
			 End If
			 End If
				 strs=strs&"  >"
 			 If ispic=1 Then
			 
			 If rsi("picture")<>"" Or rsi("picture")<>"nopicture.gif" Then
			 	strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsi("typeid")&"-"&rsi("newsid")&".html' target='_blank' class=white><img src="&HOPE_InstallDir&"UploadFile/"&rsi("picture")&" border=0 width="&picwidth&" height="&picheight&" align=left vspace=4 hspace=4></a>"

			 Else
			 	strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsi("typeid")&"-"&rsi("newsid")&".html' target='_blank' class=white><img src="&HOPE_InstallDir&"UploadFile/nopicture.gif  border=0 width="&picwidth&" height="&picheight&" align=left vspace=4 hspace=4></a>"

			 End If
				
				
			 If whichtype=1 Then
				strs=strs&"</td></tr><tr><td align=center>"
			 Elseif whichtype=2 Then
				strs=strs&"</td><td align=left>"
			 Else
				strs=strs&""
			 End If
			Else
				strs=strs&"·"
			End If
				strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsi("typeid")&"-"&rsi("newsid")&".html' target='_blank' >"&left(nohtml(rsi("Title")),leftstr)&"</a>&nbsp;"
 			 If timed=1 Then
				strs=strs&"("&year(rsi("Dateandtime"))&"-"&month(rsi("Dateandtime"))&"-"&day(rsi("Dateandtime"))&")</td>"
			 Else
				strs=strs&"</td>"
			  End If
 				strs=strs&"</tr></table>"
				strs=strs&"</td>"
 					If w Mod brnum=0 Then
					   strs=strs&"</tr><tr>"
					End If
					rsi.Movenext
					w=w+1
					Loop 
				strs=strs&"</tr></table>"
			End If
 		HOPE_NewsInfo=strs
	End Function
	
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
  	
 	'展会信息 #HOPE_MeetingInfo(ispic,picwidth,picheight,whotype,Num,leftstr,isnew,brnum,timed)# 一共10个参数
	'ispic--(1为图片形式，2为文字形式)
	'[picwidth---（图片宽度）、picheight为高度,只有当ispic为1时生效]
	'whotype--(1为国内，2为国外，0为全部)
	 'num--(显示条数)
	'leftstr--(显示字数)
	'isnew----(0为全部，1为推荐)
	'brnum---(几条信息换行)
	'timed--(1为显示时间，0为不显示) 
	Function HOPE_MeetingInfo(ispic,picwidth,picheight,whotype,num,leftstr,isnew,brnum,timed)
		 
		  strs=""
		 
		  If brnum<=0 Then
			 brnum=1
		  End If
		  
		 If whotype=1 Then
			typestr=" and holdCountry='CN'"
		 Elseif whotype=2 Then
			typestr=" and holdCountry='QT'"
		 Else
			typestr=""
		 End If
		   
		If isnew=1 Then  'tj为推荐
			sql="select  top  "&num&"  picture,title,beginDate,endDate,id from Websen_expo where sh=1  and tj like '%0%' "&typestr&" order by dateandtime desc"
 		Else
 			sql="select  top  "&num&"  picture,title,beginDate,endDate,id from Websen_expo where sh=1  "&typestr&"  order by dateandtime desc"
		End If
		
		Set rse= Server.CreateObject("ADODB.Recordset") 
		rse.open sql,conn,1,1
		if rse.Eof Then
			strs="暂无最新资讯信息"
		Else
			z=1
			strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
		Do While Not rse.Eof
		
		 If ispic=1 Then
		 if rse("picture")<>"" or rse("picture")<>"nopiture.gif" then
 				picstr="<img src="&HOPE_InstallDir&"UploadFile/"&rse("picture")&"  width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
				else
		 		picstr="<img src="&HOPE_InstallDir&"UploadFile/nopicture.gif  width="&picwidth&"  height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"

				end if
				Else
				picstr="·2"
				End If
 			strs=strs&"<td  ><a href='"&HOPE_InstallDir&"service/expo/detail/"&rse("id")&".html' target='_blank' title="&rse("title")&"><font color='#000000'>"&picstr&left(rse("title"),leftstr)&"</font></a>"
 				If timed=1 Then
					strs=strs&"<font class='S'>( "&FormatDate(rse("beginDate"),2)&"—"&FormatDate(rse("endDate"),3)&" )</font>"
				End If
					strs=strs&"</td><td width=10></td>"
 				 If z Mod brnum=0 Then
					strs=strs&"</tr><tr>"
				 End If
 				if z=num Then exit do
 		rse.Movenext
		z=z+1
		Loop
			strs=strs&"</tr></table>"
		rse.Close
		Set rse=Nothing
		End If 
 		HOPE_MeetingInfo=strs
	End Function
	
	
	 
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	  
 	  
  	'展会资讯#HOPE_Meetingnews(ispic,widtha,pich,whichtype,Typeid,Num,leftstr,brnum,isnew,time)#一共10个参数
	''ispic--(1为图片形式，2为文字形式)
	''[widtha---（图片宽度）、pich为高度,
	'whichtype---(哪种形式显示图片。1为上下，2为左右，3为包围,只有当ispic为1时生效]
	''typeid--（信息大类id,0为全部）
	''num--(显示条数)
	''leftstr--(显示字数)
	''isnew----(0为全部，1为推荐)
	''brnum---(几条信息换行)
	''time--(1为显示时间，0为不显示)
	Function HOPE_Meetingnews(ispic,widtha,pich,whichtype,Typeid,Num,leftstr,brnum,isnew,timeDis)
			If brnum<=0 Then
			  brnum=1
			 End If
 			strs=""
			If isnew=0 Then
			tjstr=""
			Else
			tjstr=" and Tj=1 "
			End If
			
			If typeid=0 Then
				sql="select top "&num&" * from Websen_expoinfo where id<>0  "&tjstr&" order by ID Desc"
			Else
				sql="select top "&num&" * from Websen_expoinfo where typeid="&typeid&tjstr&" order by ID Desc"
			End If
			Set rsh= Server.CreateObject("ADODB.Recordset") 
			rsh.open sql,conn,1,1
			If rsh.Eof Then
				strs="暂无展会信息"
			Else
			w=1	
			 strs=strs&"<table width=""100%"" border='0' cellpadding='0' cellspacing='0' align=center><tr>"
 				Do While Not rsh.Eof
  			 strs=strs&"<td align=center><table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td "
			 If whichtype=1 Then
			 strs=strs&"align=center"
			 Else
			 strs=strs&"align=left"      
			 End If
			  strs=strs&" height=25>"
			   
			   If ispic=1 Then
			   
				strs=strs&"<a href="&HOPE_InstallDir&"service/expo/info/"&rsh("typeid")&"-"&rsh("id")&".html target='_blank' class=white>"
				
				if rsh("picture")="nopicture.gif" or rsh("picture")="" then 
	 		strs=strs&"<img src="&HOPE_InstallDir&"UploadFile/nopicture.gif   border=0 width='"&widtha&"'"
               else
	 		strs=strs&"<img src="&HOPE_InstallDir&"UploadFile/"&rsh("picture")&"  border=0 width='"&widtha&"'"
 				end if
				strs=strs&" height="&pich&" align=center vspace=4 hspace=4></a>"
				If whichtype=1 Then
				strs=strs&"</td></tr><tr><td align=center>"
				Elseif whichtype=2 Then
				strs=strs&"</td><td align=left style='word-break:break-all'>"
				Else
				strs=strs&""
				End If
			   Else
			   strs=strs&""
			   End If
 	   strs=strs&"<a href='"&HOPE_InstallDir&"service/expo/info/"&rsh("typeid")&"-"&rsh("id")&".html' target='_blank' class=white>"&left(nohtml(rsh("Title")),leftstr)&"</a>&nbsp;"
			 
			 If timeDis=1 Then
			 strs=strs&"("&year(rsh("Dateandtime"))&"-"&month(rsh("Dateandtime"))&"-"&day(rsh("Dateandtime"))&")</td>"
			 Else
			  strs=strs&"</td>"
			  End If
			  strs=strs&"</tr></table>"
			 strs=strs&"</td>"
					  
					If w Mod brnum=0 Then
					 strs=strs&"</tr><tr>"
					End If
					rsh.Movenext
					w=w+1
					 Loop 
			 strs=strs&"</tr></table>"
		
			End If
		HOPE_Meetingnews=strs
	End Function
	
	
	
	
	 	 '行业资讯来源标签
Function Websen_layuan()
Set laiyuan=Server.Createobject("ADODB.Recordset")
sqlly="select Nfrom from Websen_news where newsid="&rs("newsid")&""
laiyuan.Open sqlly,conn,1,1
If Not laiyuan.Eof Then
strs=strs&laiyuan("Nfrom")
laiyuan.close
End If
Websen_layuan=strs
End Function	 


 	 '行业资讯来源标签
Function Websen_exlayuan()
Set exlaiyuan=Server.Createobject("ADODB.Recordset")
sqlexly="select Nfrom from websen_expoinfo where id="&rs("id")&""
exlaiyuan.Open sqlexly,conn,1,1
If Not exlaiyuan.Eof Then
strexs=strexs&exlaiyuan("Nfrom")
exlaiyuan.close
End If
Websen_exlayuan=strexs
End Function	 



	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
	  
	  
  	'友情连接#HOPE_ShowFriendSite(LinkType,SiteNum,brnum,ShowType,upwidth,IsOnlyElite)#一共6个参数
	 
	Function HOPE_ShowFriendSite(LinkType,sitenum,brnum,ShowType,upwidth,IsG)
  		strs="" 
		If brnum<=0 Then
		brnum=4
		End If
		If IsG<0 or IsG>1 Then 
		IsG=0
		End If
		Set rsli=Server.CreateObject("adodb.recordset")
		If IsG=1 Then 
		sqlli=" select * from [Websen_link] where IsOK=1 and isgood=1"
 		Else
		sqlli=" select * from [Websen_link] where IsOK=1"
		End If
		rsli.Open sqlli,conn,1,1
		If rsli.Eof Then 
		strs=""
		End If
		If Not rsli.Eof Then
		li=1
		strs=strs&"<table border=0 cellpadding=0 cellspacing=0 align=center width='100%' ><tr><td height=5></td></tr></table><table border=0 cellpadding=0 cellspacing=0 align=center width='100%'><tr>"
		 Do While Not rsli.Eof 
		 If rsli("linktype")=2 Then 
		 strs=strs&"<td height=35>&nbsp;<a href='"&rsli("siteurl")&"'  target=_blank    title='"&rsli("siteintro")&"'  >"&rsli("sitename")&"</a></td>"
		 ElseIf rsli("linktype")=1 Then
	 	 strs=strs&"<td height=35>&nbsp;<a href='"&rsli("siteurl")&"' target=_blank   title='"&rsli("sitename")&"' ><img src="&rsli("imageurl")&" border=0 width=88 height=31 ></a></td>"
         Else
      	 strs=strs&"<td height=35><a href='"&rsli("siteurl")&"'  target=_blank    title='"&rsli("siteintro")&"' >"&rsli("sitename")&"</a></td>"
  		 End If
		 If li Mod brnum=0 Then 
		  strs=strs&"</tr>"
		 End If
		 li=li+1
		 rsli.Movenext
		 Loop
		 strs=strs&"</table>"
		 rsli.Close
		End If
	  
		HOPE_ShowFriendSite=strs
	End Function
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
   	
 	'意见建议及留言
	' #HOPE_Message(Num,leftstr,brnum,time)#
	' num--(显示条数)
	'leftstr--(显示字数)
	'brnum---(几条信息换行)
	'num--显示几条
	'time--(1为显示时间，0为不显示) 
	Function HOPE_Message(Num,leftstr,brnum,times)
		If num<>0 Then
			sqlguest="select top "&Num&" * from Websen_GuestBook where pass=1 order by id desc"
		Else
			sqlguest="select * from Websen_GuestBook where pass=1 order by id desc"
		End If	
		set rsguest=Server.CreateObject("ADODB.Recordset")
		rsguest.open sqlguest,conn,1,1
		mm=1
		HOPE_msg="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
		if rsguest.Eof or rsguest.Bof Then
			HOPE_msg="暂无信息"
		Else
			Do While Not rsguest.Eof
				HOPE_msg=HOPE_msg&"<td>·<a href='"&HOPE_InstallDir&"feedback/index.html' target=_blank>"&left(rsguest("content"),leftstr)&"</a>"
				If times=1 Then HOPE_msg=HOPE_msg&"&nbsp;"&Year(rsguest("addtime"))&"-"&Month(rsguest("addtime"))&"-"&Day(rsguest("addtime"))&"</td><td width=10></td>"
				HOPE_msg=HOPE_msg&"<td width=5></td></td>"
				If	 mm Mod brnum=0 Then
				HOPE_msg=HOPE_msg&"</tr><tr>"
				End If  
				rsguest.Movenext
				mm=mm+1
				Loop
				HOPE_msg=HOPE_msg&"</tr></table>"
		End If
		HOPE_Message=HOPE_msg
	End Function
   	
 	
	 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 
	'帮助信息 #HOPE_Help(Typeid,Num,leftstr,time)# 
	'typeid--（帮助信息大类id）
	'num--(显示条数)
	'leftstr--(显示字数)
	'time--(1为显示时间，0为不显示) 
	Function HOPE_Help(Typeid,Num,leftstr,time)
		If num<>0 Then
			sql="select top "&num&" * from Websen_help Where html_pass=1 "
		Else
			sql="select * from Websen_help Where html_pass=1 "
		End If
		If typeid<>0 Then sql=sql&" and typeid="&typeid
		sql=sql&" order by id asc"
		set rsu=Server.CreateObject("ADODB.Recordset")
		rsu.open sql,conn,1,1
		If rsu.Eof Then
			HOPE_temp="暂无信息"
		Else
			Do While Not rsu.Eof
				HOPE_temp=HOPE_temp&"·<a href='"&HOPE_InstallDir&"help/bin/detail/"&rsu("sortid")&"-"&rsu("typeid")&"-"&rsu("id")&".html' target='_blank'>"&left(rsu("showname"),leftstr)&"</a>"
				If time<>0 Then HOPE_temp=HOPE_temp&"&nbsp;"&formatdatetime(rsu("dateandtime"),2)
				HOPE_temp=HOPE_temp&"<br>"
				rsu.Movenext
			Loop
			rsu.close
		End If
		HOPE_Help=HOPE_temp
	End Function
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
 	'人才招聘 #Hope_Job(Num,zhiwei,didian,rens,xingzi,addtime,yxq,duixiang,tj)# 
	'num--(显示条数)
	'zhiwei--(招聘职位)
	'didian--（工作地点）
	'xingzi--工作性质
	'addtime--发布时间
	'yxq--有效期
	'duixiang--工作对象
	'tj--是否推荐(0,1,2)
	Function Hope_Job(Num,zhiwei,didian,rens,xingzi,addtime,yxq,duixiang,jobtj)
		If num<>0 Then
			sql="select top "&num&" * from Websen_work where 1=1"
		Else
			sql="select * from Websen_work where 1=1"
		End If
		If jobtj=1 Then
			sql=sql&" and TJ=1 order by info_id desc"
		Else
			sql=sql&" order by info_id desc"
		End If
 		Set rsj= Server.CreateObject("ADODB.Recordset") 
		rsj.open sql,conn,1,1
		If rsj.Eof and rsj.Bof  Then
			newjob="暂无招聘"
		Else
			newjob="<table width='100%' border='0' cellpadding='1' cellspacing='1'><tr>"
			If zhiwei=1 Then newjob=newjob&"          <td align=center bgcolor=EEEEEE height=22>招聘职位</td>"
			If didian=1 Then newjob=newjob&"           <td align=center bgcolor=EEEEEE>工作地点</td>"
			If rens=1 Then newjob=newjob&"           <td align=center bgcolor=EEEEEE>招聘人数</td>"
			If xingzi=1 Then newjob=newjob&"           <td align=center bgcolor=EEEEEE>工作性质</td>"
			If addtime=1 Then newjob=newjob&"           <td align=center bgcolor=EEEEEE>发布时间</td>"
			If yxq=1 Then newjob=newjob&"           <td align=center bgcolor=EEEEEE>有效期</td>"
			If duixiang=1 Then newjob=newjob&"           <td align=center bgcolor=EEEEEE>工作对象</td>"
				 newjob=newjob&"         </tr>"
		Do While Not rsj.Eof
				newjob=newjob&"<tr>"
				If zhiwei=1 Then newjob=newjob&"<td align=center><a href=# onclick=javascript:window.open('"&HOPE_InstallDir&"job/work_info.asp?info_id="&rsj("info_id")&"','','top=50,left=120,width=457,height=450,scrollbars=yes')>"&rsj("showname")&"</a></td>"
				If didian=1 Then newjob=newjob&"<td align=center>"&rsj("xs")&"</td>"
				If rens=1 Then newjob=newjob&"<td align=center>"&rsj("zrs")&"</td>"
				If xingzi=1 Then newjob=newjob&"<td align=center>"&rsj("type")&"</td>"
				If addtime=1 Then newjob=newjob&"<td align=center>"&formatdatetime(rsj("dateandtime"),2)&"</td>"
				If yxq=1 Then newjob=newjob&"<td align=center>"&rsj("period")&"</td>"
				If duixiang=1 Then newjob=newjob&"<td align=center>"&rsj("type")&"</td>"
				newjob=newjob&"</tr>" 
 				rsj.Movenext
			Loop
			rsj.close
			 newjob=newjob&"</table>"
		End If
		Hope_Job=newjob
	End Function
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
  	
 	'底部站点导航：#HOPE_WebButtomGo#
	'
	Function HOPE_WebButtomGo()
	 
		strs=""
		strs=" <table width='"&HOPE_PageWidth&"' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='25' align='center'><a href='"&HOPE_InstallDir&"about/index.html' target=_blank><font color='#ffffff'>关于我们</font></a> <font color='#ffffff'>|</font> <a href='"&HOPE_InstallDir&"about/products.html' target=_blank><font color='#ffffff'>合作代理</font></a> <font color='#ffffff'>|</font> <a href='"&HOPE_InstallDir&"about/service.html' target=_blank><font color='#ffffff'>客服中心</font></a> <font color='#ffffff'>|</font> <a href='"&HOPE_InstallDir&"about/link.html' target=_blank><font color='#ffffff'>友情连接</font></a> <font color='#ffffff'>|</font> <a href='"&HOPE_InstallDir&"about/job.html' target=_blank><font color='#ffffff'>诚聘英才</font></a>  <font color='#ffffff'>|</font> <a href='"&HOPE_InstallDir&"webgo.asp' target=_blank><font color='#ffffff'>网站地图</font></a> <font color='#ffffff'>|</font>  <A  href=javascript:window.external.AddFavorite('"&WebUrl&"','"&webname&"') target=_self><font color='#ffffff'>加入收藏</font></A> <font color='#ffffff'>|</font> <A  href='"&HOPE_InstallDir&"feedback/'  target=_self><font color='#ffffff'>意见反馈</font></A></td> </tr></table>"
 	  HOPE_WebButtomGo=strs
 	End Function
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
   	'我有建议提交框：#HOPE_HelpOpinion#
	Function HOPE_HelpOpinion()
		  
		 strs=""     
		 strs="<script> function schecks(){var str=document.adv.message;var strc=document.adv.sender_email;if(str.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入内容！');str.focus();return false;}if(strc.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入email地址');strc.focus();return false;}  if(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/.test(strc.value)){return true;}else {alert('请输入正确的email地址!');strc.focus();return false;}}</script>"  
 		 strs=strs&"<table cellspacing=0 cellpadding=0 width='100%' border=0> <form name=adv  onsubmit='return schecks();' action="&HOPE_InstallDir&"feedback/guestok.asp method=post > <tr>  <td valign=top align=left>  <table cellspacing=0 cellpadding=0 width='100%' border=0>  <tr> <td >内容：</td><td><textarea name=message cols='35' style='border-color: #7E9EB7;color: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px'></textarea></td></tr><tr><td>Email:</td><td><input name=sender_email   style='BORDER-RIGHT: #7e9eb7 1px solid; BORDER-TOP: #7e9eb7 1px solid; BORDER-LEFT: #7e9eb7 1px solid; COLOR: #000000; BORDER-BOTTOM: #7e9eb7 1px solid'  onclick=javascript:this.value='' value='' size=32 maxlength='50'> <input type=image style='CURSOR: hand' height=22 src='"&HOPE_InstallDir&"help/bin/images/search.gif' width=65 alt='发送' align=absmiddle   border=0> </div></td>    <td width='16%' align=middle>&nbsp;</td> </tr>    </table></td></tr></form>  </table>"
 		HOPE_HelpOpinion=strs
 	End Function
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
  	
  	'头部导航文字连接组：#HOPE_TopLinks#
	Function  HOPE_TopLinks()
	
 	 strs=""
	 strs="<table width='100%' border=0 cellspacing=0 cellpadding=0> <tr><td height=56 align=left valign=top ><table width='99%' border=0 align=center cellpadding=0 cellspacing=0><tr> <td><table height=48 cellspacing=0 cellpadding=0 width=541       border=0><tbody> <tr>  <td width=59><table height=46 cellspacing=0 cellpadding=0 width=56 border=0>   <tbody>      <tr>     <td width='56' height=5></td>"
	 strs=strs&"</tr>  <tr align=middle> <td height=20><a href="&HOPE_InstallDir&"tradeinfo/  target=_parent class=55 STYLE13>供应信息</a> </td></tr> <tr valign=top align=middle>  <td><a class=55 href="&HOPE_InstallDir&"seller/    target=_parent>求购信息</a> </td></tr>  </tbody>   </table></td> <td valign=bottom width=2 background="&HOPE_InstallDir&"hope2/skins/skin2/images/news_bj.jpg><img height=40 src="&HOPE_InstallDir&"hope2/skins/skin2/images/in_5.jpg width=1 /></td>"
 	  strs=strs&"<td width=133><table cellspacing=0 cellpadding=0 width=126 border=0> <tbody>   <tr>   <td width=67 height=5></td>  <td width=59></td> </tr><tr align=middle> <td height=21><a class=55 href="&HOPE_InstallDir&"member/tradeinfo/add_info.asp   target=_parent>发布供求</a> </td>  <td><a class=55   href="&HOPE_InstallDir&"help/   target=_parent>帮助中心</a></td>     </tr>   <tr valign=top align=middle><td height=18><a class=55 href="&HOPE_InstallDir&"member/productshow/add_product.asp  target=_parent>发布产品</a> </td>  <td><a href="&HOPE_InstallDir&"vipinfo/1.html target=_parent class=55 STYLE13>专项商机</a></td> </tr> </tbody>   </table> 	  </td> <td valign=bottom width=1 background="&HOPE_InstallDir&"skins/skin2/images/news_bj.jpg><img   height=40 src="&HOPE_InstallDir&"hope2/skins/skin2/images/in_5.jpg width=1 /></td>"
	  strs=strs&"<td width=132><table cellspacing=0 cellpadding=0 width=125 border=0> <tbody><tr>   <td width=71 height=5></td>     <td width=62></td> </tr> <tr align=middle> <td height=20><a class=55 href="&HOPE_InstallDir&"info/  target=_parent>行业焦点</a></td> <td><a class=55    href="&HOPE_InstallDir&"wstong/   target=_parent>会员服务</a></td>   </tr> <tr valign=top align=middle><td><a class=55 href="&HOPE_InstallDir&"info/community/1.html    target=_parent>行业专题</a></td>  <td><a class=55 href="&HOPE_InstallDir&"login/register.asp  target=_parent>注册公司</a></td>    </tr> </tbody> </table>	  </td> <td valign=bottom width=1 background="&HOPE_InstallDir&"hope2/skins/skin2/images/news_bj.jpg><img   height=40 src="&HOPE_InstallDir&"hope2/skins/skin2/images/in_5.jpg width=1 /></td>"
 	  strs=strs&"<td width=141><table cellspacing=0 cellpadding=0 width=134 border=0>  <tbody> <tr>  <td width=67 height=5></td>  <td width=65></td>  </tr> <tr align=middle> <td height=20><a class=55 href="&HOPE_InstallDir&"service/expo/list/cn.html target=_parent> 国内展会</a></td>  <td><a class=55 href="&HOPE_InstallDir&"service/expo/subject/3.html   target=_parent>展会动态</a></td> </tr><tr valign=top align=middle> <td><a class=55 href="&HOPE_InstallDir&"service/expo/list/en.html   target=_parent>国际展会</a> </td> <td><a class=55 href="&HOPE_InstallDir&"service/expo/subject/2.html      target=_parent>展馆展示</a></td>      </tr>  </tbody>   </table></td>  <td valign=bottom width=1 background="&HOPE_InstallDir&"hope2/skins/skin2/images/news_bj.jpg><img height=40 src="&HOPE_InstallDir&"hope2/skins/skin2/images/in_5.jpg width=1 /></td>"
	  strs=strs&"<td width=71><table cellspacing=0 cellpadding=0 width=69 border=0><tbody><tr><td width=69 height='5'></td> </tr>  <tr align=middle> <td height='19'><a class=55 href="&HOPE_InstallDir&"job/  target=_parent>人才招聘</a></td></tr><tr valign=top align=middle><td><a class=55 href="&HOPE_InstallDir&"info/community/5.html target=_parent>职场快递</a></td> </tr> </tbody> </table></td></tr></tbody></table></td></tr></table></td></tr></table>"
	
	 HOPE_TopLinks=strs
 	End Function 
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
   
	
 	'展会搜索：#HOPE_ExpSearch#
	'
	Function  HOPE_ExpSearch()
		 
		 strs=""
		 strs="<script language='javascript'>function checkexp(){var str=document.expform.stitle;if(str.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入关键字');str.focus();return false;}}</script> <table width='198' height='156' border='0' cellpadding='0' cellspacing='0' class='hb1'>  <form name='expform' action='"&HOPE_InstallDir&"search/exp_search.asp' method='post'  onsubmit='return checkexp()'><tr valign='top'>     <td> <table width='100' border='0' cellspacing='0' cellpadding='0'>  <tr>  <td height=10> </td>  </tr>  </table></td> </tr>   <tr>    <td align='center'><font color='#333333'>关 键 字</font> <input name='stitle' type='text' class='sosuo-1' id='title' size='16' maxlength='16'></td>    </tr>     <tr>     <td align='center'><font color='#333333'>起始时间</font> <select name='StartYear' class='sosuo-1'>      <option value='2005'>2005年</option> <option value='2006'>2006年</option>   <option value='2007'>2007年</option>   <option value='2008'>2008年</option>   <option value='2009'>2009年</option>   <option value='2010'>2010年</option> <option value='2011'>2011年</option>   <option value='2012'>2012年</option>  <option value='2013'>2013年</option>   <option value='2014'>2014年</option> <option value='2015'>2015年</option>  </select>  <select name='StartMonth' class='sosuo-1'>   <option value='1'>01月</option>   <option value='2'>02月</option>   <option value='3'>03月</option>  <option value='4'>04月</option>  <option value='5'>05月</option>  <option value='6'>06月</option> <option value='7'>07月</option>  <option value='8'>08月</option> <option value='9'>09月</option>  <option value='10'>10月</option>  <option value='11'>11月</option>  <option value='12'>12月</option>  </select></td> </tr>  <tr>   <td height='36' align='center'><font color='#333333'>结束时间</font> <select name='EndYear' class='sosuo-1'>   <option value='2005'>2005年</option>   <option value='2006'>2006年</option>  <option value='2007'>2007年</option>  <option value='2008'>2008年</option>  <option value='2009'>2009年</option>   <option value='2010'>2010年</option>   <option value='2011'>2011年</option>   <option value='2012'>2012年</option>   <option value='2013'>2013年</option>  <option value='2014'>2014年</option>   <option value='2015'>2015年</option>   </select>   <select name='EndMonth' class='sosuo-1'>   <option value='1'>01月</option>  <option value='2'>02月</option>  <option value='3'>03月</option>  <option value='4'>04月</option>   <option value='5'>05月</option> <option value='6'>06月</option>  <option value='7'>07月</option> <option value='8'>08月</option>  <option value='9'>09月</option>  <option value='10'>10月</option> <option value='11'>11月</option>   <option value='12'>12月</option>      </select></td>  </tr>  <tr>  <td><div align='center'>     <input name='expsearchgo' type='image' src='"&HOPE_InstallDir&"images/serch.gif' width='65' height='19' border='0'>   </div></td>  </tr></form> </table>  "
		 
		HOPE_ExpSearch=strs
	
	End Function
	
	
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
  	 
 	'网站Meta信息的关键字设置#HOPE_Meta_Keywords(typeid)#
	'typeid---是栏目号:0--首页,1--我要采购,2--我要销售,3--公司库,4--产品库,5--专项商机,6--展会,7--行业信息,8--帮助信息
	
	Function HOPE_Meta_Keywords(typeid)
	
		strs=""
		
		sqlm="select meta_keywords from Websen_MetaInfo where id<>0 "
		
		if typeid=0 Then
		 sqlm=sqlm&" and typeid=1"
		Elseif typeid=1 Then
		sqlm=sqlm&" and typeid=2"
		Elseif typeid=2 Then
		sqlm=sqlm&" and typeid=3"
		Elseif typeid=3 Then
		sqlm=sqlm&" and typeid=4"
		Elseif typeid=4 Then
		sqlm=sqlm&" and typeid=5"
		Elseif typeid=5 Then
		sqlm=sqlm&" and typeid=6"
		Elseif typeid=6 Then
		sqlm=sqlm&" and typeid=7"
		Elseif typeid=7 Then
		sqlm=sqlm&" and typeid=8"
		Elseif typeid=8 Then
		sqlm=sqlm&" and typeid=9"
		End If
 		Set rsm=Server.CreateObject("ADODB.Recordset")
		rsm.open sqlm,conn,1,1
		If Not rsm.Eof Then
		strs=strs&rsm("meta_keywords")
		set rsm=Nothing
		End If
	   HOPE_Meta_Keywords=strs
 	End Function
	 
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	
  	'网站Meta信息的描述信息设置#HOPE_Meta_Description(typeid)#
	'typeid---是栏目号:0--首页,1--我要采购,2--我要销售,3--公司库,4--产品库,5--专项商机,6--展会,7--行业信息,8--帮助信息
	
	Function HOPE_Meta_Description(typeid)
	
		strs=""
 		sqlm="select meta_descriptions from Websen_MetaInfo where id<>0 "
		
		If typeid=0 Then
		 sqlm=sqlm&" and typeid=1"
		Elseif typeid=1 Then
		sqlm=sqlm&" and typeid=2"
		Elseif typeid=2 Then
		sqlm=sqlm&" and typeid=3"
		Elseif typeid=3 Then
		sqlm=sqlm&" and typeid=4"
		Elseif typeid=4 Then
		sqlm=sqlm&" and typeid=5"
		Elseif typeid=5 Then
		sqlm=sqlm&" and typeid=6"
		Elseif typeid=6 Then
		sqlm=sqlm&" and typeid=7"
		Elseif typeid=7 Then
		sqlm=sqlm&" and typeid=8"
		Elseif typeid=8 Then
		sqlm=sqlm&" and typeid=9"
		End If
		
		 Set rsm=Server.CreateObject("ADODB.Recordset")
		 rsm.open sqlm,conn,1,1
		 If Not rsm.Eof Then
		 strs=strs&rsm("meta_descriptions")
		 Set rsm=Nothing
		 End If
	   HOPE_Meta_Description=strs
	   
	End Function
	
	 
 	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	'繁体中文与简体中文  #HOPE_FanTi(typeid)#  
	'typeid------是否繁体，0-简体，1-繁体
	Function  HOPE_FanTi(typeid)
		  
		  If typeid<=0 Then
		   typeid=0
		   Else
			typeid=1
		  End If
		  
		  strs=""
		  strs="<a name='StranLink'  >繁体中文</a><script language='javascript'>var Default_isFT = "&typeid&";"
		  strs=strs&"var StranIt_Delay = 50 ;function StranText(txt,toFT,chgTxt){	if(txt==''||txt==null)return '';toFT=toFT==null?BodyIsFt:toFT;if(chgTxt){txt=txt.replace((toFT?'简':'繁'),(toFT?'繁':'简'));	}if(toFT){return Traditionalized(txt);}else {return Simplized(txt);}}function StranBody(fobj){	if(typeof(fobj)=='object'){var obj=fobj.childNodes;}else {	var tmptxt=StranLink_Obj.innerHTML.toString();	if(tmptxt.indexOf('简')<0)	{	BodyIsFt=1;	"
		  strs=strs&"StranLink_Obj.innerHTML=StranText(tmptxt,0,1);StranLink.title=StranText(StranLink.title,0,1);	}else{BodyIsFt=0;	StranLink_Obj.innerHTML=StranText(tmptxt,1,1);	StranLink.title=StranText(StranLink.title,1,1);	}	setCookie(JF_cn,BodyIsFt,7);var obj=document.body.childNodes;	}	for(var i=0;i<obj.length;i++)	{	var OO=obj.item(i);if('||BR|HR|TEXTAREA|'.indexOf('|'+OO.tagName+'|')>0||OO==StranLink_Obj)continue;	if(OO.title!=''&&OO.title!=null)OO.title=StranText(OO.title);	if(OO.alt!=''&&OO.alt!=null)OO.alt=StranText(OO.alt);	if(OO.tagName=='INPUT'&&OO.value!=''&&OO.type!='text'&&OO.type!='hidden')OO.value=StranText(OO.value);	if(OO.nodeType==3){OO.data=StranText(OO.data);}else StranBody(OO);	}}"
		  strs=strs&"function JTPYStr(){return '皑蔼碍爱翱袄奥坝罢摆败颁办绊帮绑镑谤剥饱宝报鲍辈贝钡狈备惫绷笔毕毙闭边编贬变辩辫鳖瘪濒滨宾摈饼拨钵铂驳卜补参蚕残惭惨灿苍舱仓沧厕侧册测层诧搀掺蝉馋谗缠铲产阐颤场尝长偿肠厂畅钞车彻尘陈衬撑称惩诚骋痴迟驰耻齿炽冲虫宠畴踌筹绸丑橱厨锄雏础储触处传疮闯创锤纯绰辞词赐聪葱囱从丛凑窜错达带贷担单郸掸胆惮诞弹当挡党荡档捣岛祷导盗灯邓敌涤递缔点垫电淀钓调迭谍叠钉顶锭订东动栋冻斗犊独读赌镀锻断缎兑队对吨顿钝夺鹅额讹恶饿儿尔饵贰发罚阀珐矾钒烦范贩饭访纺飞废费纷坟奋愤粪丰枫锋风疯冯缝讽凤肤辐抚辅赋复负讣妇缚该钙盖干赶秆赣冈刚钢纲岗皋镐搁鸽阁铬个给龚宫巩贡钩沟构购够蛊顾剐关观馆惯贯广规硅归龟闺轨诡柜贵刽辊滚锅国过骇韩汉阂鹤贺横轰鸿红后壶护沪户哗华画划话怀坏欢环还缓换唤痪焕涣黄谎挥辉毁贿秽会烩汇讳诲绘荤浑伙获货祸击机积饥讥鸡绩缉极辑级挤几蓟剂济计记际继纪夹荚颊贾钾价驾歼监坚笺间艰缄茧检碱硷拣捡简俭减荐槛鉴践贱见键舰剑饯渐溅涧浆蒋桨奖讲酱胶浇骄娇搅铰矫侥脚饺缴绞轿较秸阶节茎惊经颈静镜径痉竞净纠厩旧驹举据锯惧剧鹃绢杰洁结诫届紧锦仅谨进晋烬尽劲荆觉决诀绝钧军骏开凯颗壳课垦恳抠库裤夸块侩宽矿旷况亏岿窥馈溃扩阔蜡腊莱来赖蓝栏拦篮阑兰澜谰揽览懒缆烂滥捞劳涝乐镭垒类泪篱离里鲤礼丽厉励砾历沥隶俩联莲连镰怜涟帘敛脸链恋炼练粮凉两辆谅疗辽镣猎临邻鳞凛赁龄铃凌灵岭领馏刘龙聋咙笼垄拢陇楼娄搂篓芦卢颅庐炉掳卤虏鲁赂禄录陆驴吕铝侣屡缕虑滤绿峦挛孪滦乱抡轮伦仑沦纶论萝罗逻锣箩骡骆络妈玛码蚂马骂吗买麦卖迈脉瞒馒蛮满谩猫锚铆贸么霉没镁门闷们锰梦谜弥觅绵缅庙灭悯闽鸣铭谬谋亩钠纳难挠脑恼闹馁腻撵捻酿鸟聂啮镊镍柠狞宁拧泞钮纽脓浓农疟诺欧鸥殴呕沤盘庞国爱赔喷鹏骗飘频贫苹凭评泼颇扑铺朴谱脐齐骑岂启气弃讫牵扦钎铅迁签谦钱钳潜浅谴堑枪呛墙蔷强抢锹桥乔侨翘窍窃钦亲轻氢倾顷请庆琼穷趋区躯驱龋颧权劝却鹊让饶扰绕热韧认纫荣绒软锐闰润洒萨鳃赛伞丧骚扫涩杀纱筛晒闪陕赡缮伤赏烧绍赊摄慑设绅审婶肾渗声绳胜圣师狮湿诗尸时蚀实识驶势释饰视试寿兽枢输书赎属术树竖数帅双谁税顺说硕烁丝饲耸怂颂讼诵擞苏诉肃虽绥岁孙损笋缩琐锁獭挞抬摊贪瘫滩坛谭谈叹汤烫涛绦腾誊锑题体屉条贴铁厅听烃铜统头图涂团颓蜕脱鸵驮驼椭洼袜弯湾顽万网韦违围为潍维苇伟伪纬谓卫温闻纹稳问瓮挝蜗涡窝呜钨乌诬无芜吴坞雾务误锡牺袭习铣戏细虾辖峡侠狭厦锨鲜纤咸贤衔闲显险现献县馅羡宪线厢镶乡详响项萧销晓啸蝎协挟携胁谐写泻谢锌衅兴汹锈绣虚嘘须许绪续轩悬选癣绚学勋询寻驯训讯逊压鸦鸭哑亚讶阉烟盐严颜阎艳厌砚彦谚验鸯杨扬疡阳痒养样瑶摇尧遥窑谣药爷页业叶医铱颐遗仪彝蚁艺亿忆义诣议谊译异绎荫阴银饮樱婴鹰应缨莹萤营荧蝇颖哟拥佣痈踊咏涌优忧邮铀犹游诱舆鱼渔娱与屿语吁御狱誉预驭鸳渊辕园员圆缘远愿约跃钥岳粤悦阅云郧匀陨运蕴酝晕韵杂灾载攒暂赞赃脏凿枣灶责择则泽贼赠扎札轧铡闸诈斋债毡盏斩辗崭栈战绽张涨帐账胀赵蛰辙锗这贞针侦诊镇阵挣睁狰帧郑证织职执纸挚掷帜质钟终种肿众诌轴皱昼骤猪诸诛烛瞩嘱贮铸筑驻专砖转赚桩庄装妆壮状锥赘坠缀谆浊兹资渍踪综总纵邹诅组钻致钟么为只凶准启板里雳余链泄';"
		  strs=strs&"}function FTPYStr(){return '皚藹礙愛翺襖奧壩罷擺敗頒辦絆幫綁鎊謗剝飽寶報鮑輩貝鋇狽備憊繃筆畢斃閉邊編貶變辯辮鼈癟瀕濱賓擯餅撥缽鉑駁蔔補參蠶殘慚慘燦蒼艙倉滄廁側冊測層詫攙摻蟬饞讒纏鏟産闡顫場嘗長償腸廠暢鈔車徹塵陳襯撐稱懲誠騁癡遲馳恥齒熾沖蟲寵疇躊籌綢醜櫥廚鋤雛礎儲觸處傳瘡闖創錘純綽辭詞賜聰蔥囪從叢湊竄錯達帶貸擔單鄲撣膽憚誕彈當擋黨蕩檔搗島禱導盜燈鄧敵滌遞締點墊電澱釣調叠諜疊釘頂錠訂東動棟凍鬥犢獨讀賭鍍鍛斷緞兌隊對噸頓鈍奪鵝額訛惡餓兒爾餌貳發罰閥琺礬釩煩範販飯訪紡飛廢費紛墳奮憤糞豐楓鋒風瘋馮縫諷鳳膚輻撫輔賦複負訃婦縛該鈣蓋幹趕稈贛岡剛鋼綱崗臯鎬擱鴿閣鉻個給龔宮鞏貢鈎溝構購夠蠱顧剮關觀館慣貫廣規矽歸龜閨軌詭櫃貴劊輥滾鍋國過駭韓漢閡鶴賀橫轟鴻紅後壺護滬戶嘩華畫劃話懷壞歡環還緩換喚瘓煥渙黃謊揮輝毀賄穢會燴彙諱誨繪葷渾夥獲貨禍擊機積饑譏雞績緝極輯級擠幾薊劑濟計記際繼紀夾莢頰賈鉀價駕殲監堅箋間艱緘繭檢堿鹼揀撿簡儉減薦檻鑒踐賤見鍵艦劍餞漸濺澗漿蔣槳獎講醬膠澆驕嬌攪鉸矯僥腳餃繳絞轎較稭階節莖驚經頸靜鏡徑痙競淨糾廄舊駒舉據鋸懼劇鵑絹傑潔結誡屆緊錦僅謹進晉燼盡勁荊覺決訣絕鈞軍駿開凱顆殼課墾懇摳庫褲誇塊儈寬礦曠況虧巋窺饋潰擴闊蠟臘萊來賴藍欄攔籃闌蘭瀾讕攬覽懶纜爛濫撈勞澇樂鐳壘類淚籬離裏鯉禮麗厲勵礫曆瀝隸倆聯蓮連鐮憐漣簾斂臉鏈戀煉練糧涼兩輛諒療遼鐐獵臨鄰鱗凜賃齡鈴淩靈嶺領餾劉龍聾嚨籠壟攏隴樓婁摟簍蘆盧顱廬爐擄鹵虜魯賂祿錄陸驢呂鋁侶屢縷慮濾綠巒攣孿灤亂掄輪倫侖淪綸論蘿羅邏鑼籮騾駱絡媽瑪碼螞馬罵嗎買麥賣邁脈瞞饅蠻滿謾貓錨鉚貿麽黴沒鎂門悶們錳夢謎彌覓綿緬廟滅憫閩鳴銘謬謀畝鈉納難撓腦惱鬧餒膩攆撚釀鳥聶齧鑷鎳檸獰甯擰濘鈕紐膿濃農瘧諾歐鷗毆嘔漚盤龐國愛賠噴鵬騙飄頻貧蘋憑評潑頗撲鋪樸譜臍齊騎豈啓氣棄訖牽扡釺鉛遷簽謙錢鉗潛淺譴塹槍嗆牆薔強搶鍬橋喬僑翹竅竊欽親輕氫傾頃請慶瓊窮趨區軀驅齲顴權勸卻鵲讓饒擾繞熱韌認紉榮絨軟銳閏潤灑薩鰓賽傘喪騷掃澀殺紗篩曬閃陝贍繕傷賞燒紹賒攝懾設紳審嬸腎滲聲繩勝聖師獅濕詩屍時蝕實識駛勢釋飾視試壽獸樞輸書贖屬術樹豎數帥雙誰稅順說碩爍絲飼聳慫頌訟誦擻蘇訴肅雖綏歲孫損筍縮瑣鎖獺撻擡攤貪癱灘壇譚談歎湯燙濤縧騰謄銻題體屜條貼鐵廳聽烴銅統頭圖塗團頹蛻脫鴕馱駝橢窪襪彎灣頑萬網韋違圍爲濰維葦偉僞緯謂衛溫聞紋穩問甕撾蝸渦窩嗚鎢烏誣無蕪吳塢霧務誤錫犧襲習銑戲細蝦轄峽俠狹廈鍁鮮纖鹹賢銜閑顯險現獻縣餡羨憲線廂鑲鄉詳響項蕭銷曉嘯蠍協挾攜脅諧寫瀉謝鋅釁興洶鏽繡虛噓須許緒續軒懸選癬絢學勳詢尋馴訓訊遜壓鴉鴨啞亞訝閹煙鹽嚴顔閻豔厭硯彥諺驗鴦楊揚瘍陽癢養樣瑤搖堯遙窯謠藥爺頁業葉醫銥頤遺儀彜蟻藝億憶義詣議誼譯異繹蔭陰銀飲櫻嬰鷹應纓瑩螢營熒蠅穎喲擁傭癰踴詠湧優憂郵鈾猶遊誘輿魚漁娛與嶼語籲禦獄譽預馭鴛淵轅園員圓緣遠願約躍鑰嶽粵悅閱雲鄖勻隕運蘊醞暈韻雜災載攢暫贊贓髒鑿棗竈責擇則澤賊贈紮劄軋鍘閘詐齋債氈盞斬輾嶄棧戰綻張漲帳賬脹趙蟄轍鍺這貞針偵診鎮陣掙睜猙幀鄭證織職執紙摯擲幟質鍾終種腫衆謅軸皺晝驟豬諸誅燭矚囑貯鑄築駐專磚轉賺樁莊裝妝壯狀錐贅墜綴諄濁茲資漬蹤綜總縱鄒詛組鑽緻鐘麼為隻兇準啟闆裡靂餘鍊洩';}"
	strs=strs&"function Traditionalized(cc){	var str='',ss=JTPYStr(),tt=FTPYStr();	for(var i=0;i<cc.length;i++){	if(cc.charCodeAt(i)>10000&&ss.indexOf(cc.charAt(i))!=-1)str+=tt.charAt(ss.indexOf(cc.charAt(i)));	else str+=cc.charAt(i);	}	return str;}function Simplized(cc){	var str='',ss=JTPYStr(),tt=FTPYStr();	for(var i=0;i<cc.length;i++){if(cc.charCodeAt(i)>10000&&tt.indexOf(cc.charAt(i))!=-1)str+=ss.charAt(tt.indexOf(cc.charAt(i)));else str+=cc.charAt(i);}return str;}function setCookie(name, value){	var argv = setCookie.arguments;	var argc = setCookie.arguments.length;	var expires = (argc > 2) ? argv[2] : null;	if(expires!=null){	var LargeExpDate = new Date ();	LargeExpDate.setTime(LargeExpDate.getTime() + (expires*1000*3600*24));}document.cookie = name + '=' + escape (value)+((expires == null) ? '' : ('; expires=' +LargeExpDate.toGMTString()));}function getCookie(Name)	{	var search = Name + '=';if(document.cookie.length > 0) 	{offset = document.cookie.indexOf(search);	if(offset != -1) {	offset += search.length;end= document.cookie.indexOf(';', offset);	if(end== -1) end= document.cookie.length;	return unescape(document.cookie.substring(offset, end)); }	else return '';  }}var StranLink_Obj=document.getElementById('StranLink');if (StranLink_Obj){var JF_cn='ft'+self.location.hostname.toString().replace(/\./g,'');	var BodyIsFt=getCookie(JF_cn);	if(BodyIsFt!='1')BodyIsFt=Default_isFT;	with(StranLink_Obj)	{if(typeof(document.all)!='object'){	href='javascript:StranBody()';	}else{href='#';onclick= new Function('StranBody();return false');}title=StranText('点击以繁体中文方式浏览',1,1);innerHTML=StranText(innerHTML,1,1);	}if(BodyIsFt=='1'){setTimeout('StranBody()',StranIt_Delay);}}</script>"
 	
		 HOPE_FanTi=strs
		 
	End Function
 
  	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	'最近搜索关键字：#HOPE_NowKey#
	
	Function  HOPE_NowKey()
		   strs=""
		   strs="<table border=0 width='100%' align=center cellpadding=0 cellspacing=0 ><tr><td align=center>最近搜索关键词：<script language=javascript src="&HOPE_InstallDir&"search_near.asp></script></td></tr></table>"
		   
		HOPE_NowKey=strs  
	
	End Function
	
 	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	'热门搜索关键字：#HOPE_HotKeyW#
	
	Function  HOPE_HotKeyW()
		   strs=""
		   strs="<table border=0  cellpadding=0 cellspacing=0 width='100%' align=center><tr><td align=left width=110 style=' font-size: 12px'>&nbsp;&nbsp;<font color='#ffffff'>热门搜索关键字:</font></td><td align=left><script type='text/javascript' src='"&HOPE_InstallDir&"ajaxsearch.js'></script><script   language='vbscript'>sub   window_onload() AjaxSearch() end  sub </script><div id='search_result'><input type='text' id='searchword' style='display:none; width:12;height:1' value='15'/><input type='text' id='installurl'  style='display:none; width:12;height:1'  value="&HOPE_InstallDir&" />&nbsp;&nbsp;<font color='#ffffff'>正在更新....</font></div></td></tr></table>"
		   
		HOPE_HotKeyW=strs  
	
	End Function
	
 	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	'网站开关标签 ---#HOPE_Announce#
	 Function HOPE_Announce()
			  strs=""
			  strs="<script type='text/javascript' src='"&HOPE_InstallDir&"netOpenClose.asp'></script>"
		   HOPE_Announce=strs
		   
	 End Function
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
	 '用于网站中的栏目导航（头部)#HOPE_BigColumn(brnum,linktype)#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 '参数：
	 'brnum----几个换行;
	 'linktype-----连接的类型也就是连接地址路径指向（1--我要采购，2---我要销售，3--产品库，4--公司库)
	 Function HOPE_BigColumn(brnum,linktype)
	 
		   If brnum<=0  Then 
		   brnum=1
		   End If 
		   dirname="trdeinfo"
		   If linktype=1 Then
		   dirname="tradeinfo"
		   ElseIf linktype=2 Then
		   dirname="seller"
		   ElseIf linktype=3 Then
		   dirname="productshow"
		   ElseIf linktype=4 Then
		   dirname="corporation"
		   Else
		   dirname="tradeinfo"
		   End If
		strs=""
		strscon=""
			strs="<table border=0 cellpadding=0 cellspacing=0 width='100%' ><tr><td>"
			Set dirs=Server.CreateObject("ADODB.Recordset")
			bcsql="select * from Websen_Class_1 where isshow=1 "
			dirs.Open bcsql,conn,1,1
			If dirs.Eof Then
			strscon=""
			End If
			If Not dirs.Eof Then 
			bci=1
			Do While Not dirs.Eof 
			strscon=strscon&"&nbsp;<a href='"&HOPE_InstallDir&dirname&"/trade/"&dirs("sortid")&".html'>"&dirs("sort")&"</a><br />"
			If bci Mod brnum = 0 Then 
			strscon=strscon&"<br>"
			End If  
			bci=bci+1
			dirs.MoveNext
			Loop
			dirs.close
			End If
			If Right(strscon,1)="|" Then
			 strlen=Len(strscon)-1
			 strscon=Left(strscon,strlen)
			End If 
			strs=strs&strscon
			strs=strs&"</td></tr></table>"
			
		HOPE_BigColumn=strs
		
	  End Function
	
	
	  '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 '控制只有权限会员有权查看的信息 ，无权限会员将无权查看
	  
	 Function HOPE_VipControl()
		strs=""
		strs="<script language='javascript' src='"&HOPE_InstallDir&"isvip.asp'></script>"
		HOPE_VipControl=strs
	 End Function
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     
	 '控制只有会员有权查看的信息
	  
	 Function HOPE_MemControl()
		strs=""
		strs="<script language='javascript' src='"&HOPE_InstallDir&"ismember.asp'></script>"
		HOPE_MemControl=strs
	 End Function
	 
	 
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
 	
	
	'专项商机的所有类别显示#HOPE_VipInfoKind(brnum)#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	
      Function HOPE_VipInfoKind(brnum)
		strs=""
		If brnum<=0 Then
		brnum=3
		End If
		  strs="<table border=0 cellpadding=0 cellspacing=0 align=center width='100%'><tr>"
		 Set rsvk=Server.CreateObject("ADODB.Recordset")
		 sqlvk="select  * from Websen_vipinfo_class"
		 rsvk.Open sqlvk,conn,1,1
		 If Not rsvk.Eof Then 
		 ik=1
		 Do While Not rsvk.Eof 
		 strs=strs&"<td>&nbsp;&nbsp;<a href="&HOPE_InstallDir&"vipinfo/"&rsvk("typeid")&".html target=_blank>"&rsvk("type")&"</a></td>"
		 If ik Mod brnum=0 Then
		strs=strs&"</tr><tr>"
		 End If
		 ik=ik+1
		 rsvk.Movenext
		 Loop
		 strs=strs&"</tr></table>"
		 rsvk.Close
		 End If 
		 HOPE_VipInfoKind=strs
	 End Function
	 
   '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
   
   '显示专项商机的具体类别下的商机信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     Function HOPE_VipKindDes(kind,brnum,num)
	    strs="" 
		strs="<table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr>"
		If kind<0 or kind="" Then
		kind=1
		End If
		If brnum<=0 Then 
		brnum=1
		End If
		If num<=0 Then
		num=1
		End If
		Set rsvkd=Server.CreateObject("adodb.recordset")
		If kind=0 Then
         sqlvkd="select top "&num&"  * from Websen_vipinfo  order by vipinfo_id desc"
 		Else
         sqlvkd="select top "&num&"  * from Websen_vipinfo where viptype="&kind&" order by vipinfo_id desc"
 		End If
		rsvkd.Open sqlvkd,conn,1,1
		If rsvkd.Eof Then 
		strs="暂无"
		End If
		If  Not rsvkd.Eof Then 
		vi=1
  		Do While Not rsvkd.Eof 
		strs=strs&"<td><a href="&HOPE_InstallDir&"vipinfo/offerdetail/"&rsvkd("viptype")&"-"&rsvkd("vipinfo_id")&".html target=_blank>"&Left(rsvkd("vipshowname"),20)&"</a></td>"
		If vi Mod brnum =0 Then 
		strs=strs&"</tr><tr>"
		End If
		vi=vi+1
		rsvkd.Movenext
		Loop	
		strs=strs&"</tr></table>"	
		rsvkd.Close
		End If
	 
	   HOPE_VipKindDes=strs
	 End Function
	 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 
	 '控制展会资讯信息的栏目（类别）显示^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 'brnum ---几个换行
	 Function HOPE_ExpInfoKind(brnum)
	   strs=""
	   strs="<table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr>"
	   If brnum<=0 Then 
	   brnum=1
	   End If
	   Set rsex=Server.CreateObject("adodb.recordset")
	   sqlex="select * from Websen_expoinfotype"
	    rsex.Open sqlex,conn,1,1
		If rsex.Eof Then 
		 strs=strs&"<td>暂无任何栏目</td>"
		End If
		If Not rsex.Eof Then 
		exi=1
		Do While Not rsex.Eof 
		strs=strs&"<td align=center>&nbsp;<a href='"&HOPE_InstallDir&"service/expo/subject/"&rsex("id")&".html' target=_blank>"&rsex("type")&"</a></td>"
		If exi Mod brnum =0 Then 
		strs=strs&"</tr><tr>"
		End If 
		exi=exi+1
		rsex.Movenext
		Loop
		rsex.Close
		End If 
	   		strs=strs&"</tr></table>"
 	   HOPE_ExpInfoKind=strs
	 End Function 
	 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 
	 
	 '展会栏目显示标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 Function HOPE_ExpKind()
	   strs="" 
	   strs="&nbsp;<A href='"&HOPE_InstallDir&"service/expo/list/all.html' target=_blank>展会列表</A>&nbsp;&nbsp;<A href='"&HOPE_InstallDir&"service/expo/' target=_blank>展会合作</A>&nbsp;&nbsp;<A href="&HOPE_InstallDir&"service/expo/list/cn.html  target=_blank>国内展会推荐</A>&nbsp;&nbsp;<A href='"&HOPE_InstallDir&"service/expo/list/en.html' target=_blank>国际展会推荐</A>&nbsp;&nbsp;<A href='"&HOPE_InstallDir&"member/myexpo/expo_post.asp' target=_blank>发布展会</A>"
 	  HOPE_ExpKind=strs
	 End Function
	 
	 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^



	


%>
