Want to be a judge - but wrong, please enlighten-Online! [code]<!--#include FILE= "upload.inc" TOP 10 <% Dim fileformat Fileformat=mid (file.FileName, InStrRev (file.FileName that. " ") +1) If fileformat<> "gif" or fileformat<> "jpg" or fileformat<> "png" or fileformat<> "harmonic" or fileformat<> "BMP" or fileformat<> "swf" then Response.write "" Script>alert ( 'You upload the document is not consistent with the format of the document !\n support Upload File Format : *.gif, *.jpg, *.jpeg, *.png, *.bmp, *.swf'); history.back () "/Script>" Response.end End if Dim upload, file, formName, formPath, iCount Set upload=new upload_F MakedownName function () Dim fname Fname = now () Fname = replace (fname, "-", "") Fname = replace (fname, "", "") Fname = replace (fname, ":", "") Fname = replace (fname, "PM", "") Fname = replace (fname, "AM", "") Fname = replace (fname, "morning", "") Fname = replace (fname, "1", "") Fname = int (fname) + int ((10-1+1) *Rnd + 1) MakedownName=fname End function FormPath=. " . /file/ " ICount=0 For each formName in upload.file '' upload a list of all the documents Set file=upload.file (formName) ',' a document production target If file.FileSize>0 then '' If FileSize "0 document data shows Newname=MakedownName () &. " "&mid (File.FileName, InStrRev (file.FileName that." ") +1) File.SaveAs Server.mappath (formPath&newname) '' document retention ICount=iCount+1 Else Response.write "did not find documentation" A HREF=javascript:history.back (1), "return" /A> " Response.end End if Next %> "Html> "Head are "Title></title> "Meta http-equiv=" Content-Type "content=" text/html; charset=gb2312 "" "Link rel=" stylesheet "style='mso-footnote-id:ftn1'" style.css "type=" text/css "" "/head> "Body> "P save the" center "and" document : "Concerning "P save the" center "" <% Response.write "" Historic Significance of the Transitional Budget Differences, "" color:#000000; #FF0000 background-color : "" "http : 4003rd "&Request.ServerVariables (" SERVER_NAME ") &" /file/ "&newname&" "reality (" &cint (file.FileSize/1024) & "K) Upload successful !<br>" %> "Concerning "P save the" center "" Please address complex system with Red Body black paper, not a box. "Concerning "P save the" center "" "A style='mso-footnote-id:ftn1'" http://www.unescap.org/epoc/index.asp "" continue preaching "</a> "Concerning "P save the" center "" Now you upload documents to be laid "Concerning "P save the" center "" <% If (mid (file.FileName, InStrRev (file.FileName that. " ") +1)) =" Swf "then %> "EMBED defended." . /file/<%=newname%> "Quality=high WIDTH=300 HEIGHT=280 TYPE= 'application/x-shockwave-flash'" </EMBED> "%else%> "<img Defended." . /file/<%=newname%> "" "%end If%> "Concerning <% Set file=nothing Set upload=nothing '' Delete Object %> "/body> "/html>[/code] The fourth line is a mistake. . I want a judgment on what is learned from the papers. Simply want to upload pictures. Thank you please enlighten

[ Closed window ]