news.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<!--#include file="conn.asp"-->
<%
Dim ad01(23)
ad01(0)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>超绝色美女真人套图秀</a>"
ad01(1)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>掌上欲女让你爽</a>"
ad01(2)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>收听|名模自爆潜规则</a>"
ad01(3)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>超绝色美女真人套图秀</a>"
ad01(4)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>让女人尖叫的疯狂视频</a>"
ad01(5)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>免费禁书小说阅读软件</a>"
ad01(6)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>私密独享劲爆仿真女郎</a>"
ad01(7)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>超绝色美女真人套图秀</a>"
ad01(8)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>爽>>舒淇全套写真玉照</a>"
ad01(9)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>情感|新婚前夜的流产</a>"
ad01(10)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>肉麻少女发嗲极品铃声</a>"
ad01(11)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>娱乐|明星床戏的私密</a>"
ad01(12)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>美腿皇后完美曲线组图</a>"
ad01(13)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>刘亦菲火辣身段,组图</a>"
ad01(14)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>美女被强抱全过程游戏</a>"
ad01(15)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>监视器偷拍到美女脱衣</a>"
ad01(16)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>漂亮小妹de诱惑性视频</a>"
ad01(17)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>如何让激情游戏更有趣</a>"
ad01(18)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>小说|与平面模特同居</a>"
ad01(19)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>明星|中戏的十大校花</a>"
ad01(20)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>美丽天使超凡脱俗</a>"
ad01(21)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>娱乐|明星床戏的私密</a>"
ad01(22)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>美图大富翁学妹骰子乐</a>"
ad01(23)="<a href='http://wap.wapstart.cn/10.wap?from=sz.3g9.cn'>[美女MV]禁播高清视频</a>"

Randomize
I=Int(Rnd()*24)
ad=ad01(i)
Response.Write(ad)
%><br/>
性:<% If Time < #06:00:00# And Time >= #04:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=123">为爱人的事业我出卖了自己的身体</a><br/>
<% ElseIf Time < #07:00:00# And Time >= #06:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=129">初恋处女女友和现任床上高手女友</a><br/>

<% ElseIf Time < #08:00:00# And Time >= #07:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=133">那一年，我看到了爸爸和赤裸的姐姐</a><br/>

<% ElseIf Time < #09:00:00# And Time >= #08:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=859">我和好“哥们儿”发生了性关系</a><br/>

<a href="http://33333g.cn/list.asp?id=721">做妓女的姐姐和我</a><br/>
<% ElseIf Time < #10:00:00# And Time >= #09:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=855">老公被着我在车里与别人偷情</a><br/>

<% ElseIf Time < #11:00:00# And Time >= #10:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=853">女大学生经历的六年性交易</a><br/>

<% ElseIf Time < #12:00:00# And Time >= #11:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=852">美女去买避孕套的全程记录</a><br/>


欲望:<% If Time < #06:00:00# And Time >= #04:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">14情人节:她在不在你身边?</a><br/>
<% ElseIf Time < #07:00:00# And Time >= #06:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">诺瓦克2.5秒3分绝杀火箭8连胜</a><br/>
<% ElseIf Time < #08:00:00# And Time >= #07:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">丈夫一家诬陷我生理有问题</a><br/>
<% ElseIf Time < #09:00:00# And Time >= #08:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">家门外有个如梦魇般守望者</a><br/>
<% ElseIf Time < #10:00:00# And Time >= #09:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">女友曾经怀过我好友的孩子</a><br/>
<% ElseIf Time < #11:00:00# And Time >= #10:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">住在我隔壁储藏室的小夫妻</a><br/>
<% ElseIf Time < #12:00:00# And Time >= #11:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">情人节:关于浪漫N种可能</a><br/>
<% ElseIf Time < #13:00:00# And Time >= #12:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">超漂亮双胞胎姐妹海边自拍</a><br/>
<% ElseIf Time < #14:00:00# And Time >= #13:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">气!男友对我清白无端质疑</a><br/>
<% ElseIf Time < #15:00:00# And Time >= #14:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">爱上眼里只有钱的怪研究生</a><br/>
<% ElseIf Time < #16:00:00# And Time >= #15:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">结婚10年丈夫的女人找上门</a><br/>
<% ElseIf Time < #17:00:00# And Time >= #16:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">我有家室仍然对她发动攻势</a><br/>
<% ElseIf Time < #18:00:00# And Time >= #17:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">丑丈夫和红颜知己热乎上了</a><br/>
<% ElseIf Time < #19:00:00# And Time >= #18:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">如果牵手了就不要随便分手</a><br/>
<% ElseIf Time < #20:00:00# And Time >= #19:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">已婚的男同事害我有孕在身</a><br/>
<% ElseIf Time < #21:00:00# And Time >= #20:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">测试:你会是08单飘达人吗</a><br/>
<% ElseIf Time < #22:00:00# And Time >= #21:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">禽兽保安竟然这样伤害女孩</a><br/>
<% ElseIf Time < #23:00:00# And Time >= #22:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">特别关注:都市私密自拍族</a><br/>
<% ElseIf Time < #00:00:00# And Time >= #23:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">经典:用灵魂守候爱的承诺</a><br/>
<% ElseIf Time < #01:00:00# And Time >= #00:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">你知道爱情的最高境界么?</a><br/>
<% ElseIf Time < #02:00:00# And Time >= #01:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">如果牵手了就不要随便分手</a><br/>
<% ElseIf Time < #03:00:00# And Time >= #02:00:00# Then %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">男人的崩溃之年为何是33岁</a><br/>
<% Else %>
<a href="http://wap.wapstart.cn/10.wap?from=sz.3g9.cn">单身女人们的十种美丽行为</a><br/>
<% End If %><br/>看不到内容请>><anchor><refresh/>刷新</anchor><br/>


<% 
'============================================================
' 更新: 2007-12-5
' 主页: http://wap.twapp.cn
' 电邮: [e-mail]
' Q Q : QQ:531233814
' 版权: 燃点真情 All Rights Reserved.
'============================================================
 dim pid,urll,page
pid=request.QueryString("pid")
urll=request.QueryString("url")
page=request.QueryString("page")
ipp=request.QueryString("ipp")
content=request.form("content")
channel=request.form("channel")
%>
<% 
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://kong.net/wm/proxy/news?10819&pid="&pid&"&url="&urll&"&content="&content&"&channel="&channel&""
wstr=getHTTPPage(Url)
start=Instr(wstr,"<p")
over=Instr(wstr,"<a href=""http://3kwap.ddbar.com"">返回新狐</a>")
body=mid(wstr,start,over-start)
body= Splits(body)
body= Splits2(body)
'------------------------------------------------
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","")
body = replace(body,"</p>","")
body = replace(body,"<p>","")
body = replace(body,"<a href=""news.jsp?","<a href=""news.asp?")
body = replace(body,"<img src=""http://kong.net/alarm/c1.jsp?id=23176&amp;amp;channelId=news&amp;amp;userType=free"" alt=""c1""/>","")
body = replace(body,"go.kong.net/q?to=3000SO005J2","wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"kong.net/blog/wap/wap10/todaytj.jsp?bly=10","wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"ko.cn/p/ps/subjectdetail.kz?subjectId=195&amp;bly=7","wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"to.kong.net/Opera/index_w.jsp?cid=2002&amp;backURL=http://kong.net","wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"ko.cn/b/wap/wap10/bbs/ThreadDetail.jsp?threadId=38938372196042&amp;boardId=Ciam-danshen&amp;c_f=wangmeng","wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"go.kong.net/q?to=3000SO005J2","wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"ko.cn/b/wap/wap10/bbs/ThreadDetail.jsp?threadId=38938372196042&amp;boardId=Ciam-danshen&amp;c_f=wangmeng","wap.wapstart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"ko.cn/b/wap/wap10/bbs/ThreadDetail.jsp?threadId=38938372196042&boardId=Ciam-danshen&c_f=wangmeng","wap.wapsart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"ko.cn/c/index.kz?from=wangmeng","wap.wapsart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"/blog/wap/wap10/todaytj.jsp?bly=10","wap.wapsart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"ko.cn/b/wap/wap10/bbs/ThreadDetail.jsp?threadId=39347046084329&amp;boardId=Ciam-TanQSA&amp;c_f=wangmeng","wap.wapsart.cn/11.wap?from=sz.3g9.cn")
body = replace(body,"","")
Function Splits(StrHTML)
Dim Re,Str
	Str = StrHTML
	Set Re = New Regexp
	Re.IgnoreCase = True
	Re.Global = True
	Re.Pattern = "<input*[\s\S]+?>[\s\S]+?</go></anchor>\s\W"
	Str = Re.Replace(Str, "")

Splits = Str
Set Re = Nothing
End Function

Function Splits2(StrHTML2)
Dim Re,Str
	Str = StrHTML2
	Set Re = New Regexp
	Re.IgnoreCase = True
	Re.Global = True
	Re.Pattern = "<a.+?评论*[\s\S]+?</a>\W<br/>"
	Str = Re.Replace(Str, "")

Splits2 = Str
Set Re = Nothing
End Function

'--------------------------------------------------
Response.write body
%>
<br/>性:<% If Time < #06:00:00# And Time >= #04:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=123">为爱人的事业我出卖了自己的身体</a><br/>
<% ElseIf Time < #07:00:00# And Time >= #06:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=129">初恋处女女友和现任床上高手女友</a><br/>

<% ElseIf Time < #08:00:00# And Time >= #07:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=133">那一年，我看到了爸爸和赤裸的姐姐</a><br/>

<% ElseIf Time < #09:00:00# And Time >= #08:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=859">我和好“哥们儿”发生了性关系</a><br/>

<a href="http://33333g.cn/list.asp?id=721">做妓女的姐姐和我</a><br/>
<% ElseIf Time < #10:00:00# And Time >= #09:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=855">老公被着我在车里与别人偷情</a><br/>

<% ElseIf Time < #11:00:00# And Time >= #10:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=853">女大学生经历的六年性交易</a><br/>

<% ElseIf Time < #12:00:00# And Time >= #11:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=852">美女去买避孕套的全程记录</a><br/>

<% ElseIf Time < #13:00:00# And Time >= #12:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=851">男上司的侵犯使我拒绝又渴望</a><br/>