wp_savenclass.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("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 w_sclass where sclassname='"&nclass2&"' ",conn,1,1
   if rs.EOF and rs.BOF then
   rs.close
rs.open "w_sclass",conn,1,3
rs.AddNew
rs("sclassname")=nclass2
rs("top")=int(request("nclassidorder2"))
rs("bclassid")=int(request("anclassid"))
rs.Update
rs.Close
set rs=nothing
response.redirect url&"wp_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 w_sclass where id="&nclassid,conn,1,3
rs("sclassname")=trim(request("nclass"))
rs("top")=int(request("nclassidorder"))
rs.Update
rs.Close
set rs=nothing
response.redirect url&"wp_sclass.asp?id="&anclassid

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