No self-introduction
Loading
Profile
Follow
codes (1)
ASP file upload picture code
no vote
body{ margin:0; padding- left:2px }<% Response.Charset=" ;gb2312" Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache" dim oUpFileStreamClass upload_ file dim Form,File,Version Private Sub Class_ Initialize & nbsp; & nbsp; 'define variables & nbsp; dim requestbindate, sstart, bcrlf, sinfo, iinforstart, iinfond, tstream, Istart, ofileinfo & nbsp; dim ifilesize, sfilepath, sfiletype, sformvalue, sfilename & nbsp; dim ifindstart, ifindend & nbsp; dim iforstart, iformend, sformname & nbsp;' code start & nbsp; version = & quot; no component upload class version 0.96 & quot; & nbsp; set Form = Server.CreateObject (" Scripting.Dictionary" ;) set File = Server.CreateObject (" Scripting.Dictionary" ;) if Request.TotalBytes &l
chinavipcp 0 0
1
No more~
Follows0
Fans0