Sub CheckSize(Tmp,Str)
If Tmp.FileSize < 10 Then
Response.Write("<script language='javascript'>alert('"&Str&"没有上传图片!');history.go(-1);</script>")
Response.End()
End If
End Sub
Sub CheckExt(Tmp,Str)
'For I = 0 To Ubound(Arr)
If Instr(upfile.AllowExt,Tmp.FileExt) <= 0 Then
Response.Write("<script language='javascript'>alert('"&Str&"上传的图片格式不正确!');history.go(-1);</script>")
Response.End()
End If
'Next
End Sub