<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <% Response.ContentType="text/vnd.wap.wml" %> <% cid=request("cid") s=request("s") page=request("page") cf="http://qq01.cn/joke/list.asp?cid="&cid&"&"&page&"" %> <% Dim Url,Html,start,over,body,wap,wstr,str Url=""&cf&"" wstr=getHTTPPage(url) start=Instr(wstr,"") over=Instr(wstr,"

") body=mid(wstr,start,over-start) '------------------------------------------------- body = replace(body,"wap.QQ01.com","") '-------------------------------------------------- %> <% Response.write body %>