上傳排序源代碼

& lt% '記住創建壹個圖像目錄來存儲圖片' = = = = = = = = = = = = = = = = = = = = '上傳。ASP文件內容QQ 45119302 ' * * * * * * * * * * * * * * * * *。這時候就不能用普通的request("XXX ")來獲取信息，否則如果request.totalbytes> >，就得不到正確的信息；0然後formsize = request。“總字節數”取二進制流字節長度formdata = request。binaryread (formsize)'並讀取二進制流內容BNC rlf = chrb(13)&；chrB(10)data start = instrb(formdata，bncrlf & ampBncrlf)+3 '取二進制流文件的起始位置(兩個回車和換行符)Divider = Leftb (formdata，instrb (formdata，BNCRLF)-1)'定義取二進制流字段分隔標記(內容為二進制)dataend=instrb(datastart，formdata，Divider)-datastart '取二進制流文件部分的結束位置'將文件信息保存到數據庫'調用ImgToDb()'將上傳的圖片以二進制保存到數據庫'調用SaveTofile()'保存將上傳的圖片以二進制保存到數據庫，mydata = midb (formdata，data start+1，dataend)' Set conn=server。CreateObject(" adodb . connection ")conn . provider = " Microsoft . jet . oledb . 4.0 " conn . open server . mappath(" book/stu . MDB ")Set RS = server。CreateObject(" adodb . recordset ")RS . open " select * from img "，conn，3 rs.movelast rs.addnew rs("img ")。appendchunk my data RS . update response . binary write RS(1)response。End End Sub Sub SaveTofile()將上傳的文件保存到服務器' 2。將獲取的信息保存為二進制流文件-stmssavepath = server . mappath(" images ")& amp；" \ " '根據情況，應該先建立相應的目錄或者啟動fso自動建立set strm = createobject ("adodb。str " &；“eam”)和strm。type=1 '二進制模式。“mode=3”指定打開模式為讀取和寫入。打開。write formdata“寫入二進制流內容”以文本模式讀取數據，用於獲取提交的文件路徑、名稱和其他信息。position=0 '將光標指向數據標題。type=2 '以文本模式閱讀。CharSet = "gb2312 " '設置中文編碼Formhead =。readtext(數據開始-1)。讀取以' 2.1結尾的表單頭，得到上傳的文件名Filename Full Name = Fregexpsgl(form head，true，true，true，"[\ s \ s] * filename \ = " "(。*?)" "[\ s \ s] *，" $1 ") fname = split (fullname，" \ ") filename = fname (ubound (fname))'獲取了文件名setfso = server . createobject(" scripting . file " & " System " & amp；“Object”)'判斷是否與本地磁盤文件同名，否則重命名XXX(1). xxxiffso . file exists(save path &；filename)然後對於i=1到999 Fxname=Split(filename，" ")Fn=Left(文件名，InstrRev(文件名，" ")-1)Fnx = fxname(UBound(fxname))如果不是fso。文件存在(保存路徑& ampFn & amp"(" & amp我& amp")."& ampFnx)那麽filename = Fn & amp"(" & amp我& amp")."& ampFnx退出，結束If下壹個結束If '3。從stm二進制流文件中獲取有效信息，並將文件集保存為strm = createobject(" adodb . str " &；“eam”)與formstrm。type=1 '二進制模式。模式= 3。Openstrm。Position = DataStart '指定stm對象的起始位置，取變量bStart的值作為起始位置strm.copyTo formstrm，Dataend '將stm二進制流復制到fromStm對象，其長度為bEnd變量的長度。savetofile(save path & amp；Filename)，2 '將信息保存到文件中，如果存在相同的名稱，則覆蓋。以set strm = nothing set form strm = nothing response結束。重定向"？上傳=確定& ampname = " & ampfilename End Sub function fRegExpSgl(str，glb，igc，mtl，pt，RPT)dim re set re = new RegExp re . global = glb re . ignore case = IGC re . multiline = MTL re . pattern = pt fRegExpSgl = re . replace(str，RPT)set re = nothing End function % & gt；& lthtml & gt& ltbody leftmargin="0" topmargin="0 " >& ltform action = " " method = " post " name = " form 1 " enctype = " multipart/form-data " >& lt！-enctype = "multipart/form-data "不能省略以保證提交信息的正確性，信息可以遠程提交-& gt；& ltinput name = " FileName " type = " FILE " class = " tx 1 " size = " 40 " style = " height:22 " >& ltinput type = " submit " name = " submit " value = " upload " style = " color:red；身高:22；寬度:70 " >& lt/form & gt；& lt“%”測試語句:如果request ("upload") = "OK "然後response.write，則輸出相關圖片