if request("action")="jpg" then
if request("submit")="jpg" then
dim strtype,strname,strnum
img=request.Form("file")这里为什么取不到值??
Set fs=server.CreateObject("Scripting.FileSystemObject")
fs.copyfile img,Server.MapPath("\img")& "\"'复制文件
strnum=instrRev(img,"/")'判断"/"在字符串中出现的次数
strname=mid(img,strnum+1)'"/"后面的文件名
response.Write "<script language=javaScript>alert('上传成功!');admin.asp?edit=edit&ico=strname</script>"
end if
response.write "<form name='form' action=?action=jpg&submit=jpg method=post enctype=multipart/form-data>"
response.write "<input type=file name=file class='tx' size='20'> "
response.write "<input type=submit name=submit value=上传 class=""tx1"">"
response.write "</form>"
end if%>