求用asp编写的文件上传程序，路径存在数据库，文件在服务器端文件夹下

来源：百度知道 编辑：UC知道 时间：2024/05/31 16:09:45
求用asp编写的文件上传程序，路径存在数据库，文件在服务器端文件夹下
完整的程序代码，自己试成功后在回帖 谢谢，因为网上很多类似的程序
但是基本上我还没找到完全有用的！！

请高手帮忙看下到底哪错了，有些文件上传不了
<%
Call CheckUserLogin(username)
Dim upload,filepath,filelx,formName,EditName,wjname,userfaceid
Dim upfilename,filename,todb_filename,fileExt,i,filen,ranNum
Dim MaxUpSize
set upload=new upload_file
if upload.form("act")="uploadfile" then
filepath=upload.form("filepath")
filelx=upload.form("filelx")
formName=upload.form("formName") '回传到上页面编辑框所在Form的Name
EditName=upload.form("EditName") '回传到上页面编辑框的Name
wjname=upload.form("wjname")
userfaceid=upload.form("userfaceid")

MaxUpSize=UpImgSize
if filelx="swf" then MaxUpSize=UpFlashSize
if filelx="wmp" then MaxUpSize=UpWMPSize
if filelx="real" then MaxUpSize=UpRealSize
if userfaceid<>"" then MaxUpSize=GetCnkConfig(45)

i=0
for each upfilename in upload.File