del2.asp

系统可以实现留言等功能,对于初学者有好处,希望能给大家帮助

<!--#include file=conn.inc-->
<% 
user=request("user1")
id=request("id")
pass=request("pass")

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user where 用户名='"& user &"'"
rs.open sql,conn
if rs.eof or rs.bof then
response.write " 该用户不存在!"
else
pass1=rs("密码")
user1=rs("用户名")
rs.close
set rs=nothing
if pass=pass1 then
set rs=server.createobject("adodb.recordset")
sql="select * from book where ID="& id
rs.open sql,conn,1,3

user2=rs("用户")
if user2=user1 then
rs.delete
set rs=nothing
conn.close
response.redirect "index.asp?user=" & user
else
response.write "请不要删除其他用户的留言记录!"
end if

else
response.write "你输入了错误的密码!"
end if
end if
%>