昆明企业为什么要做网站,自媒体平台注册入口快看点,公司建网站多少钱一个,有没有可以免费的片补充回答#xff1a;你的动态页只是一个请求页。例如你新建一个 get.asp 页面#xff0c;用以下代码#xff0c;在服务端实现像URL异步(ajax)请求#xff0c;将请求结果输出。客户端页面再次用ajax(JS或者jquery的)向get.asp请求数据。两次ajax完成异域数据请求。get.asp代…补充回答你的动态页只是一个请求页。例如你新建一个 get.asp 页面用以下代码在服务端实现像URL异步(ajax)请求将请求结果输出。客户端页面再次用ajax(JS或者jquery的)向get.asp请求数据。两次ajax完成异域数据请求。get.asp代码如下(参考)reg\\/]*).\/{0,1}\函数名:GetResStr作用:获取指定URL的HTML代码参数:URL-要获取的URLfunction GetResStr(URL)err.cleardim ResBody,ResStr,PageCode,ReturnStrSet Httpcreateobject(MiCROSOFT.XMLHTTP)if URL thenresponse.Write(error!)response.End()elseHttp.open GET,URL,FalseHttp.Send()If Http.Readystate 4 ThenIf Http.status200 ThenResStrhttp.responseTextResBodyhttp.responseBodyPageCodeGetCode(ResStr,reg)ReturnStrBytesToBstr(http.responseBody,PageCode)GetResStrReturnStrEnd IfEnd IfEnd IfEnd Function函数名:BytesToBstr作用:转换二进制数据为字符参数:Body-二进制数据,Cset-文本编码方式Function BytesToBstr(Body,Cset)Dim ObjstreamSet Objstream CreateObject(adodb.stream)objstream.Type 1objstream.Mode 3objstream.Openobjstream.Write bodyobjstream.Position 0objstream.Type 2objstream.Charset CsetBytesToBstr objstream.ReadTextobjstream.Closeset objstream nothingEnd Function函数名:GetCode作用:转换二进制为字符参数:str-待查询字符串,regstr-正则表达式Function GetCode(str,regstr)Dim Reg,serStrset Reg new RegExpReg.IgnoreCase TrueReg.MultiLine TrueReg.Pattern regstrif Reg.test(str) then 若查询到匹配项Set Cols Reg.Execute(str)serStrCols(0).SubMatches(0) 使用匹配到的第一个匹配项else 否则给个默认值gb2312,有点省懒法如果页面没给出编码格式想知道确实有点麻烦serStrutf-8end ifGetCodeserStrend functiondim url:urlrequest.querystring(url)response.write GetResStr(URL)%
