product_upimage.asp

基于IIS+ASP的

<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
'johnson code
user=session("user")
pwd=session("pwd")
chkuser user,pwd
%>
<%
 idd=request("idd")
 pid=request("pid")
 T_path=server.MapPath("photo")    '----图片存放的实际路径－－－
 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
	Set objUpload = Server.CreateObject("aspcn.upload")
	
	objupload.maxsize=100000000 	  '设定文件最大长度不超过100K,默认值为100K
	objupload.overwrite=2		      '设定如果目标文件存在，进行覆盖，默认为1，表示不能覆盖
	objupload.path=T_path	          '设定上传到服务器的路径，这里必须为绝对路径，默认值为c:\
	objupload.uptofile=1  
	varResult=objUpload.Upload        '到此为止，如果varResult返回OK，则文件上载成功
	
	If varResult="OK" Then  ' 
        idno=objUpload.Form("idno") 
        picname=objUpload.filename("picname")
	   	sql1="update product set picname='"&picname& "' where id="&idno
 		set rs1=Conn.Execute(sql1)
		IF err=0 then 
		     'response.Write(sql1)
		     showok "图片上传成功!","productlist.asp?idd="&idd&"&pid="&pid
		ELSE
			showerr "图片上传失败!","productlist.asp?idd="&idd&"&pid="&pid
		END IF	
		set rs1=nothing
	else
	   showerr "图片上传失败!","productlist.asp?idd="&idd&"&pid="&pid
    end if
 end if	
%>