<!-- #include file="../../inc.asp" -->
<%Call head()
sid=request.querystring ("sid")
saytk=request.querystring ("saytk")

On Error Resume Next
Server.ScriptTimeOut=9999999

dim tt1,keyword,page,glsb,w,w2,mo2,mob,ii
tt1=timer()
search=escape(request("search"))
post=clng(request("post"))
glsb=request("glsb")
w=request("w")
w=lcase(Replace(w,"@@","&"))
if search<>"" then w=w&"&search="&search
if post>0 then w=w&"&post="&post
if w="" then w="/index.php?pnum=500&uid=&ups=0"
if left(w,1)<>"/" then w="/"&w
mo2=split(w,".")
mob=lcase(mo2(ubound(mo2)))
ii="jpg|gif|bmp|jpeg|peg|png|jpge|mid|midi|mmf|amr|img|adp|m4a|mp3|aac|wav|wma|ogg|avi|mp4|3gp|wmv|rm|rmvb|dat|mpg|asf|umd|txt|chm|brm|prc|pdb|mdx|trc|sis|sisx|jar|jad|cab|mpkg|hme|ski|thm|uiq|nth|utz|mtf|sdt|tsk|nec|nes|gba|gb|gbc|gba|fba|md|sfc|smc|lrc|nol|rar|zip|7z|emz|pdf|pdg"
if instr(ii,mob)>0 then
response.redirect "http://wx139.com"&w
response.end
end if

dim wapurl,wapurl2,wapurl3,wapurls,xk
xk=request.QueryString("xk")
if xk="" then xk="wxjoy.cn"
wapurl="http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")
wapurl2=wapurl
w2="w="&Replace(w,"&","@@")
wapurls="glsb="&glsb&"!"&w2
if(len(trim(wapurls))>0) then wapurl=wapurl & "?"& wapurls

Function getHTTPPage(Path)
 t = GetBody(Path)
End function

function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.SetRequestHeader "User-Agent", "NokiaN70-1/2.0539.1.2 Series60/2.8 Profile/MIDP-2.0 Configuration/CLDC-1.1 UCWEB/5.1"
Http.SetRequestHeader "X-FORWARDED-FOR", "221.131.7.255"
Http.send()
if Http.readystate<>4 then 
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")
set http=nothing
if err.number<>0 then err.Clear 
end function
Function bytestobstr(body,CSET)
DIM OBJSTREAM
SET OBJSTREAM = Server.CreateObject("adodb.stream")
objstream.type = 1
objstream.Mode = 3
objstream.Open 
objstream.Write body
objstream.Position = 0
objstream.type = 2
objstream.Charset=Cset
bytesTobstr = objstream.readText
objstream.close
set objstream=nothing
end function



dim content,numstart,numstart1,numstarts
content=getHTTPPage("http://wx139.com"&w)

dim myCache,content2
set myCache=new cache
myCache.name=""& w &"" '定义缓存名称
if myCache.valid then '如果缓存有效
content2=myCache.value '读取缓存内容
else
content2 = getHTTPPage() '大量内容，可以是非常耗时大量数据库查询记录集
myCache.add content2,dateadd("n",1440,now) '将内容赋值给缓存，并设置缓存有效期是当前时间＋1440分钟
end if 
set myCache=nothing '释放对象
body=content2  


