<!--#include file="inc.asp"-->
<% 

'过滤内容中出现的html代码，引用时用 “RemoveHTML(调用内容)”

Function RemoveHTML(strHTML) 
Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp 
objRegExp.IgnoreCase = True 
objRegExp.Global = True 
'取闭合的<> 
objRegExp.Pattern = "<.+?>" 
'进行匹配 
Set Matches = objRegExp.Execute(strHTML) 
' 遍历匹配集合，并替换掉匹配的项目 
For Each Match in Matches 
strHtml=Replace(strHTML,Match.Value,"") 
Next 
RemoveHTML=strHTML 
Set objRegExp = Nothing 
End Function

'定义结束。


    '接受xmlhttp对象传过来的值^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	pages=split(Replace_Text(request("pages")),",")  
	page=pages(0)
	id=pages(1)
	currentPage2=page
	tttid=page 
 	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
   If  isnumeric(page) and isnumeric(id)  then
      '取出模版页和对标签赋值^^^^^^^^^^^^^^^^^^^^^^  start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
     Dim fso,fmodify
 	 Set fso = YXFSO
 		Set rs=Server.CreateObject("adodb.recordset")
		rs.Open ("select corporation_sort from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
	    If Not rs.Eof Then
 	     pencat=rs("corporation_sort")        
	    End If
	 Set rs=Server.CreateObject("adodb.recordset")
		rs.Open ("SELECT * FROM Websen_class_1 where sortid="&id&""),conn,1,1
 	 If not rs.Eof Then
		sortid=rs("sortid")
		sortname=rs("sort")
	   End If
	 rs.Close
	 If sortid="" Then 
	    sortid=0
	 End If
	 
 		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		    HOPE_type=HOPE_type&"<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr'  style='display:none; width:12;height:1'  value="&HOPE_InstallDir&"autokind/com_2.asp>"
  	       HOPE_type=HOPE_type&"<table border=1 bordercolor=#F6F6F6 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td valign=top >"
		HOPE_type=HOPE_type&"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" 
		HOPE_type=HOPE_type&"<tr><td bgcolor=#F7F7F7 colspan=3 height=25> 【<font color=#0099CC><b>"&sortname&"</b></font>】</td></tr><TR>"
		sqltype="select * from Websen_class_2 where sortid="&sortid&""
		Set rstype=Server.CreateObject("adodb.recordSet")
		rstype.Open sqltype,conn,1,1
		If rstype.Eof Then
		HOPE_type=HOPE_type&"<br>暂无行业二级分类<br><br>"
		Else
		j=1
		Do While Not rstype.Eof
		
 		'处理二级类别的下级类别有多少
		seCom_Count=""
		 Set sers=Server.CreateObject("adodb.recordSet")
		sesql="select count(*) as totalse from Websen_Class_3 where typeid="&rstype("typeid")
		sers.Open sesql,conn,1,1
		If not sers.Eof Then 
		If sers("totalse")>0 Then
		
		seCom_Count="(<font color=red>"&sers("totalse")&"</font>)"
		Else
		seCom_Count=""
		sers.Close
		End If
		End If
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  		HOPE_type=HOPE_type&" <td align=""left"" height=25 valign=top width='2%'>&nbsp;&nbsp;<img src="""&HOPE_InstallDir&"images/icon_4x7_arrow2.gif"" width=""4"" height=""12"">"
		HOPE_type=HOPE_type&"<A href="""&sortid&"-"&rstype("typeid")&".html"" class=M  onclick='AjaxSearchtr("&rstype("typeid")&")'><b>"&rstype("typename")&"</b></A> <span class=""S"">"&seCom_Count&"  "
 		HOPE_type=HOPE_type&" </TD>" 
		If j mod 3 = 0 Then 
		HOPE_type=HOPE_type&"</TR><tr>" 
		End If 
		rstype.Movenext
		j=j+1
		Loop
		End If
		HOPE_type=HOPE_type&"</TR></TABLE></td></tr></table>"
     msg_per_page=15
 	   Set rs=Server.createobject("adodb.recordset")
     rs.Open ("select * from Websen_corporation where  sortid="&sortid&" and typeid=0 and typeid_2=0  and flag=1 order by trust_score desc,id desc"),conn,1,1
     If not rs.Eof Then
		 totalrec=RS.RecordCount    '总记录条数
		 rs.Pagesize=msg_per_page   '每页数
		 mpage2=rs.Pagecount        '总页数
		 rowcount=msg_per_page
		 rs.Move  (currentPage2-1)*MaxPerPage
       End If
%>
     <!--#include file="page_html.asp"-->
<%
 	   HOPE_body=HOPE_body&"<br>&nbsp;&nbsp;【<font color=#0099CC><b>"&sortname&"</b></font>】<br>"	 

     If rs.Eof Then
		HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无公司信息</div><br>"
     Else
	 
	i=1
	HOPE_body=HOPE_body&"<script type='text/javascript' src='"&HOPE_InstallDir&"autokind/showmsgrole.js'></script><script   language='vbscript'>sub   window_onload() AjaxSearchmsg() end  sub </script><input type='text' id='installurlmsg'  style='display:none; width:12;height:1'  value='"&HOPE_InstallDir&"autokind/showmsgrole.asp'/> " 
	 
     do while not rs.Eof and rowcount > 0
		
		HOPE_body=HOPE_body&" <TABLE width='100%' height=105 border=0 align=center cellPadding=0 cellSpacing=1>"&vbCrlf
		HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
		HOPE_body=HOPE_body&"<TR"
     If icolor=0 Then 
		HOPE_body=HOPE_body&" bgColor=#ffffff" 
     Else 
		HOPE_body=HOPE_body&" bgColor=#f6f6f6" 
     End If
		HOPE_body=HOPE_body&">"&vbCrlf
		HOPE_body=HOPE_body&"<TD align=middle width='12%'>"&vbCrlf
     If rs("flag")=1 Then
		HOPE_body=HOPE_body&"<IMG height=14 alt=网盛通指数 src="""&HOPE_InstallDir&"images/trust1.gif"" width=22 align=absMiddle border=0><BR>"&vbCrlf
		
		''''''''''''''''''''''''''''''二级域名
     
		HOPE_body=HOPE_body&"<FONT style=""FONT-WEIGHT: bold; FONT-SIZE: 13px; FONT-FAMILY: Verdana"">"&rs("trust_score")&"</FONT></A>"&vbCrlf 
     
		HOPE_body=HOPE_body&"</TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD width=""40%"" class=cate style=""WORD-BREAK: break-all"">"&vbCrlf
'--是否使用的名片页------------------------------------------------------------
	   set rsmp=server.CreateObject("adodb.recordset")
	   sqlmp="select * from Websen_vipgrade where roleid="&rs("gradeid")
	   rsmp.open sqlmp,conn,1,1
	   if not rsmp.eof  then
	   if instr(rsmp("rolelist"),"qw")>0 then			
     If is2weburl=1 Then'二级域名'''''''''''''''''''''''''''''''''''''''''''''''''''
		
		HOPE_body=HOPE_body&"<a href='http://"&rs("user")&"."&weburl1&"' target=_blank class=m><STRONG>"&rs("qymc")&"</STRONG></A>"&vbCrlf 
     Else
		HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"' target=_blank class=m><STRONG>"&rs("qymc")&"</STRONG></A>"&vbCrlf 
		
     End If          
			'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       Else
		HOPE_body=HOPE_body&"<A href="""&HOPE_InstallDir&"Ptcom/"&rs("user")&".html"" target=""_blank"" class=M>"&rs("qymc")&"</A>"&vbCrlf
     End If
	 rsmp.close
	 end if
		 HOPE_body=HOPE_body&" <FONT color=#666666>"
		c="select title from Websen_cor_format where id="&rs("p_z_Z_LegalStatus")&""
     Set rsc=Server.CreateObject("ADODB.Recordset")
	 rsc.Open c,conn,1,1 
     If not rsc.Eof Then
			HOPE_body=HOPE_body&"（"&rsc("title")&"）"
     End If
		rsc.Close
     Set rsc=Nothing
	 
'--是否使用的名片页------------------------------------------------------------
	   set rsmp1=server.CreateObject("adodb.recordset")
	   sqlmp1="select * from Websen_vipgrade where roleid="&rs("gradeid")
	   rsmp1.open sqlmp1,conn,1,1
	   if not rsmp1.eof  then
	   if instr(rsmp1("rolelist"),"qw")>0 then	 
	          If is2weburl=1 Then
		HOPE_body=HOPE_body&"<a href='http://"&rs("user")&"."&weburl1&"' target=""_blank""><FONT color=#666666>查看该会员企业网站</font></a>"
     Else
		HOPE_body=HOPE_body&" <a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"' target=""_blank""><FONT color=#666666>查看该会员企业网站</font></a>"
     End If
      End If
	  rsmp1.close
	  end if
		
		HOPE_body=HOPE_body&"</FONT><BR>"&vbCrlf
 		HOPE_body=HOPE_body&"<font class=s color=666666>主营:"&rs("zycp")&"</FONT><BR>"&vbCrlf
 		HOPE_body=HOPE_body&"<font color=""#666666"" class=s>"&Left(RemoveHTML(rs("qyjj")),40)&"……</font></TD>"&vbCrlf
 		HOPE_body=HOPE_body&"<TD width=""20%"" class=S align=left>"&vbCrlf
		HOPE_body=HOPE_body&"联系人："&rs("name")&"<br>"
		HOPE_body=HOPE_body&"</TD>"&vbCrlf
		HOPE_body=HOPE_body&"<TD width=""12%""class=S align=center>"&vbCrlf
		
     If rs("country")="中国" Then
		HOPE_body=HOPE_body&rs("Sf")&"-"&rs("City")
      Else
		HOPE_body=HOPE_body&rs("country")
     End If
	
		 HOPE_body=HOPE_body&"</TD>"&vbCrlf
		 HOPE_body=HOPE_body&"<TD width=""15%""class=S align=center><input type='checkbox'   style='display:none;'    name='msgid' checked  value='"&i&",'/><div id='msgdiv"&i&"' style=""display:none"">"&vbCrlf
		 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	     'msn交谈
		IF rs("msn")<>"" Then 
		  HOPE_body=HOPE_body&" MSN:<a href='msnim:chat?contact="&rs("msn")&"'><img alt='点击这里发MSN消息' align='absMiddle' border='0' onerror=""this.onerror=null;this.src='http://osi.hshh.org/msnunknown.gif';"" src='http://osi.hshh.org:8888/msn/"&rs("msn")&"' /><br><br> "
		End If
 		
		'联系方式^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	If rs("tm")="" Then
		HOPE_body=HOPE_body&"<a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&"   target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
	Else
		HOPE_body=HOPE_body&"<script>"&vbCrlf
		HOPE_body=HOPE_body&"document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td> <table width='100%' border=1 bordercolor=#E2E7EB align=center  cellspacing=0 cellpadding=0  ><tr ><td   align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/sendnewmessage.asp?ui="&rs("user")&"  class='s' target=_blank>网站<br>留言</a></td><td width=5></td><td  align='center' bgcolor=#E2E7EB><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&"') class='s'>用TM<br>留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
	   HOPE_body=HOPE_body&"</SCRIPT>"&vbCrlf
	End If
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  		HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
		HOPE_body=HOPE_body&"</TR>"&vbCrlf
		HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
		HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
  		 
		icolor=icolor+1
		i=i+1
     If icolor>1 Then icolor=0
		rowcount=rowcount-1
		rs.movenext
     loop
     End If
 '进行分页处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^		
			HOPE_body=HOPE_body&"<br>"&vbCrlf
			HOPE_body=HOPE_body&"<TABLE width='100%' border=0 align=center cellPadding=1 cellSpacing=0 style='BORDER-TOP: #9C9A9C 1px solid;BORDER-Bottom: #9C9A9C 1px solid'>"&vbCrlf
			HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"<TR>"&vbCrlf
			HOPE_body=HOPE_body&"<TD>"&vbCrlf
			HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=4 width='100%' border=0>"&vbCrlf
			HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"<TR>"&vbCrlf
			HOPE_body=HOPE_body&"<TD class=M noWrap align=middle>"&vbCrlf
		If not (rs.Eof and rs.Bof) Then
			gopage=currentpage2
			totalpage=mpage2
			blockPage=Int((gopage-1)/10)*10+1
 		If LCase(Request.ServerVariables("HTTPS")) = "off" Then 
			strTemp = "http://" 
		Else 
			strTemp = "https://" 
		End If 
			strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 
		If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 
			strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
			lenstrTemp=Len(strTemp)+1	
		If Instr(Left(linkfile,lenstrTemp),"?")>0 Then 
			
		If blockPage = 1 Then
		   HOPE_body=HOPE_body&"<span disabled>【←前10页</span>&nbsp;"
		Else
		   HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sortid&"-p"&blockPage-10&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage-10&")>←前10页</a>&nbsp;"
		End If
		   i=1
	    Do Until i > 10 or blockPage > mpage2
		If blockPage=Int(gopage) Then
		   HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
		Else
		   HOPE_body=HOPE_body&" <a href="&sortid&"-p"&blockPage&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage&")>["&blockPage&"]</a> "
		End If
			blockPage=blockPage+1
			i = i + 1
		Loop
		If blockPage > totalpage Then
		   HOPE_body=HOPE_body&"&nbsp;<span disabled>后10页→】"
		Else
		   HOPE_body=HOPE_body&"&nbsp;<a href="&sortid&"-p"&blockPage&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&sortid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sortid&"-p" & i & ".html"
		If i=gopage Then HOPE_body=HOPE_body&"   selected"
			HOPE_body=HOPE_body&">"&i&"</option>"
		next
			HOPE_body=HOPE_body&"</select>"
			HOPE_body=HOPE_body&" 页<Br><Br>"
 		Else
	If blockPage = 1 Then
		   HOPE_body=HOPE_body&"<span disabled>【←前10页</span>&nbsp;"
		Else
		   HOPE_body=HOPE_body&"<span disabled>【</span><a href="&sortid&"-p"&blockPage-10&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage-10&")>←前10页</a>&nbsp;"
		End If
		   i=1
		Do Until i > 10 OR blockPage > mpage2
		If blockPage=int(gopage) Then
		    HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
		Else
		    HOPE_body=HOPE_body&" <a href="&sortid&"-p"&blockPage&".html onclick=AjaxSearchtrp("&sortid&","&blockPage&")>["&blockPage&"]</a> "
		End If
			blockPage=blockPage+1
			i = i + 1
		Loop
		If blockPage > totalpage Then
		   HOPE_body=HOPE_body&"&nbsp;<span disabled>后10页→】"
		Else
		   HOPE_body=HOPE_body&"&nbsp;<a href="&sortid&"-p"&blockPage&".html  onclick=AjaxSearchtrp("&sortid&","&blockPage&")>后10页→</a><span disabled>】"
		End If 
			HOPE_body=HOPE_body&" 直接到第 "
			HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){AjaxSearchtrp("&sortid&",this.options[this.selectedIndex].index+1);location.href=this.options[this.selectedIndex].value;}>"
		for i=1 to totalpage
			HOPE_body=HOPE_body&"<option value="&sortid&"-p" & i & ".html"
		If i=gopage Then HOPE_body=HOPE_body&"   selected"
			HOPE_body=HOPE_body&">"&i&"</option>"
		next
			HOPE_body=HOPE_body&"</select>"
			HOPE_body=HOPE_body&" 页<Br><Br>"
 		End If
 			Startinfo=((gopage-1)*msg_per_page)+1
			Endinfo=gopage*msg_per_page
		If Endinfo>totalrec Then Endinfo=totalrec
		    HOPE_body=HOPE_body&"&nbsp;&nbsp;共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&mpage2&" 页"
		End If
 			HOPE_body=HOPE_body&"</TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR>"&vbCrlf
			HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
			HOPE_body=HOPE_body&"</TR>"&vbCrlf
			HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
			HOPE_body=HOPE_body&"</TABLE><script language='javascript' src="&HOPE_InstallDir&"autokind/autokind_p.js></script><input type='text' id='installurltrp'  style='display:none; width:12;height:1'  value='"&HOPE_InstallDir&"autokind/com_1_page.asp' />"&vbCrlf
 			'企业推荐榜：属于该行业的网盛通企业(显示5个作为网盛通指数最高的)^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		HOPE_Cor=HOPE_Cor&"<table width=""100%"" align=center  border=""1"" bordercolor=#F0F0F0  cellpadding=""0"" cellspacing='1'>"&VbCrLf
		sql="select top 5 id,qymc,[user],sf,city from Websen_corporation where sortid="&sortid&" and flag=1 order by trust_score desc,id desc"
		Set rs= Server.CreateObject("ADODB.RecordSet") 
		rs.Open sql,conn,1,1
			If rs.Eof Then
	     HOPE_Cor=HOPE_Cor&"<tr><td height='23' class=""s"" align=""center""><input name=""postOffer"" type=""button"" value=""立即注册抢占此推荐位！"" onclick=location.href="""&HOPE_InstallDir&"login/register.asp""></td></tr>"&VbCrLf
			Else
			comi=1
			Do While Not rs.Eof
			
			If is2weburl=1 Then
	     HOPE_Cor=HOPE_Cor&"<tr><td height='23' class=""lh13""><b>·<a href='http://"&rs("user")&"."&weburl1&"'  target='_blank'>"&rs("qymc")&"</a></b><br>&nbsp;&nbsp;<font color='#666666' class='S'>所属区域："&rs("sf")&""&rs("city")&"</font></td></tr>"&VbCrLf

			Else
			
		 HOPE_Cor=HOPE_Cor&"<tr><td height='23' class=""lh13""><b>·<a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'  target='_blank'>"&rs("qymc")&"</a></b><br>&nbsp;&nbsp;<font color='#666666' class='S'>所属区域："&rs("sf")&"-"&rs("city")&"</font></td></tr>"&VbCrLf

			End If
			
 		 HOPE_Cor=HOPE_Cor&"<tr><td height='5'></td></tr>"&VbCrLf
			
			If comi=5 Then  exit do 
			
			comi=comi+1
			rs.Movenext
			Loop
			End If
		HOPE_Cor=HOPE_Cor&"</table>"&VbCrLf
 	 
		  If totalrec="" Then 
		  totalrec=0
		  End If
		  HOPE_TotalCor="<font color=red>"&totalrec&"</font>"      '此类公司数统计
  		  HOPE_DH=totalrec
		  rs.Close
 		 
		  HOPE_Title=sortname '页面标题
    '取出模版页和对标签赋值^^^^^^^^^^^^^^^^^^^^^^  end  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

  		  If fso.FileExists(server.MapPath(HOPE_InstallDir&"corporation/trade/"&sortid&"-p"&tttid&".html")) Then
     	   If  kindtime<>"0" then 
 			Set fmodify = fso.GetFile(server.MapPath(HOPE_InstallDir&"corporation/trade/"&sortid&"-p"&tttid&".html"))
 		    ShowDateModified = fmodify.DateLastModified
 		    dtime=DateDiff("s",ShowDateModified,now())
		    mtime=dtime/60
  			  If trim(mtime)>=kindtime then
  				pencat=Hope_HtmlResult(pencat)
				Set fout = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"corporation/trade/"&sortid&"-p"&tttid&".html"))
				'如果文件存在就按时间进行更新^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
				fout.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/com_1_page.asp?pages="&Replace_Text(request("pages"))&"'></script>"
				fout.Close
			  End If
			  End If
  		  Else
           pencat=Hope_HtmlResult(pencat)
  		   Set foutc = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"corporation/trade/"&sortid&"-p"&tttid&".html"))
		   '如果文件存在就按时间进行更新^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 		   foutc.Write pencat&"<script src='"&HOPE_InstallDir&"autokind/com_1_page.asp?pages="&Replace_Text(request("pages"))&"'></script>"
		   foutc.Close
 		 End If	
	  Set fso = nothing
      conn.Close
     Set conn=nothing
    End If
 %>