?? modifybk2.asp
字號(hào):
<!--#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="沒有詳細(xì)介紹!"
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="對(duì)不起,此大類不存在!"
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="你的某個(gè)輸入為空!"&count&forename
end if
response.redirect"modifybk.asp?select="&name
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -