求ASPasp无组件上传附带远程上传功能

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:05:18
如题
能够选择本地上传还是远程上传的代码

分不够再加！
拜谢！
非常着急
拜托不要乱拷贝人家的
用都不能用

以下是一个无组建上传的事例，很简单
新建立一个文件index.asp 把以下代码装入
再新建一个upload.asp把下面贴出的upload.asp的代码贴进去放在一个文件夹内，改下参数，打开index.asp即可上传

<!--#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">