ASP 无组件上传 文件上传

Response.Buffer = True

Server.ScriptTimeOut=9999999

On Error Resume Next

%>

<%

ExtName = "jpg,gif,png,txt,rar,zip,doc" '允许扩展名

SavePath = "upload" '保存路径

If Right(SavePath,1) <>"/" Then SavePath=SavePath&"/" '在目录后加(/)

CheckAndCreateFolder(SavePath)

uploadAll_a = Request.TotalBytes '取得客户端全部内容

If(uploadAll_a>0) Then

Set uploadStream_c = Server.CreateObject("ADODB.Stream")

uploadStream_c.Type = 1

uploadStream_c.Open

uploadStream_c.Write Request.BinaryRead(uploadAll_a)

uploadStream_c.Position = 0

FormDataAll_d = uploadStream_c.Read

CrLf_e = chrB(13)&chrB(10)

FormStart_f = InStrB(FormDataAll_d,CrLf_e)

FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

Set FormStream_h = Server.Createobject("ADODB.Stream")

FormStream_h.Type = 1

FormStream_h.Open

uploadStream_c.Position = FormStart_f + 1

uploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3

FormStream_h.Position = 0

FormStream_h.Type = 2

FormStream_h.CharSet = "GB2312"

FormStreamText_i = FormStream_h.Readtext

FormStream_h.Close

FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"\\")+1,FormEnd_g)

If(CheckFileExt(FileName_j,ExtName)) Then

SaveFile = Server.MapPath(SavePath & FileName_j)

If Err Then

Response.Write "文件上传：文件上传出错! 　 重新上传文件
"

Err.Clear

Else

SaveFile = CheckFileExists(SaveFile)

k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4

l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2

FormStream_h.Type=1

FormStream_h.Open

uploadStream_c.Position=k-1

uploadStream_c.CopyTo FormStream_h,l

FormStream_h.SaveToFile SaveFile,2

SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"\\")+1)

'---------把图片插入数据库--------

DbPath = Server.MapPath("date/date.mdb")

Set conn = CreateObject("ADODB.Connection")

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & ";"

set rs = CreateObject

("adodb.recordset")

rs.CursorLocation = 3

rs.open "select * from 手机信息 where 1=0