浙江海洋学院毕业论文
''在目录后加(/) if end if iCount=0
for each formName in upload.file ''列出所有上传了的文件 set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
response.write \上传成功,请复制下边剪切板中内容而后粘贴到图书图片剪切板内!
\
dim thename,fsobj,spp,paths '文件更名
thename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&right(file.filename,4)
'response.write thename spp=file.filename file.filename=thename
file.SaveAs Server.mappath(formPath&file.FileName)
paths=server.mappath(\set fsobj=server.CreateObject(\if fsobj.fileExists(\fsobj.deletefile(\end if
set fsobj=nothing response.write
\
type=text
size=26 复
制
value=bookpic/\onclick=window.clipboardData.setData('text',this.previousSibling.value)>窗口\
iCount=iCount+1 end if
set file=nothing next
set upload=nothing ''删除此对象 response.write \'Htmend iCount&\个文件上传成功!\sub HtmEnd(Msg) set upload=nothing
第 26 页 共 31 页
right(formPath,1)<>\then
formPath=formPath&\
关闭
浙江海洋学院毕业论文
response.write \[关闭窗口]