图片上传失败，请指点 - 编程论坛

<head>
<title>文件上传系统</title>
<link href="../photo/css.css" rel="stylesheet" type="text/css">
<script language="javascript">
function CheckWorkFile() {
        var obj = document.getElementById('TUPATH');
        if (obj.value == '') {
            alert('请先选择设备实物图片！');
            return false;
        }
        var stuff = obj.value.substr(obj.value.length-3, 3);
        if (stuff != 'JPG' && stuff != "BMP" && stuff != "GIF" && stuff != 'jpg' && stuff != "bmp" && stuff != "gif") {
            alert('文件类型选择错误,仅支持JPG/BMP/GIF文件');
            return false;
        }
         window.location.href = 'index.asp?lxs=tyzc&ph=' + obj.value;
    }
</script>
</head>
<body>
文件上传：<input type="file" name="TUPATH" size="42"> <input type="button" value="提交" name="bb" onClick="CheckWorkFile();">
</body>
<%
dim LXS,file,filename,HZ
LXS = Request("lxs")
If LXS <> "" Then
file = Request("ph")
HZ = mid(file,InStrRev(file, "."))
filename=year(date) & month(date) & day(date) & Hour(time) & minute(time) & second(time) & HZ

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile file
objStream.SaveToFile
server.mappath("SBTP/"& HZ),2
objStream.Close

response.write"<script>alert('图片上传成功！');window.location.href='index.asp';</script>"
end if
%>