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

upload.asp
　 ％= Request. ServerVariables(SERVER_NAME)>/wdread.asp method=post>
　

主题:

      作者:

      发布时间:

      上载文件:
      发往URL: ％= Request.ServerVariables(SERVER_NAME)％>/users/<％=Request.ServerVariables(LOGON_USER) ％> size=20>

　　确定>

　　

wdread.asp

－data action=http://<％= Request.ServerVariables (SERVER_NAME) ％>/scripts/cpshost.dll?PUBLISH?wdwriter.asp method=post name=form1>
　　上载文件:％=session(filename)％>>
　　％= Request.ServerVariables (SERVER_NAME) ％>/users/wdls >

　 确定>
　　

　　

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]