• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

如何实现文件上传并自动归类功能?

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

upload.asp
  <form action=http://<= Request. ServerVariables(SERVER_NAME)>/wdread.asp method=post>
  <p>主题: <input type=text name=subject><br>
     
作者:<input name=author type=text><br>
     
发布时间: <input name=date1 type=text><br>
     
上载文件:<input type=file name=filename>
     
发往URL: <input type=hidden name=TargetURL value=http://<= Request.ServerVariables(SERVER_NAME)>/users/<=Request.ServerVariables(LOGON_USER) > size=20><br>
  <input type=submit value=确定> </p>
  </form>


wdread.asp

<form enctype=multipart/formdata action=http://<= Request.ServerVariables (SERVER_NAME) >/scripts/cpshost.dll?PUBLISH?wdwriter.asp method=post name=form1>
  上载文件:<input type=file name=filename value=<=session(filename)>>
  <input type=hidden name=TargetURL value=http://<= Request.ServerVariables (SERVER_NAME) >/users/wdls >

  <input type=button name=upload value=确定>
  </form>


  <scripts language=VBScript>

' 在上载时应对表单域filename的值与upload.asp程序中的域值进行比较, 因为在upload.asp中输入的文件名在本程序中预置给表单域filename,一旦客户端重新输入新的文件名后提交确认,会使程序wdwriter.asp中写入数据库的文件名与实际上载的文件名不一样, 导致网页连接出错.此处进行判断,如果两者相等,则立即上载,否则取消操作.
  <!--

sub upload_onclick()

set myform=window.document.form1

tmp=myform.filename.value

    if strcomp(tmp,<=session

 (filename)>)=0 then

form1.submit

else
     msgbox ,您输入的文件名有误,请重新输入!

end if
 end sub
  -->
  </scripts>

wdwriter.asp
<

Set mydata = Server.CreateObject (ADODB.Connection) mydata.Open DSN=xczh;UID=sa;PWD=;

' 打开数据库.

date1=session(date1)

 ' 取各表单域的值.取时间.
subject=session(subject)

 ' 取文件主题.
author=session(subject)

' 取作者.
filename=session(filename)

' 取文件名.
  TargetURL= session(TargetURL)

' 取文件在服务器中存放的物理地址.

  sqlstr=insert into wdlsb values( sn , subject ', date1 ',filename ', TargetURL ', author ')

' 写数据库并保存.
  Mydata.Execute(sqlstr)
  %>

[1]


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
如何上传一个单纯的HTML文件?发布时间:2022-02-05
下一篇:
如何实现无组件上传二进制文件?发布时间:2022-02-05
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap