[]
վ=u88
վַ=http://www.u88.cn/
=С˵
=GB2312
ʹIE=
ݽȡʼ1=<TITLE>
ݽȡ1=</TITLE
ݽȡʼ2=<title>
ݽȡ2=</title
ץȡ=1
ȡбִнű=
=GB2312
POST=
½ڵַʶ=/wyp/
ҳ=0
sort=10

{script}
#language pascal

procedure MybeforeSplitContent(var content:string;nowurl:string;repeatindex:integer);
var posturl,postpra,uname:string;
begin
	postpra	:= 'name=ϰ&phone=ҵĵ绰&mobile=&address=ҵĵַ&zip=&email=&memo=վ˺ܶĿ.ڵʵʽ.ֹ˾վȽʺ.ϸҼ,Ҹ˽һ!лл';
	uname	:= copy(_NowSource.url, pos('wyp/', lowercase(_NowSource.url))+4, 100);
	uname	:= replace(uname, '.htm', '');
	if(uname<>'')then
	begin
		posturl:='http://www.u88.cn/MytpFile/MyAdWeb/AdWebGbookSave.Asp?User_Name='+uname;
		LG('ʼΪύu88ݣ'+posturl);
		uname:=Down(posturl,'','POST',postpra);
		if(pos('gbookok', uname)>0) then LG('ύu88ݳɹ!')
		else LG('ύu88ʧ!')
	end;
end;

begin
end.
{/script}
