热心的人请进?

以前我天天都是用lyfupload组件上传图片!
昨天突然想用无组件上传图片,说干就干
于是找了很多资料与代码?可奇怪的是老是调不出来(其实很多都是缺胳膊少腿的,不是少了这张页面就是少了那张)?
下面是我找的一些资料,有的也是我们CSDN那里找的,看看问题出在那,又或者你们谁有通过测试的代码呢?
能不能发一份给我,我将感激不尽?(QQ147442952 EMAIL:wwwhangeb2004@163.com)

11 个解决方案

#1

化境无组件和无惧上传类都不错，也有详细的说明文档。你去搜索一下。网上很多。

#2

chinaz.com
搜索上传

#3

无惧上传类已经用过
发现也调不出来,不晓的原因何在

#4

漫漫搜索吧
肯定能找的到的

#5

<%
  fname=Request.QueryString("upfile")
  Set obj = Server.CreateObject("ADODB.Stream")
  obj.Type = 1 ' adTypeBinary
  obj.Open
  obj.LoadFromFile fname
  obj.SaveToFile Server.mappath(".")&"\"&"pifoocom.gif",2
  %>

使用方法：
把上面的代码写成upload.asp
在浏览器里面输入：
http://172.16.13.62/aspstudy/upload/myup/upload.asp?upfile=D:\Inetpub\wwwroot\aspstudy\netos\images\asp.gif
XXX为你的主机地址
执行完后你会看到你的目录下面多了一个pifoocom.gif !!!

  根据原理我们可以扩展以下代码：
upload.asp文件
  <%
  Function GetFileName(ByVal fpath)
If fpath<>"" Then
GetFileName=mid(fpath,InStrRev(fpath, "\")+1)
Else
GetFileName=""
End If
  End  function

  fpath = Request.Form("upfile")
  username=request.form("username")
  Set mystream = Server.CreateObject("ADODB.Stream")
  mystream.Type = 1 ' adTypeBinary
  mystream.Open
  mystream.LoadFromFile fpath
  mystream.SaveToFile (Server.MapPath("upfiles") & "\" & GetFileName(fpath)),2
  mystream.Close
  response.write username & ",你好,你的文件:<BR>"
  response.write fpath & "已经上传成功！"
%>

upload.htm文件
  <FORM METHOD=POST ACTION="upload.asp">
请输入姓名：<INPUT TYPE="text" NAME="username"><BR>
请选择文件：<input type="file" name="upfile"><BR>
<INPUT TYPE="submit" value="上传">  <INPUT TYPE="reset" value="取消">
</FORM>

#6

很感谢楼上这位大哥的代码!
其实这个功能我已经实现,不过要留贴的一定都有分了,不够我把我所用的家当都拿出来发好了!
因为你们都是热心的人吗?
我还没办法实现的是如何把图片路劲放到数据库中
并且又可以把图片读到页面上?

#7

一直都没用过组件上传.我觉得无组件就能满足了,大不了来个一对多嘛

#8

可大概是因为我以前刚开始学ASP就用LYFUPLOAD上传图片
现在也想学学如何用无组件上传.可老是找不到相应的代码
自己写是不可能写出来了
所以只能去先看一下别人的代码
这几天老是找不到相应的
很郁闷

#9

你去下載一個整程序出來就行了。。像什麼圖片，相片管理系統的呀。。下載後去打UPLOAD類似的文件就行了。。。

#10

楼上提的倒是一个好主意
不过这样看也太累了点
怕时间没那么多呀

#11

CSDN上很多的,到ASP小类里SOU一下

#1