modifypr2.asp

标准的小型企业网站程序

<!--#include file=conn.asp-->
<%
dim name,pic,intro,message,sql,count,sql2,sql3,forename,guige,sclass,bclass
  count=0
  name=request("realname")
   forename=request("forename")
    pic=request("pic")
	   intro=request("intro")
		    ap=request("ap")
			 guige=request("guige")
			    sclass=request("sclass")
				  bclass=request("bclass")
				   
if name<>"" and  pic<>"" and  intro<>"" and  ap<>"" and  guige<>"" and  sclass<>"" and  bclass<>"" and  forename<>""  then
   sql="select * from product where name='"&forename&"'"
    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="update product set name='"&name&"',pic='"&pic&"',ap='"&ap&"',guige='"&guige&"',sclass='"&sclass&"',intro='"&intro&"',bclass='"&bclass&"'where name='"&forename&"'"
	 conn.execute(sql)
	 message="成功修改!"
   end if
else 
message="你的某个输入为空!"&count&intro&count&forename&guige&sclass&bclass
end if
response.redirect"modifypr.asp?message="&message&"&dname="&name

%>