ength-1)) If Ext <> "jpg" And Ext <> "jpeg" And Ext <> "gif" And Ext <> "txt" And Ext <> "htm" And Ext <> "html" Then FDisplay.Visible = False Else FDisplay.Text = "<A Target=''''_blank'''' HREF=''''Upload/" & _ FileName & "''''>上传文件</A>" End If Response.Write("上传成功!") Else '''' Msgbox("对不起,只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件!",65,"a") Response.Write("对不起,只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件!") End If End Sub </script>