admin_goods_act.asp

商业网站/图片管理系统/投票系统/新闻管理系统/

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<%
if request.cookies("admin_OK")="" then
	response.redirect("admin_login.html")
end if
%>
<%dim db
db=0
%>
<!--#include file="../config/db.asp"-->
<!--#include file="../config/function.inc.asp"-->
<%if request.querystring("act")="add" or request.querystring("act")="update" then%>
<!--#include file="../config/formdata.inc.asp"-->
<%end if%>
<%
dim sql,rst,myErrors,rid,fs
set rst=server.createobject("adodb.recordset")
set fs=server.createobject("scripting.FileSystemObject")
rid=request.querystring("id")

%>


<%'---------------------添加商品--------------
if request.querystring("act")="add" then
	sql="select * from shop_goods"
	rst.open sql,conn,1,3
	rst.addnew
	rst("gds_name")=formdata.item("frm_gds_name")
	rst("gds_price")=formdata.item("frm_gds_price")
	rst("gds_viprate")=formdata.item("frm_gds_viprate")
	rst("gds_image")=formdata.item("frm_gds_image")
	rst("gds_intro")=formdata.item("frm_gds_intro")
	rst("gds_info")=formdata.item("frm_gds_info")
	rst("gds_gcid")=formdata.item("frm_gds_xiaolei")
	rst("gds_discount")=formdata.item("frm_gds_discount")
	rst.update
	rst.close
	set myErrors=conn.errors
	if myErrors.count=0 then
		msgboxU "添加商品成功！"
	else
		msgboxU "添加商品失败！原因："&myErrors.item(0).description
		if formdata.item("frm_gds_image")<>"" then
			fs.DeleteFile server.MapPath("../upfile")&"\"&formdata.item("frm_gds_image")
		end if
	end if
	'返回访问页
	response.redirect "admin_goods_add.asp"
	
end if
%>
<%'------------------删除商品------------------
if request.querystring("act")="del" then
	if not isnumeric(rid) or isempty(rid) then'ID参数合法性判断
		msgboxU "非法参数"
		'response.end()
	else'数据操作
		sql="delete from shop_goods where gds_id="&rid
		conn.execute sql
		set myErrors=conn.errors
		if myErrors.count=0 then
			msgboxU "删除商品成功！"
			if request.querystring("file")<>"" then'删除相应的图像文件
				fs.DeleteFile server.mappath("../upfile")&"\"&request.querystring("file")
			end if
		else
			msgboxU "删除商品失败！原因："&myErrors.item(0).description
		end if
	end if
	'返回访问页
	response.redirect "admin_goods_show.asp"
end if
%>
<%'------------------更新商品---------------------
if request.querystring("act")="update" then
	if not isnumeric(rid) or isempty(rid) then
		msgboxU "非法参数"
	else'数据操作
		sql="select * from shop_goods where gds_id="&rid
		rst.open sql,conn,1,3
		rst("gds_name")=formdata.item("frm_gds_name1")
		rst("gds_price")=formdata.item("frm_gds_price1")
		rst("gds_discount")=formdata.item("frm_gds_discount1")
		rst("gds_viprate")=formdata.item("frm_gds_viprate1")
		rst("gds_intro")=formdata.item("frm_gds_intro1")
		rst("gds_info")=formdata.item("frm_gds_info1")
		if formdata.item("frm_gds_image1")<>"" then'判断图片提交是否为空,如果不为空,则更新记录
			if rst("gds_image")<>"" then'判断原有数据表中是否有图片，若果有图片则删除upfile文件夹中的图片
				fs.DeleteFile server.mappath("../upfile")&"\"&rst("gds_image")
			end if
			rst("gds_image")=formdata.item("frm_gds_image1")
		end if
		rst.update
		rst.close
		set myErrors=conn.errors
		if myErrors.count=0 then'错误处理
			msgboxU "更新商品成功！"
		else
			msgboxU "更新商品失败！原因：" & myErrors.item(0).description 
			'------------如果失败则要删除上传来的图片------------------
			if formdata.item("frm_gds_image1")<>"" then'判断是否上传了图片，上传了就要删除此图片文件
				fs.DeleteFile server.mappath("../upfile")&"\"&formdata.item("frm_gds_image1")
			end if
		end if
	end if
	'返回展示页
	response.redirect "admin_goods_show.asp"
end if
%>
<%
set rst=nothing
conn.close
set conn=nothing
%>