开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
ProductEdit.asp
资源名称：1.rar　[点击查看]
上传用户：yrf020
上传日期：2007-07-24
资源大小：1287k
文件大小：17k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

ProductEdit.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  3. <% Option Explicit %>
  4. <HTML xmlns="http://www.w3.org/1999/xhtml">
  5. <HEAD>
  6. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  7. <META NAME="copyright" CONTENT="Copyright 2006-2008 - Hokilly.com-STUDIO" />
  8. <META NAME="Author" CONTENT="红金羚软件,www.hokilly.com" />
  9. <META NAME="Keywords" CONTENT="" />
  10. <META NAME="Description" CONTENT="" />
  11. <TITLE>编辑产品</TITLE>
  12. <link rel="stylesheet" href="Images/CssAdmin.css">
  13. <script language="javascript" src="../Script/Admin.js"></script>
  14. <script language = "JavaScript" src = "../Script/file_js.js" type="text/javascript"></script>
  15. </HEAD>
  16. <!--#include file="../Include/Const.asp" -->
  17. <!--#include file="../Include/ConnSiteData.asp" -->
  18. <!--#include file="CheckAdmin.asp"-->
  19. <%
  20. Dim SERVER_NAME
  21. SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
  22. if  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") then
  23. if Instr(session("AdminPurview"),"|33,")=0 then 
  24.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  25.   response.end
  26. end if
  27. '========判断是否具有管理权限
  28. %>
  29. <BODY>
  30. <% 
  31. dim Result
  32. Result=request.QueryString("Result")
  33. dim ID,ProductNameCh,ViewFlagCh,SortNameCh,SortID,SortPath
  34. dim ProductNo,ProductModel,N_Price,P_Price,Stock,UnitCh,MakerCh,CommendFlag,NewFlag,GroupID,GroupIdName,Exclusive
  35. dim BigPic,SmallPic,ContentCh,UploadFiles
  36. ID=request.QueryString("ID")
  37. call ProductEdit() 
  38. %>
  39. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  40.   <tr>
  41.     <td height="24" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<strong>产品检索及分类查看：添加，修改，删除产品信息</strong></font></td>
  42.   </tr>
  43.   <tr>
  44.     <td height="24" align="center" nowrap  bgcolor="#eafefe"><a href="ProductEdit.asp?Result=Add" onClick='changeAdminFlag("添加产品信息")'>添加产品信息</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="ProductList.asp" onClick='changeAdminFlag("产品列表")'>查看所有产品信息</a></td>
  45.   </tr>
  46. </table>
  47. <br>
  48. <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  49.   <form name="editForm" method="post" action="ProductEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
  50.   <tr>
  51.     <td height="24" nowrap bgcolor="#eafefe"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%">
  53.       <tr>
  54.         <td width="120" height="20" align="right">&nbsp;</td>
  55.         <td>&nbsp;</td>
  56.       </tr>
  57.       <tr>
  58.         <td height="20" align="right">名　　称：</td>
  59.         <td><input name="ProductNameCh" type="text" class="textfield" id="ProductNameCh" style="WIDTH: 240;" value="<%=ProductNameCh%>" maxlength="100">&nbsp;显示：<input name="ViewFlagCh" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" checked <%if ViewFlagCh then response.write ("checked")%>>&nbsp;*</td>
  60.       </tr>
  61.       <tr>
  62.         <td height="20" align="right">所属类别：</td>
  63.         <td><input name="SortNameCh" type="text" class="textfield" id="SortNameCh" value="<%=SortNameCh%>" style="WIDTH: 240;background-color:#eafefe;" readonly>&nbsp;<a href="javaScript:OpenScript('SelectSort.asp?Result=Products',500,500,'')"><img src="Images/Select.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  64.       </tr>
  65.       <tr>
  66.         <td height="20" align="right">类别数字：</td>
  67.         <td><input name="SortID" type="text" class="textfield" id="SortID" style="WIDTH: 40;background-color:#eafefe;" value="<%=SortID%>" readonly><input name="SortPath" type="text" class="textfield" id="SortPath" style="WIDTH: 200;background-color:#eafefe;" value="<%=SortPath%>" readonly>&nbsp;*</td>
  68.       </tr>
  69.       <tr>
  70.         <td height="20" align="right">编　　号：</td>
  71.         <td><input name="ProductNo" type="text" class="textfield" id="ProductNo" style="WIDTH: 240;" value="<%=ProductNo%>" maxlength="100">&nbsp;*&nbsp;如果不明确请勿修改</td>
  72.       </tr>
  73.       <tr>
  74.         <td height="20" align="right">型　　号：</td>
  75.         <td><input name="ProductModel" type="text" class="textfield" id="ProductModel" style="WIDTH: 240;" value="<%=ProductModel%>" maxlength="100"></td>
  76.       </tr>
  77.       <tr>
  78.         <td height="20" align="right">标 准 价：</td>
  79.         <td><input name="N_Price" type="text" class="textfield" id="N_Price" style="WIDTH: 240;" value="<%=N_Price%>" maxlength="100">&nbsp;*&nbsp;</td>
  80.       </tr>   
  81.       <tr>
  82.         <td height="20" align="right">优 惠 价：</td>
  83.         <td><input name="P_Price" type="text" class="textfield" id="P_Price" style="WIDTH: 240;" value="<%=P_Price%>" maxlength="100">&nbsp;*&nbsp;</td>
  84.       </tr>
  85.       <tr>
  86.         <td height="20" align="right">库存数量：</td>
  87.         <td><input name="Stock" type="text" class="textfield" id="Stock" style="WIDTH: 240;" value="<%=Stock%>" maxlength="100">&nbsp;*</td>
  88.       </tr>   
  89.       <tr>
  90.         <td height="20" align="right">计价单位：</td>
  91.         <td><input name="UnitCh" type="text" class="textfield" id="UnitCh" style="WIDTH: 240;" value="<%=UnitCh%>" maxlength="100">&nbsp;*</td>
  92.       </tr>  
  93.   <tr>
  94.         <td height="20" align="right">出品公司：</td>
  95.         <td><input name="MakerCh" type="text" class="textfield" id="MakerCh" style="WIDTH: 240;" value="<%=MakerCh%>" maxlength="100"></td>
  96.       </tr>
  97.       <tr>
  98.         <td height="20" align="right">状　　态：</td>
  99.         <td><input name="CommendFlag" type="checkbox" style="HEIGHT: 13px;WIDTH: 13px;" value="1" <%if CommendFlag then response.write ("checked")%>>&nbsp;推荐&nbsp;<input name="NewFlag" type="checkbox" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if NewFlag then response.write ("checked")%>>&nbsp;最新</td>
  100.       </tr>
  101.       <tr>
  102.         <td height="20" align="right">查看权限：</td>
  103.         <td><select name="GroupID" class="textfield">
  104.           <% call SelectGroup() %>
  105.           </select>
  106.           <input name="Exclusive" type="radio" value="&gt;="  <%if Exclusive="" or Exclusive=">=" then response.write ("checked")%>> 隶属<input type="radio"  <%if Exclusive="=" then response.write ("checked")%> name="Exclusive" value="=">专属（隶属：权限值≥可查看，专属：权限值＝可查看）</td>
  107.       </tr>
  108.       <tr>
  109.         <td height="20" align="right">产品主图：</td>
  110.         <td><input name="BigPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=BigPic%>" maxlength="100" ID="magicfacepic(1)">
  111.             <a href="javaScript:OpenScript('UpFileForm.asp?Result=BigPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a>&nbsp;&nbsp;<font onclick="lookmagic(1)" style="CURSOR:hand">选择已上传图片</font>
  112.             <div id="magicframe(1)" style="visibility:hidden; position: absolute;width:10; left: 2px; top: 479px;">
  113.               <iframe src="photoShow.asp?action=1" width="380" height="290" frameborder="0" scrolling="no"></iframe>
  114.             </div></td>
  115.       </tr>
  116.       <tr>
  117.         <td height="20" align="right">缩 略 图：</td>
  118.         <td><input name="SmallPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=SmallPic%>" maxlength="100" id="magicfacepic(2)">
  119.           <a href="javaScript:OpenScript('UpFileForm.asp?Result=SmallPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a>&nbsp;&nbsp;<font onclick="lookmagic(2)" style="CURSOR:hand">选择已上传图片</font>
  120.           <div id="magicframe(2)" style="visibility:hidden; position: absolute;width:10; left: 2px; top: 479px;">
  121.             <iframe src="photoShow.asp?action=2" width="380" height="290" frameborder="0" scrolling="no"></iframe>
  122.           </div></td>
  123.       </tr>
  124.       
  125.       <tr>
  126.         <td height="20" align="right" valign="top">介　　绍：<br>
  127.   
  128.         <td><textarea name="ContentCh" style="display:none"id="ContentCh" readonly><%=ContentCh%></textarea>
  129.           <iframe id="eWebEditor1" src="../Editor/ewebeditor.asp?id=ContentCh&style=Editor&savepathfilename=UploadFiles" frameborder="0" scrolling="no" width="550" height="450"></iframe></td>
  130.       </tr>
  132.       <tr>
  133.         <td height="30" align="right">&nbsp;</td>
  134.         <td valign="bottom"><input  type="hidden"  name="UploadFiles" value="<%=UploadFiles%>"  onChange="doChange(this,document.editForm.DefaultPicList)">
  135.         <input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
  136.       </tr>
  137.       <tr>
  138.         <td height="20" align="right">&nbsp;</td>
  139.         <td valign="bottom">&nbsp;</td>
  140.       </tr>
  141.     </table></td>
  142.   </tr>
  143.   </form>
  144. </table>
  145. </body>
  146. </html> 
  147. <%
  148. else
  149. response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&">"
  150. response.end%>
  151. <%end if%>
  152. <%
  153. sub ProductEdit()
  154.   dim Action,rsRepeat,rs,sql
  155.   Action=request.QueryString("Action")
  156.   if Action="SaveEdit" then '保存编辑产品信息
  157.     set rs = server.createobject("adodb.recordset")
  158.     if len(trim(request.Form("ProductNameCh")))<1 then
  159.       response.write ("<script language=javascript> alert('名称为必填项目！');history.back(-1);</script>")
  160.       response.end
  161.     end if
  162. if len(trim(request.Form("UnitCh")))<1 then
  163.       response.write ("<script language=javascript> alert('计价单位为必填项目！');history.back(-1);</script>")
  164.       response.end
  165.     end if
  166.     if Result="Add" then '创建产品信息
  167.   sql="select * from CompanyCMS_Products"
  168.       rs.open sql,conn,1,3
  169.       rs.addnew
  170.       rs("ProductNameCh")=trim(Request.Form("ProductNameCh"))
  171.   if Request.Form("ViewFlagCh")=1 then
  172.         rs("ViewFlagCh")=Request.Form("ViewFlagCh")
  173.   else
  174.         rs("ViewFlagCh")=0
  175.   end if
  176.   if Request.Form("SortID")="" and Request.Form("SortPath")="" then
  177.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  178.         response.end
  179.   else
  180.     rs("SortID")=Request.Form("SortID")
  181. rs("SortPath")=Request.Form("SortPath")
  182.   end if
  183.       set rsRepeat = conn.execute("select ProductNo from CompanyCMS_Products where ProductNo='" & trim(Request.Form("ProductNo")) & "'")
  184.       if not (rsRepeat.bof and rsRepeat.eof) then '判断此产品编号是否存在
  185.         response.write "<script language=javascript> alert('" & trim(Request.Form("ProductNo")) & "此产品编号已经存在，请换一个编号再试试！');history.back(-1);</script>"
  186.         response.end
  187.       else
  188.     rs("ProductNo")=trim(Request.Form("ProductNo"))
  189.   end if
  190.   rs("ProductModel")=trim(Request.Form("ProductModel"))
  191.   if (not IsNumeric(trim(request.Form("N_Price")))) or (not IsNumeric(trim(request.Form("P_Price"))))then
  192.         response.write ("<script language=javascript> alert('标准价和优惠价数据必填，且为正数！');history.back(-1);</script>")
  193.         response.end
  194.       elseif trim(request.Form("N_Price"))<0 or trim(request.Form("P_Price"))<0then
  195.         response.write ("<script language=javascript> alert('标准价和优惠价数据必填，且为正数！');history.back(-1);</script>")
  196.         response.end
  197.       else
  198.         rs("N_Price")=Round(trim(Request.Form("N_Price")),2)
  199.     rs("P_Price")=Round(trim(Request.Form("P_Price")),2)
  200.   end if
  201.   if (not IsNumeric(trim(request.Form("Stock"))))  then
  202.         response.write ("<script language=javascript> alert('库存数量必填且为数值！');history.back(-1);</script>")
  203.         response.end
  204.   else
  205. rs("Stock")=Round(trim(Request.Form("Stock")),2)
  206.   end if 
  207.   rs("UnitCh")=trim(Request.Form("UnitCh"))
  208.   rs("MakerCh")=trim(Request.Form("MakerCh"))
  209.   if Request.Form("CommendFlag")=1 then
  210.         rs("CommendFlag")=Request.Form("CommendFlag")
  211.   else
  212.         rs("CommendFlag")=0
  213.   end if
  214.   if Request.Form("NewFlag")=1 then
  215.         rs("NewFlag")=Request.Form("NewFlag")
  216.   else
  217.         rs("NewFlag")=0
  218.   end if
  219.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  220.   rs("GroupID")=GroupIdName(0)
  221.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  222.   rs("BigPic")=trim(Request.Form("BigPic"))   
  223.   rs("SmallPic")=trim(Request.Form("SmallPic"))
  224.   rs("ContentCh")=Request.Form("ContentCh")
  225.   rs("UploadFiles")=trim(Request.Form("UploadFiles"))
  226.   rs("AddTime")=now()
  227.   rs("UpdateTime")=now()
  228. end if  
  229. if Result="Modify" then '修改产品信息
  230.       sql="select * from CompanyCMS_Products where ID="&ID
  231.       rs.open sql,conn,1,3
  232.       rs("ProductNameCh")=trim(Request.Form("ProductNameCh"))
  233.   if Request.Form("ViewFlagCh")=1 then
  234.         rs("ViewFlagCh")=Request.Form("ViewFlagCh")
  235.   else
  236.         rs("ViewFlagCh")=0
  237.   end if
  238.   if Request.Form("SortID")<>"" and Request.Form("SortPath")<>"" then
  239.     rs("SortID")=Request.Form("SortID")
  240. rs("SortPath")=Request.Form("SortPath")
  241.   else
  242.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  243.         response.end
  244.   end if
  245.   rs("ProductNo")=trim(Request.Form("ProductNo"))
  246.   rs("ProductModel")=trim(Request.Form("ProductModel"))
  247.   if (not IsNumeric(trim(request.Form("N_Price")))) or (not IsNumeric(trim(request.Form("P_Price"))))then
  248.         response.write ("<script language=javascript> alert('标准价和优惠价数据必填，且为正数！');history.back(-1);</script>")
  249.         response.end
  250.       elseif trim(request.Form("N_Price"))<0 or trim(request.Form("P_Price"))<0then
  251.         response.write ("<script language=javascript> alert('标准价和优惠价数据必填，且为正数！');history.back(-1);</script>")
  252.         response.end
  253.       else
  254.         rs("N_Price")=Round(trim(Request.Form("N_Price")),2)
  255.     rs("P_Price")=Round(trim(Request.Form("P_Price")),2)
  256.   end if
  257.   if (not IsNumeric(trim(request.Form("Stock"))))  then
  258.         response.write ("<script language=javascript> alert('库存数量必填且为数值！');history.back(-1);</script>")
  259.         response.end
  260.   else
  261. rs("Stock")=Round(trim(Request.Form("Stock")),2)
  262.   end if 
  263.   rs("UnitCh")=trim(Request.Form("UnitCh"))
  264.   rs("MakerCh")=trim(Request.Form("MakerCh"))
  265.   if Request.Form("CommendFlag")=1 then
  266.         rs("CommendFlag")=Request.Form("CommendFlag")
  267.   else
  268.         rs("CommendFlag")=0
  269.   end if
  270.   if Request.Form("NewFlag")=1 then
  271.         rs("NewFlag")=Request.Form("NewFlag")
  272.   else
  273.         rs("NewFlag")=0
  274.   end if
  275.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  276.   rs("GroupID")=GroupIdName(0)
  277.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  278.   rs("BigPic")=trim(Request.Form("BigPic"))   
  279.   rs("SmallPic")=trim(Request.Form("SmallPic"))
  280.   rs("ContentCh")=Request.Form("ContentCh")
  281.   rs("UploadFiles")=trim(Request.Form("UploadFiles"))
  282.   rs("UpdateTime")=now()
  283. end if
  284. rs.update
  285. rs.close
  286.     set rs=nothing 
  287.     response.write "<script language=javascript> alert('成功编辑产品信息！');changeAdminFlag('产品列表');location.replace('ProductList.asp');</script>"
  288.   else '提取产品信息
  289. if Result="Modify" then
  290.       set rs = server.createobject("adodb.recordset")
  291.       sql="select * from CompanyCMS_Products where ID="& ID
  292.       rs.open sql,conn,1,1
  293.       if rs.bof and rs.eof then
  294.         response.write ("数据库读取记录出错！")
  295.         response.end
  296.       end if
  297.   ProductNameCh=rs("ProductNameCh")
  298.   ViewFlagCh=rs("ViewFlagCh")
  299.   SortNameCh=SortText(rs("SortID"))
  300.   SortID=rs("SortID")
  301.   SortPath=rs("SortPath")
  302.   ProductNo=rs("ProductNo")
  303.       ProductModel=rs("ProductModel")
  304.   N_Price=rs("N_Price")
  305.   P_Price=rs("P_Price")
  306.   Stock=rs("Stock")
  307.   UnitCh=rs("UnitCh")
  308.   MakerCh=rs("MakerCh")
  309.   CommendFlag=rs("CommendFlag")
  310.   NewFlag=rs("NewFlag")
  311.   GroupID=rs("GroupID")
  312.   Exclusive=rs("Exclusive")
  313.   BigPic=rs("BigPic")
  314.   SmallPic=rs("SmallPic")
  315.       ContentCh=rs("ContentCh")
  316.   UploadFiles=rs("UploadFiles")
  317.   rs.close
  318.       set rs=nothing 
  319. else
  320.   randomize timer
  321.   ProductNo=Hour(now)&Minute(now)&Second(now)&"-"&int(900*rnd)+100
  322.   Stock=10000
  323.     end if
  324.   end if
  325. end sub
  326. %>
  327. <% 
  328. sub SelectGroup()
  329.   dim rs,sql
  330.   set rs = server.createobject("adodb.recordset")
  331.   sql="select GroupID,GroupNameCh from CompanyCMS_MemGroup"
  332.   rs.open sql,conn,1,1
  333.   if rs.bof and rs.eof then
  334.     response.write("未设组别")
  335.   end if
  336.   while not rs.eof
  337.     response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupNameCh")&"'")
  338.     if GroupID=rs("GroupID") then response.write ("selected")
  339.     response.write(">"&rs("GroupNameCh")&"</option>")
  340.     rs.movenext
  341.   wend
  342.   rs.close
  343.   set rs=nothing
  344. end sub
  345. %>
  346. <%
  347. '生成所属类别--------------------------
  348. Function SortText(ID)
  349.   Dim rs,sql
  350.   Set rs=server.CreateObject("adodb.recordset")
  351.   sql="Select * From CompanyCMS_ProductSort where ID="&ID
  352.   rs.open sql,conn,1,1
  353.   SortText=rs("SortNameCh")
  354.   rs.close
  355.   set rs=nothing
  356. End Function
  357. %>