更改密码
password=md5(trim(request("password")))
userID=htmlencode(request.form("userID"))
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from student where UserID='"&userID&"'",conn,1,3
rs("PassWord")=password
rs.update
rs.close
set rs=nothing
删除用户
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Delete * from student where UserID='"&userID&"'",conn,1,3
rs.close
set rs=nothing
最简单直接在每一条留言做一个链接<A href="delete.asp?id=50">删除按钮</A>
delete.asp中代码如下:
<%id=request.form("id")
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Delete * from message where ID='"&id&"'",conn,1,3
rs.close
set rs=nothing
Response.Write "<script>alert('该记录已经成功删除!!');history.back();</Script>"
%>