<%dim sid sid=request.querystring("sid") %> <% Function getHTTPPage(Path) t = GetBody(Path) End function function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") set http=nothing if err.number<>0 then err.Clear end function Function bytestobstr(body,CSET) DIM OBJSTREAM SET OBJSTREAM = Server.CreateObject("adodb.stream") objstream.type = 1 objstream.Mode = 3 objstream.Open objstream.Write body objstream.Position = 0 objstream.type = 2 objstream.Charset=Cset bytesTobstr = objstream.readText objstream.close set objstream=nothing end function if request.QueryString("phone")<>"" then On Error Resume Next Server.ScriptTimeOut=9999999 Session.CodePage = 65001 dim content,numstart,numstart1,numstarts content=getHTTPPage("http://c.lexun.com/phonecard/detail.aspx?phone="&request.QueryString("phone")&"") numstart=InStr(content,"

")+3 numstart1=InStr(content,"index.aspx")-10 numstarts=numstart1-numstart content=Lcase(MID(content,numstart,numstarts)) response.write content end if %>
---------
<% response.write "
返回上级" response.write "
网站首页
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "