28,406
社区成员
发帖
与我相关
我的任务
分享求肋：在用showModalDialog打开文件上传窗口，如何将表单提交好后，将文件的名称自动传回父窗口
例子就像eWebEditor中文件上传窗口一样
用function insertimage(){
var retVal=showModalDialog('upload.asp', '', 'dialogWidth:340px; dialogHeight:160px; status:0; help:0')
if(retVal != null||retVal=="") {
document.form123.titlepic.value=retVal;
}
}
打开窗开后，通过表单上传文件，将上传文件的名称赋值到父表单中的titlepic。
问题是，测试时，表单交表单，直接点击按钮
function retrunvale(){
a="123";
window.returnValue=a;
window.close();
}
可以传回值。
但要提交表单后，上传文件执行后，就不能传回参数了。
response.Write "<script>window.returnValue="&filename&";window.close();</script>"
这样提示不行
如果用window.open来实现上例，通过
response.Write "<script>window.opener.document.form1.titlepic="&filename&";window.close();</script>"这样是可以的。
用function insertimage(){
var retVal=showModalDialog('upload.asp', '', 'dialogWidth:340px; dialogHeight:160px; status:0; help:0')
if(retVal != null||retVal=="") {
document.form123.titlepic.value=retVal;
}
}
打开窗开后，通过表单上传文件，将上传文件的名称赋值到父表单中的titlepic。
问题是，测试时，表单交表单，直接点击按钮
function retrunvale(){
a="123";
window.returnValue=a;
window.close();
}
可以传回值。
但要提交表单后，上传文件执行后，就不能传回参数了。
response.Write "<script>window.returnValue="&filename&";window.close();</script>"
这样提示不行
如果用window.open来实现上例，通过
response.Write "<script>window.opener.document.form1.titlepic="&filename&";window.close();</script>"这样是可以的。
...全文
请发表友善的回复…
发表回复
pisces_fri 2005-11-09
- 打赏
- 举报
----------------------------
upload.inc
----------------------------
<%
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'******************* 无惧上传类 V1.0 ************************************
'作者:梁无惧
'网站:http://www.25cn.com
'电子邮件:yjlrb@21cn.com
'版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件
'发送一份给作者.
'**********************************************************************
'----------------------------------------------------------------------
Dim oUpFileStream
Class UpFile_Class
Dim Form,File,Version,Err
Private Sub Class_Initialize
Version = "无惧上传类 Version V1.0"
Err = -1
End Sub
Private Sub Class_Terminate
'清除变量及对像
If Err < 0 Then
Form.RemoveAll
Set Form = Nothing
File.RemoveAll
Set File = Nothing
oUpFileStream.Close
Set oUpFileStream = Nothing
End If
End Sub
Public Sub GetDate (RetSize)
'定义变量
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
Dim iFindStart,iFindEnd
Dim iFormStart,iFormEnd,sFormName
'代码开始
If Request.TotalBytes < 1 Then
Err = 1
Exit Sub
End If
If RetSize > 0 Then
If Request.TotalBytes > RetSize Then
Err = 2
Exit Sub
End If
End If
Set Form = Server.CreateObject ("Scripting.Dictionary")
Form.CompareMode = 1
Set File = Server.CreateObject ("Scripting.Dictionary")
File.CompareMode = 1
Set tStream = Server.CreateObject ("Adodb.Stream")
Set oUpFileStream = Server.CreateObject ("Adodb.Stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)
oUpFileStream.Position = 0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = ChrB (13) & ChrB (10)
'取得每个项目之间的分隔符
sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1)
iStart = LenB (sSpace)
iFormStart = iStart+2
'分解项目
Do
iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sInfo = tStream.ReadText
'取得表单项目名称
iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1
iFindStart = InStr (22,sInfo,"name=""",1)+6
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'如果是文件
If InStr (45,sInfo,"filename=""",1) > 0 Then
Set oFileInfo = new FileInfo_Class
'取得文件属性
iFindStart = InStr (iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName = Mid (sFileName,InStrRev (sFileName, "\")+1)
'oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "\")+1)
oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "\"))
oFileInfo.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)
iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr (iFindStart,sInfo,vbCr)
oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName,oFileInfo
else
'如果是表单项目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sFormValue = tStream.ReadText
If Form.Exists (sFormName) Then
Form (sFormName) = Form (sFormName) & ", " & sFormValue
else
form.Add sFormName,sFormValue
End If
End If
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
Loop Until (iFormStart+2) = iFormEnd
RequestBinDate = ""
Set tStream = Nothing
End Sub
End Class
'文件属性类
Class FileInfo_Class
Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt
'保存文件方法
Public Function SaveToFile (Path)
On Error Resume Next
Dim oFileStream
Set oFileStream = CreateObject ("Adodb.Stream")
oFileStream.Type = 1
oFileStream.Mode = 3
oFileStream.Open
oUpFileStream.Position = FileStart
oUpFileStream.CopyTo oFileStream,FileSize
oFileStream.SaveToFile Path,2
oFileStream.Close
Set oFileStream = Nothing
End Function
'取得文件数据
Public Function FileDate
oUpFileStream.Position = FileStart
FileDate = oUpFileStream.Read (FileSize)
End Function
End Class
%>
pisces_fri 2005-11-09
- 打赏
- 举报
给你个我做的例子, 自己研究下:
----------------------------
index.asp
----------------------------
<label id="imageName">您还没有上传文件</label> <input type="button" name="btnupload" value="上传文件" onclick="vbscript:btn_Click()">
<script language="vbscript">
Function btn_Click()
Dim strValue
strValue = window.showModalDialog("modaldialog.asp", "hehe", "dialogWidth=480px;dialogHeight=150px;status:no;scroll:no;")
imageName.innerHTML = strValue
End Function
</script>
----------------------------
modaldialog.asp
----------------------------
<body topmargin="0" rightmargin="0" leftmargin="0" bottommargin="0">
<table width="100%" height="100%" align="center">
<tr>
<td width="100%" height="100%" align="center">
<iframe width="100%" height="100%" frameborder="0" scrolling="no" src="uploadfrm.asp"></iframe>
</td>
</tr>
</table>
</body>
----------------------------
uploadfrm.asp
----------------------------
<!--#include File="upload.inc"-->
<%
Server.ScriptTimeOut = 999999
Dim Forumupload
Dim FormName,FormPath,Filename,FileExt,filesize
FormPath="uploadimages"
Sub uploadFile()
Dim upload,File,upDataSize
Dim iRndChar, iiRndChar
upDataSize = 1024*4
Set upload = new UpFile_Class
upload.GetDate (upDataSize*1024)
If upload.err > 0 then
Select Case upload.err
Case 1
Response.Write "请正确填写您要上传文件的路径! <a href=""javascript:history.go(-1);"">重新上传</a>"
Case 2
Response.Write "您上传的文件超过了系统限制的大小! <a href=""javascript:history.go(-1);"">重新上传</a>"
End Select
Exit Sub
Else
If right(FormPath,1) <> "/" Then
FormPath = FormPath & "/"
End If
For Each FormName In upload.File
Set File = upload.File(FormName)
FileExt = Lcase(File.FileExt)
If CheckFileExt(FileExt) = false then
Response.Write "您要上传的文件类型被系统限制, 或格式不正确! <a href=""javascript:history.go(-1);"">重新上传</a>"
EXIT SUB
End If
filename=file.FileName
Randomize
iRndChar = Int(Rnd * 26) + 97
Randomize
iiRndChar = Int(Rnd * 26) + 97
If (Len(filename) + iiRndChar) Mod 2 = 0 Then
iiRndChar = LCase(Chr(iiRndChar))
Else
iiRndChar = Chr(iiRndChar)
End If
filename = iRndChar & iiRndChar
filename = Year(Date) & Month(Date) & Day(Date) & Hour(Now) & Minute(Now) & Second(Now) & filename
filename = filename & "." & fileext
Filename = FormPath & Filename
Filesize = file.filesize
If Filesize>0 then
File.SaveToFile Server.mappath(FileName)
End If
Set File=Nothing
Next
response.write "<script language=""javascript"">" & vbCrLf
response.Write "alert('文件上传成功!');" & vbCrLf
response.write "parent.returnValue='" & filename & "'; self.close();" & vbCrLf
response.write "</script>" & vbCrLf
response.end
End If
End Sub
Private Function CheckFileExt(FileExt)
Dim Forumupload,i
If FileExt = "" or IsEmpty(FileExt) Then
CheckFileExt = false
Exit Function
End If
If Lcase(FileExt) = "asp" or Lcase(FileExt) = "asa" or Lcase(FileExt) = "aspx" then
CheckFileExt = false
Exit Function
End If
Forumupload = split("jpg|gif|bmp|png|tif|iff|swf","|")
For i = 0 To ubound(Forumupload)
If Lcase(FileExt) = Lcase(trim(Forumupload(i))) then
CheckFileExt = true
exit Function
Else
CheckFileExt = false
End If
Next
End Function
If Request.QueryString("action") = "go" Then
Call uploadFile()
End If
%>
<form action="?action=go" method="post" enctype="multipart/form-data" name="upfile">
<input type="file" size="40" name="upfile">
<input type="submit" value="上传">
</form>
----------------------------
index.asp
----------------------------
<label id="imageName">您还没有上传文件</label> <input type="button" name="btnupload" value="上传文件" onclick="vbscript:btn_Click()">
<script language="vbscript">
Function btn_Click()
Dim strValue
strValue = window.showModalDialog("modaldialog.asp", "hehe", "dialogWidth=480px;dialogHeight=150px;status:no;scroll:no;")
imageName.innerHTML = strValue
End Function
</script>
----------------------------
modaldialog.asp
----------------------------
<body topmargin="0" rightmargin="0" leftmargin="0" bottommargin="0">
<table width="100%" height="100%" align="center">
<tr>
<td width="100%" height="100%" align="center">
<iframe width="100%" height="100%" frameborder="0" scrolling="no" src="uploadfrm.asp"></iframe>
</td>
</tr>
</table>
</body>
----------------------------
uploadfrm.asp
----------------------------
<!--#include File="upload.inc"-->
<%
Server.ScriptTimeOut = 999999
Dim Forumupload
Dim FormName,FormPath,Filename,FileExt,filesize
FormPath="uploadimages"
Sub uploadFile()
Dim upload,File,upDataSize
Dim iRndChar, iiRndChar
upDataSize = 1024*4
Set upload = new UpFile_Class
upload.GetDate (upDataSize*1024)
If upload.err > 0 then
Select Case upload.err
Case 1
Response.Write "请正确填写您要上传文件的路径! <a href=""javascript:history.go(-1);"">重新上传</a>"
Case 2
Response.Write "您上传的文件超过了系统限制的大小! <a href=""javascript:history.go(-1);"">重新上传</a>"
End Select
Exit Sub
Else
If right(FormPath,1) <> "/" Then
FormPath = FormPath & "/"
End If
For Each FormName In upload.File
Set File = upload.File(FormName)
FileExt = Lcase(File.FileExt)
If CheckFileExt(FileExt) = false then
Response.Write "您要上传的文件类型被系统限制, 或格式不正确! <a href=""javascript:history.go(-1);"">重新上传</a>"
EXIT SUB
End If
filename=file.FileName
Randomize
iRndChar = Int(Rnd * 26) + 97
Randomize
iiRndChar = Int(Rnd * 26) + 97
If (Len(filename) + iiRndChar) Mod 2 = 0 Then
iiRndChar = LCase(Chr(iiRndChar))
Else
iiRndChar = Chr(iiRndChar)
End If
filename = iRndChar & iiRndChar
filename = Year(Date) & Month(Date) & Day(Date) & Hour(Now) & Minute(Now) & Second(Now) & filename
filename = filename & "." & fileext
Filename = FormPath & Filename
Filesize = file.filesize
If Filesize>0 then
File.SaveToFile Server.mappath(FileName)
End If
Set File=Nothing
Next
response.write "<script language=""javascript"">" & vbCrLf
response.Write "alert('文件上传成功!');" & vbCrLf
response.write "parent.returnValue='" & filename & "'; self.close();" & vbCrLf
response.write "</script>" & vbCrLf
response.end
End If
End Sub
Private Function CheckFileExt(FileExt)
Dim Forumupload,i
If FileExt = "" or IsEmpty(FileExt) Then
CheckFileExt = false
Exit Function
End If
If Lcase(FileExt) = "asp" or Lcase(FileExt) = "asa" or Lcase(FileExt) = "aspx" then
CheckFileExt = false
Exit Function
End If
Forumupload = split("jpg|gif|bmp|png|tif|iff|swf","|")
For i = 0 To ubound(Forumupload)
If Lcase(FileExt) = Lcase(trim(Forumupload(i))) then
CheckFileExt = true
exit Function
Else
CheckFileExt = false
End If
Next
End Function
If Request.QueryString("action") = "go" Then
Call uploadFile()
End If
%>
<form action="?action=go" method="post" enctype="multipart/form-data" name="upfile">
<input type="file" size="40" name="upfile">
<input type="submit" value="上传">
</form>
