<!--#include file="../manage/makehtml/index/temp_inc.asp"-->
 <%
Function changechr(fString)
If Not IsNull(fString) Then
fString = trim(fString)
fString = replace(fString, "--", "——")  
fString = replace(fString, "%20", "")    
fString = replace(fString, "==", "")     
fString = Replace(fString, CHR(32), " ")		 
fString = Replace(fString, CHR(9), " ")			 
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")	 
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
changechr = fString
End If
End Function
if weboff_on="" then
 weboff_on=0
end if
ci=cint(weboff_on)

if ci=2 then
 response.Write("<table border=1 bgcolor=#E7E7E7 bordercolor=#DDDDDD align=center cellpadding=0 cellspacing=0 width=""778""><tr><td>"&changechr(Stopreadme)&"</td></tr></table>")
 response.End()
 elseif ci=1 then
  response.Write("<table border=1 bgcolor=#E7E7E7 bordercolor=#DDDDDD align=center cellpadding=0 cellspacing=0 width=""778""><tr><td>"&changechr(Stopreadme)&"</td></tr></table>")
   else
 response.Write("")
end if
 %>
<%
 '调用搜索页面头部页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 str="搜索页面"
 seaconid=1
 str=""
strtable="<HTML><HEAD><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link rel='shortcut icon' href='#webname#favicon.ico'><meta name='description' content='供求信息/ 商业公告板/商业贸易机会/进出口贸易机会/电子商务/'>   <link rel='stylesheet' href='/hc360/hcB2B.css' type='text/css' /> <meta name='keywords' content='#HOPE_Meta_Keywords(0)#'><TITLE>#HOPE_WebName#</TITLE> <style type='text/css'>body,td,th {font-size: 12px;}body {	margin-left: 0px;	margin-top: 0px;	margin-right: 0px;	margin-bottom: 0px; }a {font-size: 12px;	color: #333333;}a:link {text-decoration: none;}a:visited {	text-decoration: none;	color: #333333;}a:hover {	text-decoration: underline;	color: #FF3300;}a:active {	text-decoration: none;}.STYLE1 {color: #FFFFFF}</style></HEAD>"
strtable=strtable&"<BODY>"
 Set rssea=Server.CreateObject("ADODB.Recordset")
 sqlsea="select top 1 *  from  Websen_cuspage  "
 rssea.Open sqlsea,conn,1,1
 If Not rssea.Eof Then
 seaconid=rssea("labelid")
 rssea.Close
 End If
 Set rsl=Server.CreateObject("ADODB.Recordset")
 sqll="select lcontent from Websen_cuslabel where id=70"
 rsl.Open sqll,conn,1,1
 If Not rsl.Eof Then 
 str=rsl("lcontent")
 rsl.Close
 End If
 If Trim(str&"ok")="ok" Then 
 str=strtable
 End If
 str=Hope_HtmlResult(str)
 
 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
<table width="783" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="1" width="200"></td>
    <td height="20" colspan="2" rowspan="2"><div style=" text-align:right"><a href="/index.html" target="_blank">返回首页</a> | <a href="../help/bin" target="_blank">帮助</a></div></td>
  </tr>
  <tr>
    <td width="200" rowspan="3" valign="top"><a href="/index.html" target="_blank"><img src="/hc360/2008logo.gif" width="189" height="73" border="0" /></a></td>
  </tr>
  <tr>
    <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
  </tr>
  <tr>
    <td valign="top"><img src="/hc360/zc_mf.gif" width="83" height="21" /></td>
    <td width="178"><img src="/hc360/wetel.gif" width="171" height="43" /></td>
  </tr>
</table>
<table width="783" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>