?? 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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -