if Query = "" then Query = request(var)
End Function
Function Echo(byval str)
response.write str
End Function
Public Function AJAX(url,method,data,bm)
If method="" Then method="get"
If bm="" Then bm="gb2312"
dim http
Set http=Server.createobject("Microsoft.XMLHTTP")
Http.open method,url,false
if LCase(method)="post" then
Http.setrequestheader "content-length",len(data)
Http.setrequestheader "content-type","application/x-www-form-urlencoded"
end if
Http.send(data)
if Http.readystate=4 and Http.status=200 then
AJAX=bytesToBSTR(Http.responseBody,"GB2312")
end If
set http=nothing
End function
Public Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("ADODB"+"."+"Stream")
with objstream
.Type = 1
.Mode =3
.Open
.Write body
.Position = 0
.Type = 2
.Charset = Cset
BytesToBstr = .ReadText
.Close
end with
set objstream = nothing
End Function
Set regex=Nothing
%>
在线演示//www.jb51.net/demo/mp4/index.html
本地下载