numstart=InStr(content,"<card")
numstart1=InStr(content,"</card>")
numstarts=numstart1-numstart
content=lcase(MID(content,numstart,numstarts))
content=replace(content,Chr(13),"")
content=replace(content,Chr(10),"")
content=replace(content,"""","'")
content=replace(content,"&amp;","@@")
content=replace(content,"<card>","")
content=replace(content,"</card>","")
content=replace(content,"[","")
content=replace(content,"]","◎")
content=replace(content,"http://wap.mq520.cn","")
content=replace(content,"域名:mq520.cn<br/>备用:wx139.com<br/><br/>","")
content=replace(content,"wx139.com",""&Request.ServerVariables("Http_Host")&"")
content=replace(content,"163370074","")
 content=replace(content,"草丛小说-电子书下载-wx139.com","无线书城")
content=replace(content,"草丛小说","无线书城")
content=replace(content,"草丛极品小说-mq520.cn","无线书城")
content=replace(content,"电子书下载-wx139.com","")

	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.pattern="<img src='wx139.jpg"
	content= re.Replace(content,"<img src='book.png")
	re.pattern="'/><br/>[\s\S]+?>论坛</a>\."
	content= re.Replace(content,"'/><br/>")
        re.pattern=">新书</a>[\s\S]+?>书评</a>\."
	content= re.Replace(content,">新书</a>.")
        re.pattern=">排行</a>[\s\S]+?【正在更新"
	content= re.Replace(content,">排行</a><br/>【正在更新")
        re.pattern="<a href='http://dzs.mq520.cn[\s\S]+?</p>"
	content= re.Replace(content,"")
         re.pattern="<a href='http://mq520.cn/g2.php[\s\S]+?</a><br />"
	content= re.Replace(content,"")
re.pattern="<a href='usercard[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="<a href='http://mq520.cn/g1[\s\S]+?<br />"
	content= re.Replace(content,"")
'Response.Write(content)
re.pattern="<a href='http://mq520.cn/g2[\s\S]+?</a><br/>"
	content= re.Replace(content,"")

re.pattern="<a href='http://mq520.cn/g1[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="<a href='vote.php[\s\S]+?</a><br />"
	content= re.Replace(content,"")
re.pattern=">阅读此书</a>[\s\S]+?>发送</a><br/>"
	content= re.Replace(content,">点击阅读此书</a><br/>")
re.pattern="<a href='search.php[\s\S]+?</p>"
	content= re.Replace(content,"")

re.pattern="<a href='searchlist.php"
	content= re.Replace(content,"<a href='index.php")
re.pattern="<a href='bookcase.php[\s\S]+?>存书签</a><br/>"
	content= re.Replace(content,"")

re.pattern="<a href='comment.php[\s\S]+?>存书签</a>\|"
	content= re.Replace(content,"")
re.pattern="<a href='pagesize.php[\s\S]+?>设置</a>\|"
	content= re.Replace(content,"")
re.pattern="彩版:[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="回首页]</a><br/>[\s\S]+?</p>"
	content= re.Replace(content,"回首页]</a><br/>")
re.pattern="<a href='http://mq520.cn/g1[\s\S]+?</a><br/>"
	content= re.Replace(content,"")

re.pattern="<a href='http://mq520.cn/g1[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="<a href='/you/[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="返回草丛小说]</a><br/>[\s\S]+?</p>"
	content= re.Replace(content,"返回无线书城]</a><br/>")

re.pattern="<a href='jubao.php[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="<p>[\s\S]+?>论坛</a>\."
	content= re.Replace(content,"<p><img src='book.png' alt='无线书城'/><br/>")
re.pattern="<a href='http://mq520.cn/you[\s\S]+?</a><br/>"
          content= re.Replace(content,"")
re.pattern="<a href='http://wx139.com/sm.asp[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="<a href='http://mq520.cn/you[\s\S]+?</a><br/>"
	content= re.Replace(content,"")
re.pattern="<a href='http://wx139.com[\s\S]+?</a><br/>"
	content= re.Replace(content,"")

re.pattern="正在更新】[\s\S]+?>更多..</a><br/>"
	content= re.Replace(content,"正在更新】<br/>")
re.pattern="新域名:wx139.com<br/><br/>"
	content= re.Replace(content,"")
re.pattern="<a href='http://s.mq520.cn/chapter.php"
	content= re.Replace(content,"<a href='/chapter.php")
re.pattern="</p>"
	content= re.Replace(content,"")
	re.pattern="href='([^h])"
	content= re.Replace(content,"href='index.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;glsb="&glsb&"&amp;w=$1")
	set re=Nothing

response.write content

if ad_ok=1 then response.write abc(R) & "<br/>" & abc(RR) & "<br/>"
response.write "<a href='index.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回无线书城</a><br/>"
response.Write "------<br/>"

response.write "<a href='/?sid="&sid&"&amp;saytk="&saytk&"'>返回网站首页</a><br/>"
dim times,weeks
times=month(date)&"月"&day(date)&"日"

weeks=WeekDayName(DatePart("w",Now))
Response.write times & "." & weeks & "." & FormatDateTime(Now,vbshortTime) & "<br/>"
Call head1()                                                            
%>                                     