<% strMsg = Trim(Request("strMsg")) strMsg = Replace(strMsg,"&","&") strMsg = Replace(strMsg,"|","|") strMsg = Replace(strMsg,"%","%") strMsg = Replace(strMsg,"") strName = Trim(Request("strName")) strName = Replace(strName,"&","&") strName = Replace(strName,"|","|") strName = Replace(strName,vbcrlf,"
") strName = Replace(strName,"%","%") strName = Server.HTMLEncode(strName) %> Killer Player Forum
Home Rules Weapons Safe Havens Players Log Forum

Player Forum

You can post messages to other players below. You can use HTML if you want. Nothing is logged except the date and time (and now other info to track abusers of the HTML priv). The DM will not post messages here, so there can be no posing as the DM. Most recent posts are at the bottom, as is a form so you can post your own comments.

Also, if you're dead, don't post here. I'll start with an IP filter, unless I'm still grumpy, then I'll just remove this entire thing.

<% '### Logic IF NOT (strName = "" OR strMsg = "") AND Request("action") = "post" THEN POST ELSE LIST strName = "" strMsg = "" FORM END IF %> <% SUB LIST %> <% ' ## Read from file '## the filename, MUST BE ABSOLUTE! filename = "d:/209.237.144.31/killer/forum.txt" '## Create the file stream Set FS = CreateObject("Scripting.FileSystemObject") Set Stream = FS.OpenTextFile(filename) '## Iterate through each line... While NOT Stream.AtEndOfStream '## Split up the pipes into an array contents = split(Stream.ReadLine,"|") '## Pass the array to some HTML based section of the script which can be used to display the data. '## Date | Name | Message strDate = contents(0) strName = contents(1) strMsg = contents(2) %>

Posted by: <% = strName %>
Date: <% = strDate %>
<% = strMsg %>

<% Wend '## Close the File Stream Stream.Close %> <% END SUB %> <% SUB FORM %>

  
<% END SUB %> <% SUB POST %> <% '################ '## Write to file '## OPEN TEXT FILE Set objFSO = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFSO.OpenTextFile("d:/209.237.144.31/killer/forum.txt", 8, true) 'strMsg = Server.HTMLEncode(strMsg) 'strMsg = Replace(strMsg,vbcrlf,"
") '## WRITE TO TEXT FILE '## Date | Name | Message objNewFile.WriteLine FormatDateTime(Now,vbShortDate) & " " & FormatDateTime(Now,vbShortTime) & "|" & strName & "|" & strMsg '## CLOSE TEXT FILE objNewFile.Close %>

Thanks, now view the posts.

<% END SUB %>