modifysk2.asp

标准的小型企业网站程序

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

%>