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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
ProductEdit.asp
资源名称：52ccc55a371572d86a7d2c6992a2591b.rar　[点击查看]
上传用户：dbstep
上传日期：2022-08-06
资源大小：2803k
文件大小：12k
源码类别：

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

开发平台：

ASP/ASPX

ProductEdit.asp：源码内容
  1. <HTML xmlns="http://www.w3.org/1999/xhtml">
  2. <HEAD>
  3. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  4. <TITLE>编辑产品</TITLE>
  5. <link rel="stylesheet" href="Images/CssAdmin.css">
  6. <script language="javascript" src="../skweb/JS/Admin.js"></script>
  7. </HEAD>
  8. <!--#include file="../skweb/Const.asp" -->
  9. <!--#include file="../skweb/ConnSiteData.asp" -->
  10. <!-- #include file="../fckeditor/fckeditor.asp" -->
  11. <!--#include file="CheckAdmin.asp"-->
  12. <%
  13. if Instr(session("AdminPurview"),"|33,")=0 then 
  14.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  15.   response.end
  16. end if
  17. '========判断是否具有管理权限
  18. %>
  19. <BODY>
  20. <% 
  21. dim Result
  22. Result=request.QueryString("Result")
  23. dim ID,ProductName,ViewFlag,SortName,SortID,SortPath
  24. dim ProductNo,ProductModel,Price,Maker,CommendFlag,NewFlag,GroupID,GroupIdName,Exclusive
  25. dim BigPic,SmallPic,Content
  26. ID=request.QueryString("ID")
  27. call ProductEdit() 
  28. %>
  29.  
  30. <table width="100%" border="0" cellpadding="3"  >
  31.   <form name="editForm" method="post" action="ProductEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
  32.   <tr>
  33.     <td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" id=editProduct idth="100%">
  35.    <tr>
  36.         <td height="29" colspan="2" background="Images/menutitle.gif" bgcolor="#FFFFFF"><table width="470" border="0" cellspacing="0" cellpadding="0">
  37.           <tr>
  38.             <td width="121"><strong><font color="#000000" size="2">产品管理</font></strong></td>
  39.             <td width="87"><a href="ProductEdit.asp?Result=Add"><img src="Images/x1.gif" width="52" height="17" border="0"></a></td>
  40.             <td width="87"><a href="ProductList.asp"><img src="Images/xlm.gif" width="52" height="17" border="0"></a></td>
  41.             <td width="87"><a href="ProductSort.asp"><img src="Images/xx.gif" width="52" height="17" border="0"></a></td>
  42.             <td width="88"><a href="OrderList.asp"><img src="Images/xdd.gif" width="52" height="17" border="0"></a></td>
  43.           </tr>
  44.         </table></td>
  45.       </tr>
  46.       <tr>
  47.         <td height="20" align="right" bgcolor="#FFFFFF">产品名称：</td>
  48.         <td bgcolor="#FFFFFF"><input name="ProductName" type="text" class="textfield" id="ProductName" style="WIDTH: 240;" value="<%=ProductName%>" maxlength="100">
  49.           &nbsp;*&nbsp;不少于3个字符 
  50.           <input name="ViewFlag" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" <%if ViewFlag then response.write ("checked")%>>
  51.           发布&nbsp;
  52.           <input name="CommendFlag" type="checkbox" style="HEIGHT: 13px;WIDTH: 13px;" value="1" <%if CommendFlag then response.write ("checked")%>>
  53.           &nbsp;推荐&nbsp;
  54.           <input name="NewFlag" type="checkbox" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if NewFlag then response.write ("checked")%>>
  55.           &nbsp;最新</td>
  56.       </tr>
  57.       <tr>
  58.         <td height="24" align="right" bgcolor="#FFFFFF">所属类别：</td>
  59.         <td bgcolor="#FFFFFF"><input name="SortID" type="text" class="textfield" id="SortID" style="WIDTH: 40;background-color:#EBF2F9;" value="<%=SortID%>" readonly>&nbsp;<input name="SortPath" type="text" class="textfield" id="SortPath" style="WIDTH: 80;background-color:#EBF2F9;" value="<%=SortPath%>" readonly>&nbsp;<input name="SortName" type="text" class="textfield" id="SortName" value="<%=SortName%>" style="WIDTH: 140;background-color:#EBF2F9;" 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>
  60.       </tr>
  61.       <tr>
  62.         <td height="20" align="right" bgcolor="#FFFFFF">编　　号：</td>
  63.         <td bgcolor="#FFFFFF"><input name="ProductNo" type="text" class="textfield" id="ProductNo" style="WIDTH: 240;" value="<%=ProductNo%>" maxlength="100">&nbsp;*&nbsp;如果不明确请勿修改</td>
  64.       </tr>
  65.       <tr>
  66.         <td height="20" align="right" bgcolor="#FFFFFF">型　　号：</td>
  67.         <td bgcolor="#FFFFFF"><input name="ProductModel" type="text" class="textfield" id="ProductModel" style="WIDTH: 240;" value="<%=ProductModel%>" maxlength="100"></td>
  68.       </tr>
  69.       <tr>
  70.         <td height="20" align="right" bgcolor="#FFFFFF">价　　格：</td>
  71.         <td bgcolor="#FFFFFF"><input name="Price" type="text" class="textfield" id="Price" style="WIDTH: 240;" value="<%=Price%>" maxlength="100"></td>
  72.       </tr>   
  73.   <tr>
  74.         <td height="20" align="right" bgcolor="#FFFFFF">出品公司：</td>
  75.         <td bgcolor="#FFFFFF"><input name="Maker" type="text" class="textfield" id="Maker" style="WIDTH: 240;" value="<%=Maker%>" maxlength="100"></td>
  76.       </tr>
  77.       <tr>
  78.         <td height="20" align="right" bgcolor="#FFFFFF">查看权限：</td>
  79.         <td bgcolor="#FFFFFF"><select name="GroupID" class="textfield">
  80.           <% call SelectGroup() %>
  81.           </select>
  82.           <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="=">
  83.           专属 [隶属：权限值≥可查看，专属：权限值＝可查看]</td>
  84.       </tr>
  86.       <tr>
  87.         <td height="20" align="right" bgcolor="#FFFFFF">产品主图：</td>
  88.         <td bgcolor="#FFFFFF"><input name="BigPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=BigPic%>" maxlength="100">&nbsp;<a href="javaScript:OpenScript('UpFileForm.asp?Result=BigPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  89.       </tr>
  90.       <tr>
  91.         <td height="20" align="right" bgcolor="#FFFFFF">缩 略 图：</td>
  92.         <td bgcolor="#FFFFFF"><input name="SmallPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=SmallPic%>" maxlength="100">&nbsp;<a href="javaScript:OpenScript('UpFileForm.asp?Result=SmallPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
  93.       </tr>
  94.       <tr>
  95.         <td height="20" align="right" valign="top" bgcolor="#FFFFFF">详细介绍：<br>
  96.         <td bgcolor="#FFFFFF"><%
  97. Dim oFCKeditor
  98. Set oFCKeditor = New FCKeditor
  99. oFCKeditor.BasePath = "../fckeditor/" 
  100. oFCKeditor.Width = "100%" 
  101. oFCKeditor.Height = "400" 
  102. oFCKeditor.Value = content
  103. oFCKeditor.Create "Content" 
  104. %></td>
  105.       </tr>
  107.       <tr>
  108.         <td height="30" align="right" bgcolor="#FFFFFF">&nbsp;</td>
  109.         <td valign="bottom" bgcolor="#FFFFFF"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
  110.       </tr>
  111.     </table></td>
  112.   </tr>
  113.   </form>
  114. </table>
  115. </BODY>
  116. </HTML>
  117. <%
  118. sub ProductEdit()
  119.   dim Action,rsRepeat,rs,sql
  120.   Action=request.QueryString("Action")
  121.   if Action="SaveEdit" then '保存编辑产品信息
  122.     set rs = server.createobject("adodb.recordset")
  123.     if len(trim(request.Form("ProductName")))<3 then
  124.       response.write ("<script language=javascript> alert('产品名称为必填项目！');history.back(-1);</script>")
  125.       response.end
  126.     end if
  127.     if Result="Add" then '创建产品信息
  128.   sql="select * from sk_Products"
  129.       rs.open sql,conn,1,3
  130.       rs.addnew
  131.       rs("ProductName")=trim(Request.Form("ProductName"))
  132.   if Request.Form("ViewFlag")=1 then
  133.         rs("ViewFlag")=Request.Form("ViewFlag")
  134.   else
  135.         rs("ViewFlag")=0
  136.   end if
  137.   if Request.Form("SortID")="" and Request.Form("SortPath")="" then
  138.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  139.         response.end
  140.   else
  141.     rs("SortID")=Request.Form("SortID")
  142. rs("SortPath")=Request.Form("SortPath")
  143.   end if
  144.       set rsRepeat = conn.execute("select ProductNo from sk_Products where ProductNo='" & trim(Request.Form("ProductNo")) & "'")
  145.       if not (rsRepeat.bof and rsRepeat.eof) then '判断此产品编号是否存在
  146.         response.write "<script language=javascript> alert('" & trim(Request.Form("ProductNo")) & "此产品编号已经存在，请换一个编号再试试！');history.back(-1);</script>"
  147.         response.end
  148.       else
  149.     rs("ProductNo")=trim(Request.Form("ProductNo"))
  150.   end if
  151.   rs("ProductModel")=trim(Request.Form("ProductModel"))
  152.   rs("Price")=trim(Request.Form("Price"))
  153.   rs("Maker")=trim(Request.Form("Maker"))
  154.   if Request.Form("CommendFlag")=1 then
  155.         rs("CommendFlag")=Request.Form("CommendFlag")
  156.   else
  157.         rs("CommendFlag")=0
  158.   end if
  159.   if Request.Form("NewFlag")=1 then
  160.         rs("NewFlag")=Request.Form("NewFlag")
  161.   else
  162.         rs("NewFlag")=0
  163.   end if
  164.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  165.   rs("GroupID")=GroupIdName(0)
  166.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  167.   rs("BigPic")=trim(Request.Form("BigPic"))   
  168.   rs("SmallPic")=trim(Request.Form("SmallPic"))
  169.   rs("Content")=Request.Form("Content")
  170.   rs("AddTime")=now()
  171. end if  
  172. if Result="Modify" then '修改产品信息
  173.       sql="select * from sk_Products where ID="&ID
  174.       rs.open sql,conn,1,3
  175.       rs("ProductName")=trim(Request.Form("ProductName"))
  176.   if Request.Form("ViewFlag")=1 then
  177.         rs("ViewFlag")=Request.Form("ViewFlag")
  178.   else
  179.         rs("ViewFlag")=0
  180.   end if
  181.   if Request.Form("SortID")<>"" and Request.Form("SortPath")<>"" then
  182.     rs("SortID")=Request.Form("SortID")
  183. rs("SortPath")=Request.Form("SortPath")
  184.   else
  185.         response.write ("<script language=javascript> alert('请选择所属分类！');history.back(-1);</script>")
  186.         response.end
  187.   end if
  188.   rs("ProductNo")=trim(Request.Form("ProductNo"))
  189.   rs("ProductModel")=trim(Request.Form("ProductModel"))
  190.   rs("Price")=trim(Request.Form("Price"))
  191.   rs("Maker")=trim(Request.Form("Maker"))
  192.   if Request.Form("CommendFlag")=1 then
  193.         rs("CommendFlag")=Request.Form("CommendFlag")
  194.   else
  195.         rs("CommendFlag")=0
  196.   end if
  197.   if Request.Form("NewFlag")=1 then
  198.         rs("NewFlag")=Request.Form("NewFlag")
  199.   else
  200.         rs("NewFlag")=0
  201.   end if
  202.       GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
  203.   rs("GroupID")=GroupIdName(0)
  204.   rs("Exclusive")=trim(Request.Form("Exclusive"))
  205.   rs("BigPic")=trim(Request.Form("BigPic"))   
  206.   rs("SmallPic")=trim(Request.Form("SmallPic"))
  207.   rs("Content")=Request.Form("Content")
  208. end if
  209. rs.update
  210. rs.close
  211.     set rs=nothing 
  212.      Response.Redirect("Tips/pro.asp")
  213.   else '提取产品信息
  214. if Result="Modify" then
  215.       set rs = server.createobject("adodb.recordset")
  216.       sql="select * from sk_Products where ID="& ID
  217.       rs.open sql,conn,1,1
  218.       if rs.bof and rs.eof then
  219.         response.write ("数据库读取记录出错！")
  220.         response.end
  221.       end if
  222.   ProductName=rs("ProductName")
  223.   ViewFlag=rs("ViewFlag")
  224.   SortName=SortText(rs("SortID"))
  225.   SortID=rs("SortID")
  226.   SortPath=rs("SortPath")
  227.   ProductNo=rs("ProductNo")
  228.       ProductModel=rs("ProductModel")
  229.   Price=rs("Price")
  230.   Maker=rs("Maker")
  231.   CommendFlag=rs("CommendFlag")
  232.   NewFlag=rs("NewFlag")
  233.   GroupID=rs("GroupID")
  234.   Exclusive=rs("Exclusive")
  235.   BigPic=rs("BigPic")
  236.   SmallPic=rs("SmallPic")
  237.       Content=rs("Content")
  238.   rs.close
  239.       set rs=nothing 
  240. else
  241.   ProductNo="Pro"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
  242.     end if
  243.   end if
  244. end sub
  245. %>
  246. <% 
  247. sub SelectGroup()
  248.   dim rs,sql
  249.   set rs = server.createobject("adodb.recordset")
  250.   sql="select GroupID,GroupName from sk_MemGroup"
  251.   rs.open sql,conn,1,1
  252.   if rs.bof and rs.eof then
  253.     response.write("未设组别")
  254.   end if
  255.   while not rs.eof
  256.     response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupName")&"'")
  257.     if GroupID=rs("GroupID") then response.write ("selected")
  258.     response.write(">"&rs("GroupName")&"</option>")
  259.     rs.movenext
  260.   wend
  261.   rs.close
  262.   set rs=nothing
  263. end sub
  264. %>
  265. <%
  266. '生成所属类别--------------------------
  267. Function SortText(ID)
  268.   Dim rs,sql
  269.   Set rs=server.CreateObject("adodb.recordset")
  270.   sql="Select * From sk_ProductSort where ID="&ID
  271.   rs.open sql,conn,1,1
  272.   SortText=rs("SortName")
  273.   rs.close
  274.   set rs=nothing
  275. End Function
  276. %>