ASP实现多图片上传到指定的目录并存到数据库_电脑软硬件应用网

首页·电脑学院·电脑故障·操作系统·硬件教程·局域网技术·QQ技巧·网络安全·办公软件· 数据库

导航·设计学院·图像处理·网页设计·软件教程·服务器技术·笔记本·专家装机·网络编程·在线问答

当前位置：电脑软硬件应用网 > 设计学院 > 网络编程 > ASP教程 > 正文

ASP实现多图片上传到指定的目录并存到数据库

ASP实现多图片上传到指定的目录并存到数据库

2005-12-30 19:21:25　　文/45IT收集　　出处:电脑软硬件应用网　　

leInfo
  dim FormName,FileName,FilePath,FileSize,FileStart
  Private Sub Class_Initialize
    FileName = ""
    FilePath = ""
    FileSize = 0
    FileStart= 0
    FormName = ""
  End Sub

Public function SaveAs(FullPath)
    dim dr,ErrorChar,i
    SaveAs=1
    if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
    if FileStart=0 or right(fullpath,1)="/" then exit function
    set dr=CreateObject("Adodb.Stream")
    dr.Mode=3
    dr.Type=1
    dr.Open
    upfile_5xSoft_Stream.position=FileStart-1
    upfile_5xSoft_Stream.copyto dr,FileSize
    dr.SaveToFile FullPath,2
    dr.Close
    set dr=nothing
    SaveAs=0
  end function
End Class
</SCRIPT>
save.asp
<% dim dsn,conn
dsn="driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=database"
set conn=server.createobject("adodb.connection")
conn.open dsn
%>
<% dim file,file1,file2
file=trim(request.form("myface"))
file1=trim(request.form("myface1"))
file2=trim(request.form("myface2"))
set rs=server.createobject("adodb.recordset")
sql="Insert Into sFile(image,image1,image2) Values('"& file &"','"& file1&"','"& file2&"')"
conn.execute(sql)
response.redirect "ok.asp"
%>
呵呵，代码多了点。复制以上的代码到你的机器上运行是不是你想要的结果！至于显示图片相信大家都明白了吧！我就不必多说了。值得一提的是此代码不仅可以用于图片上传而是任何格式的文件都可以哦，至于文件大小也可以由你自己来定义哦！还有的就是我只定义了上传三个要是要上传更多的话稍为改下代码就可以了。

上一页 [1] [2] [3]

上一篇文章：用ASP技术编制隐藏用户密码程序

下一篇文章：巧用ASP生成PDF文件

最新热点		最新推荐		相关文章
				三种中文分词算法优劣比较 ASP教程:删除记录和链接数据库程序解… ASP生成html或者txt文件实例分享常用7款天气预报代码iframe嵌入… ASP错误信息解决:IIS启用父路径的设… 禁止网页缓存的方法及代码推荐如何抓取显示防盗链图片的方法为什么浏览不了dreamweaver中ASP文件… asp入门教程之讲解ASP脚本执行的顺序 asp将access数据导出为excel电子表的…