ASP 上传图片问题！急！

有以下源码（网上找的），但我只能上传200K以下的图片，我修改了可以上传图片的大小设置，但仍然无效，请各高手帮我解决一下！谢谢！谢谢！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%function GetFilePath(FullPath,str)
If FullPath <> "" Then
  GetFilePath = left(FullPath,InStrRev(FullPath, str))
  Else
  GetFilePath = ""
End If
End function%>
<%NEWNAME="LIBO"&year(date())&month(date())&day(date())&"-"&hour(time())&minute(time())&second(time())%>
<%
class clsUp '文件上传类
Dim Form,File
Dim AllowExt_ '允许上传类型(白名单)
Dim NoAllowExt_ '不允许上传类型(黑名单)
Private oUpFileStream '上传的数据流
Private isErr_ '错误的代码,0或true表示无错
Private ErrMessage_ '错误的字符串信息
Private isGetData_ '指示是否已执行过GETDATA过程
'类的属性
Public Property Get Version
Version="上传类声明"
End Property

Public Property Get isErr '错误的代码,0或true表示无错
isErr=isErr_
End Property

Public Property Get ErrMessage '错误的字符串信息
ErrMessage=ErrMessage_
End Property

Public Property Get AllowExt '允许上传类型(白名单)
AllowExt=AllowExt_
End Property

Public Property Let AllowExt(Value) '允许上传类型(白名单)
AllowExt_=LCase(Value)
End Property

Public Prop