<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<!--#include file="inc/function.asp" -->
<!-- #include file="inc/checkrole.asp" -->
<html>
<head>
<title>采集管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
}
-->
</style>
<link href="style/global.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
.style2 {color: #CCCCCC}
.style3 {color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<script language="javascript">
function check(obj){
	if(obj.Title.value==""){
		alert("标题不能为空!");
		obj.Title.focus();
		obj.Title.select();
		return false;
	}
	if(obj.Url.value==""){
		alert("页面链接正则不能为空!");
		obj.Url.focus();
		obj.Url.select();
		return false;
	}
	return true;
}
function goto(frm)
{
	var gourl ="?";
	gourl += "page=" + (frm.page.value);
     var hid=parseInt(frm.hid.value);
	 if(parseInt(frm.page.value)>hid||frm.page.value<=0){
	 alert("错误！请确定你输入的数字在1-"+hid+"之间");
	 return false;
	 }
	window.location.href(gourl);
}
function ConfirmDel()
{
   if(confirm("确认删除？并且不能恢复！确定要删除此信息吗？"))
     return true;
   else
     return false;
	 
}

</script>
</head>

<body>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><iframe src="right_top.htm" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" height="30" width="100%"></iframe></td>
  </tr>
</table>
<%
dim act
act=trim(request.QueryString("act"))
if isempty(act) or act="" then
	call Cartoon_List
elseif(act="add") then
	call Cartoon_Add
elseif(act="addok") then
	call Cartoon_AddOk
elseif(act="mod") then
	call Cartoon_Mod
elseif(act="modok") then
	call Cartoon_ModOk
end if
%>
<%
Sub Cartoon_Add
%>
<FORM method="POST" name="form1" action="?act=addok" style="margin:0 0 0 0;" onSubmit="return check(this)">
  <TABLE width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#666666">
<TR bgcolor="#FF9900">
  <TD height="24" colspan="2"><div align="center" class="style3">添加二手房采集</div></TD>
  </TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">信息类别：</div></TD>
  <TD>
	<select name="CatalogId">
      <script type="text/javascript" src="/js/infotype.js"></script>
  </select>
  </TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD width="34%"><div align="right">采集名称：</div></TD>
  <TD width="66%"><input name="Title" type="text" id="Title" size="35"></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">列表开始标记：</div></TD>
  <TD><textarea name="ListStart" cols="55" id="ListStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">列表结束标记：</div></TD>
  <TD><textarea name="ListEnd" cols="55" id="ListEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">标题开始标记：</div></TD>
  <TD><textarea name="TitleStart" cols="55" id="TitleStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">标题结束标记：</div></TD>
  <TD><textarea name="TitleEnd" cols="55" id="TitleEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">物业类型开始标记：</div></TD>
  <TD><textarea name="WylxStart" cols="55" id="WylxStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">物业类型结束标记：</div></TD>
  <TD><textarea name="WylxEnd" cols="55" id="WylxEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">价格开始标记：</div></TD>
  <TD><textarea name="PriceStart" cols="55" id="PriceStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">价格结束标记：</div></TD>
  <TD><textarea name="PriceEnd" cols="55" id="PriceEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地址开始标记：</div></TD>
  <TD><textarea name="AddressStart" cols="55" id="AddressStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地址结束标记：</div></TD>
  <TD><textarea name="AddressEnd" cols="55" id="AddressEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">图开始标记：</div></TD>
  <TD><textarea name="PhotoStart" cols="55" id="PhotoStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">图结束标记：</div></TD>
  <TD><textarea name="PhotoEnd" cols="55" id="PhotoEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">内容开始标记：</div></TD>
  <TD><textarea name="ContentStart" cols="55" id="ContentStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">内容结束标记：</div></TD>
  <TD><textarea name="ContentEnd" cols="55" id="ContentEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地区开始标记：</div></TD>
  <TD><textarea name="AreaStart" cols="55" id="AreaStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地区结束标记：</div></TD>
  <TD><textarea name="AreaEnd" cols="55" id="AreaEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">交通开始标记：</div></TD>
  <TD><textarea name="TrafficStart" cols="55" id="TrafficStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">交通结束标记：</div></TD>
  <TD><textarea name="TrafficEnd" cols="55" id="TrafficEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">楼层开始标记：</div></TD>
  <TD><textarea name="FloorLevelStart" cols="55" id="FloorLevelStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">楼层结束标记：</div></TD>
  <TD><textarea name="FloorLevelEnd" cols="55" id="FloorLevelEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">联系人开始标记：</div></TD>
  <TD><textarea name="ContactManStart" cols="55" id="ContactManStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">联系人结束标记：</div></TD>
  <TD><textarea name="ContactManEnd" cols="55" id="ContactManEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">电话开始标记：</div></TD>
  <TD><textarea name="TelStart" cols="55" id="TelStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">电话结束标记：</div></TD>
  <TD><textarea name="TelEnd" cols="55" id="TelEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">面积开始标记：</div></TD>
  <TD><textarea name="MianJiStart" cols="55" id="MianJiStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">面积结束标记：</div></TD>
  <TD><textarea name="MianJiEnd" cols="55" id="MianJiEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">户型开始标记：</div></TD>
  <TD><textarea name="HuXingStart" cols="55" id="HuXingStart"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">户型结束标记：</div></TD>
  <TD><textarea name="HuXingEnd" cols="55" id="HuXingEnd"></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">页面链接正则：</div></TD>
  <TD><input name="PageRegx" type="text" id="PageRegx" size="55">
    <br>
    如http://games.tom.com/2008-05-15/0GB2/33841086_$num$.html</TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD width="34%"><div align="right">页面个数：</div></TD>
  <TD width="66%"><input name="PageNum" type="text" id="PageNum" value="1" size="35"></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD align=right>相对地址转绝对地址：</TD>
  <TD align=right><div align="left">将
    <input name="RelateUrl" type="text" id="RelateUrl">
  替换成
  <input name="AbsoluteUrl" type="text" id="AbsoluteUrl">
  并过滤：
  <input type="text" name="Filters" id="Filters">
  </div></TD>
</TR>
<TR bgcolor="#F5F5F5">
	<TD align=right>&nbsp;	  </TD>
    <TD align=right><div align="left"> 
        <input type=submit name=b1 value="提 交">&nbsp;&nbsp;
        <input type=reset name=b2 value="重 填">       
    </div></TD>
</TR>
</TABLE>
</FORM>
<%
end Sub
Sub Cartoon_AddOk
	dim CategoryId,ListStart,ListEnd,PageRegx,PageNum,RelateUrl,AbsoluteUrl
	dim TitleStart,TitleEnd,WylxStart,WylxEnd,PriceStart,PriceEnd,AddressStart,AddressEnd,PhotoStart,PhotoEnd,ContentStart,ContentEnd	
	dim AreaStart,AreaEnd,TrafficStart,TrafficEnd,FloorLevelStart,FloorLevelEnd,ContactManStart,ContactManEnd,TelStart,TelEnd,MianJiStart,MianJiEnd,HuXingStart,HuXingEnd,Filters
	CategoryId=Clng(request.Form("catalogid"))
	Title=request.Form("Title")
	ListStart=request.Form("ListStart")
	ListEnd=request.Form("ListEnd")
	'''''''''''''''''''''''''''''''
	TitleStart=request.Form("TitleStart")
	TitleEnd=request.Form("TitleEnd")
	WylxStart=request.Form("WylxStart")
	WylxEnd=request.Form("WylxEnd")
	PriceStart=request.Form("PriceStart")
	PriceEnd=request.Form("PriceEnd")
	AddressStart=request.Form("AddressStart")
	AddressEnd=request.Form("AddressEnd")
	PhotoStart=request.Form("PhotoStart")
	PhotoEnd=request.Form("PhotoEnd")
	ContentStart=request.Form("ContentStart")
	ContentEnd=request.Form("ContentEnd")
	AreaStart=request.Form("AreaStart")
	AreaEnd=request.Form("AreaEnd")
	TrafficStart=request.Form("TrafficStart")
	TrafficEnd=request.Form("TrafficEnd")
	FloorLevelStart=request.Form("FloorLevelStart")
	FloorLevelEnd=request.Form("FloorLevelEnd")
	ContactManStart=request.Form("ContactManStart")
	ContactManEnd=request.Form("ContactManEnd")
	TelStart=request.Form("TelStart")
	TelEnd=request.Form("TelEnd")
	MianJiStart=request.Form("MianJiStart")
	MianJiEnd=request.Form("MianJiEnd")
	HuXingStart=request.Form("HuXingStart")
	HuXingEnd=request.Form("HuXingEnd")
	PageRegx=request.Form("PageRegx")
	PageNum=Clng(request.Form("PageNum"))
	RelateUrl=request.Form("RelateUrl")
	AbsoluteUrl=request.Form("AbsoluteUrl")
	set rs=server.createobject("adodb.recordset")
	rs.open "select top 1 * from t_gather_esf where Title='"&title&"'",conn,3,3
	if not rs.eof then
		response.Write("<script>alert(""该采集名称已存在!"");history.back();</script>")
		response.End()
	else		
		rs.addnew
		rs("CategoryId")=CategoryId		
		rs("Title")=Title	
		rs("ListStart")=ListStart	
		rs("ListEnd")=ListEnd	
		rs("PageRegx")=PageRegx	
		rs("PageNum")=PageNum
		rs("RelateUrl")=RelateUrl
		rs("AbsoluteUrl")=AbsoluteUrl
		''''''''''''''''''''''''''''''''
		rs("TitleStart")=TitleStart
		rs("TitleEnd")=TitleEnd
		rs("WylxStart")=WylxStart
		rs("WylxEnd")=WylxEnd
		rs("PriceStart")=PriceStart
		rs("PriceEnd")=PriceEnd
		rs("AddressStart")=AddressStart
		rs("AddressEnd")=AddressEnd
		rs("PhotoStart")=PhotoStart
		rs("PhotoEnd")=PhotoEnd
		rs("ContentStart")=ContentStart
		rs("ContentEnd")=ContentEnd
		rs("AreaStart")=AreaStart
		rs("AreaEnd")=AreaEnd
		rs("TrafficStart")=TrafficStart
		rs("TrafficEnd")=TrafficEnd
		rs("FloorLevelStart")=FloorLevelStart
		rs("FloorLevelEnd")=FloorLevelEnd
		rs("ContactManStart")=ContactManStart
		rs("ContactManEnd")=ContactManEnd
		rs("TelStart")=TelStart
		rs("TelEnd")=TelEnd
		rs("MianJiStart")=MianJiStart
		rs("MianJiEnd")=MianJiEnd
		rs("HuXingStart")=HuXingStart
		rs("HuXingEnd")=HuXingEnd
		rs("Filters")=request.Form("Filters")
		rs("Sts")=0
		rs.update	
		response.Write("添加采集成功~!")
		response.Write("<br><a href=esfg.asp>返回</a>")
	end if
	rs.close
	set rs=nothing
end Sub
Sub Cartoon_ModOk
	dim id 
	id=Clng(request.QueryString("id"))
	dim CategoryId,ListStart,ListEnd,PageRegx,PageNum,RelateUrl,AbsoluteUrl
	dim TitleStart,TitleEnd,WylxStart,WylxEnd,PriceStart,PriceEnd,AddressStart,AddressEnd,PhotoStart,PhotoEnd,ContentStart,ContentEnd	
	dim AreaStart,AreaEnd,TrafficStart,TrafficEnd,FloorLevelStart,FloorLevelEnd,ContactManStart,ContactManEnd,TelStart,TelEnd,MianJiStart,MianJiEnd,HuXingStart,HuXingEnd,Sts
	CategoryId=Clng(request.Form("catalogid"))
	Title=request.Form("Title")
	ListStart=request.Form("ListStart")
	ListEnd=request.Form("ListEnd")
	'''''''''''''''''''''''''''''''
	TitleStart=request.Form("TitleStart")
	TitleEnd=request.Form("TitleEnd")
	WylxStart=request.Form("WylxStart")
	WylxEnd=request.Form("WylxEnd")
	PriceStart=request.Form("PriceStart")
	PriceEnd=request.Form("PriceEnd")
	AddressStart=request.Form("AddressStart")
	AddressEnd=request.Form("AddressEnd")
	PhotoStart=request.Form("PhotoStart")
	PhotoEnd=request.Form("PhotoEnd")
	ContentStart=request.Form("ContentStart")
	ContentEnd=request.Form("ContentEnd")
	AreaStart=request.Form("AreaStart")
	AreaEnd=request.Form("AreaEnd")
	TrafficStart=request.Form("TrafficStart")
	TrafficEnd=request.Form("TrafficEnd")
	FloorLevelStart=request.Form("FloorLevelStart")
	FloorLevelEnd=request.Form("FloorLevelEnd")
	ContactManStart=request.Form("ContactManStart")
	ContactManEnd=request.Form("ContactManEnd")
	TelStart=request.Form("TelStart")
	TelEnd=request.Form("TelEnd")
	MianJiStart=request.Form("MianJiStart")
	MianJiEnd=request.Form("MianJiEnd")
	HuXingStart=request.Form("HuXingStart")
	HuXingEnd=request.Form("HuXingEnd")
	PageRegx=request.Form("PageRegx")
	PageNum=Clng(request.Form("PageNum"))
	RelateUrl=request.Form("RelateUrl")
	AbsoluteUrl=request.Form("AbsoluteUrl")
	Sts=Cint(request.Form("Sts"))
	set rs=server.createobject("adodb.recordset")
	rs.open "select top 1 * from t_gather_esf where id="&id,conn,3,3
	if not rs.eof then		
		'rs("CategoryId")=CategoryId		
		rs("Title")=Title	
		rs("ListStart")=ListStart	
		rs("ListEnd")=ListEnd	
		rs("PageRegx")=PageRegx	
		rs("PageNum")=PageNum
		rs("RelateUrl")=RelateUrl
		rs("AbsoluteUrl")=AbsoluteUrl
		''''''''''''''''''''''''''''''''
		rs("TitleStart")=TitleStart
		rs("TitleEnd")=TitleEnd
		rs("WylxStart")=WylxStart
		rs("WylxEnd")=WylxEnd
		rs("PriceStart")=PriceStart
		rs("PriceEnd")=PriceEnd
		rs("AddressStart")=AddressStart
		rs("AddressEnd")=AddressEnd
		rs("PhotoStart")=PhotoStart
		rs("PhotoEnd")=PhotoEnd
		rs("ContentStart")=ContentStart
		rs("ContentEnd")=ContentEnd
		rs("AreaStart")=AreaStart
		rs("AreaEnd")=AreaEnd
		rs("TrafficStart")=TrafficStart
		rs("TrafficEnd")=TrafficEnd
		rs("FloorLevelStart")=FloorLevelStart
		rs("FloorLevelEnd")=FloorLevelEnd
		rs("ContactManStart")=ContactManStart
		rs("ContactManEnd")=ContactManEnd
		rs("TelStart")=TelStart
		rs("TelEnd")=TelEnd
		rs("MianJiStart")=MianJiStart
		rs("MianJiEnd")=MianJiEnd
		rs("HuXingStart")=HuXingStart
		rs("HuXingEnd")=HuXingEnd
		rs("Sts")=Sts
		rs("Filters")=request.Form("Filters")
		rs.update	
		response.Write("修改采集成功~!")
		response.Write("<br><a href=""esfg.asp"">返回</a>")
	end if
	rs.close
	set rs=nothing
end Sub
Sub Cartoon_Mod
	dim id,rs
	id=Clng(request.QueryString("id"))
	set rs=server.createobject("adodb.recordset")
	rs.open "select top 1 * from t_gather_esf where id="&id,conn,3,3
	if not rs.eof then		
%>
<FORM method="POST" name="form1" action="?act=modok&id=<%=id%>" style="margin:0 0 0 0;" onSubmit="return check(this)">
  <TABLE width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#666666">
<TR bgcolor="#FF9900">
  <TD height="24" colspan="2"><div align="center" class="style3">修改二手房采集</div></TD>
  </TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">采集到栏目：</div></TD>
  <TD>
  <select name="CatalogId">
     <script type="text/javascript" src="/js/infotype.js"></script>
     
  </select>
  <script type="text/javascript">
	var v=document.form1.CatalogId;
	for(var i=0;i<v.length;i++){
		if(<%=rs("CategoryId")%>==v.options[i].value)
			v[i].selected=true;
	}
	</script>
  </TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD width="34%"><div align="right">采集名称：</div></TD>
  <TD width="66%"><input name="Title" type="text" id="Title" value="<%=rs("Title")%>" size="35">
    </TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">采集开始标记：</div></TD>
  <TD><textarea name="ListStart" cols="55" id="ListStart"><%=rs("ListStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">采集结束标记：</div></TD>
  <TD><textarea name="ListEnd" cols="55" id="ListEnd"><%=rs("ListEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">标题开始标记：</div></TD>
  <TD><textarea name="TitleStart" cols="55" id="TitleStart"><%=rs("TitleStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">标题结束标记：</div></TD>
  <TD><textarea name="TitleEnd" cols="55" id="TitleEnd"><%=rs("TitleEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">物业类型开始标记：</div></TD>
  <TD><textarea name="WylxStart" cols="55" id="WylxStart"><%=rs("WylxStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">物业类型结束标记：</div></TD>
  <TD><textarea name="WylxEnd" cols="55" id="WylxEnd"><%=rs("WylxEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">价格开始标记：</div></TD>
  <TD><textarea name="PriceStart" cols="55" id="PriceStart"><%=rs("PriceStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">价格结束标记：</div></TD>
  <TD><textarea name="PriceEnd" cols="55" id="PriceEnd"><%=rs("PriceEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地址开始标记：</div></TD>
  <TD><textarea name="AddressStart" cols="55" id="AddressStart"><%=rs("AddressStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地址结束标记：</div></TD>
  <TD><textarea name="AddressEnd" cols="55" id="AddressEnd"><%=rs("AddressEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">图开始标记：</div></TD>
  <TD><textarea name="PhotoStart" cols="55" id="PhotoStart"><%=rs("PhotoStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">图结束标记：</div></TD>
  <TD><textarea name="PhotoEnd" cols="55" id="PhotoEnd"><%=rs("PhotoEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">内容开始标记：</div></TD>
  <TD><textarea name="ContentStart" cols="55" id="ContentStart"><%=rs("ContentStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">内容结束标记：</div></TD>
  <TD><textarea name="ContentEnd" cols="55" id="ContentEnd"><%=rs("ContentEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地区开始标记：</div></TD>
  <TD><textarea name="AreaStart" cols="55" id="AreaStart"><%=rs("AreaStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">地区结束标记：</div></TD>
  <TD><textarea name="AreaEnd" cols="55" id="AreaEnd"><%=rs("AreaEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">交通开始标记：</div></TD>
  <TD><textarea name="TrafficStart" cols="55" id="TrafficStart"><%=rs("TrafficStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">交通结束标记：</div></TD>
  <TD><textarea name="TrafficEnd" cols="55" id="TrafficEnd"><%=rs("TrafficEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">楼层开始标记：</div></TD>
  <TD><textarea name="FloorLevelStart" cols="55" id="FloorLevelStart"><%=rs("FloorLevelStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">楼层结束标记：</div></TD>
  <TD><textarea name="FloorLevelEnd" cols="55" id="FloorLevelEnd"><%=rs("FloorLevelEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">联系人开始标记：</div></TD>
  <TD><textarea name="ContactManStart" cols="55" id="ContactManStart"><%=rs("ContactManStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">联系人结束标记：</div></TD>
  <TD><textarea name="ContactManEnd" cols="55" id="ContactManEnd"><%=rs("ContactManEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">电话开始标记：</div></TD>
  <TD><textarea name="TelStart" cols="55" id="TelStart"><%=rs("TelStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">电话结束标记：</div></TD>
  <TD><textarea name="TelEnd" cols="55" id="TelEnd"><%=rs("TelEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">面积开始标记：</div></TD>
  <TD><textarea name="MianJiStart" cols="55" id="MianJiStart"><%=rs("MianJiStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">面积结束标记：</div></TD>
  <TD><textarea name="MianJiEnd" cols="55" id="MianJiEnd"><%=rs("MianJiEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">户型开始标记：</div></TD>
  <TD><textarea name="HuXingStart" cols="55" id="HuXingStart"><%=rs("HuXingStart")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">户型结束标记：</div></TD>
  <TD><textarea name="HuXingEnd" cols="55" id="HuXingEnd"><%=rs("HuXingEnd")%></textarea></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD><div align="right">页面链接正则：</div></TD>
  <TD><input name="PageRegx" type="text" id="PageRegx" value="<%=rs("PageRegx")%>" size="55">
    <br>
    如http://games.tom.com/2008-05-15/0GB2/33841086_$num$.html</TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD width="34%"><div align="right">页面个数：</div></TD>
  <TD width="66%"><input name="PageNum" type="text" id="PageNum" value="<%=rs("PageNum")%>" size="35"></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD align=right>相对地址转绝对地址：</TD>
  <TD align=right><div align="left">将
    <input name="RelateUrl" type="text" id="RelateUrl" value="<%=rs("RelateUrl")%>">
  替换成
  <input name="AbsoluteUrl" type="text" id="AbsoluteUrl" value="<%=rs("AbsoluteUrl")%>">
  并过滤：
  <input type="text" name="Filters" id="Filters" value="<%=rs("Filters")%>">
  </div></TD>
</TR>
<TR bgcolor="#F5F5F5">
  <TD align=right>采集状态：</TD>
  <TD align=left><input name="Sts" type="radio" id="radio" value="1" <%if(rs("Sts")=1) then response.Write("checked") end if%>>
    正常　
      <input type="radio" name="Sts" id="radio2" value="0" <%if(rs("Sts")=0) then response.Write("checked") end if%>>
      测试</TD>
</TR>
<TR bgcolor="#F5F5F5">
	<TD align=right>&nbsp;	  </TD>
    <TD align=right><div align="left"> 
        <input type=submit name=b1 value="提 交">&nbsp;&nbsp;
        <input type=reset name=b2 value="重 填">       
    </div></TD>
</TR>
</TABLE>
</FORM>
<%
	end if
	rs.close
	set rs=nothing
end Sub
Sub Cartoon_List
	dim BeginTime,i,currentpage,allrec,totalpage,n,p
	BeginTime=Timer
	const recpage=20
	if not isempty(request("page")) and request("page")<>"" then 
		currentpage=Clng(request("page"))
	else
		currentpage=1
	end if
%>
<div align="center"><a href="?act=add">添加二手房采集--&gt;</a></div>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#FF9900">
    <td height="22" colspan="7"><div align="center"><span class="style3">◆ 管理二手房采集 ◆</span></div></td>
  </tr>
  <tr bgcolor="#EEEEEE">
    <td width="7%" height="22"><div align="center">id</div></td>
    <td width="61%"><div align="center">标题</div></td>
    <td width="10%"><div align="center">修改</div></td>
    <td width="9%"><div align="center">删除</div></td>
    <td width="13%"><div align="center">采集</div></td>
  </tr>
  <%
  		set rs=server.createobject("adodb.recordset")
  		rs.open "select count(*) AS co from t_gather_esf",conn,3,1
		allrec=rs(0)
		totalpage=int((allrec+recpage-1)/recpage)
		rs.close
		set rs=nothing
		set rs=server.createobject("adodb.recordset")
		if(currentpage=1) then
			sql="select top "&recpage&" id,Title from t_gather_esf order by id desc"
		else
			sql="select top "&recpage&" id,Title from t_gather_esf where id not in (select top "&(recpage*(currentpage-1))&" id from t_gather_esf order by id desc) order by id desc "
		end if
		rs.open sql,conn,3,1		
		do while not rs.eof		
	%>
  <tr>
    <td height="20" bgcolor="#FFFFFF"><div align="center"><%=rs(0)%></div></td>    
    <td bgcolor="#FFFFFF"><div align="left"><%=rs(1)%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><a href="?act=mod&id=<%=rs(0)%>">修改</a></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><a href="dele.asp?id=<%=rs(0)%>&table=t_gather_esf" onClick="return ConfirmDel()">删除</a></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><a href="esf_gather.asp?id=<%=rs("id")%>">开始采集</a></div></td>
  </tr>
  
  <%
    		rs.movenext
	  		i=i+1
	   		if i>=recpage then 
				exit do
	  		end if
	  loop
	  rs.close
	  set rs=nothing
  %>
  <tr>
    <td height="22" colspan="7" bgcolor="#FFFFFF">
	<div align="center">
	<form name="form1" method="post" action="" style="margin:0 0 0 0">
	<%
	n=currentpage+1
	p=currentpage-1
	if p>0then
		response.write("["&"<a href='?page="&cstr(p)&"'>上一页</a>]&nbsp;&nbsp;&nbsp;")
	else response.write("上一页&nbsp;&nbsp;&nbsp;")
	end if 
	if (n-1)*recpage>=allrec then 
		response.write("下一页" )
	else
		response.Write("["&"<a href='?page="&cstr(n)&"'>下一页</a>]")
	end if
	response.write("&nbsp;共"&allrec&"条&nbsp;")
	response.Write("&nbsp;共"&totalpage&"页&nbsp;")
	response.Write("&nbsp;第"&currentpage&"页&nbsp;")
	%>
          <input type="hidden" name="hid" value="<%=totalpage%>">
&nbsp;&nbsp;跳至
          <input name="page" type="text" size="5" onChange="goto(this.form)" style="border:1px solid #000000;height:18px ">
          页
          <input type="button" name="Button22" value="Go->" style="font-size:12px ;border:1px solid #000000;height:18px ">
        </form></div></td>
  </tr>
</table>
<%=CStr(FormatNumber((Timer-BeginTime)*1000,2))& "毫秒"%>
<%end Sub%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="40"><div align="center"></div></td>
  </tr>
</table>
<script type="text/javascript">
function addParentOption()
{
	var arr = showModalDialog("tree_container.asp", "", "dialogWidth:410px; dialogHeight:420px; status:0");
  	if (arr != null){  
   		document.form1.catalogid.options[0]=new Option(arr[1],arr[0]);
  	}
	
}
</script>
</body>
</html>
<%
call connclose()
%>