日期:2014-05-16  浏览次数:20832 次

关于跨域名调用html问题
想在http://www.gqlcby.com/ 这个网站主页调用http://shop.gqlcby.com/ 这个商城右边的发货通知,不知怎样做到。

发货通知文件是一个 html 文件,里面有数据库连接和数据库打开等操作,在http://shop.gqlcby.com/这个网站是通过 include 调用的,其实iframe 也可以调用。

可是跨域名却调用不成功,特此求教,谢谢!
------解决方案--------------------
服务端发起http请求获得响应,然后用正则表达式筛
------解决方案--------------------
用服务器端xhr捉去那个页面,分析html代码得到你要的部分就行了

截取<div id="bb1"> 到</table>的内容

Function BytesToBstr(strBody,CodeBase) 
  dim obj 
  set obj=Server.CreateObject("Adodb.Stream") 
  obj.Type=1 
  obj.Mode=3 
  obj.Open 
  obj.Write strBody 
  obj.Position=0 
  obj.Type=2 
  obj.Charset=CodeBase 
  BytesToBstr=obj.ReadText 
  obj.Close 
  set obj=nothing 
End Function 
Function GetHttpPage(URL) 
  Dim xmlHttp
  Dim RetStr
  Set xmlHttp=server.CreateObject("Msxml2.XMLHTTP")  
  xmlHttp.Open "GET",URL, False 
  xmlHttp.Send  
  If Err.Number <> 0 Then 
    Set xmlHttp=Nothing 
    PostHttpPage = false 
    Exit Function 
  End If 
  GetHttpPage=bytesToBSTR(xmlHttp.responseBody,"GB2312") 
 Set xmlHttp = nothing 
End Function

html=GetHttpPage("http://shop.gqlcby.com/")
sstart="<div id=""bb1"">"
send="</table>"
istart=instr(html,sstart)+len(sstart)
iend=instr(istart,html,send)+len(send)
response.Write mid(html,istart,iend-istart)

------解决方案--------------------
跨站访问有个安全性的问题,一般用服务端获取另一站点的内容,然后呈现出来
楼上已经告诉你代码了,你要理解的就是:
用户通过浏览器访问你站点的一个asp文件,有这个asp文件在服务端先获取另一个站点文件的内容,然后将内容返回浏览器。
Function GetHttpPage(URL) 就是获取另一站点的函数,url你想要获取另一站点的文件地址

调用就是:html=GetHttpPage("http://shop.gqlcby.com/")
html就把http://shop.gqlcby.com/的内容获取到了
你response.write html就知道咯
如果你知道确切页面:
html=GetHttpPage("http://shop.gqlcby.com/xxx.html")