del.asp

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

<% option explicit %>
<!-- #include virtual="/admin/store/_ccwlib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：用户管理--删除用户
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Dim sql,rs,i
Dim uid  '---管理员ID
Dim id   '---primary key

call DB_Connect(strconn)

'---验证身份----
uid=session("admID")


id=getForm("id")
if not isnumeric(id) then id=0

sql="update userinfo set usr_delflag='Y' where usr_id=" & id
oConn.execute(sql)

call DB_DisConnect

response.redirect "index.asp"

%>