fileupload专题

1 ,上传类型过滤
        '判断文件上传类型
        Dim FCT As String = File1.PostedFile.ContentType
        If FCT = "application/msword" Then
        Else
            Response.Write("<script>javascript:window.alert('仅支持Word文件，请重新上传');</script>")
            Exit Sub
        End If

'附录：
 File1.PostedFile.ContentType="application/msword"'.doc
 File1.PostedFile.ContentType="application/vnd.ms-excel"'.excel
 File1.PostedFile.ContentType="application/vnd.ms-powerpoint"'.ppt
 File1.PostedFile.ContentType="text/plain"'.vb.txt
 File1.PostedFile.ContentType="application/octet-stream"'.aspx.rar
 File1.PostedFile.ContentType="images/jpeg"'.jpg