求ASP多张图片上传的详细代码

来源：百度知道 编辑：UC知道 时间：2024/05/31 09:42:48
RT

<%Server.ScriptTimeOut=5000%>
<!--#include file="conn.asp"-->
<!--#include file="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
<link rel="stylesheet" href="images/style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
dim upload,file,formName,formPath,iCount,exeec,wjm,lm
set upload=new upload_5xsoft

formPath="pictures/"
wjm=upload.form("file")
wjdx=0
for each formName in upload.objFile

if upload.form("zclj")="" then
set file=upload.file(formName)
wjdx = file.filesize
kzm = right(file.filename,4)
else
kzm = right(wjm,4)
end if

if lcase(kzm)<>".gif" and lcase(kzm)<>"