?? classmana2.asp
字號:
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "admin.asp"
else
if session("flag")>1 then
response.write "<br><p align=center>您沒有操作的權限</p>"
response.end
end if
end if
dim sql
dim rs
dim cmdTemp
select case request.form("options")
case "rename"
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs=server.createobject("adodb.recordset")
cmdTemp.CommandText = "SELECT * FROM Nclass where Nclassid=" & request.form("subject")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
rs.Open cmdTemp, , 1, 3
if err.Number<>0 then
err.clear
response.write " 數 據 庫 操 作 失 敗 ! "
else
rs("Nclass") = trim(request.form("reTitle"))
rs("classid") = request.form("classid")
rs.Update
rs.Close
set rs=nothing
set cmdTemp=nothing
finished
end if
case "del"
Rem 刪除子欄目
sql="delete from Nclass where Nclassid=" & request.form("subject")
conn.execute sql
Rem 刪除相關子欄目程序
'sql="delete from download where Nclassid=" & request.form("subject")
'conn.execute sql
if err.Number<>0 then
err.clear
response.write " 數 據 庫 操 作 失 敗 ! "
else
finished
end if
case "new"
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs=server.createobject("adodb.recordset")
cmdTemp.CommandText = "SELECT * FROM Nclass where (Nclassid IS NULL)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
rs.Open cmdTemp, , 1, 3
if err.Number<>0 or request.form("psubject")="" then
err.clear
response.write " 數 據 庫 操 作 失 敗 ! "
else
rs.AddNew
rs("Nclass") = request.form("newTitle")
rs("classid") = request.form("psubject")
rs.Update
rs.Close
set rs=nothing
set cmdTemp=nothing
finished
end if
end select
sub finished()
%>
<html>
<head>
<title>修改成功</title>
<meta http-equiv="refresh" content='0; URL=classmana.asp'>
</head>
<body>
<p align="center"><b>專題修改成功！</b></p>
<%
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -