<%
dim typeId,userId,pageNo
act=request.QueryString("act")
condition=request.QueryString("condition")
if condition="" then condition="1"
pg=request.QueryString("pg")
pid=request.QueryString("pid")
noform=request.QueryString("noform")
if noform="" then noform="1"
bk_category=request.QueryString("bk_category")
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://wap7.mozone.cn/novel/search.php?act="&act&"&pg="&pg&"&pid="&pid&"&bk_category="&bk_category&"&condition="&condition&"&noform="&noform&"&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,"""left"">","")
body = replace(body,"
","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
body = replace(body,"","")
'---替换结束---
Response.write bodyy+body'输出结果
%>
书签:cxntx.cn
书城首页
网站首页