index.asp

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

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

狂:<% 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 %>


<% 

 dim categoryId,enid,p
categoryId=request.QueryString("categoryId")
p=request.QueryString("p")
enid=request.QueryString("enid")
if enid="" then enid="1"
if p="" then p="1"
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://kong.net/wm/proxy/news?10819"
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 = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","")
body = replace(body,"</p>","")
body = replace(body,"【搜索】<br/>","")
body = replace(body,"【】","")
body = replace(body,"news.jsp?","news.asp?")
body = replace(body,"<img src=""http://kong.net/alarm/c1.jsp?id=23176&amp;amp;channelId=book&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,"","")
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]+?</anchor>"
	Str = Re.Replace(Str, "")

Splits = 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/>

<% ElseIf Time < #14:00:00# And Time >= #13:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=850">女友的嫂子和我有过一夜情</a><br/>

<% ElseIf Time < #15:00:00# And Time >= #14:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=849">与同性恋老公的非正常婚姻生活</a><br/>

<% ElseIf Time < #16:00:00# And Time >= #15:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=847">风之爱情故事</a><br/>

<% ElseIf Time < #17:00:00# And Time >= #16:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=816">世界真小！新主管竟然是我的一夜情人</a><br/>

<% ElseIf Time < #18:00:00# And Time >= #17:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=786">校花高中献初夜婚后会旧情人寻激情</a><br/>

<% ElseIf Time < #19:00:00# And Time >= #18:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=849">与同性恋老公的非正常婚姻生活</a><br/>

<% ElseIf Time < #20:00:00# And Time >= #19:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=810">错位的爱</a><br/>

<% ElseIf Time < #21:00:00# And Time >= #20:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=809">异性合租发生的浪漫故事</a><br/>

<% ElseIf Time < #22:00:00# And Time >= #21:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=790">她和叔叔之间的肉体交易</a><br/>

<% ElseIf Time < #23:00:00# And Time >= #22:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=788">非处女的她，用身体给我上了一堂深刻的爱情</a><br/>

<% ElseIf Time < #00:00:00# And Time >= #23:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=787">实录 和异国情人浪漫销魂故事</a><br/>

<% ElseIf Time < #01:00:00# And Time >= #00:00:00# Then %>
<a href="http://33333g.cn/list.asp?id=761">来生还你一辈子</a><br/>