![]() |
#2
yms1232008-04-14 16:32
|
文本框为
<input name="pic" type="text" class="button1" id="pic" size="29" readonly="true">
<input class="go-wenbenkuang" type="button" name="Submit2" value="选择图片" onClick="javascript:select_pic('pic');">
upload为
<!--#include file="upload_wj.inc"-->
<%
set upload=new upload_file
if upload.form("act")="uploadfile" then
filepath=trim(upload.form("filepath"))
filelx=trim(upload.form("filelx"))
i=0
for each formName in upload.File
set file=upload.File(formName)
fileExt=lcase(file.FileExt)
if file.filesize<100 then
response.write "<script language=javascript>alert('图片类型错误或大小超过100k,请重新选择你要上传的文件!');history.go(-1);</script>"
response.end
end if
if (filelx<>"jpg") then
response.write "<script language=javascript>alert('该文件类型不能上传!');history.go(-1);</script>"
response.end
end if
if filelx="jpg" then
if fileext<>"gif" and fileext<>"jpg" then
response.write "<script language=javascript>alert('只能上传jpg、gif格式的文件!');history.go(-1);</script>"
response.end
end if
end if
if filelx="jpg" then
if file.filesize>(200*1024) then
response.write "<script language=javascript>alert('图片文件大小不能超过200k!');history.go(-1);</script>"
response.end
end if
end if
randomize
ranNum=int(90000*rnd)+10000
filename=filepath&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
%>
<%
if file.FileSize>0 then
file.SaveToFile Server.mappath(FileName)
if filelx="swf" then
response.write "<script>window.opener.document."&upload.form("FormName")&".size.value='"&int(file.FileSize/1024)&" K'</script>"
end if
response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>"
%>
<%
end if
set file=nothing
next
set upload=nothing
end if
%>
<script language="javascript">
window.close();
</script>
错误提示window.opener.document.form2.pic为空或不是对象
请帮忙解决``万分感谢