<% Call FunMsg("upload_pic.asp?Send=OK&FileName="&SFileName&"&FileName_small="&Sfilename_small,"文件上传成功!") Dim Send,StrBody Send=Request.QueryString("Send") FileName=Request.QueryString("FileName") FileName_small=request.QueryString("FileName_small") if Send="OK" And FileName<>"" And FileName_small<>"" then StrBody="onLoad=setOpener('"&FileName&"','"&FileName_small&"')" end if
<script type="text/javascript"> function setOpener(index,index_small) { window.opener.Images(index,index_small); window.close(); } </script>
<body leftmargin="0" topmargin="0" <%=StrBody%>>
<script type="text/javascript"> function Images(catName,catName_small){ document.form.P_Pic.value=catName; document.form.P_smallPic.value=catName_small; document.form.P_PicB.src="../info/Pic/"+catName; } </script>