📄 products_save.asp

📁 管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy
💻 ASP
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<%
  '如果编辑的内容很多，上传速度太慢，请设置以下的时间，单位秒
    Server.ScriptTimeout = 1000
    Dim sContent1, i
    sContent1=""
    For i = 1 To Request.Form("content1").Count 
	    sContent1 = sContent1 & Request.Form("content1")(i) 
    Next 
	
    LName=trim(request.Form("LName"))
    LSort=trim(request.Form("LSort"))
    GroupID=trim(request.Form("GroupID"))
    Exclusive=trim(request.Form("Exclusive"))

    '添加产品目录表  
    V=Split(LSort,"-")
	   
	For i = 0 To UBound(V)
       set rs2=server.createobject("adodb.recordset")
       sql2="select id,content from deeptree where id="&V(i)
       rs2.open sql2,conn,1,3
	   if not rs2.eof then
	      ClassName2=ClassName2+"->"+rs2("content")
       end if 
       rs2.Close
       set r2=nothing  
    next
    ClassName1=ClassName2
   '完成添加产品目录表的取值  
    LSortname=ClassName1
    LPrice=trim(request.Form("LPrice"))
    LPH=trim(request.Form("LPH"))
    '查编号
    set rs3=server.createobject("adodb.recordset")
       sql3="select id,LPH from Products where LPH='"&LPH&"'order by id desc "
       rs3.open sql3,conn,1,3
	   if not rs3.eof then
	   response.write "<script language=javascript> alert('产品的编号有重复\n返回重新点添加生成编号！');history.back(-1);</script>"
	   response.end
       end if 
       rs3.Close
    set rs3=nothing  
   '查编号完
    LManufacturce=trim(request.Form("LManufacturer"))
    LSellManufacturer=trim(request.Form("LSellManufacturer"))
    LKeyWord=trim(request.Form("LKeyWord"))
    if trim(request.Form("LPattern"))="" then
	   LPattern="images/NoPicture.gif"
    else
       LPattern=trim(request.Form("LPattern"))
    end if
    LPutout=trim(request.Form("LPutout"))
    LCommend=trim(request.Form("LCommend"))
    LNewProduct=trim(request.Form("LNewProduct"))
    LHot=trim(request.Form("LHot"))
    if sContent1="" then
	   LParticular="暂无详细介绍..."
    else
       LParticular=sContent1
    end if
    LAddtime=date()
    '===================================
    if len(LName)=0 or isempty(LName)  then
        response.write "<script language=javascript> alert('产品的名称不能为空!');history.back(-1);</script>"
        response.end
    end if 
    if len(LSort)=0 or isempty(LSort)  then
        response.write "<script language=javascript> alert('产品所在的类别不能为空!');history.back(-1);</script>"
        response.end
    end if 
    '===================================
    set rs=server.createobject("adodb.recordset")
        sql="select * from Products where (id is null)" 
        rs.open sql,conn,1,3
	    rs.addnew
	    rs("LName")=LName
	    rs("LSort")=LSort
	    rs("LSortname")=LSortname
	    rs("LPrice")=LPrice
	    rs("LPH")=LPH
	    rs("GroupID")=GroupID
	    rs("Exclusive")= Exclusive
	    rs("LManufacturer")=LManufacturce
	    rs("LSellManufacturer")=LSellManufacturer
	    rs("LKeyWord")=LKeyWord
        rs("LPattern")=LPattern
	    rs("LPutout")=LPutout
	    rs("LCommend")=LCommend
	    rs("LNewProduct")=LNewProduct
	    rs("LHot")=LHot
	    rs("LParticular")=LParticular
	    rs("LAddtime")=LAddtime
        rs.update
        rs.Close
    set rs=nothing  
%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
</head>
<body  topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop02.asp"-->
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="99%"  border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#CCCCCC">
    <tr valign="top" bgcolor="#EBEBEB">
      <td width="100%" height="73" align="center"><br>
        产品发布成功！<br>
        <br>
        <a href="ProductsAll.asp">产品列表</a> || <a href="ProductsAdd.asp">添加产品</a></td>
    </tr>
    <tr align="center" valign="top" bgcolor="#CBD50D">
      <td bgcolor="#C6BEC6">&nbsp; </td>
    </tr>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -