book.asp

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

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

 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/book?44694&pid="&pid&"&url="&urll&"&content="&content&"&channel="&channel&""
wstr=getHTTPPage(Url)
start=Instr(wstr,"<p")
over=Instr(wstr,"<img src=""http://kong.net/alarm/c1.jsp?id=44694&amp;amp;channelId=book&amp;amp;userType=pay&amp;amp;agent=-7"" alt=""c1""/>")
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,"book.jsp?","book.asp?")
body = replace(body,"<img src=""http://kong.net/alarm/c1.jsp?id=44694&amp;amp;channelId=book&amp;amp;userType=free"" alt=""c1""/>","")
body = replace(body,"[奖]淘宝园K币K点倾情赠送","")
body = replace(body,"用空中opera流量省一半","")
body = replace(body,"解密李宇春假献血炒作黑幕","")
body = replace(body,"空中opera奥运活动送充值卡","")
body = replace(body,"慎入!美眉腿间风光无限(图)","")
body = replace(body,"两年的裸聊让我陷入艳照门","")
body = replace(body,"[奖]儿童节扎气球百分百有奖","")
body = replace(body,"男人为何不能接受女人自慰","")
body = replace(body,"蔡依琳热舞露内裤清晰组图","")
body = replace(body,"告诉你日进斗金的顶级秘笈","")
body = replace(body,"空中Opera省钱省流量","")
body = replace(body,"[图]偷拍张柏芝糜烂夜生活","")
body = replace(body,"[奖]淘宝园K币K点倾情赠送","")
body = replace(body,"用空中opera流量省一半","")
body = replace(body,"解密李宇春假献血炒作黑幕","")
body = replace(body,"空中opera奥运活动送充值卡","")
body = replace(body,"慎入!美眉腿间风光无限(图)","")
body = replace(body,"两年的裸聊让我陷入艳照门","")
body = replace(body,"[奖]儿童节扎气球百分百有奖","")
body = replace(body,"男人为何不能接受女人自慰","")
body = replace(body,"空中Opera省钱省流量","")
body = replace(body,"蔡依琳热舞露内裤清晰组图","")
body = replace(body,"爆:午夜激情男女无禁忌乐园","")
body = replace(body,"[图]偷拍张柏芝糜烂夜生活","")
body = replace(body,"告诉你日进斗金的顶级秘笈","")
body = replace(body,"淘宝园免费赠送笔记本大奖","")
body = replace(body,"套图:我千依百顺女友,有沟","")
body = replace(body,"心动笔记本电脑大奖本周揭晓","")
body = replace(body,"午夜激情男女无禁忌火爆热聊","")
body = replace(body,"[套图]G罩杯美女爆点晒胸","")
body = replace(body,"性无能男人讲述虐女实录","")
body = replace(body,"清凉一夏商城消暑新品上架","")
body = replace(body,"相识三天的女友和我去开房","")
body = replace(body,"[组图]90后豪乳MM激情自拍","")
body = replace(body,"挖挖宝每天30万大奖完全免费","")
body = replace(body,"36G熟女等你电话到高潮","")
body = replace(body,"美女同事强行逼我陪她回家","")
body = replace(body,"女友因寂寞出轨，原谅她吗","")
body = replace(body,"[爆料]和空姐同居的痛苦","")
body = replace(body,"爽书禁书让你看到high","")
body = replace(body,"满18纯情少女闺房秘语","")
body = replace(body,"相亲女孩帮我拉上裤子拉链","")
body = replace(body,"和性感孤独熟妇激聊婚外情","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
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
%>

<!--#include file="footer.asp"-->

</p>
</card>
</wml>