[]
վ=
վַ=http://novel.hongxiu.com/
=С˵
=GB2312
ʹ÷Cookie=
ҳַʶ=/(\d+)\/?$
Ŀ¼ַʶ=list\.shtml
½ڵַʶ=(\w+)/([\w\-]+)/(\d+)\.shtml$$$$$view\.asp\?bid$$$$$vipread
С˵Ϣ=htmltimu" title="(#,.*?)">$$$$$<td b.*?word;">(#,[\s\S]*?)</td>$$$$$htmlzuozhe" target="_blank">(#,.*?)</a>
ȡбִнű=
ץȡ=1
ʹIE=
ݽȡʼ1=contentbox">
ݽȡʼ2=</h2><p>
ݽȡ1=<div id="htmlxiangguan
Ҫ滻ַ=(reg)<font.*?>.*?</font>$$$$$#space$$$$$(reg)<img[^>]*?wd\/(\d+)\.gif\' />$$$$$#space$1._$$$$$(reg)^\/view$$$$$http://novel.hongxiu.com/view$$$$$<img class='ci' src='http://novel.hongxiu.com/commpic/$$$$$#space$$$$$' border='0px'/>$$$$$#space$$$$$le.gif$$$$$$$$$$shi.gif$$$$$$$$$$juhao.gif$$$$$$$$$$de.gif$$$$$$$$$$lai.gif$$$$$$$$$$ren.gif$$$$$$$$$$gong.gif$$$$$$$$$$nvta.gif$$$$$$$$$$ta.gif$$$$$$$$$$zi.gif$$$$$$$$$$hao.gif$$$$$$$$$$shuo.gif$$$$$˵$$$$$xiao.gif$$$$$С$$$$$di.gif$$$$$$$$$$qu.gif$$$$$ȥ$$$$$10._$$$$$$$$$$11._$$$$$$$$$$12._$$$$$$$$$$13._$$$$$$$$$$14._$$$$$$$$$$15._$$$$$$$$$$16._$$$$$$$$$$17._$$$$$$$$$$18._$$$$$$$$$$19._$$$$$$$$$$20._$$$$$$$$$$21._$$$$$ƨ$$$$$22._$$$$$˱$$$$$23._$$$$$$$$$$24._$$$$$$$$$$25._$$$$$$$$$$26._$$$$$$$$$$27._$$$$$$$$$$28._$$$$$$$$$$29._$$$$$$$$$$30._$$$$$$$$$$31._$$$$$$$$$$32._$$$$$$$$$$33._$$$$$˱$$$$$34._$$$$$$$$$$35._$$$$$$$$$$36._$$$$$$$$$$37._$$$$$$$$$$38._$$$$$$$$$$39._$$$$$$$$$$40._$$$$$$$$$$41._$$$$$$$$$$42._$$$$$$$$$$43._$$$$$$$$$$44._$$$$$ͦ$$$$$45._$$$$$$$$$$46._$$$$$$$$$$1._$$$$$$$$$$2._$$$$$$$$$$3._$$$$$$$$$$4._$$$$$ɧ$$$$$5._$$$$$Ѩ$$$$$6._$$$$$$$$$$7._$$$$$$$$$$8._$$$$$$$$$$9._$$$$$
ҳַ={1,href="(\d+_\d+\.aspx)" id="htmlxiazhang}
ַ=http://so.hongxiu.com/cgi-bin/l?query=$key&iftitle=1
ַ_=http://www.hongxiu.com/novel/s/a11_1.html
ַ_=http://www.hongxiu.com/novel/s/11_1.html
ַ_=http://www.hongxiu.com/novel/top/rqwb11.html
=GB2312
POST=
бʼ=
б=ƪ$$$$$</body>
б=<h1><a href="(#ַ,[^"]*?)" target="_blank">(#,[^"]*?)</a>[\s\S]*?ߣ<[^>]*?>(#,[^"]*?)</a> ʱ䣺(#ʱ,[^"]*?)</span></td>[\s\S]*?overflow:hidden;">(#,[\s\S]*?)</div>
ҳַ=http://so.hongxiu.com/cgi-bin/l{1,\d+\]</b>&nbsp;<a href="([^"]*?)">}
ҳ=0
sort=997
{script}
#language pascal
//
function uc(str:string):string;
begin
    str := replace(str,'$','%u');
    str := replace(str,')','%');
    str := replace(str,'@', 'b');
    //str := replace(str,'_','0');
    result := unescape(str);
end;
function dojie(content:string):string;
var
	jiepos : integer;
	jiestr : string;
begin
	jiepos := pos('<script language=''javascript''>$(''jsnr'').innerHTML=''', content);
	if jiepos=0 then
	begin
		jiepos := pos('<script language=''javascript''>$(''jsnr'').innerHTML=', content);
		if jiepos=0 then exit;
		jiestr := getmidstr(content, '<script language=''javascript''>$(''jsnr'').innerHTML=', ';</script>');
		jiestr := regreplace(jiestr, '\+?uc\(''(\S+)''\)\+''<br/>''\s*?','<br>$1');
		content:= uc(jiestr);
	end
	else begin
		content:= copy(content, 0, jiepos-1);
		jiestr := getmidstr(content, '<script language=''javascript''>$(''jsnr'').innerHTML=''', ';</script>');
		jiestr := uc(regreplace(jiestr, '\+?''?<p>''\+uc\(''(\S+)''\)\+''</p>''\s+?','<br>$1'));
		content:= content+jiestr;
	end;
	result := content;
end;
//滻ҳڲص
function MyBeforeGetChapter(var content:string):boolean;
var
	i,j,k	: integer;
	alen,len: integer;
	allids	: array of integer;
	alltit	: array of string;
	allv	: array of integer;
	tmpurl	: string;
begin
	result	:= false;//֪ͨȥ½
	//滻ַ
	content := regreplace(content, '<a(.*?)>(ҳ|ղ)</a>', '');
	content := regreplace(content, '<font class=''(.*?)''>hongxiu.*?<\/font></a>', '</a>');
	content := replace(content, ' ', ' ');
	//ȡ
	content := getmidstr(content, 'class="insert_list">', '<div id="footer">');
	_RegExp.pattern := '\b(\d+)\.shtml.*?>(.*?)<\/a';
	Matchs	:= _RegExp.Execute(content);
	alen	:= Matchs.count-1;
	len	:= 0;
	if alen>0 then
	begin
		//½ID
		for i:=0 to alen do
		begin
			//ID
			tmpurl 		:= Matchs.Item[i].SubMatches[0];
			setLength(allids, len+1);
			setLength(alltit, len+1);
			setLength(allv, len+1);
			allv[len]	:= 0;
			allids[len]	:= strtoint(tmpurl);
			alltit[len]	:= Matchs.Item[i].SubMatches[1];
			inc(len);
		end;
		//VIP½ID
		_RegExp.pattern := 'vipread\d+/(\d+)\.aspx[^>]*?>(.*?)<\/a';
		Matchs	:= _RegExp.Execute(content);
		for i:=0 to Matchs.count-1 do
		begin
			//ID
			tmpurl 		:= Matchs.Item[i].SubMatches[0];
			setLength(allids, len+1);
			setLength(alltit, len+1);
			setLength(allv, len+1);
			allv[len]	:= 1;
			allids[len]	:= strtoint(tmpurl);
			alltit[len]	:= Matchs.Item[i].SubMatches[1];
			inc(len);
		end;
		
		//ID
		for i := len-2 downto 0 do
		begin
			for j := 0 to i do
			begin
				if allids[j]>allids[j+1] then
				begin
					//ID
					k		:= allids[j];
					allids[j]	:= allids[j+1];
					allids[j+1] 	:= k;
					//v
					k		:= allv[j];
					allv[j]		:= allv[j+1];
					allv[j+1]	:= k;
					//
					tmpurl		:= alltit[j];
					alltit[j]	:= alltit[j+1];
					alltit[j+1]	:= tmpurl;
				end;
			end;
		end;
		
		//HTMLĴ
		tmpurl		:= RegReplace(_DATA.url, '^\S+/(\d+)/*(list\.shtml)?', '$1');
		content		:= '';
		for i := 0 to len-1 do
		begin
			if allv[i] = 0 then
				content := content + '<a href="http://novel.hongxiu.com/a/'+tmpurl+'/'+inttostr(allids[i])+'.shtml">'+alltit[i]+'</a>'
			else
				content := content + '<a href="http://novel.hongxiu.com/vipread'+tmpurl+'/'+inttostr(allids[i])+'.aspx">'+alltit[i]+'</a>';
		end;
	end;
end;
procedure MybeforeSplitContent(var content:string;nowurl:string;repeatindex:integer);
var purl,s : string;
jiepos	: integer;
jiestr,tmp: string;
begin
	//ȡַ
	purl	:= getmidstr(content, 'src=''/viewwriting.aspx', ''' name=''test''');
	if purl<>'' then
	begin
		//ʵַ
		purl	:= F('վַ')+'viewwriting.aspx'+purl;
		LG(_Sources(_SourceIndex).name+' צV½:'+purl);
		ClearDownCache;
		purl	:= down(purl, 'utf-8');
		if pos('ѡ½', purl)>0 then
		begin
			alert('CookieѾʧЧŶͣץȡɣ');
			stop;
		end
		else begin
			s	:= getmidstr(purl, 'content_box">', '</body>');
			if s<>'' then
			begin
				content := s;
				content := F('ݽȡʼ1')+dojie(s)+F('ݽȡ1');//Ųʾʧ
			end;
		end;
	end
	else begin//
		s	:= getmidstr(content, 'contentbox">', '</body>');
		if s = '' then s := getmidstr(content, 'content_box">', '</body>');
		jiepos := pos('<script language=''javascript''>$(''jsnr'').innerHTML=''', s);
		//ҳַ
		if _version<=2100 then 
			nextstr:= RegMatch('(<a[^>]*?href="(\d+_\d+\.aspx)" id="htmlxiazhang"[^>]*?>)', content, 0)
		else
			nextstr:= RegMatch(content,'(<a[^>]*?href="(\d+_\d+\.aspx)" id="htmlxiazhang"[^>]*?>)',  0);
		if jiepos=0 then exit;
		content := s;
		tmp:= copy(content, 0, jiepos-1);
		jiestr := getmidstr(content, '<script language=''javascript''>$(''jsnr'').innerHTML=''', ';</script>');
		jiestr := regreplace(jiestr, '\+?''?<p>''\+uc\(''(\S+)''\)\+''</p>''\s+?','<br>$1');
		
		jiestr := uc(jiestr);
		content:= F('ݽȡʼ1')+tmp+jiestr+F('ݽȡ1')+nextstr;
	end;
end;

begin
end.
{/script}