clearmsg.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 19 行

<!--#INCLUDE FILE="conn.asp" -->
<%
set rs=server.createobject("ADODB.recordset") 
rs.open "select * from msg where send='"&session("Uid")&"' or receive='"&session("Uid")&"' order by id",conn,1,3
if not rs.eof then
do while not (rs.eof or rs.bof)
rs.Delete        
rs.movenext 
loop 
end if
rs.close
set rs=nothing
conn.Close
set conn = nothing
Response.Redirect ("sendinfo.asp?receiveuser="&session("receiveuser")&"&id="&session("receive"))

%>