<%
dim typeId,userId,pageNo
act=request.QueryString("act")
pid=request.QueryString("pid")
typee=request.QueryString("type")
num=request.QueryString("num")
if num="" then num="1"
flag=request.QueryString("flag")
pg=request.QueryString("pg")
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://wap7.mozone.cn/novel/downdetail.php?type="&typee&"&num="&num&"&act="&act&"&pg="&pg&"&pid="&pid&"&flag="&flag&"&s_id=0"
wstr=getHTTPPage(url)
start=Instr(wstr,"","")
body = replace(body,"
","")
body = replace(body,"
","")
body = replace(body,"","")
body = replace(body,".php",".asp")
body = replace(body,"
","")
body = replace(body,"
","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"""left"">","")
body = replace(body,"
网站首页