ntype_dele.asp

shopxp网上购物系统v6.6已经调试,百分百可用

<!--#include file="inc/config.asp" -->
<!--#include file="inc/conn.asp" -->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
Dim id,sqltext,rs1
id=Cint(request.QueryString("id"))
set rs1=server.createobject("adodb.recordset")
sqltext="select * from kheu_ntype where id="&id
rs1.open sqltext,conn,3,3
if not rs1.eof and not rs1.bof then
rs1("ntype")=2
rs1.Update
response.Write("<script>alert(""成功把栏目删除到回收站！"");location.href=""nType.asp"";</script>")
else
response.Write("<script>alert(""没有此栏目！"");location.href=""nType.asp"";</script>")
end if
%>
<%
call connclose()
%>