28,409
社区成员




<%case "dellm"
dim qid
qid=request("id")
response.Write "<script LANGUAGE='javascript'>if (confirm('您确定删除该栏目吗?'))==true);</script>"
set rs_lm= server.CreateObject("ADODB.Recordset")
sql_lm="select * from [user_lm] where user_name='"& session("username") &"' and id=" & qid
rs_lm.open sql_lm,conn,1,3
rs_lm.delete
rs_lm.update
rs_lm.close
set rs_lm =nothing
response.Redirect "modinfo.asp"
response.End()
%>