通博娱乐手机网页版:asp 如何强行退出程序

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/09 07:05:47
<%
set upload=new upload_5xSoft
set file=upload.file("file1")
formPath="upload/"
if file.filesize>500 then
fileExt=lcase(right(file.filename,3))
if fileExt="asp" or fileExt="exe" or fileExt="jsp" or fileExt="php" or fileExt="aspx" then
Response.Write"文件类型非法"
end if
end if
randomize
ranNum=int(990000*rnd)+910000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
if file.FileSize>0 then
file.SaveAs Server.mappath(FileName)
end if
response.write "上传成功"
'&filename
'Response.Write "<html><body><center><font size=5>文件上传成功了!<p>"
'Response.Write "</font></center><form name="form8" method="post" action="add_work.asp"><input type="text"

name="fileurl" id="fileurl" value="&filename size="20" maxlength="80"> <INPUT type=submit value=确定

name=submit></form> </body></html>"
%>

如上面为上传代码,但是在我判断了文件类型为非法后程序还会向下执行,最终会把非法文件成功上传的,现在要怎样改才能在发现

了文件类型非法后终止程序,只执行到Response.Write"文件类型非法"这句话就退出?

Response.Write"文件类型非法"
Response.End()