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/form-data 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_"MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt">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]

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

免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
评论“如何实现文件上传并自动归类功能?”
暂无“如何实现文件上传并自动归类功能?”评论...

RTX 5090要首发 性能要翻倍!三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。

据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。