<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <% '============================================================ ' 更新: 2007-10-15 ' 主页: http://wap.nowtx.cn ' 电邮: xivn@163.com ' Q Q : QQ:531233814 ' 版权: 燃点真情All Rights Reserved. '============================================================ %> <% Response.ContentType = "text/vnd.wap.wml" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" %>

<% dim cid cid=request.QueryString("cid") %> <% Dim Url,Html,start,over,body,wap,wstr,str Url="http://wap.moezu.com/cp/info.asp?cid="&cid&"&site=" wstr=getHTTPPage(url) start=Instr(wstr,"

") over=Instr(wstr,"返回彩票查询
") body=mid(wstr,start,over-start) '------------------------------------------------ body = replace(body,"

","")'这是把

替换成空 body = replace(body,"

","") body = replace(body,"

","") Response.write body %> 返回彩票查询 <%response.write "
网站首页
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "

" & Chr(13) %>