<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<!-- #include file="inc/collectfunc.asp" -->
<%
on error resume next
dim cip,is_debug,urlf,urlt,imgf,imgt
is_debug=false
urlf=request.Form("f_urlf")
urlt=request.Form("f_urlt")
imgf=request.Form("f_imgf")
imgt=request.Form("f_imgt")
%>
<!DOCTYPE html PUBliC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>分类信息采集</title>
<link href="style/global.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="/js/common.js"></script>
<script type="text/javascript" src="/js/prototype.js"></script>
<script type="text/javascript" src="/js/effects.js"></script>
<script type="text/javascript" src="/js/validation.js"></script>
<script type="text/javascript" src="/js/industrys.js"></script>
<script type="text/javascript" src="/js/areas.js"></script>
<script type="text/javascript">
function getCatalogs(pid,cid){
new Ajax.Request('/member/getchilds.asp?classid='+pid,
  {
    method:'get',
    onSuccess: function(transport){
      var response = transport.responseXML.documentElement;
			var classidList = response.getElementsByTagName('catalog');	
			var childs=$('CatalogId');
			for(var i=0;i<classidList.length;i++){
				xx=classidList[i].getElementsByTagName('id');
				yy=classidList[i].getElementsByTagName('title');
				classid=xx[0].firstChild.data
				classtitle=yy[0].firstChild.data				
				childs.options[i]=new Option(classtitle,classid);							
				if(cid==classid){
					childs.options[i].selected=true;
				}
			}
    },
    onFailure: function(){ alert('Something went wrong...') }
  });
}
</script>
<%
Server.ScriptTimeOut=999999
Function ReplaceByRegex(TheStr) 
	Set RegEx = New RegExp 
	RegEx.IgnoreCase =True 
	'regEx.Global = True'****这一句加上是全部替换，如果不加，只替换第一个 
	RegEx.Pattern = "<div class=""pbg"">.*?</a>" 
	ReplaceByRegex=RegEx.replace(TheStr,"")
	Set RegEx=nothing
End Function


sub MakeDir(f_path)
	Set fs=Server.CreateObject("Scripting.FileSystemObject")
	If (fs.FolderExists(f_path)) Then		'目录是否存在
		Else
		fs.CreateFolder(f_path)		'创建目录
	End If
	set fs=nothing
end sub
function removeVbcrlf(str)
	dim ret
	if(str<>"") then
		ret=replace(str,vbcrlf,"")
		ret=replace(str,chr(10),"")
		ret=replace(str,chr(13),"")
		ret=replace(str,vbNewLine,"")
		ret=replace(str,"\n","")
		ret=replace(str,"\r","")
		ret=replace(str," ","")
		ret=replace(str,"  ","")
		removeVbcrlf=ret
	else
		removeVbcrlf=""
	end if
end function
function getHTTPPage(url)
	on error resume next
	dim httpobjs
	set httpobjs=server.createobject("Microsoft.XMLHTTP")'使用xmlhttp的方法来获得图片的内容
	httpobjs.open "GET",url,false
	httpobjs.send()
	if httpobjs.readystate<>4 then 
		exit function
	end if
	getHTTPPage=httpobjs.responseBody
	set httpobjs=nothing
	if err.number<>0 then err.Clear 
end function
function saveimage(from,tofile)
	dim geturl,objStream,imgs
	geturl=trim(from)
	if(imgf<>"" and imgt<>"") then
		geturl=replace(geturl,imgf,imgt)			
	end if
	if(Instr(geturl,"http://")=0) then
		exit function
	end if
	imgs=gethttppage(geturl)'取得图片的具休内容的过程
	
	Set objStream = Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象，必须要ADO 2.5以上版本
	objStream.Type =1'以二进制模式打开
	objStream.Open
	objstream.write imgs'将字符串内容写入缓冲
	objstream.SaveToFile tofile,2'-将缓冲的内容写入文件
	objstream.Close()'关闭对象
	set objstream=nothing
