风声 ASP 无组件上传类应用实例

风声 ASP 无组件上传类应用实例，配置实例： Private Sub Class_Initialize m_Error = -1 m_Charset = "gb2312" m_TotalSize= 0 m_MaxSize = 153600 m_FileType = "jpg/gif" m_SavePath = "" m_AutoSave = 0 Dim dtmNow : dtmNow = Date() m_strDate = Year(dtmNow)&Right;("0"&Month;(dtmNow),2)&Right;("0"&Day;(dtmNow),2) m_lngTime = Clng(Timer()*1000) Set m_binForm = Server.CreateObject("ADODB.Stream") Set m_binItem = Server.CreateObject("ADODB.Stream") Set m_dicForm = Server.CreateObject("Scripting.Dictionary") m_dicForm.CompareMode = 1 End Sub