productedit.asp

相对于流通企业

        rs("ViewFlagTr")=Request.Form("ViewFlagTr")
	  else
        rs("ViewFlagTr")=0
	  end if
	  if Request.Form("ViewFlagEn")=1 then
        rs("ViewFlagEn")=Request.Form("ViewFlagEn")
	  else
        rs("ViewFlagEn")=0
	  end if
	  if Request.Form("SortID")="" and Request.Form("SortPath")="" then
        response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
        response.end
	  else
	    rs("SortID")=Request.Form("SortID")
		rs("SortPath")=Request.Form("SortPath")
	  end if
      set rsRepeat = conn.execute("select ProductNo from suqun_Products where ProductNo='" & trim(Request.Form("ProductNo")) & "'")
      if not (rsRepeat.bof and rsRepeat.eof) then '判断此产品编号是否存在
        response.write "<script language=javascript> alert('" & trim(Request.Form("ProductNo")) & "此产品编号已经存在，请换一个编号再试试！');history.back(-1);</script>"
        response.end
      else
	    rs("ProductNo")=trim(Request.Form("ProductNo"))
	  end if
	  rs("ProductModel")=trim(Request.Form("ProductModel"))
	  rs("PriceSi")=trim(Request.Form("PriceSi"))
	  rs("PriceTr")=trim(Request.Form("PriceTr"))
	  rs("PriceEn")=trim(Request.Form("PriceEn"))
	  rs("MakerSi")=trim(Request.Form("MakerSi"))
	  rs("MakerTr")=trim(Request.Form("MakerTr"))
	  rs("MakerEn")=trim(Request.Form("MakerEn"))
	  if isnumeric(trim(Request.Form("px"))) then
	  rs("px")=trim(Request.Form("px"))
	  else
	  rs("px")=0
	  end if  
	  if Request.Form("CommendFlag")=1 then
        rs("CommendFlag")=Request.Form("CommendFlag")
	  else
        rs("CommendFlag")=0
	  end if
	  if Request.Form("NewFlag")=1 then
        rs("NewFlag")=Request.Form("NewFlag")
	  else
        rs("NewFlag")=0
	  end if
	  if Request.Form("HotFlag")=1 then
        rs("HotFlag")=Request.Form("HotFlag")
	  else
        rs("HotFlag")=0
	  end if
      GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
	  rs("GroupID")=GroupIdName(0)
	  rs("Exclusive")=trim(Request.Form("Exclusive"))
	  rs("BigPic")=trim(Request.Form("BigPic"))	  
	  rs("SmallPic")=trim(Request.Form("SmallPic"))
	  rs("ContentSi")=Request.Form("ContentSi")
	  rs("ContentTr")=Request.Form("ContentTr")
	  rs("ContentEn")=Request.Form("ContentEn")
	  rs("AddTime")=now()
	end if  
	if Result="Modify" then '修改产品信息
      sql="select * from suqun_Products where ID="&ID
      rs.open sql,conn,1,3
      rs("ProductNameSi")=trim(Request.Form("ProductNameSi"))
      rs("ProductNameTr")=trim(Request.Form("ProductNameTr"))
      rs("ProductNameEn")=trim(Request.Form("ProductNameEn"))
	  if Request.Form("ViewFlagSi")=1 then
        rs("ViewFlagSi")=Request.Form("ViewFlagSi")
	  else
        rs("ViewFlagSi")=0
	  end if
	  if Request.Form("ViewFlagTr")=1 then
        rs("ViewFlagTr")=Request.Form("ViewFlagTr")
	  else
        rs("ViewFlagTr")=0
	  end if
	  if Request.Form("ViewFlagEn")=1 then
        rs("ViewFlagEn")=Request.Form("ViewFlagEn")
	  else
        rs("ViewFlagEn")=0
	  end if
	  if Request.Form("SortID")<>"" and Request.Form("SortPath")<>"" then
	    rs("SortID")=Request.Form("SortID")
		rs("SortPath")=Request.Form("SortPath")
	  else
        response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
        response.end
	  end if
	  rs("ProductNo")=trim(Request.Form("ProductNo"))
	  rs("ProductModel")=trim(Request.Form("ProductModel"))
	  rs("PriceSi")=trim(Request.Form("PriceSi"))
	  rs("PriceTr")=trim(Request.Form("PriceTr"))
	  rs("PriceEn")=trim(Request.Form("PriceEn"))
	  rs("MakerSi")=trim(Request.Form("MakerSi"))
	  rs("MakerTr")=trim(Request.Form("MakerTr"))
	  rs("MakerEn")=trim(Request.Form("MakerEn"))
	  if  not isnumeric(trim(Request.Form("Px"))) then
	   rs("Px")=0
	   else
	   if isnumeric(trim(Request.Form("px"))) then
	  rs("px")=trim(Request.Form("px"))
	  else
	  rs("px")=0
	  end if
          end if	  
	  if Request.Form("CommendFlag")=1 then
        rs("CommendFlag")=Request.Form("CommendFlag")
	  else
        rs("CommendFlag")=0
	  end if
	  if Request.Form("NewFlag")=1 then
        rs("NewFlag")=Request.Form("NewFlag")
	  else
        rs("NewFlag")=0
	  end if
	  if Request.Form("HotFlag")=1 then
        rs("HotFlag")=Request.Form("HotFlag")
	  else
        rs("HotFlag")=0
	  end if
      GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
	  rs("GroupID")=GroupIdName(0)
	  rs("Exclusive")=trim(Request.Form("Exclusive"))
	  rs("BigPic")=trim(Request.Form("BigPic"))	  
	  rs("SmallPic")=trim(Request.Form("SmallPic"))
	  rs("ContentSi")=Request.Form("ContentSi")
	  rs("ContentTr")=Request.Form("ContentTr")
	  rs("ContentEn")=Request.Form("ContentEn")
	end if
	rs.update
	rs.close
    set rs=nothing 
    response.write "<script language=javascript> alert('成功编辑产品信息！');changeAdminFlag('产品列表');location.replace('ProductList.asp');</script>"
  else '提取产品信息
	if Result="Modify" then
      set rs = server.createobject("adodb.recordset")
      sql="select * from suqun_Products where ID="& ID
      rs.open sql,conn,1,1
      if rs.bof and rs.eof then
        response.write ("数据库读取记录出错！")
        response.end
      end if
	  ProductNameSi=rs("ProductNameSi")
	  ProductNameTr=rs("ProductNameTr")
	  ProductNameEn=rs("ProductNameEn")
	  ViewFlagSi=rs("ViewFlagSi")
	  ViewFlagTr=rs("ViewFlagTr")
	  ViewFlagEn=rs("ViewFlagEn")
	  SortNameSi=SortText(rs("SortID"))
	  SortID=rs("SortID")
	  SortPath=rs("SortPath")
	  ProductNo=rs("ProductNo")
      ProductModel=rs("ProductModel")
          Px=rs("Px")
	  PriceSi=rs("PriceSi")
	  PriceTr=rs("PriceTr")
	  PriceEn=rs("PriceEn")
	  MakerSi=rs("MakerSi")
	  MakerTr=rs("MakerTr")
	  MakerEn=rs("MakerEn")
	  CommendFlag=rs("CommendFlag")
	  NewFlag=rs("NewFlag")
	  HotFlag=rs("HotFlag")
	  GroupID=rs("GroupID")
	  Exclusive=rs("Exclusive")
	  BigPic=rs("BigPic")
	  SmallPic=rs("SmallPic")
      ContentSi=rs("ContentSi")
      ContentTr=rs("ContentTr")
      ContentEn=rs("ContentEn")
	  rs.close
      set rs=nothing 
	else
	  ProductNo="Pro"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
    end if
  end if
end sub
%>
<% 
sub SelectGroup()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select GroupID,GroupNameSi from suqun_MemGroup"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write("未设组别")
  end if
  while not rs.eof
    response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupNameSi")&"'")
    if GroupID=rs("GroupID") then response.write ("selected")
    response.write(">"&rs("GroupNameSi")&"</option>")
    rs.movenext
  wend
  rs.close
  set rs=nothing
end sub
%>
<%
'生成所属类别--------------------------
Function SortText(ID)
  Dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From suqun_Productsort where ID="&ID
  rs.open sql,conn,1,1
  SortText=rs("SortNameSi")
  rs.close
  set rs=nothing
End Function
%>