mes_delete.asp

来自「在线考试系统」· ASP 代码 · 共 74 行

<%@ Language=VBScript %>

<% option explicit %>

<% Response.Buffer =true %>

<!-- #include file="conn_webqq.asp" -->
<!-- #include file="inc_session.asp" -->

<%
	dim uid
	uid=GetSession()

	if uid="" then
		Response.Redirect "mes_LOGIN.ASP"
		Response.End
	end if

	dim sSender
	sSender=Request("sender")


	'//delete messages

	Dim Rs
	set Rs=Server.CreateObject ("ADODB.Recordset")

	dim iCount

	if sSender="" then
		rs.Open "SELECT * FROM tMessage WHERE receiver='" & uid & "'",connq,3,3
	else
		rs.Open "SELECT * FROM tMessage WHERE receiver='" & uid & "' AND sender='" & sSender & "'",connq,3,3
	end if

	if rs.BOF and rs.EOF then
		iCount=0
	else
		rs.MoveLast
		rs.MoveFirst
		iCount=rs.RecordCount

		do
			rs.Delete
			rs.MoveNext
		loop until(rs.EOF)
	end if

	rs.Close


	'//re-calculate how many message remain
	dim iMesCount
	iMesCount=0

	Rs.Open "SELECT * FROM tOnline WHERE uid='" & uid & "'",connq,3 ,3
	if not(Rs.BOF and Rs.EOF) then

		iMesCount=rs("messagecount")
		iMesCount=iMesCount-iCount
		if iMesCount<0 then iMesCount=0
		rs("messagecount")=iMesCount
		rs.Update
	end if

	rs.Close

	set rs=nothing
	call closeconnq()

	Response.Redirect "mes_INDEX.ASP"

%>