addpr2.asp

标准的小型企业网站程序

<!--#include file=conn.asp-->
<%
dim name,pic,intro,ap,guige,bclass,sclass,message,sql,count
  count=0
  name=request("name")
    pic=request("pic")
	  guige=request("guige")
	    ap=request("ap")
		  intro=request("intro")
		    bclass=request("bclassname")
			    sclass=request("sclass")
				  
if name<>"" and  pic<>"" and  guige<>"" and  ap<>"" and  bclass<>"" and  intro<>"" and  sclass<>"" then
   sql="select * from product where name='"&name&"'"
    set rs=server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    if not rs.eof then count=count+1
	rs.close
      if count>0 then
     message="对不起,此产品已经存在!"
     else 
   sql="insert into product(name,pic,bclass,sclass,ap,intro,guige)values('"&name&"','"&pic&"','"&bclass&"','"&sclass&"','"&ap&"','"&intro&"','"&guige&"')"
	 conn.execute(sql)
	 message="成功加入!"
   end if
else 
message="你的某个输入为空!"
end if
response.redirect"addpr.asp?message="&message

%>