?? addsort1.asp
字號(hào):
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
dim cmdTemp
select case request.form("options")
case "rename"
on error resume next
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs=server.createobject("adodb.recordset")
cmdTemp.CommandText = "SELECT * FROM sort where sort_id=" & request.form("subject")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
rs.Open cmdTemp, , 1, 3
if err.Number<>0 then
err.clear
response.write " <br>數(shù) 據(jù) 庫(kù) 操 作 失 敗 ! "
else
rs("sort_name") = request.form("reTitle")
rs.Update
rs.Close
set rs=nothing
set cmdTemp=nothing
finished
end if
case "del"
Rem 刪除欄目
on error resume next
sql="delete from sort where sort_id=" & request.form("subject")
conn.execute sql
Rem 刪除相關(guān)欄目下子欄目
sql="delete from Nsort where sort_id=" & request.form("subject")
conn.execute sql
Rem 刪除相關(guān)欄目對(duì)應(yīng)程序
sql="delete from hw where sort_id=" & request.form("subject")
conn.execute sql
if err.Number<>0 then
err.clear
response.write " <br>數(shù) 據(jù) 庫(kù) 操 作 失 敗 ! "
else
finished
end if
case "new"
on error resume next
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs=server.createobject("adodb.recordset")
cmdTemp.CommandText = "SELECT * FROM sort where (sort_id IS NULL)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
rs.Open cmdTemp, , 1, 3
if err.Number<>0 then
err.clear
response.write " <br>數(shù) 據(jù) 庫(kù) 操 作 失 敗 ! "
else
rs.AddNew
rs("sort_name") = request.form("newTitle")
rs.Update
rs.Close
set rs=nothing
set cmdTemp=nothing
finished
end if
end select
sub finished()
%>
<title>修改成功</title>
<body>
<br><br><p align="center"><b>類別修改成功！</b></p>
<%
end sub
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -