saveanclass.asp

ASP+Accesss数据库设备WEB报修

<%
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("id")
action=request.querystring("action")
anclass2=trim(request("anclass2"))
select case action
case "add" 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from b_bigclass where nbigarea='"&anclass2&"' ",conn,1,1
   if rs.EOF and rs.BOF then
   rs.close
rs.open "b_bigclass",conn,1,3
rs.AddNew
rs("nbigarea")=trim(request("anclass2"))
rs("top")=int(request("anclassidorder2"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "pud_bclass.asp"
else
response.write "<script>window.alert('你输入的一级目录名称:"&anclass2&"已经有了！');history.go(-1);</script>"
end if

case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from b_bigclass where id="&anclassid,conn,1,3
rs("nbigarea")=trim(request("anclass"))
rs("top")=int(request("anclassidorder"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "pud_bclass.asp"

case "del"
conn.execute ("delete from b_bigclass where id="&anclassid)
conn.execute ("delete from b_smallclass where nbigarea="&anclassid)
response.Redirect "pud_bclass.asp"
end select
%>