Vbscript 如何在文件上载后将文件名变量从子asp页传递到父页

我正在向遗留应用程序添加一个新函数。基本上，用户正在请求允许其执行某项功能，此更改将提示他们上传一个屏幕截图以证明这一点，然后向相关方发送一封电子邮件，其中将包括此屏幕截图

我能够在网上找到一些执行我需要的上传功能的代码（包括在下面-归功于David Crowell），但是我找不到将文件名传递回父页面的方法。我已经尝试了parent.returnvalue/window.returnvalue的几种变体，但没有成功。我以前从未使用过vb或文件上传，所以我一直在谷歌搜索，但我无法找出为什么这不起作用，我确实读过一些关于无法将服务器端变量传递回客户端的内容-这是它不起作用的原因吗

父页面（POHierarchy.asp）

”任何大于零的值都必须有一个上传的文件以显示授权
如果值为“0”，则
strTarget=“popup.asp？page=Uploader.asp”
'下面应该传回上载的文件名，但不
strReturnValue=window.ShowModalDialog（strTarget，“对话框宽度：650px；对话框高度：300px；状态：否；帮助：否”）
'************************
'附件的测试值
'*************************
'strReturnValue=“test.png”
'*************************
'测试值结束
'*************************
FormSubmit.hstrFileName.value=strReturnValue'上传的文件名
调用sDisplayFormData
如果结束

子页面（Uploader.asp）

请使用与您的请求相关的名称从DOFA截屏您的结果
该链接可通过
上载新附件
文件1:

上载
选项显式
'********************************************************
“SpageInitialize
'********************************************************
亚空间初始化
strPageTitle=“Uploader.asp”
blnAccessAllowed=IsWebAccessAllowed（“视图”、intWebAccess、intPDFAccess）
strWindow=“popup”“”“主”或“弹出”或“工具栏”
端接头

子页面引用ShadowUpload.asp

=iBoundaryEndPos）或（iCurPosition=0）
'跳过不相关的数据。。。
iPosBegin=InstrB（iCurPosition、strBinda、AsciiToBinary（“内容处置”））
iPosBegin=InstrB（iPosBegin、strbinda、AsciiToBinary（“name=”））
iValuePos=IpsBegin
'读取表单元素的名称，例如“file1”、“text1”
iPosBegin=iPosBegin+6
iPosEnd=InstrB（iPosBegin、strBinData、strBinQuote）
strElementName=BinaryToAscii（MidB（strbinada、iPosBegin、iPosBegin））
“也许是档案？
iPosBegin=InstrB（iCurPosition、strBinData、AsciiToBinary（“filename=”））
iPosEnd=InstrB（iPosEnd、strBinData、STRBONDARYDATA）
如果（IpsBegin>0）和（IpsBegin>0），则
RS.Fields.Append“mBinary”，adLongVarBinary，LMultiByte
美国公开赛
艾德纽卢比
RS（“MB”）.AppendChunk多字节和ChrB（0）
RS.更新
二进制=RS（“MB”）.GetChunk（LMultiByte）
如果结束
多字节二进制=二进制
端函数
私有函数WriteDebug（msg）
如果是SU_调试模式，则
响应.写入（msg）
回答，齐平
如果结束
端函数
私有函数BinaryToAscii（标准二进制）
暗淡的我，结果
result=“”
对于i=1至LenB（标准二进制）
结果=结果和chr（AscB（MidB（标准，i，1）））
下一个
BinaryToAscii=结果
端函数
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::                                                             :::
“：：：此例程将尝试标识传递的任何文件规范：：：
“：：：作为图形文件（不考虑扩展名）。这将：：：
'：：使用BMP、GIF、JPG和PNG文件：
':::                                                             :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
’：：基于大卫·克劳威尔提出的观点：
“：（到期时贷记）：：
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
’：：：废话废话废话废话废话废话废话
’：：：废话废话废话废话废话废话废话
’：：：诸如此类的废话版权所有*c*MM，迈克·沙弗诸如此类的废话：：：
’：：：bh诸如此类，版权所有。诸如此类：
“：：：诸如此类的权限被授予使用此代码诸如此类的权限
’：：：在你的项目中胡说八道，只要这个胡说八道：：：
’：：：诸如此类的版权声明包括在内诸如此类的：
’：：：废话废话废话废话废话废话废话
’：：：废话废话废话废话废话废话废话
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::                                                             :::
“：：：此函数从任意位置获取指定的字节数：：：
“：：：文件，从偏移量开始（基1）：：
':::                                                             :::
“：：：已通过：：：
'：：flnm=>Filespec要读取的文件：
'：：偏移量