<TD align=center colspan="2" rowspan="8">
<iframe src="upfile.htm" frameborder=0 height="45" width="260" scrolling=no></iframe><br>

</TD>
<td align=left>缩略图:<img src="" name="pic" width=180 height=150>
</td>

我的网页中的代码如上：
upfile.htm中调用的代码如下：

response.Write("<scriptlanguage='javascript'>parent.upimg.pic.src='"&newFileName&"';</script>")

说明：newFileName是图片上传后，生成的名字；upimg，是表单名。

我的目的就是想要：
在点击上传上，自动在<td align=left>缩略图:</td>中产显示图片。

大家还有什么办法，只知道，parent是调用框架中的元素

&lt;%OPTION EXPLICIT%&gt;
&lt;!--#include FILE="../clsUp.asp"--&gt;
&lt;%
dim upfile,file,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount,newfilename
upfilecount=0
set upfile=new clsUp ''建立上传对象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js"    '设置上传类型的黑名单
upfile.GetData (10240000)   '取得上传数据,限制最大上传10M
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;文件上传&lt;/title&gt;
&lt;style&gt;
BODY {
    FONT-SIZE: 9pt; MARGIN: 0px; COLOR: #000000; FONT-FAMILY: "Arial"; TEXT-DECORATION: none;
    background-color: #ffffff;
    background-position : center top;
    background-attachment : fixed ;
    background-repeat : repeat-y;
}
TABLE {
    FONT-SIZE: 9pt; LINE-HEIGHT: 16pt; FONT-FAMILY: "Arial"; TEXT-DECORATION: none
}
TH
{
color: #FFFFFF;
background-color: #482400;
font-size: 12px;
font-weight:bold;
}
TD {
    FONT-SIZE: 9pt; COLOR: #000000; LINE-HEIGHT: 150%; FONT-FAMILY: "Arial"; TEXT-DECORATION: none
}
.TableBorder
{
width:97%;border: 1px #482400 solid; background-color: #ffffff;
}
TD.TdBg{background-color:#FFF5E1;}
.uline{MARGIN: 10px 0px; BORDER-BOTTOM: #807d76 1px dotted}
.redcode{color:red}
.title{font-weight:bold;}
input{border:solid 1px #482400;BACKGROUND-COLOR: #E7DDD8;COLOR: #000000;FONT-FAMILY: "Arial";font-size: 12px;}
&lt;/style&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312"&gt;
&lt;/head&gt;
&lt;body leftmargin="0" topmargin="0"&gt;
&lt;%
if upfile.isErr then  '如果出错
    select case upfile.isErr
    case 1
    Response.Write "你没有上传数据呀！是不是搞错了！"
    case 2
    Response.Write "你上传的文件超出我们的限制,最大1M"
    end select
    else
%&gt;
&lt;%
    FSPath=GetFilePath(Server.mappath("uploadphone.asp"),"\")'取得当前文件在服务器路径
    FSPath=FSPath&amp;"uploadfile\"
    ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
       for each formName in upfile.file '列出所有上传了的文件
       set oFile=upfile.file(formname)
       FileName=upfile.form(formName)'取得文本域的值
       if not FileName&gt;"" then  FileName=oFile.filename'如果没有输入新的文件名,就用原来的文件名
       'upfile.SaveToFile formname,FSPath&amp;FileName   ''保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名
       'upfile.autosave formname,FSPath&amp;FileName
       newFileName=upfile.autosave(formname,FSPath&amp;FileName)
     %&gt;
　&lt;%
    if upfile.iserr then
        Response.Write upfile.errmessage
        else
            if request.QueryString("parm")&lt;&gt;"" then
            'response.Write "&lt;script language='javascript'&gt;parent.telform."&amp;request.QueryString("parm")&amp;".value='"&amp;serverpath&amp;"uploadfile/"&amp;newFileName&amp;"';&lt;'/script&gt;"
            response.Write("&lt;script language='javascript'&gt;top.document.telform.pic.value='"&amp;newFileName&amp;"';&lt;/script&gt;")
            end if
        upfilecount=upfilecount+1
        Response.Write "上传成功&amp;nbsp;"
        response.Write(""&amp;serverpath&amp;"uploadfile/"&amp;newFileName)
        end if
        %&gt;　
&lt;%
     set oFile=nothing
    next
%&gt;

&lt;%
end if
set upfile=nothing  '删除此对象
%&gt;

&lt;!-- [&lt;a href="uploadfile.htm"&gt;返回&lt;/a&gt;]
 --&gt;

&lt;/body&gt;
&lt;/html&gt;
&lt;%
function GetFilePath(FullPath,str)
  If FullPath &lt;&gt; "" Then
    GetFilePath = left(FullPath,InStrRev(FullPath, str))
    Else
    GetFilePath = ""
  End If
End function
%&gt;


这是上传文件中的代码