modifybk2.asp

标准的小型企业网站程序

<!--#include file=conn.asp-->
<%
dim name,pic1,pic2,pic3,intro,cintro,question1,question2,question3,message,sql
dim count,sql2,sql3,forename,answer1,answer2,answer3
  count=0
  name=trim(request("name"))
   forename=trim(request("forename"))
    pic1=trim(request("pic1"))
	  pic2=trim(request("pic2"))
	    pic3=trim(request("pic3"))
		  intro=trim(request("intro"))
		    if intro="" then intro="没有简介!"
		    cintro=trim(request("cintro"))
			if cintro="" then cintro="没有详细介绍!"
			  question1=trim(request("question1"))
			  if question1="" then question1="                   "
			    question2=trim(request("question2"))
				if question2="" then question2="                   "
				  answer1=trim(request("answer1"))
				  if answer1="" then answer1="                   "
				  answer2=trim(request("answer2"))
				  if answer2="" then answer2="                   "
				  answer3=trim(request("answer3"))
				  if answer3="" then answer3="                   "
				  question3=trim(request("question3"))
				  if question3="" then question3="                   "
				    pic4=trim(request("pic4"))
                  if pic1="" then pic1="                       "
				  if pic2="" then pic2="                       "
				  if pic3="" then pic3="                       "
				  if pic4="" then pic4="                       "
if name<>"" then
   sql="select * from bclass 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 bclass set name='"&name&"',pic1='"&pic1&"',pic2='"&pic2&"',pic3='"&pic3&"',pic4='"&pic4&"',intro='"&intro&"',cintro='"&cintro&"',question1='"&question1&"',question2='"&question2&"',question3='"&question3&"',answer1='"&answer1&"',answer2='"&answer2&"',answer3='"&answer3&"' where name='"&forename&"'"
	
	 sql2="update sclass set bclass='"&name&"' where bclass='"&forename&"'"
	 sql3="update product set bclass='"&name&"' where bclass='"&forename&"'"
	 conn.execute(sql3)
	 conn.execute(sql2)
	 conn.execute(sql)
	  message="成功修改!"
   end if
else 
message="你的某个输入为空!"&count&forename
end if
response.redirect"modifybk.asp?select="&name

%>