[求助]上传文件很复杂。

<form method=get action=test.asp>
<input type="file" name="pic" id="pic" accept="image/gif, image/jpeg"/>
<input type=submit />
</form>

<%
dim url
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")

url = request.queryString("pic")

response.write("url --->[" &url&"]")
response.write(vbnewline)

if (fs.FileExists("C:\a.gif") =false)then
    response.write(vbnewline)
    response.write("still not yet find the file")
else
    response.write("the file is "&fs.FileExists("C:\a.gif"))
end if

if(url <>"") then
    fs.CopyFile url, ".\webpage"
    response.write("success upload file")
end if


set fo=nothing
set fs=nothing

%>