del.asp

来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 23 行

<% option explicit %>
<!-- #include virtual="/admin/level/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：权限管理--删除管理员
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Dim sql
Dim id   

call DB_Connect(strconn)

'---验证身份----
Call AdminCheck

id=getForm("id")
if not isnumeric(id) then id=0
sql="delete from t_AdminUserInfo  where asr_id=" & id
oConn.execute(sql)
call DB_DisConnect
response.redirect "index.asp"
%>