<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master")=false and whatcan< 6 then Response.Redirect "help.asp?id=004&error=您没有管理自定义统计检索条件库的权限。" '获取数据 id =trim(Request("id")) isok =trim(Request("isok")) if isok="" then isok=0 isok=cbool(isok) '检查数据 if id="" then Response.Redirect "help.asp?id=003&error=请指明您要删除哪条记录。" '打开数据库 set conn=server.createobject("adodb.connection") DBPath = Server.MapPath(connpath) conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from save where id=" & id rs.Open sql,conn,3,2 if rs.EOF then rs.Close set rs=nothing conn.Close set conn=nothing Response.Redirect "help.asp?id=003&error=您要删除的记录并不存在。" end if %> <%=countname%>－删除自定义统计的检索条件
<% if isok=false then %>
   ∷∷∷ 删除检索条件 ∷∷∷

 注意！！

您即将删除名为“<%=rs("name")%>”的检索条件记录：

检索条件  <%if rs("wherestr")="" then%>没有检索条件<%else%><%=rs("wherestr")%><%end if%>。

查询项目  <%=rs("outtype")%>。

说　　明  <%=rs("content")%>

您真的要删除吗？

帮助 取消 删除   


<% rs.Close else rs.delete rs.Update rs.Close %>
   ∷∷∷ 保存检索条件成功 ∷∷∷

恭喜！！

已经成功的删除该检索条件。

继续   


<% end if set rs=nothing conn.Close set conn=nothing %>