说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何实现文件上传?在线急等!!!

编辑:说三道四文库 发布时间:2018-02-25 02:21
HTML文档下载 WORD文档下载 PDF文档下载
我想做一个台管理程序,其中涉及到文件的上传,但不知道怎样实现,急求助于各位,给个思路,顺便给段代码参考,先谢谢大家了!!
Set FileMgr = Server.CreateObject("SoftArtisans.FileUp")
    'a=filemgr.form("title")
sql="Select * from datamanager"
Set RS = CreateObject("ADODB.Recordset")
RS.open sql,Conn,adOpenKeyset,adLockOptimistic
rs.Addnew
rs("name")=Session("name")
rs("title")=filemgr.form("title")
'rs("type")=filemgr.form("type")

dim sva
sva=filemgr.form("pid")
rs("parentid")=filemgr.form("pid")
rs("content")=filemgr.form("remark")
rs("datetime")=date()
'rs("filename")=filemgr.Form("DocumentPath")
'rs("title")=filemgr.form("title")
If filemgr.Form("file1").TotalBytes <>0 Then 
Pos = InstrRev(filemgr.Form("file1").UserFilename , "\")
Pos=Pos+1
RS("filename")= Mid(filemgr.Form("file1").UserFilename ,Pos)
filemgr.Form("file1").SaveAsBlob RS("filevalue")
End If
rs.Update
rs.close
set rs=nothing
set filemgr=nothing
俺知道好像非的要用组件!
推荐三篇文章,前两篇讲基础,最后一篇是完整解决方案,希望对你有所帮助。

http://www.csdn.net/develop/article/19/19253.shtm

http://www.csdn.net/develop/article/19/19179.shtm

http://www.csdn.net/develop/article/19/19615.shtm

如果有是做个人网站,又或是一般中小型企业网站,上传文件并不多,可以使用无组件上传即可,如果是门户网站,或是上传文件较多的,建议采用组件。

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