求一个asp无组件上传代码，有要求，满意着追加50分

来源：百度知道 编辑：UC知道 时间：2024/07/02 02:07:27
要求共两个页面，一个是表单页面，但是包含多个字段，另一个为上传代码页。请给出两个页面代码，最重要的是给出上传代码的页面
第二上传的东西要传到文件目录下，不是数据库中，且能够改名字满意着给追加50分。
不要摘超,给我一个算法也可以!

<!--#include file="upload.asp"-->
<%
const upload_type=0 '上传方法：0=无惧无组件上传类，1=FSO上传 2=lyfupload，3=aspupload，4=chinaaspupload

dim upload,file,formName,SavePath,filename,fileExt
dim upNum
dim EnableUpload
dim Forumupload
dim ranNum
dim uploadfiletype
dim msg,founderr
msg=""
founderr=false
EnableUpload=false
SavePath = "../DateBasc/" '存放上传文件的目录
if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
if EnableUploadFile="No" then
response.write "系统未开放文件上传功能"
else
if session(&q