changepro.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<%if session("company")=""   then 
response.Write "<script language='javascript'>alert('请先登录！');window.location.replace('login.asp');</script>"
response.End

cn.close
set cn=nothing
end if
ch =request.QueryString("ch")
id =request.QueryString("id")
select case ch '选择修改方式1为修改2为删除
case 1
set rs=server.CreateObject("adodb.recordset")
sql="select * from product where id="&id
rs.open sql,cn,1,3
rs("pname")=trim(request.Form("pname"))
rs("leibie")=trim(request.Form("leibie"))
rs("price")=trim(request.Form("price"))
rs("danwei")=trim(request.Form("danwei"))
rs("guige")=trim(request.Form("guige"))
rs("produce")=trim(request.Form("produce"))
rs("company")=trim(request.Form("company"))
rs("gongshang")=trim(request.Form("gongshang"))
rs("address")=trim(request.Form("address"))
rs("man")=trim(request.Form("man"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("fax")=trim(request.Form("fax"))
rs("zhttp")=trim(request.Form("zhttp"))
rs("fhttp")=trim(request.Form("fhttp"))
rs("inf")=trim(request.Form("inf"))
rs.update
response.Write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
case 2
set rs=server.CreateObject("adodb.recordset")
sql="select *  from product where id="&id
rs.open sql,cn,3,3
if rs("pic")<>"" then
		Set fdel = CreateObject("Scripting.FileSystemObject")	   
        tempImageDir = Server.MapPath("pro_pic/"&trim(rs("pic")))
	         if (fdel.FileExists(tempImageDir)) Then
	          fdel.DeleteFile(tempImageDir)
			set fdel=nothing
		   end if
		   end if
	cn.execute"delete from product where id="&id
response.Write "<script language=javascript>alert('删除成功！');window.close();;</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
end select
%>