aspupload 批量上传图片并存入数据库，取得multipart/form-data的表单数据

 

///以上是表单，下面是kxfzg_save1.asp代码

<%
SaveFile=""
Set Upload = Server.CreateObject("Persits.Upload.1")
sCount = Upload.Save(Server.Mappath("UploadFile") & "/temp/")
If sCount < 1 Then
 Response.Write ""
End If

Set oFiles = Upload.Files
for each oFile  in oFiles
If oFile.Size > 3000*1024 Then
 oFile.Delete
 Response.Write ""
End If

Dim sRnd
Randomize
sRnd = Int(900 * Rnd) + 100
FileExt = UCase(Right(oFile.FileName, 3))
If FileExt <> "JPG" and FileExt <> "GIF" and FileExt <> "BMP" Then
 oFile.Delete
 Response.Write ""
End If
FileName = year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & FileExt
oFile.Copy (Server.Mappath("UploadFile") & "/" & FileName)
oFile.Delete
SaveFile=FileName&"|"&SaveFile
next
response.Write(SaveFile)
author= Upload.form("author")//参数
note= Upload.form("content")//参数
tel= Upload.form("contact")//参数
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [photo]",conn,1,3
rs.addnew
rs("name")=Replace_Text(author)
rs("note")=Replace_Text(note)
rs("tel")=Replace_Text(tel)
rs("show")=0
rs("click")=0
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("addtime")=Now()
rs("pictures")=SaveFile
rs.update
conn.close
set conn=nothing
Function Replace_Text(fString)
If Not IsNull(fString) Then
Fy_In = "or|join|union|like|modify|cast|drop|exec|insert|select|delete|update|count|alter|rename|chr|mid|truncate|char|declare|'"
Fy_Inf = split(Fy_In,"|")
For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(fString),Fy_Inf(Fy_Xh))<>0 Then
Response.Write ""
Response.End
else
Replace_Text=fstring
End If
Next
End If
End Function
%>