客户机提交网页到服务器后,,服务器怎样能自动运行一个处理页面,这个页面需要提交给另一个服务器
客户机A提交网页到服务器B后,,服务器B怎样能自动运行一个处理页面,这个页面的ACTION需要提交给另一个服务器C. 网页是ASP做的.
假设:
客户机--A
服务器B
服务器C
------解决方案--------------------A传参给B:
Go.asp?url=http://163.com
B获取参数并使用一个函数读取url里的内容并写出来,A自然就能看到:
B页面的内容:
Go.asp
<%
' '---- 本页面放于B服务器
dim url
url = request( "url ")
response.write ReadNetFile(url)
Function ReadNetFile(ByVal url)
Dim objXML
Set objXML = CreateObject( "Microsoft.XMLHTTP ")
With objXML
.Open "GET ", url, False
.Send
'ReadNetFile =.responseText ' '----使用此方法时只在编码一致时才会有效,否则是会出错的
ReadNetFile = Bytes2Bstr(.responsebody)
End With
Set objXML = Nothing
End Function
' '----------------------------↓ 二进制转字符串,否则会出现乱码的!
Function Bytes2Bstr(ByVal vin)
Dim i,strreturn,thischarcode,nextcharcode
strreturn = " "
for i = 1 to LenB(vin) ' '--LenB 返回的是用于代表字符串的字节数
thischarcode = AscB(MidB(vin,i,1)) ' '--AscB 而是返回首字节
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = AscB(MidB(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
Bytes2Bstr = strreturn
End Function
%>
------解决方案--------------------不必麻烦,真接用B作代理服务器
数据是可以传的,传数据方法多的是
如通过URL,XMLHTTP==
------解决方案--------------------(混世害虫说的好,直接在B上安个代理就OK了!
如果你只能传ASP文件上去的话就要自已写个了!呵~
------解决方案--------------------哦,这个事情啊,用xmlhttp撒,这已经是最好的方法了
在C服务器(192.168.1.2)上面做好接受并处理数据的asp页面(service.asp)
在B服务器(192.168.1.1&10.0.0.172)上面做一个中间asp页面(index.asp)
当客户A访问http://10.0.0.172/index.asp时候
在index.asp页面的处理过程中(此过程当然是在B上面进行的),B服务器通过xmlhttp向http://192.168.1.2/service.asp页面提交数据并且获取C服务器的处理结果(注意这是可行的,因为此时是在B服务器上运行,可以访问它的),然后将获取到的xmlhttp应答作为页面返回给用户
------解决方案--------------------反正xmlhttp弄就是了:)
------解决方案--------------------用xmlhttp.
objXmlHttp.open "GET ", "http://10.0.0.1/aaa.asp "
这句只是提交这个网页了,里面文本框的内容及文件怎样传?
-----------------------------
普通文本数据可以直接在send方法中传送:***.send(value)
使用到文件的话只能把二级制数据转化成ASCII,发送到C,在C中把转化的ASCII再回转
------解决方案--------------------我看你还是没有说清楚,如果要上传文件,就先传到B上,然后通过B的后台程序,传到C,我感到这样很麻烦,不过听不懂,你到底要做什么?xmlhttp应该是可以实现你的想法的。