del_message.asp

windowsCE 串口

<!--#include file="conn.asp"-->
<title><%=urlname%> - 删除留言</title>
<!--#include file="top.asp"-->
<%
if request("act")="yes" then
call yes()
else
call main()
end if
sub main()
id=request("id")
if not session(Variable&Names)=Variable then
errinfo="您没有登陆或者已经退出登陆"
error(errinfo)
exit sub
end if
sql="Select id from topic where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3

if rs.eof and rs.bof then
errinfo="该留言不存在！"
error(errinfo)
exit sub
end if
response.write "<table width='50%'  border='0' align='center' cellpadding='0' cellspacing='0'>"
response.write "<tr><td width='4%'><img src='images/skin/t-tl.gif' width='31' height='29'></td>"
response.write "<td width='91%' background='images/skin/t-tc.gif'></td>"
response.write "<td width='5%'><img src='images/skin/t-tr.gif' width='35' height='29'></td></tr>"
response.write "<tr><td background='images/skin/t-lt.gif'></td>"
response.write "<td><p align='center'>确定删除该留言吗？</p><p align='center'><a href='?act=yes&id="&id&"'>确定</a>&nbsp;&nbsp; <a href='javascript:history.back(-1)'>取消</a></p></td>"
response.write "<td background='images/skin/t-rt.gif'></td></tr>"
response.write "<tr><td><img src='images/skin/t-bl.gif' width='31' height='32'></td>"
response.write "<td background='images/skin/t-bc.gif'></td>"
response.write "<td><img src='images/skin/t-br.gif' width='35' height='32'></td></tr></table>"
%>
<%
conn.close
set rs=nothing
end sub

sub yes()
If Not ChkPost Then 
errinfo="对不起，请不要从外部提交数据！"
error(errinfo)
exit sub

End If
id=request("id")
sql="delete id from topic where id="&id
conn.execute(sql)
sucinfo="删除成功"
suc(sucinfo)
conn.close
end sub
%>
<!--#include file="bottom.asp"-->