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

　 确定>
　　

' 在上载时应对表单域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
　　－－>
　　

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]