end function
function getProvinceOptions(province)
	dim ifselect,rs,sql
	sql="select ZID,ZName from t_city order by ZID asc"
	Set rs = conn.Execute(sql)
	if rs.eof or rs.bof then
		getProvinceOptions="<option value=""0"">暂时没有记录</option>"&Chr(13)
	else
		'getSpecialSelect="<option value=""0"">不属任何专题</option>"&Chr(13)
		while not rs.eof
			if(rs(1)=province) then
				ifselect=" selected"
			else
				ifselect=""
			end if
			getProvinceOptions=getProvinceOptions&"<option value="""&rs(1)&""" "&ifselect&">"&rs(1)&"</option>"&Chr(13)
			rs.movenext
		wend
	end if
	rs.close
	set rs=nothing
end function
function getIndustryOptions(cid)
	dim rs,sql,first,ifselect,i
	set rs=server.CreateObject("adodb.recordset")
	sql="select id,title from catalogs where parentid="&PlugIn_InfoId&" order by id asc"
	rs.open sql,conn,3,1
	if not rs.eof then
		first=rs.GetRows()
	else
		
	end if
	rs.close
	set rs=nothing
	if(isarray(first)) then
  	for i=0 to ubound(first,2)
			if(first(0,i)=cid) then
				ifselect=" selected"
			else
				ifselect=""
			end if
			response.Write("<option value="&first(0,i)&" "&ifselect&">"&first(1,i)&"</option>"&Chr(10))	    	
		next	
	end if
end function
Function GetLinkMember(strHTML3) 
	dim LinkStr,rpnum
	rpnum=Cint(request.Form("rpnum"))
	LinkStr=request.Form("LinkStr")
	Dim objRegExp3, Match3, Matches3 ,temp3
	Set objRegExp3=New Regexp 
	GetLinkMember=""
	objRegExp3.IgnoreCase = True 
	objRegExp3.Global = True 
	'获得字符中的链接 
	objRegExp3.Pattern ="href\s*=\s*.+?([^# ](\s|>))"
	'进行匹配 
	Set Matches3=objRegExp3.Execute(strHTML3) 
	dim j
	j=0
	' 遍历匹配集合，并替换掉匹配的项目 
	For Each Match3 in Matches3 	
		temp3=trim(Match3.Value)
		''''''''''''''''''''''''''''''''
		'采集条件
		''''''''''''''''''''''''''''''''
		if(LinkStr<>"" and instr(temp3,LinkStr)>0) then
			temp3=replace(temp3,"href=","")
			temp3=replace(temp3,"""","")
			temp3=replace(temp3,"'","")
			temp3=replace(temp3,">","")
			'''''''''''''''''''''''''''''''''''''''采集出现两次的时候'''''''''''''''''''
			if(j mod rpnum=0) then
				GetLinkMember=GetLinkMember&temp3&"|"
			end if
		end if
		j=j+1
	Next 	
	Set objRegExp3 = Nothing 
	set Matches3=nothing
End Function 

'===================================================================
'                           时间转换函数
'===================================================================
function chan_file(shijian)
	dim s_year,s_month,s_day,s_hour,s_minute,s_ss
	s_year=year(shijian)
	if len(s_year)=2 then s_year="20"&s_year
	s_month=month(shijian)
	if s_month<10 then s_month="0"&s_month
	s_day=day(shijian)
	if s_day<10 then s_day="0"&s_day
	s_hour=hour(shijian)
	if s_hour<10 then s_hour="0"&s_hour
	s_minute=minute(shijian)
	if s_minute<10 then s_minute="0"&s_minute
	s_ss=second(shijian)
	if s_ss<10 then s_ss="0"&s_ss
	Randomize timer
	zNum = cint(8999*Rnd+1000)
	chan_file =s_year & s_month & s_day & s_hour & s_minute & s_ss&zNum
	
end function
'===================================================================
'                           时间转换函数2
'===================================================================
function chan_data(shijian)
	dim s_year,s_month,s_day,s_hour
	s_year=year(shijian)
	if len(s_year)=2 then s_year="20"&s_year
	s_month=month(shijian)
	if s_month<10 then s_month="0"&s_month
	s_day=day(shijian)
	if s_day<10 then s_day="0"&s_day
	s_hour=hour(shijian)
	chan_data =s_year & s_month 
	
end function
'===================================================================
'                           时间转换函数3
'===================================================================
function chan_day(shijian)	
	dim s_day
	s_day=day(shijian)	
	chan_day=s_day 
	
end function
function GetIp()
	dim userip
	userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	if userip = "" then 
		userip = Request.ServerVariables("REMOTE_ADDR")
	end if
	GetIp=userip
end function

function Gather_Htm(u,sc)
	dim f_title_start,f_title_end,f_url_start,f_url_end,f_qq_start,f_qq_end,f_msn_start,f_msn_end,f_desc_start,f_desc_end
	dim f_email_start,f_email_end,f_tel_start,f_tel_end,f_address_start,f_address_end,f_man_start,f_man_end,f_mobile_start,f_mobile_end,f_server_start,f_server_end
	dim d_title,d_url,d_qq,d_msn,d_desc,IndustryId,Province,d_email,d_tel,d_address,d_man,d_mobile,d_server,picpath,price
	f_title_start=request.Form("f_title_start")
	f_title_end=request.Form("f_title_end")
	f_url_start=request.Form("f_url_start")
	f_url_end=request.Form("f_url_end")
	f_qq_start=request.Form("f_qq_start")
	f_qq_end=request.Form("f_qq_end")
	f_msn_start=request.Form("f_msn_start")
	f_msn_end=request.Form("f_msn_end")
	f_desc_start=request.Form("f_desc_start")
	f_desc_end=request.Form("f_desc_end")
	'new
	f_email_start=request.Form("f_email_start")
	f_email_end=request.Form("f_email_end")
	f_tel_start=request.Form("f_tel_start")
	f_tel_end=request.Form("f_tel_end")
	f_address_start=request.Form("f_address_start")
	f_address_end=request.Form("f_address_end")
	f_man_start=request.Form("f_man_start")
	f_man_end=request.Form("f_man_end")
	f_mobile_start=request.Form("f_mobile_start")
	f_mobile_end=request.Form("f_mobile_end")
	f_server_start=request.Form("f_server_start")
	f_server_end=request.Form("f_server_end")
	'
	ParentId=Clng(request.Form("ParentId"))
	CatalogId=Clng(request.Form("CatalogId"))
	Province=request.Form("Province")
	dim s_str,s_contact_str
	s_str=ReadXml(u,sc,request.Form("f_show_start"),request.Form("f_show_end"))
	's_contact_str='RemoveHTML(s_str)
	s_contact_str=s_str
	if(is_debug=true) then
		'response.Write("<br>HTML："&s_str&"<hr />")
		'response.Write("<br>联系信息：<textarea style=""width:90%; height:80px;"">"&s_contact_str&"</textarea><hr />")
	end if
	's_str=RemoveBlank(s_str)
	d_title=GetBody(s_str,f_title_start,f_title_end,false,false)
	d_title=removeVbcrlf(d_title)
	d_url=GetBody(s_contact_str,f_url_start,f_url_end,false,false)
	d_qq=GetBody(s_contact_str,f_qq_start,f_qq_end,false,false)
	d_msn=GetBody(s_contact_str,f_msn_start,f_msn_end,false,false)
	'new
	d_email=GetBody(s_contact_str,f_email_start,f_email_end,false,false)
	d_email=replace(d_email,"万","")
	d_email=removeVbcrlf(d_email)
	price=d_email
	if(price<>"" and  isnumeric(price)) then
		price=Clng(price)
	else
		price=0
	end if
	d_tel=GetBody(s_contact_str,f_tel_start,f_tel_end,false,false)
	if(d_tel<>"") then
		d_tel=left(d_tel,30)
	else
		d_tel=" "
	end if
	d_tel=removeVbcrlf(d_tel)
	d_address=GetBody(s_contact_str,f_address_start,f_address_end,false,false)
	d_man=GetBody(s_contact_str,f_man_start,f_man_end,false,false)
	d_man=RemoveHTML(d_man)
	d_mobile=GetBody(s_contact_str,f_mobile_start,f_mobile_end,false,false)
	d_server=GetBody(s_contact_str,f_server_start,f_server_end,false,false)
	
	d_desc=GetBody(s_contact_str,f_desc_start,f_desc_end,false,false)
	GetType=Cint(request.Form("GetType"))
	if(d_desc<>"") then
		if(GetType=1) then
			d_desc=RemoveHTML(d_desc)
		end if
		d_desc=ReplaceByRegex(d_desc)
	end if
	'd_desc=RemoveHTML(d_desc)
	if(is_debug=true) then
		response.Write("<div style=""padding:10px; font-size:12px;"">")
		response.write("<br>标题："&d_title&"<hr />")
		response.write("<br>网址："&d_url&"<hr />")
		response.write("<br>QQ："&d_qq&"<hr />")
		response.write("<br>传真："&d_msn&"<hr />")
		'response.write("<br>价格："&d_email&"<hr />")
		response.write("<br>电话："&d_tel&"<hr />")
		response.write("<br>地址："&d_address&"<hr />")
		response.write("<br>联系人："&d_man&"<hr />")
		response.write("<br>手机："&d_mobile&"<hr />")
		response.write("<br>图片："&d_server&"<hr />")
		response.write("<br>描述："&d_desc&"<hr />")
		response.write("<br>价格："&price&"<hr />")
		response.Write("</div>")
	end if
	
	
	'''''''''''添加到数据库''''''''''''''''''''''''''''''''';
	UIP=Request.ServerVariables("REMOTE_ADDR")
	if(is_debug=false) then
		SavePath="/html/"&chan_data(now())&chan_day(now())&"/"&chan_file(now())&"."&FileExt
		call MakeDir(server.mappath("/pic/"&date&"/"))
		if(d_server<>"" and instr(d_server,"none")<=0 and instr(d_server,"hengya")<=0) then
			picpath="/pic/"&date&"/"&chan_file(now())&right(d_server,4)
			call saveimage(d_server,server.mappath(picpath))
		else
			picpath="/images/nopic.gif"
		end if
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from t_info where 1=0",conn,3,3
		rs.addnew
		rs("UserId")="anonymous"
		rs("InfoTypeId")=1
		rs("ParentId")=ParentId
		rs("CatalogId")=CatalogId	
		rs("Photo")=picpath
		rs("Title")=d_title
		rs("Price")=price
		rs("Province")=CityName_Cn
		rs("City")=request.form("City")
		rs("ContactMan")=left(RemoveHTML(d_man),25)
		rs("QQ")=d_qq
		rs("Tel")=d_tel	
		rs("Content")=d_desc
		rs("Demons")=left(RemoveHTML(d_desc),200)
		rs("PubDate")=now()
		rs("ExpireDate")=dateadd("d",30,now())
		rs("PubIp")=cip
		rs("Hits")=1
		rs("IsCheck")=0
		rs("IsDel")=0
		rs("IsHot")=0
		rs("IsTop")=0
		rs("DelPass")="anonymous"
		rs("SavePath")=SavePath
		rs("Address")=d_address
		rs.update
		rs.close
		set rs=nothing
		response.Write("<br>成功采集信息:"&d_title&"")	
		response.Flush()
	end if
end function
dim act

act=request.QueryString("act")
if(act="do") then
	dim c_str,IsDebug
	IsDebug=Clng(request.Form("IsDebug"))
	if(IsDebug=1) then
		is_debug=true
	else
		is_debug=false
	end if
	id=Clng(request.queryString("id"))
	cip=GetIp()
	dim f_url,f_charset,f_list_start,f_list_end,c_links,a_link,gnum
	f_url=request.Form("f_url")
	f_charset=request.Form("f_charset")	
	f_list_start=request.Form("f_list_start")
	f_list_end=request.Form("f_list_end")
	'更新数据库
	set rs=server.CreateObject("adodb.recordset") 
	rs.open "select * from t_info_gather where id="&id,conn,3,3
	rs("TaskName")=request.form("TaskName")
	rs("f_url")=f_url
	rs("f_charset")=f_charset
	rs("IndustryId")=Clng(request.form("ParentId"))
	rs("CatalogId")=Clng(request.Form("CatalogId"))
	rs("f_list_start")=f_list_start
	rs("f_list_end")=f_list_end
	rs("f_title_start")=request.form("f_title_start")
	rs("f_title_end")=request.form("f_title_end")
	rs("f_url_start")=request.form("f_url_start")
	rs("f_url_end")=request.form("f_url_end")
	rs("f_qq_start")=request.form("f_qq_start")
	rs("f_qq_end")=request.form("f_qq_end")
	rs("f_msn_start")=request.form("f_msn_start")
	rs("f_msn_end")=request.form("f_msn_end")
	rs("f_desc_start")=request.form("f_desc_start")
	rs("f_desc_end")=request.form("f_desc_end")
	rs("f_email_start")=request.form("f_email_start")
	rs("f_email_end")=request.form("f_email_end")
	rs("f_tel_start")=request.form("f_tel_start")
	rs("f_tel_end")=request.form("f_tel_end")
	rs("f_address_start")=request.form("f_address_start")
	rs("f_address_end")=request.form("f_address_end")
	rs("f_man_start")=request.form("f_man_start")
	rs("f_man_end")=request.form("f_man_end")
	rs("f_mobile_start")=request.form("f_mobile_start")
	rs("f_mobile_end")=request.form("f_mobile_end")
	rs("f_server_start")=request.form("f_server_start")
	rs("f_server_end")=request.form("f_server_end")
	rs("f_show_start")=request.Form("f_show_start")
	rs("f_show_end")=request.Form("f_show_end")
	rs("f_urlf")=request.Form("f_urlf")
	rs("f_urlt")=request.Form("f_urlt")
	rs("f_imgf")=request.Form("f_imgf")
	rs("f_imgt")=request.Form("f_imgt")
	rs("LinkStr")=request.Form("LinkStr")
	rs("RepeatNum")=cint(request.Form("rpnum"))
	rs.update
	rs.close
	set rs=nothing
	c_str=ReadXml(f_url,f_charset,f_list_start,f_list_end)
	if(urlf<>"") then
		c_str=replace(c_str,urlf,urlt)
	end if
	c_links=GetLinkMember(c_str)
	'''列表采集'''''''''''''''''''''''''''''''''''''''''''''''''''''
	if(is_debug=true) then
		'response.write("<br>列表："&c_str&"<hr />")
	end if
	if(is_debug=true) then
		response.write("<br>链接："&c_links&"<hr />")
	end if
	a_link=split(c_links,"|")
	if(is_debug=true) then
		gnum=2
	else
		gnum=ubound(a_link)
	end if
	for i=0 to gnum
		response.write("<br>采集链接："&a_link(i)&"<hr />")
		call Gather_Htm(a_link(i),f_charset)
	next
	response.Write("<p align=""center""><a href=""javascript:history.back();"">返回</a></p>")
else
	id=Clng(request.QueryString("id"))
	set rs=server.CreateObject("adodb.recordset") 
	rs.open "select * from t_info_gather where id="&id,conn,3,3
	if not rs.eof then
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Untitled Document</title>
<style type="text/css">
<!--
.pformleft {padding:3px; line-height:20px;}
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<link href="style/global.css" rel="stylesheet" type="text/css" />
</head>

<body style="padding:10px;">
<form id="form1" name="form1" method="post" action="?act=do&id=<%=id%>">
  <table width="89%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td height="26" colspan="2" bgcolor="#BAC5D9"><div align="center" class="style1">分类信息采集</div></td>
    </tr>
    <tr>
      <td width="23%">任务名称：</td>
      <td width="77%"><input name="TaskName" type="text" id="TaskName" value="<%=rs("TaskName")%>" /></td>
    </tr>
    <tr>
      <td>采集地址：</td>
      <td><input name="f_url" type="text" id="f_url" value="<%=rs("f_url")%>" size="55" />
      <input name="GetType" type="radio" id="radio" value="0" checked="checked" />
      源码
      <input name="GetType" type="radio" id="radio" value="1" />
过滤源码</td>
    </tr>
    <tr>
      <td>编码：</td>
      <td><input name="f_charset" type="text" id="f_charset" value="<%=rs("f_charset")%>" />
      URL替换:从
      <input name="f_urlf" type="text" id="f_urlf" value="<%=rs("f_urlf")%>" />
      到
      <input name="f_urlt" type="text" id="f_urlt" value="<%=rs("f_urlt")%>" /></td>
    </tr>
    <tr>
      <td>采集到行业：</td>
      <td><span class="pformleft">
        <select name="ParentId" id="ParentId" onchange="getCatalogs(this.options[this.selectedIndex].value,0,'CatalogId')">
					<option>请选择一级分类</option>
					<%=getIndustryOptions(rs("IndustryId"))%>
      </select>		
      <select name="CatalogId" id="CatalogId">
        <option>请选择二级分类</option>
      </select>
      <script type="text/javascript">
      getCatalogs(<%=rs("IndustryId")%>,<%=rs("CatalogId")%>,'CatalogId');	
      </script>    
      </span></td>
    </tr>
    <tr>
      <td>链接设置：</td>
      <td>
      采集包含
      <input name="LinkStr" type="text" id="LinkStr" value="<%=rs("LinkStr")%>" />
      的链接      
      <input name="rpnum" type="text" id="rpnum" value="<%=rs("RepeatNum")%>" size="5" />
      (间隔几个)</td>
    </tr>
    <tr>
      <td>列表页起始：</td>
      <td><textarea name="f_list_start" cols="55" rows="4" id="f_list_start"><%=rs("f_list_start")%></textarea></td>
    </tr>
    <tr>
      <td>列表页结尾：</td>
      <td><textarea name="f_list_end" cols="55" rows="4" id="f_list_end"><%=rs("f_list_end")%></textarea></td>
    </tr>
    <tr>
      <td>内容页开头</td>
      <td><textarea name="f_show_start" cols="55" rows="4" id="f_show_start"><%=rs("f_show_start")%></textarea></td>
    </tr>
    <tr>
      <td>内容页结尾</td>
      <td><textarea name="f_show_end" cols="55" rows="4" id="f_show_end"><%=rs("f_show_end")%></textarea></td>
    </tr>
    
    <tr>
      <td colspan="2"><hr /></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>标题_Start：</td>
      <td><textarea name="f_title_start" cols="55" rows="4" id="f_title_start"><%=rs("f_title_start")%></textarea></td>
    </tr>
    <tr>
      <td>标题_End：</td>
      <td><textarea name="f_title_end" cols="55" rows="4" id="f_title_end"><%=rs("f_title_end")%></textarea></td>
    </tr>
    <tr>
      <td>网址_Start：</td>
      <td><textarea name="f_url_start" cols="55" rows="4" id="f_url_start"><%=rs("f_url_start")%></textarea></td>
    </tr>
    <tr>
      <td>网址_End：</td>
      <td><textarea name="f_url_end" cols="55" rows="4" id="f_url_end"><%=rs("f_url_end")%></textarea></td>
    </tr>
    <tr>
      <td>QQ_Start：</td>
      <td><input name="f_qq_start" type="text" id="f_qq_start" value="<%=rs("f_qq_start")%>" size="55" /></td>
    </tr>
    <tr>
      <td>QQ_End：</td>
      <td><input name="f_qq_end" type="text" id="f_qq_end" value="<%=rs("f_qq_end")%>" size="55" /></td>
    </tr>
    <tr>
      <td>传真_Start：</td>
      <td><textarea name="f_msn_start" cols="55" rows="4" id="f_msn_start"><%=rs("f_msn_start")%></textarea></td>
    </tr>
    <tr>
      <td>传真_End：</td>
      <td><textarea name="f_msn_end" cols="55" rows="4" id="f_msn_end"><%=rs("f_msn_end")%></textarea></td>
    </tr>
    <!--email-->
    <tr>
      <td>价格_Start：</td>
      <td><textarea name="f_email_start" cols="55" rows="4" id="f_email_start"><%=rs("f_email_start")%></textarea></td>
    </tr>
    <tr>
      <td>价格_End：</td>
      <td><textarea name="f_email_end" cols="55" rows="4" id="f_email_end"><%=rs("f_email_end")%></textarea></td>
    </tr>
    <!--Tel_Start-->
    <tr>
      <td>电话_Start：</td>
      <td><textarea name="f_tel_start" cols="55" rows="4" id="f_tel_start"><%=rs("f_tel_start")%></textarea></td>
    </tr>
    <tr>
      <td>电话_End：</td>
      <td><textarea name="f_tel_end" cols="55" rows="4" id="f_tel_end"><%=rs("f_tel_end")%></textarea></td>
    </tr>
    <!--f_address_end-->
    <tr>
      <td>地址_Start：</td>
      <td><textarea name="f_address_start" cols="55" rows="4" id="f_address_start"><%=rs("f_address_start")%></textarea></td>
    </tr>
    <tr>
      <td>地址_End：</td>
      <td><textarea name="f_address_end" cols="55" rows="4" id="f_address_end"><%=rs("f_address_end")%></textarea></td>
    </tr>
    <!--f_man_start-->
    <tr>
      <td>联系人_Start：</td>
      <td><textarea name="f_man_start" cols="55" rows="4" id="f_man_start"><%=rs("f_man_start")%></textarea></td>
    </tr>
    <tr>
      <td>联系人_End：</td>
      <td><textarea name="f_man_end" cols="55" rows="4" id="f_man_end"><%=rs("f_man_end")%></textarea></td>
    </tr>
    <!--手机-->
    <tr>
      <td>手机_Start：</td>
      <td><textarea name="f_mobile_start" cols="55" rows="4" id="f_mobile_start"><%=rs("f_mobile_start")%></textarea></td>
    </tr>
    <tr>
      <td>手机_End：</td>
      <td><textarea name="f_mobile_end" cols="55" rows="4" id="f_mobile_end"><%=rs("f_mobile_end")%></textarea></td>
    </tr>
    <!--服务内容-->
    <tr>
      <td>缩略图_Start：</td>
      <td><textarea name="f_server_start" cols="55" rows="4" id="f_server_start"><%=rs("f_server_start")%></textarea>
      URL替换:从
      <input name="f_imgf" type="text" id="f_imgf" value="<%=rs("f_imgf")%>" />
      到
      <input name="f_imgt" type="text" id="f_imgt" value="<%=rs("f_imgt")%>" />
      </td>
    </tr>
    <tr>
      <td>缩略图_End：</td>
      <td><textarea name="f_server_end" cols="55" rows="4" id="f_server_end"><%=rs("f_server_end")%></textarea></td>
    </tr>
    <tr>
      <td>内容_Start：</td>
      <td><textarea name="f_desc_start" cols="55" rows="4" id="f_desc_start"><%=rs("f_desc_start")%></textarea></td>
    </tr>
    <tr>
      <td>内容_End：</td>
      <td><textarea name="f_desc_end" cols="55" rows="4" id="f_desc_end"><%=rs("f_desc_end")%></textarea></td>
    </tr>
    <tr>
      <td colspan="2"><div align="center">
        <input type="hidden" name="IsDebug" value="1" />
        <input type="submit" name="Submit" value="Submit" />
        <input type="reset" name="Submit2" value="Reset" />
      </div></td>
    </tr>
  </table>
</form>
</body>
</html>

<%
	end if
end if
call connclose()
%>