2.8w+
社区成员
- 主页
快..100分急......服务器端执行问题..
我通过一个客户端上服务器A,然后服务器A得到一个客户端数据,传到服务器B.
现在有一个问题:B服务器需要得到A服务器的IP地址才允许处理由客户机传过来的数据.
那么,这么一个过程如何执行?代码如何写?
图解:
客户机---> 服务器A ---> 服务器B(需要让服务器A发送数据才允许处理数据)
注:Response.Redirect(...)是错误的做法,只能让服务器B得到客户机的IP地址.
现在有一个问题:B服务器需要得到A服务器的IP地址才允许处理由客户机传过来的数据.
那么,这么一个过程如何执行?代码如何写?
图解:
客户机---> 服务器A ---> 服务器B(需要让服务器A发送数据才允许处理数据)
注:Response.Redirect(...)是错误的做法,只能让服务器B得到客户机的IP地址.
...全文
请发表友善的回复…
发表回复
oldjackyone 2004-04-14
TO:bybee(脑震荡的猪)
哈,OK了,谢谢喽...
马上给你加分.
哈,OK了,谢谢喽...
马上给你加分.
yymzzl 2004-04-14
关注！
clkun 2004-04-14
正好我也有这个问题。
sfply 2004-04-14
关注一下，没涉及过
bybee 2004-04-14
希望能解决你问题
bybee 2004-04-14
set IE = Server.CreateObject("InternetExplorer.Application")
IE.Navigate2("http://211.101.182.9:8090/websend/?serverid=&fromuser=&password=&phone="&telnum&"&fromphone="&fromtel&"&message="&content&".")
while IE.Busy
wend
ret=IE.Document.body.innerText
arr=split(ret, vbCrLf)
select case arr(0)
case "00"
case "01"
response.write "与网关断连"
response.End()
case "02"
response.write "参数有误"
response.End()
case "03"
response.write "IP验证不通过"
response.End()
case "04"
response.write "业务码验证不通过"
response.End()
case "05"
response.write "有违禁单词"
response.End()
case "021"
response.write "serviceid为空"
response.End()
case "022"
response.write "phone为空"
response.End()
case "023"
response.write "message为空"
response.End()
case "024"
response.write "接收的手机号码与计费号码个数不一样"
response.End()
case else
response.write "未知错误"
response.End()
end select
set IE=nothing
你看看能不能明白！
我下午吃完饭回来给你解决！
IE.Navigate2("http://211.101.182.9:8090/websend/?serverid=&fromuser=&password=&phone="&telnum&"&fromphone="&fromtel&"&message="&content&".")
while IE.Busy
wend
ret=IE.Document.body.innerText
arr=split(ret, vbCrLf)
select case arr(0)
case "00"
case "01"
response.write "与网关断连"
response.End()
case "02"
response.write "参数有误"
response.End()
case "03"
response.write "IP验证不通过"
response.End()
case "04"
response.write "业务码验证不通过"
response.End()
case "05"
response.write "有违禁单词"
response.End()
case "021"
response.write "serviceid为空"
response.End()
case "022"
response.write "phone为空"
response.End()
case "023"
response.write "message为空"
response.End()
case "024"
response.write "接收的手机号码与计费号码个数不一样"
response.End()
case else
response.write "未知错误"
response.End()
end select
set IE=nothing
你看看能不能明白！
我下午吃完饭回来给你解决！
bybee 2004-04-14
我明白你的意思！很多短信都是这样判断ip的！
我做过！
我做过！