ASP制作上传图片并显示图片

你这个需要用ajax来实现了,

有点复杂,

上传你会了吗?

<% Function GetFileName(ByVal strFile) If strFile <> "" Then GetFileName = mid(strFile,InStrRev(strFile, "\")+1) Else GetFileName = "" End If End function Function upupup(f) dim ppp ppp = Server.MapPath(GetFileName(f)) Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.LoadFromFile f objStream.SaveToFile ppp,2 objStream.Close upupup = ppp End Function %> <%if Request.Form("f")<>"" then response.write( upupup(Request.Form("f")) )%> <form name="FORM" action="" method="post"> <input type="file" name="f" value=""> <input type="submit" name="submit" value="OK"> </form>

这样就上传到本文件一个目录下了，且名字没有变。也就是说没有重命名，跟你硬盘上的图片名一致。