proaddpicsave.asp

《实例精粹ASP》中部分源代码

<!-- #include file = "include/sysbase.asp" -->
<!--#INCLUDE FILE = "include/upload_5xsoft.inc"-->
<%
	dim uploadObj, szPath, fileObj, szFileName, tmp
	dim strSQL
	dim nID, szType
	
	set uploadObj = new upload_5xSoft
	set fileObj = uploadObj.File("filePic")	 '与上传表单中的file1相对应
	nID = uploadObj.Form("id")
	szType = uploadObj.Form("type")
	'判断参数是否正确
	if nID = "" or szType = "" then
		Response.Write "有错误发生，无法获取上传参数<br>"
		Response.Write "<a href=""javascript:window.close();"">[关闭]</a>"
		Response.End()
	end if
	
	szPath = "../"& szType &"/"	
	if fileObj.FileSize>0 then         '如果 FileSize > 0 说明有文件数据
		tmp = fileObj.FileName
		'以nID+原文件扩展名重新命名上传文件
		szFileName = nID & right(tmp, (len(tmp)-InStrRev(tmp,".")+1))
		Response.Write szFileName 
		fileObj.SaveAs Server.MapPath(szPath & szFileName)   '保存文件                  
	end if
	strSQL = "UPDATE product SET "& szType &" = '"& szFileName &"' WHERE id = "& nID
	conn.Execute(strSQL)
	'释放对象，关闭连接
	set fileObj = nothing     
	CloseConn()
%>
<script language = Javascript>
<!--
	alert("上传图片成功！");
	opener.location.reload();
	window.close();
-->
</script>