clearmsg.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 21 行

<!--#include file="config/config.asp"-->
<%username=session("hxf_u_nickname")
if username=""  then  Response.Redirect "error.asp?id=440"
Set conn=Server.CreateObject("ADODB.CONNECTION")     
Set rs=Server.CreateObject("ADODB.RecordSet")     
connstr=Application("hg_connstr")     
conn.open connstr
rs.open "select * from chat where send='"&session("Uid")&"' and receive='"&request("id")&"'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 ("show.asp?receiveuser="&session("receiveuser")&"&id="&session("receive"))

%>