如何实现文件上传并自动归类功能？_编程10000问

NEWSZW_HZH_BEGIN-->

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_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]