📄 updateupload.asp

📁 这是一本关于高级软件工程的书籍
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="../inc/conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>意科在线购物系统</title>
<%
	if session("Sname") = "" then
%>
	<SCRIPT language="javascript">
	 
	 {
	   window.alert("您还没有登陆系统!");
	   window.location="default.asp";
	 }
	
	</SCRIPT>
<%
		response.end
	end if
%>
</head>

<body>
<%
	Set obj=Server.CreateObject("LyfUpload.UploadFile")
	pname = trim(obj.request("pname"))
	pprice = trim(obj.request("pprice"))
	freight = trim(obj.request("freight"))
	spec = trim(obj.request("spec"))
	xremark = trim(obj.request("xremark"))
	pic = trim(obj.request("picupload"))
	remark = trim(obj.request("remark"))
	iscommend = trim(obj.request("radiobutton"))
	isopen = trim(obj.request("radiobutton1"))
	
	if pprice = "" then 
		pprice = 0
	end if
	
	if freight = "" then 
		freight = 0
	end if
	
	if iscommend = 1 then 
		bcomm = true
	else
		bcomm = false
	end if

	if isopen = 1 then 
		bopen = true
	else
		bopen = false
	end if
	
	sql = "select * from goods where pid='" &session("pid")& "'"
	rs.open sql,conn,1,3
	
	if not rs.eof then
		num = instr(pic,".")		'判断是否上传图片
		if num <> 0 then
			'取上传图片的扩展名
			strpic = mid(pic,instr(pic,"."),instr(pic,"Content-Type")-instr(pic,".")-3)		
			picname = left(pic,instr(pic,"."))
			picname = mid(picname,instrRev(picname,"\")+1,instr(picname,".")-instrRev(picname,"\")-1)&strpic	'取得文件名
			strpic = session("pid") & strpic

			aa = obj.filetype("picupload")			'获取图片的类型

			if left(aa,len(aa)-3) = trim("image/gif") or left(aa,len(aa)-3) = "image/pjpeg" then
				if pname<>trim(rs("pname")) or pprice<>trim(rs("price")) or freight<>trim(rs("freight")) or picname<>trim(rs(                   "ppic")) or spec<>trim(rs("spec")) or xremark<>trim(rs("xremark")) or remark<>trim(rs("remark")) or bcomm<>rs(                   "iscommend") or boepn<>rs("isopen") then
				   rs("price")=pprice
				   rs("pname")=pname
				   rs("freight")=freight
				   rs("ppic")=strpic
				   rs("spec")=spec
				   rs("xremark")=xremark
				   rs("remark")=remark
				   rs("iscommend")=iscommend
				   rs("isopen")=isopen
				   rs.update
				   
				   ss=obj.SaveFile("picupload",server.MapPath("../")&"\pic")		'上传图片到pic文件夹下
				   '修改上传图片的文件名
				   Set o_Fso = CreateObject("Scripting.FileSystemObject")
				   o_Fso.CopyFile server.MapPath("../")&"\pic\"&picname,server.MapPath("../")&"\pic\"&strpic
				   o_Fso.DeleteFile server.MapPath("../")&"\pic\"&picname
				   
				   response.redirect("manufacture_info_operateup.asp?stat=1&pid="&session("pid"))
				else
					response.redirect("manufacture_info_operateup.asp?stat=2&pid="&session("pid"))
				end if
			else
				response.redirect("manufacture_info_operateup.asp?stat=3&pid="&session("pid"))
			end if
		else
			if pname=trim(rs("pname")) and pprice=trim(rs("price")) and freight=trim(rs("freight")) and spec=trim(rs("spec")) and               xremark=trim(rs("xremark"))	and remark=rs("remark") and bopen=rs("isopen") then
    		   response.redirect("manufacture_info_operateup.asp?stat=2&pid="&session("pid"))
			else
				rs("price")=pprice
			    rs("pname")=pname
			    rs("freight")=freight
			    rs("spec")=spec
			    rs("xremark")=xremark
			    rs("remark")=remark
			    rs("iscommend")=iscommend
			    rs("isopen")=isopen
			    rs.update
							
			    response.redirect("manufacture_info_operateup.asp?stat=1&pid="&session("pid"))
			end if
		end if
	end if
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -