<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <% Response.ContentType = "text/vnd.wap.wml" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" %>

<% Dim Url,Html,start,over,body,wap,wstr,str Url="http://wap.moezu.com/hl.asp" wstr=getHTTPPage(url) start=Instr(wstr,"

") over=Instr(wstr,"

") body=mid(wstr,start,over-start) '------------------------------------------------ body = replace(body,"

","")'这是把

替换成空 body = replace(body,"

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

","") body = replace(body,"返回上页","返回上页") body = replace(body,"http://wap.moezu.com/c","http://wap.nowtx.cn/hl") body = replace(body,"day_details.asp?","day_details.asp?sid="&sid&"&") body = replace(body,"c/","") '-------------------------------------------------- Response.write body response.write "
返回上级" response.write "
网站首页
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "

" & Chr(13) %>