savenclass.asp

来自「ASP+Accesss数据库设备WEB报修」· ASP 代码 · 共 47 行

<%
if session("pass")<>"ok" then 
response.write "<script>alert('你还没有登陆，或者登陆超时。');parent.location.href='index.asp';</Script>"
response.end
end if%>
<!--#include file="conn.asp"-->
<!--#include file="ChkURL.asp"-->
<%dim action,anclassid
anclassid=request.QueryString("anclassid")
nclassid=request.QueryString("id")
action=request.querystring("action")
nclass2=trim(request("nclass2"))
select case action

case "add" 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from b_smallclass where nsmallarea='"&nclass2&"' ",conn,1,1
   if rs.EOF and rs.BOF then
   rs.close
rs.open "b_smallclass",conn,1,3
rs.AddNew
rs("nsmallarea")=trim(request("nclass2"))
rs("top")=int(request("nclassidorder2"))
rs("nbigarea")=int(request("anclassid"))
rs.Update
rs.Close
set rs=nothing
response.redirect url&"pud_sclass.asp?id="&anclassid
else
response.write "<script>window.alert('你输入的二级目录名称:"&nclass2&"已经有了！');history.go(-1);</script>"
end if

case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from b_smallclass where id="&nclassid,conn,1,3
rs("nsmallarea")=trim(request("nclass"))
rs("top")=int(request("nclassidorder"))
rs.Update
rs.Close
set rs=nothing
response.redirect url&"pud_sclass.asp?id="&anclassid

case "del"
conn.execute ("delete from b_smallclass where id="&nclassid)
response.redirect url&"pud_sclass.asp?id="&anclassid
end select
%>