Attachment: Source Code 3:bbssendinfo.asp

<%@ Language=vbscript%>
<%
Id=trim (Request.QueryString ("userid")) ' Gets the current user name, which is himself (equal to session ("UserID")
If Request.QueryString ("act") = "send" Then ' get current operation status
Who=trim (Request.Form ("who")) ' If the status is sent, get the name of the user sent to
Content=trim (Request.Form ("content")) ' Get what you send if you send it
If who= "" or content= "" Then
Response.Redirect "error.asp?msg= name or message content is empty, unable to transmit!"
End If
' Because &,$ is the split symbol of the paging information area, so you want to filter out these characters and not allow the user to enter these characters
If InStr (1,who, "&") >=1 or InStr (1,who, "$") >=1 or InStr (1,content, "&") >=1 or InStr (1,content, "$") > =1 Then
Response.Redirect "error.asp?msg= name or message content contains illegal characters ($/&) and cannot be transmitted!"
End If

If Trim (Application ("message")) = "" Then
Application.Lock ' Put the paging information in the paging information queue
Application ("message") =who & "$" & Content & "$" & Trim (Request.QueryString ("userid"))
Application.UnLock
Else
Application.Lock ' Put the paging information in the paging information queue
Application ("message") = "&" & Who & "$" & Content & "$" & Trim (Request.QueryString ("userid"))