leave.asp

电子商务网络购物系统

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
select case Request("menu")

case "logout"
logout

case "delcookie"
delcookie

case "postasread"
postasread

case "resyncpost"
resyncpost

case "lockbbs"
lockbbs

end select

sub logout

Response.Cookies("Forum")("UID") = strLoggedInUsername & "LOGGED-OFF"
Response.Cookies("PrForum") = ""
Session("ViRead") = ""
Response.Cookies("LPM") = ""
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect "index.asp"

end sub

sub delcookie
Response.Cookies("Forum")("UID") = strLoggedInUsername & "LOGGED-OFF"
Response.Cookies("PrForum") = ""
Response.Cookies("FLVST")("LTVST") = ""
Response.Cookies("showActive") = ""
Response.Cookies("show") = ""
Response.Cookies("LPM") = ""
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect "index.asp"

end sub

sub postasread
Response.Buffer = True 
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Cookies("FLVST")("LTVST") = CDbl(Now())
Response.Cookies("FLVST").Expires = DateAdd("yyyy", 1, Now())
Session("dtmLastVisit") = Now()
Response.Redirect "index.asp"
end sub


sub resyncpost

Dim intForumID
If bannedIP() Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If
If blnAdmin = False Then
	Set rsConn = Nothing
	Set adoCon = Nothing
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If
intForumID = CInt(Request.QueryString("fid"))
updateTopicPostCount(intForumID)
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing

%>
<script language="JavaScript">
window.opener.location.href = window.opener.location.href; 
window.close();
</script>
<%
end sub

sub lockbbs

Dim strMode
Dim intForumID

If bannedIP() Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If
intForumID = CLng(Request.QueryString("fid"))
strMode = Request.QueryString("mode")
If blnAdmin = True Then
	strSQL = "SELECT timesbbs.Locked FROM timesbbs WHERE timesbbs.bbsid ="  & intForumID & ";"
	rsConn.CursorType = 2
	rsConn.LockType = 3
	rsConn.Open strSQL, adoCon  
	If NOT rsConn.EOF Then
		If strMode = "Lock" Then
			rsConn("Locked") = 1
		ElseIf strMode = "UnLock" Then
			rsConn("Locked") = 0
		End If
		rsConn.Update
	End If
	rsConn.Close
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
If CInt(Request.QueryString("code")) = 2 Then
	Response.Redirect "admin/disforum.asp"
Else
	Response.Redirect "index.asp"
End If

end sub
%>