Question

asp如何获取另一页面的文本返回值？

asp怎样获取另一个页面的文本返回值？
比如一个页面face.asp?action=xxxx，
这个页面，执行后，返回不同的文本：yyy，或者：zzz
在另一个a.asp中
如果face.asp?action=xxxx返回yyy，显示操作成功
如果face.asp?action=xxxx返回zzz，显示操作失败
其中face.asp是另一程序的接口，不能修改
get参数action是我传递给face.asp的内容

face.asp是一个接口，我无法修改face.asp的内容
我是要获取face.asp的执行结果，不是要这个参数

Answer 1

<%
'用于编码转换的函数
Function BytesToBstr(body,Cset)
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function

'抓取网页内容的函数
Function getPageContent(Url)
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "Get", Url, False, "", ""
objXMLHTTP.Send
getPageContent = BytesToBstr(objXMLHTTP.ResponseBody,"GB2312")
Set objXMLHTTP = Nothing
End Function

'页面开始执行
Dim tempResult '保存返回值的变量
tempResult = getPageContent("http://localhost/face.asp?action=xxxx")
'--------上面URL中的localhost是我测试时用的，你得替换成自己的正确URL
If tempResult = "yyy" Then '判断返回值的内容
Response.write "操作成功"
Else
Response.write "操作失败"
End If
%>

Answer 2

其实很简单
<% a=request("action")
if a="xxxx" then response.write "成功"
if a="zzz" then response.write "不成功"
%>

Answer 3

<%
dim inputinf
inputinf=request.QueryString("action")
if inputinf="yyy" then
response.write("操作成功")
else if inputinf="zzz" then
response.write("操作失败")
end if
%>

追问

get参数action是我传递给face.asp的内容

face.asp是一个接口，我无法修改face.asp的内容
我是要获取face.asp的执行结果，不是要这个参数