[]
վ=txtdown
վַ=http://www.bookdown.com.cn/
=С˵
=GB2312
ʹIE=
ץȡ=1
½ڵַʶ=bookinfo\/(\d+)\.html
ȡбִнű=
=GB2312
POST=
ַ=http://www.bookdown.com.cn/search.asp?action=s&sType=ResName&catalog=&keyword=$key
бʼ=վ</TD>
б=ÿҳ:
б=<A style="[^\"]*?" href="(#ַ,[^\"]*?)"><B>(#,.*?)<\/B>[\s\S]*?<TD style="[^>]*?>(#,.*?)<BR><B>ڣ</B>(#,[^\>]*?) <NOBR>
ҳַ=http://www.bookdown.com.cn/search.asp{1,href=([^>]*?)><font[^>]*?Next Page}

sort=0
{script}
#language pascal

function MyStartDownNew(var content:string;var nosave:boolean):boolean;
var
	html	: string;
	url	: string;
	Matchs	: variant;
begin
	result	:= true;
	nosave	:= true;
	url	:= replace(_nowsource.url, 'http://www.bookdown.com.cn/bookinfo/','');
	url	:= replace(url, 'http://bookdown.com.cn/bookinfo/', '');
	url	:= replace(url, '.html', '');
	url	:= 'http://www.bookdown.com.cn/Download.asp?ID='+url+'&flag=1';
	html	:= Down(url);
	if html<>'' then
	begin
		_RegExp.Pattern	:= ''',''([^'']*?)''';
		Matchs	:= _RegExp.Execute(html);
		url	:= Matchs.Item[0].SubMatches[0];
		//ոļ޷
		url	:= replace(url,' ','%20');
		LG('ļУ'+url);
		Down(url, '', 'GET', '', _data.savedir+GetFileName(url));
	end
	else begin
		LG('ʧܣҲĿļַ');
	end;
end;

begin
end.
{/script}
