Line 1: #ExternalChecksum("E:\web\fer3com0\38talk\m2.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","07DED9B617449D5E1619D4EAD65BD55D1F90FF43")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Generic
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.ComponentModel.DataAnnotations
Line 21: Imports System.Configuration
Line 22: Imports System.Drawing
Line 23: Imports System.IO
Line 24: Imports System.Linq
Line 25: Imports System.Net
Line 26: Imports System.Text
Line 27: Imports System.Text.RegularExpressions
Line 28: Imports System.Web
Line 29: Imports System.Web.Caching
Line 30: Imports System.Web.DynamicData
Line 31: Imports System.Web.Profile
Line 32: Imports System.Web.Security
Line 33: Imports System.Web.SessionState
Line 34: Imports System.Web.UI
Line 35: Imports System.Web.UI.HtmlControls
Line 36: Imports System.Web.UI.WebControls
Line 37: Imports System.Web.UI.WebControls.Expressions
Line 38: Imports System.Web.UI.WebControls.WebParts
Line 39: Imports System.Xml.Linq
Line 40:
Line 41: Namespace ASP
Line 42:
Line 43: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 44: Public Class m2_aspx
Line 45: Inherits Global.System.Web.UI.Page
Line 46: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 47:
Line 48:
Line 49: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",396)
Line 50: Protected WithEvents arclist As Global.System.Web.UI.WebControls.Label
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",506)
Line 56: Protected WithEvents m2main As Global.System.Web.UI.WebControls.Label
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60: Private Shared __initialized As Boolean
Line 61:
Line 62: Private Shared __stringResource As Object
Line 63:
Line 64: Private Shared __fileDependencies As Object
Line 65:
Line 66:
Line 67: #ExternalSource("E:\web\fer3com0\38talk\viptest.inc",3)
Line 68:
Line 69:
Line 70: function testip() as boolean
Line 71:
Line 72: 'to disable, uncomment:
Line 73: 'return true
Line 74:
Line 75: dim udata as string
Line 76: udata = "notOK"
Line 77: if not Request.Cookies("vip") is nothing then
Line 78: udata = Request.Cookies("vip").Value
Line 79: end if
Line 80: Response.Write(" ... udata found: " + udata + "<br>")
Line 81: if udata="OK" then return true else return false
Line 82:
Line 83:
Line 84: 'dim ipaddr, udata as string
Line 85: 'ipaddr = Request.ServerVariables("REMOTE_ADDR")
Line 86: 'Response.Write("This ip addr: " + ipaddr)
Line 87: 'dim req as HttpWebRequest = HttpWebRequest.Create("http://fer3.com/vipget.aspx?ip=" & ipaddr)
Line 88: 'dim res as HttpWebResponse = req.GetResponse()
Line 89: 'dim sr as new StreamReader(res.GetResponseStream())
Line 90: 'udata = sr.ReadToEnd
Line 91: 'res.close
Line 92: 'Response.Write(" ... udata returned: "+udata + "<br>")
Line 93: 'if udata="OK" then return true else return false
Line 94:
Line 95: end function
Line 96:
Line 97:
Line 98: #End ExternalSource
Line 99:
Line 100:
Line 101: #ExternalSource("E:\web\fer3com0\38talk\arcinc1x.aspx",1)
Line 102:
Line 103:
Line 104: '---------------------
Line 105: sub breakline(byref s as string)
Line 106: dim sArr() as string
Line 107: dim i,totlen as integer
Line 108:
Line 109: sArr = split(s)
Line 110: totlen = 0
Line 111:
Line 112: for i=0 to ubound(sArr)
Line 113: totlen = totlen + len(sArr(i)) + 1
Line 114: if instr(sArr(i), vbCR)>0 or instr(sArr(i), vbLF)>0 then totlen=0
Line 115: if totlen>79 then
Line 116: sArr(i) = vbCRLF & sArr(i)
Line 117: totlen = len(sArr(i))
Line 118: end if
Line 119: next
Line 120: s = join(sArr)
Line 121: end sub
Line 122:
Line 123: '--------------------
Line 124: sub clearats(byref s as string)
Line 125: dim q0, q1, q2, i as integer
Line 126: dim badats(100) as string
Line 127:
Line 128: 'first do replacements that have nothing to do with "at" signs...
Line 129: s = replace(s, "[d]", "°")
Line 130: s = replace(s, "[D]", "°")
Line 131: s = replace(s, "</table<", "</table><")
Line 132:
Line 133: '@@@@ QUICK FIX FOR 38TALK:
Line 134: exit sub
Line 135:
Line 136:
Line 137: q1 = instr(s, "@")
Line 138: if q1=0 then exit sub
Line 139:
Line 140: badats(1) = "@hotmail"
Line 141: badats(2) = "@aol"
Line 142: badats(3) = "@huxtable"
Line 143: badats(4) = "@compuserve"
Line 144: badats(5) = "@pacbell"
Line 145: badats(6) = "@gmail"
Line 146: badats(7) = "@yahoo"
Line 147: badats(8) = "@cox"
Line 148: badats(9) = "@mac"
Line 149: badats(10) = "@comcast"
Line 150: badats(11) = "@earthlink"
Line 151: badats(12) = "@sbcglobal"
Line 152: badats(13) = "@att"
Line 153: badats(14) = "@verizon"
Line 154: badats(15) = "@bigpond"
Line 155: badats(16) = "@btinternet"
Line 156: badats(17) = "@snet"
Line 157: badats(18) = "@math.purdue"
Line 158: badats(19) = "@unb"
Line 159: badats(20) = "@msn"
Line 160: badats(21) = "@bigpond"
Line 161: badats(22) = "@telnet"
Line 162: badats(23) = "@telenet"
Line 163: badats(24) = "@netzero"
Line 164: badats(25) = "@charter"
Line 165:
Line 166: s = replace(s, "@googlegroups.com", "@fer3.com")
Line 167: s = replace(s, "@freelists.org", "@fer3.com")
Line 168: for i=1 to ubound(badats)
Line 169: s = replace(s, badats(i), "---")
Line 170: q1 = instr(s, "@")
Line 171: if q1=0 then exit sub
Line 172: next
Line 173:
Line 174: q0 = 1
Line 175: do
Line 176: q1 = instr(q0, s, "@")
Line 177: if q1=0 then
Line 178: exit sub
Line 179: else
Line 180: if mid(s,q1,5)="@fer3" then
Line 181: q0 = q1 + 5
Line 182: else
Line 183: s = left(s,q1-1) & "{at}" & mid(s, q1+1, len(s))
Line 184: q0 = q1 + 2
Line 185: end if
Line 186: end if
Line 187: loop
Line 188:
Line 189: exit sub
Line 190:
Line 191: '----old code----------------
Line 192: q0=1
Line 193: do
Line 194: q1 = instr(q0, s, "@")
Line 195: if q1<>0 then
Line 196: if mid(s,q1,5)="@fer3" then
Line 197: q0 = q1 + 5
Line 198: else
Line 199: q2=instr(q1+1,s,".")
Line 200: if q2>0 and q2<q1+250 then
Line 201: s=left(s,q1-1) & "---" & right(s,len(s)-q2)
Line 202: q0=q2+1
Line 203: else
Line 204: q0=q1+1
Line 205: end if
Line 206: end if
Line 207: else
Line 208: exit sub
Line 209: end if
Line 210: loop
Line 211:
Line 212: end sub
Line 213: '--------------------------
Line 214:
Line 215: function hdrdecode(a as string) as string
Line 216: dim deca as string
Line 217: dim i, q1, q2, q3, q4 as integer
Line 218:
Line 219: do
Line 220: q1 = instr(a, "=?")
Line 221: if q1=0 then exit do
Line 222: '-------------------
Line 223: q3 = instr(q1+2, a, "?q?")
Line 224: if q3=0 then q3 = instr(q1+2, a, "?Q?")
Line 225: q4 = instr(q1+2, a, "?b?")
Line 226: if q4=0 then q4 = instr(q1+2, a, "?B?")
Line 227: if q4>0 then
Line 228: q2 = instr(q4+3, a, "?=")
Line 229: if (q2-q4-3>0) and (q4-q1-2>0) then
Line 230: deca = Encoding.GetEncoding(mid(a, q1+2, q4-q1-2)).GetString(System.Convert.FromBase64String(mid(a, q4+3, q2-q4-3)))
Line 231: else
Line 232: deca = "---could not decode---"
Line 233: end if
Line 234: elseif q3>0 then
Line 235: q2 = instr(q3+3, a, "?=")
Line 236: if (q2-q3-3>0) and (q3-q1-2>0) then
Line 237: deca = QPdecode(mid(a, q1+2, q3-q1-2), mid(a, q3+3, q2-q3-3), true)
Line 238: else
Line 239: deca = "---could not decode---"
Line 240: end if
Line 241: else
Line 242: q2 = len(a) - 1
Line 243: deca = "--could not decode--"
Line 244: end if
Line 245: a = left(a, q1-1) & deca & right(a, len(a)-q2-1)
Line 246: loop
Line 247: hdrdecode = a
Line 248:
Line 249: end function
Line 250:
Line 251: '-------------------------
Line 252: function QPdecode(enc as string, a as string, spaceuscore as boolean) as string
Line 253: dim i, j, hx1, hx2 as integer
Line 254: dim b as byte
Line 255: dim bin() as byte
Line 256:
Line 257: if len(a)<1 then
Line 258: return a
Line 259: exit function
Line 260: end if
Line 261:
Line 262: dim bout(len(a)) as byte
Line 263:
Line 264: if len(globalenc)=0 then globalenc="utf-8" 'was "iso-8859-1" 'was utf-8
Line 265: if len(enc)>0 then globalenc=enc else enc=globalenc
Line 266: enc = ucase(enc)
Line 267:
Line 268: bin = Encoding.ascii.GetBytes(a)
Line 269:
Line 270: i = 0
Line 271: j = 0
Line 272: do
Line 273: if i<=ubound(bin) then
Line 274: b = bin(i)
Line 275: else
Line 276: Response.Write("Trouble in QPdec: " & str(i))
Line 277: end if
Line 278: if enc<>"UTF-8" then
Line 279: if b=160 then b=32 'nbsp --> space
Line 280: end if
Line 281: if spaceuscore then
Line 282: if b=95 then b = 32 'underscore --> space
Line 283: end if
Line 284: if b=61 then 'it's an = marker
Line 285: if i+1<ubound(bin) then
Line 286: hx1 = bin(i+1)
Line 287: hx2 = bin(i+2)
Line 288: if hx1>=97 then hx1 = hx1 - 32
Line 289: if hx2>=97 then hx2 = hx2 - 32
Line 290: if hx1>=65 then hx1 = 16*(hx1 - 55) else hx1 = 16*(hx1 - 48)
Line 291: if hx2>=65 then hx2 = (hx2 - 55) else hx1 = (hx1 - 48)
Line 292: bout(j) = hx1 + hx2
Line 293: i = i + 2
Line 294: else
Line 295: bout(j) = b
Line 296: end if
Line 297: else
Line 298: bout(j) = b
Line 299: end if
Line 300: i = i + 1
Line 301: if i>ubound(bin) then exit do
Line 302: j = j + 1
Line 303: loop
Line 304: redim preserve bout(j)
Line 305:
Line 306: enc=ucase(trim(enc))
Line 307: if instr("UTF-8;ISO-8859-*;WINDOWS-*;US-ASCII", left(enc,5))=0 then enc = "WINDOWS-1252"
Line 308:
Line 309: if enc="UTF-8" then
Line 310: a = Encoding.utf8.GetString(bout)
Line 311: else
Line 312: a = Encoding.GetEncoding(enc).GetString(bout)
Line 313: end if
Line 314:
Line 315: return a
Line 316:
Line 317: end function
Line 318:
Line 319:
Line 320: #End ExternalSource
Line 321:
Line 322:
Line 323: #ExternalSource("E:\web\fer3com0\38talk\ReadHdrinc.aspx",1)
Line 324:
Line 325:
Line 326: 'now two subs: ReadHdr and ReadMainHdr...
Line 327: 'reads email headers... ReadHdr assumes level is defined (=1 for main hdr)
Line 328: 'both assume FileStream is open.
Line 329:
Line 330:
Line 331: sub ReadMainHdr (byref sd0 as string, byref moderated as boolean, byref contype as string, byref xenc as string, byref cid as string, byref cdisp as string)
Line 332: dim a as string
Line 333: dim line(500) as string
Line 334: dim imem, q1, q2, i, j, Nlines as integer
Line 335: dim filesize, messageid, inreplyto, fromstr, datestr, substr, charset, realname, savesent as string
Line 336: dim newlinkname, delstr, valids, exotics, safes, mergename as string
Line 337: dim listofmonths, charsetlist, mthnum, dateyr, dateday, datehrs, datemth, datemin, datezone as string
Line 338: dim pxzReader as StreamReader
Line 339: dim memdata(5000), mname(5000), memail(5000) as string
Line 340: dim memmod(5000) as boolean
Line 341: dim eparts(), mems(), timeparts(), dateparts() as string
Line 342: dim showlines as boolean
Line 343:
Line 344: showlines = false
Line 345:
Line 346: contype = "text/plain; charset=windows-1252"
Line 347: xenc = "8bit"
Line 348: cid = ""
Line 349: cdisp = ""
Line 350:
Line 351: i = 0
Line 352: do
Line 353: if FileStream.Peek=-1 then exit do
Line 354: a = FileStream.ReadLine
Line 355: if len(trim(a))=0 then exit do
Line 356: if left(a, 1)=" " or left(a, 1)=chr(9) then
Line 357: line(i) = line(i) + " " + trim(replace(a, chr(9), " "))
Line 358: else
Line 359: i = i + 1
Line 360: line(i) = a
Line 361: end if
Line 362: loop
Line 363: Nlines = i
Line 364:
Line 365:
Line 366: 'for i=1 to Nlines
Line 367: ' Response.Write("RM: " & str(i) & ": " & replace(line(i), "<", "<") & "<br>")
Line 368: 'next
Line 369:
Line 370: 'this line avoids accidentally resetting values if we run this at the end of a message:
Line 371: if Nlines=0 then exit sub
Line 372:
Line 373: 'get member data
Line 374: pxzReader = New StreamReader(Server.MapPath("pxzz.dat"))
Line 375: i = 0
Line 376: do
Line 377: if pxzReader.Peek=-1 then exit do
Line 378: a = pxzReader.ReadLine()
Line 379: if len(a)>10 then
Line 380: memdata(i) = a
Line 381: i = i + 1
Line 382: end if
Line 383: loop
Line 384: pxzReader.Close
Line 385:
Line 386: imem = 1
Line 387: for i=1 to ubound(memdata)
Line 388: if len(memdata(i))=0 then exit for
Line 389: mems = split(memdata(i),",")
Line 390: if ubound(mems)>=2 then
Line 391: mname(imem) = trim(mems(2))
Line 392: memail(imem) = lcase(trim(mems(1)))
Line 393: if trim(mems(6))="MOD" then memmod(imem) = true else memmod(imem) = false
Line 394: imem = imem + 1
Line 395: end if
Line 396: if ubound(mems)>=9 then
Line 397: if instr(mems(9),"@")>0 then
Line 398: mname(imem) = mname(imem - 1)
Line 399: memmod(imem) = memmod(imem - 1)
Line 400: memail(imem) = lcase(trim(mems(9)))
Line 401: imem = imem + 1
Line 402: end if
Line 403: end if
Line 404: next
Line 405:
Line 406:
Line 407: charsetlist = "A,us-ascii,1,iso-8859-1,U,utf-8,w,windows-1252,2,iso-8859-15,3,iso-8859-7,X,windows-1250,1,iso8859-1,1,iso8859-1,4,iso-8859-2,w,x-unknown"
Line 408: 'a hack:
Line 409: charsetlist = ucase(charsetlist)
Line 410:
Line 411: listofmonths = "janfebmaraprmayjunjulaugsepoctnovdec"
Line 412: 'words to delet from new link name...
Line 413: dim delwords(100) as string
Line 414: delwords(1) = "navigation-l"
Line 415: delwords(2) = "nav-l"
Line 416: delwords(3) = "nml"
Line 417: delwords(4) = " re "
Line 418: delwords(5) = " aw "
Line 419: delwords(6) = " fwd "
Line 420: delwords(7) = " sv "
Line 421: delwords(8) = " res "
Line 422: delwords(9) = " rv "
Line 423: delwords(10) = " and "
Line 424: delwords(11) = " the "
Line 425: delwords(12) = " at "
Line 426: delwords(13) = " or "
Line 427: delwords(14) = " of "
Line 428: delwords(15) = " in "
Line 429: delwords(16) = " to "
Line 430: delwords(17) = " as "
Line 431: delwords(18) = " is "
Line 432: delwords(19) = " by "
Line 433: delwords(20) = " a "
Line 434: delwords(21) = " on "
Line 435: delwords(22) = " etc "
Line 436: delwords(23) = " etc. "
Line 437: delwords(24) = " r "
Line 438: delwords(25) = "spam"
Line 439:
Line 440: moderated = true
Line 441: fromstr = ""
Line 442: datestr = ""
Line 443: substr = ""
Line 444: charset = ""
Line 445: realname = ""
Line 446:
Line 447: for i = 1 TO Nlines
Line 448: a = line(i)
Line 449: if lcase(left(a,5))="from:" then
Line 450: q1 = instr(lcase(a), "on behalf of")
Line 451: if q1>0 then
Line 452: eparts = split(mid(a, q1+12, 500), " ")
Line 453: a = eparts(0)
Line 454: for j=0 to ubound(eparts)
Line 455: if instr(eparts(j), "@")>0 then a = "from: " & eparts(j)
Line 456: next
Line 457: end if
Line 458: q1 = instr(lcase(a), "danallen@microsoft.com")
Line 459: if q1>0 then
Line 460: a = "from: danallen@microsoft.com"
Line 461: end if
Line 462: q1 = instr(a, "<")
Line 463: q2 = instr(a, ">")
Line 464: if q1=0 and q2=0 then
Line 465: q1 = instr(a, "[")
Line 466: q2 = instr(a, "]")
Line 467: end if
Line 468: if q2=0 then
Line 469: q2=len(a)+1
Line 470: q1=6
Line 471: end if
Line 472: fromstr = trim(mid(a, q1+1, q2-q1-1))
Line 473: fromstr = hdrdecode(fromstr)
Line 474: 'next look up in mem list for real name...
Line 475: for imem=1 to ubound(memail)
Line 476: if len(memail(imem))=0 then exit for
Line 477: if memail(imem)=lcase(fromstr) then
Line 478: moderated = memmod(imem)
Line 479: realname = mname(imem)
Line 480: end if
Line 481: next
Line 482: if len(realname)=0 then
Line 483: 'we don't know this sender
Line 484: moderated = true
Line 485: q1 = instr(fromstr, "@")
Line 486: if q1=0 then q1 = len(fromstr)
Line 487: if q1>10 then q1=10
Line 488: realname = "UNK"
Line 489: end if
Line 490: end if
Line 491: if lcase(left(a,5))="date:" then
Line 492: datestr = a
Line 493: q1 = instr(datestr, ",")
Line 494: if q1=0 then q1 = 6
Line 495: datestr = trim(mid(a, q1+1, 500))
Line 496: end if
Line 497: if lcase(left(a,5))="sent:" then
Line 498: savesent = a
Line 499: end if
Line 500: if lcase(left(a,8))="subject:" and len(a)>8 then
Line 501: substr = trim(mid(a, 9, 500))
Line 502: end if
Line 503: if lcase(left(a,12))="in-reply-to:" then
Line 504: inreplyto = mid(a, 13, 500)
Line 505: inreplyto = replace(inreplyto, "<", "")
Line 506: inreplyto = trim(replace(inreplyto, ">", ""))
Line 507: end if
Line 508: if lcase(left(a,11))="message-id:" then
Line 509: messageID = mid(a, 12, 500)
Line 510: messageID = replace(messageID, "<", "")
Line 511: messageID = trim(replace(messageID, ">", ""))
Line 512: end if
Line 513: if lcase(left(a, 13))="content-type:" then
Line 514: if len(a)>14 then contype = mid(a, 14, 500)
Line 515: q1 = instr(contype, "charset=")
Line 516: if q1>0 then charset = trim(mid(contype, q1 + 8, 500))
Line 517: q1 = instr(charset, ";")
Line 518: if q1=0 then q1 = instr(charset, " ")
Line 519: if q1>0 then charset = left(charset, q1 - 1)
Line 520: charset = ucase(replace(charset, """", ""))
Line 521: charset = replace(charset, "ISO8", "ISO-8")
Line 522: if len(charset)>0 then
Line 523: globalenc = trim(charset)
Line 524: try
Line 525: Response.ContentEncoding = Encoding.GetEncoding(globalenc)
Line 526: 'Response.Write("<!--enc to: " & globalenc & "-->")
Line 527: catch ex as exception
Line 528: 'Response.Write("enc ex in readmainhdr. Globalenc: " & globalenc & " Ex: " & ex.message & ". ")
Line 529: showlines = true
Line 530: globalenc = "WINDOWS-1252"
Line 531: Response.ContentEncoding = Encoding.GetEncoding(globalenc)
Line 532: Response.Write("<!--ex enc to: " & globalenc & "-->")
Line 533: end try
Line 534: end if
Line 535: end if
Line 536: if lcase(left(a, 26))="content-transfer-encoding:" then
Line 537: if len(a)>27 then xenc = trim(mid(a, 27, 500))
Line 538: end if
Line 539: if lcase(left(a, 11))="content-id:" then
Line 540: if len(a)>12 then cid = trim(mid(a, 12, 500))
Line 541: if left(cid,1)="<" then cid = mid(cid, 2, len(cid)-2)
Line 542: end if
Line 543: if lcase(left(a, 20))="content-disposition:" then
Line 544: if len(a)>21 then cdisp = mid(a, 21, 500)
Line 545: end if
Line 546: if lcase(left(a, 10)="x-fer3com:") then
Line 547: if instr(a, "MOD")>0 then
Line 548: moderated = true 'over-rides pxzz setting above
Line 549: 'Response.Write("set MOD")
Line 550: else
Line 551: 'Response.Write("not set mod")
Line 552: end if
Line 553: end if
Line 554: if len(a)=0 then exit for
Line 555: next
Line 556:
Line 557: 'if showlines then
Line 558: ' for i=1 to Nlines
Line 559: ' Response.Write(line(i) & "<br>")
Line 560: ' next
Line 561: ' showlines = false
Line 562: 'end if
Line 563:
Line 564: 'clean up substr....
Line 565: if len(substr)=0 then
Line 566: substr = "(no subject)"
Line 567: moderated = true
Line 568: end if
Line 569: substr = hdrdecode(substr)
Line 570: substr = replace(substr, "|", " ") 'because I use "|" as a divider
Line 571: substr = replace(substr, chr(9), " ")
Line 572: 'remove [Nml] tags
Line 573: substr = replace(substr, "[Nml]", "")
Line 574: 'replace escaped &'s etc
Line 575: do
Line 576: q1 = instr(substr, "&")
Line 577: if q1=0 then exit do
Line 578: q2 = instr(q1, substr, ";")
Line 579: if q2>q1 and q2<q1+7 then
Line 580: 'remove everything from q1 through q2
Line 581: substr = left(substr, q1-1) & mid(substr, q2+1, len(substr))
Line 582: else
Line 583: exit do
Line 584: end if
Line 585: loop
Line 586: 'get rid of all navlist and navlisttest tag in substr...
Line 587: do
Line 588: q1 = instr(lcase(substr), "[navlist")
Line 589: if q1=0 then exit do
Line 590: q2 = instr(q1+7, substr, "]")
Line 591: if q2>q1 then delstr = mid(substr, q1, q2-q1+1)
Line 592: substr = replace(substr, delstr, " ")
Line 593: loop
Line 594: '38talk tags
Line 595: do
Line 596: q1 = instr(lcase(substr), "[38talk")
Line 597: if q1=0 then exit do
Line 598: q2 = instr(q1+5, substr, "]")
Line 599: if q2>q1 then delstr = mid(substr, q1, q2-q1+1)
Line 600: substr = replace(substr, delstr, " ")
Line 601: loop
Line 602:
Line 603: 'get rid of multiple spaces in substr...
Line 604: do
Line 605: q1 = instr(substr, " ")
Line 606: if q1=0 then exit do
Line 607: substr = replace(substr, " ", " ")
Line 608: loop
Line 609: 'standardize variations on Re...
Line 610: substr = " " & substr 'following works better with space in front...
Line 611: substr = replace(substr, " RE:", " Re:")
Line 612: substr = replace(substr, " re:", " Re:")
Line 613: substr = replace(substr, " AW:", " Re:")
Line 614: substr = replace(substr, " Aw:", " Re:")
Line 615: substr = replace(substr, " Sv:", " Re:")
Line 616:
Line 617: 'get rid of double Re's...
Line 618: do
Line 619: q1 = instr(substr, "Re: Re: ")
Line 620: if q1=0 then exit do
Line 621: substr = replace(substr, "Re: Re: ", "Re: ")
Line 622: loop
Line 623:
Line 624: substr = trim(substr)
Line 625: 'fix case issues...
Line 626: a = left(substr,1)
Line 627: if a=lcase(a) then substr = ucase(a) & mid(substr, 2, 500)
Line 628: dim iupper as integer = 0
Line 629: if len(substr)>5 then
Line 630: for i=1 to len(substr)
Line 631: if mid(substr,i,1)=ucase(mid(substr,i,1)) then iupper = iupper + 1
Line 632: next
Line 633: end if
Line 634: if iupper/len(substr)>0.80 then substr = StrConv(substr, VbStrConv.ProperCase)
Line 635:
Line 636: 'clean up datestr....
Line 637: if len(datestr)=0 and len(savesent)>0 then
Line 638: datestr = savesent
Line 639: q1 = instr(datestr, ",")
Line 640: if q1=0 then q1 = 6
Line 641: datestr = trim(mid(datestr, q1+1, len(datestr)))
Line 642: dateparts = split(datestr, " ")
Line 643: dateday = replace(dateparts(1), ",", "")
Line 644: datemth = left(dateparts(0), 3)
Line 645: dateparts(0) = dateday
Line 646: dateparts(1) = datemth
Line 647: datestr = join(dateparts, " ")
Line 648: end if
Line 649: 'now rebuild datestr...
Line 650: try
Line 651: dateparts = split(datestr, " ")
Line 652: if instr(dateparts(0), ",")>0 then
Line 653: for j=0 to ubound(dateparts)-1
Line 654: dateparts(j) = dateparts(j+1)
Line 655: next
Line 656: end if
Line 657: dateday = dateparts(0)
Line 658: datemth = dateparts(1)
Line 659: dateyr = trim(right(dateparts(2),2))
Line 660: mthnum = trim(str(1 + (instr(listofmonths, lcase(datemth))-1)/3))
Line 661: if len(mthnum)<2 then mthnum = "0" & mthnum
Line 662: if instr(dateparts(3), ":")>0 then
Line 663: timeparts = split(dateparts(3), ":")
Line 664: else
Line 665: timeparts = split("00:00:00", ":")
Line 666: end if
Line 667: datehrs = timeparts(0)
Line 668: datemin = timeparts(1)
Line 669: datezone = dateparts(4)
Line 670: catch ex as exception
Line 671: dateday = "1"
Line 672: datemth = "Jan"
Line 673: dateyr = "1995"
Line 674: mthnum = "01"
Line 675: datehrs = "00"
Line 676: datemin = "00"
Line 677: end try
Line 678: if val(dateyr)<1000 then
Line 679: if val(dateyr)>50 then dateyr = "19" & dateyr else dateyr = "20" & dateyr
Line 680: end if
Line 681: datestr = dateyr & " " & datemth & " " & dateday & ", " & datehrs & ":" & datemin & " " & datezone
Line 682: 'finally...
Line 683: datestr = trim(datestr)
Line 684:
Line 685: 'charset values....
Line 686: if len(charset)=1 then
Line 687: dim chparts() as string
Line 688: chparts = split(charsetlist, ",")
Line 689: for j=1 to ubound(chparts) step 2
Line 690: if chparts(j)=charset then
Line 691: charset = chparts(j-1)
Line 692: exit for
Line 693: end if
Line 694: next
Line 695: else
Line 696: charset = "0"
Line 697: end if
Line 698:
Line 699: 'build and clean up newlinkname....
Line 700: newlinkname = substr
Line 701: 'remove unsub requests
Line 702: q1 = instr(lcase(newlinkname), "unsubscribe")
Line 703: if q1>0 then
Line 704: newlinkname = "nil"
Line 705: end if
Line 706: 'remove after "was:"
Line 707: q1 = instr(lcase(newlinkname), " was:")
Line 708: if q1>0 then
Line 709: newlinkname = left(newlinkname, q1-1)
Line 710: end if
Line 711: q1 = instr(lcase(newlinkname), " was-")
Line 712: if q1>0 then
Line 713: newlinkname = left(newlinkname, q1-1)
Line 714: end if
Line 715: q1 = instr(lcase(newlinkname), " was;")
Line 716: if q1>0 then
Line 717: newlinkname = left(newlinkname, q1-1)
Line 718: end if
Line 719: q1 = instr(lcase(newlinkname), " (was")
Line 720: if q1>0 then
Line 721: newlinkname = left(newlinkname, q1-1)
Line 722: end if
Line 723: q1 = instr(lcase(newlinkname), " [was")
Line 724: if q1>0 then
Line 725: newlinkname = left(newlinkname, q1-1)
Line 726: end if
Line 727: newlinkname = replace(newlinkname, ":", " ")
Line 728: for j=1 to ubound(delwords)
Line 729: if len(delwords(j))=0 then exit for
Line 730: do
Line 731: q1 = instr(lcase(newlinkname), delwords(j))
Line 732: if q1=0 then exit do
Line 733: delstr = mid(newlinkname, q1, len(delwords(j)))
Line 734: newlinkname = replace(newlinkname, delstr, " ")
Line 735: loop
Line 736: if left(lcase(newlinkname), len(ltrim(delwords(j))))=ltrim(delwords(j)) then
Line 737: newlinkname = mid(newlinkname, len(ltrim(delwords(j))), len(newlinkname))
Line 738: end if
Line 739: if right(lcase(newlinkname), len(rtrim(delwords(j))))=rtrim(delwords(j)) then
Line 740: newlinkname = left(newlinkname, len(newlinkname) - len(ltrim(delwords(j))))
Line 741: end if
Line 742: next
Line 743: newlinkname = replace(newlinkname, "..", " ")
Line 744: valids = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Line 745: exotics = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞß"
Line 746: safes = "AAAAAAACEEEEIIIIDNOOOOOOUUUUYTS"
Line 747: exotics = exotics & lcase(exotics)
Line 748: safes = safes & lcase(safes)
Line 749: valids = "0123456789 " & valids & lcase(valids)
Line 750: for j=1 to len(newlinkname)
Line 751: q1 = instr(valids, mid(newlinkname, j, 1))
Line 752: if q1=0 then
Line 753: q1 = instr(exotics, mid(newlinkname, j, 1))
Line 754: if q1>0 then
Line 755: newlinkname = replace(newlinkname, mid(exotics, q1, 1), mid(safes, q1, 1))
Line 756: else
Line 757: newlinkname = replace(newlinkname, mid(newlinkname, j, 1), "@")
Line 758: end if
Line 759: end if
Line 760: next
Line 761: newlinkname = replace(newlinkname, "@", "")
Line 762: do
Line 763: q1 = instr(newlinkname, " ")
Line 764: if q1=0 then exit do
Line 765: newlinkname = replace(newlinkname, " ", " ")
Line 766: loop
Line 767: if len(newlinkname)>60 then
Line 768: q1 = instrRev(newlinkname, " ")
Line 769: if q1<30 then q1 = 30
Line 770: newlinkname = left(newlinkname, q1-1)
Line 771: end if
Line 772: newlinkname = replace(newlinkname, "www", "")
Line 773: newlinkname = replace(newlinkname, "http ", "")
Line 774: newlinkname = replace(trim(newlinkname), " ", "-")
Line 775: if len(realname)=0 then realname="UNK"
Line 776: if instr(lcase(realname), "navlist messages")>0 then realname="UNK"
Line 777:
Line 778: mergename = realname
Line 779: q1 = instrRev(mergename, " ")
Line 780: if q1>0 then
Line 781: mergename = mid(mergename, q1+1, 500)
Line 782: if len(mergename)<6 then mergename = replace(realname, " ", "")
Line 783: end if
Line 784: mergename = replace(mergename, "'", "´") 'for, e.g., O'Reilly...
Line 785: newlinkname = newlinkname & "-" & mergename & "-" & lcase(datemth) & "-" & dateyr & "-XXX1"
Line 786: 'finally...
Line 787: newlinkname = trim(newlinkname)
Line 788:
Line 789: filesize = trim(str(FileStream.BaseStream.Length))
Line 790: 'build sd0...
Line 791: if (instr(fromstr, ".top")>len(fromstr)-6) or (instr(fromstr, ".xyz")>len(fromstr)-6) then fromstr = "spam@spam"
Line 792: sd0 = "|" & substr & "|" & fromstr & "|" & datestr & "|" & filesize & "|XXX1|" & realname & "|"
Line 793: if len(messageID)=0 then messageID = "XXX1@groupid.fer3.com"
Line 794: if len(charset)>0 and charset<>"0" then
Line 795: sd0 = sd0 & charset
Line 796: else
Line 797: sd0 = sd0 & "XXX2"
Line 798: end if
Line 799: sd0 = sd0 & "|" & newlinkname & "|" & messageID & "|" & inreplyto
Line 800:
Line 801: end sub
Line 802:
Line 803:
Line 804:
Line 805: sub ReadHdr (byref contype as string, byref xenc as string, byref cid as string, byref cdisp as string)
Line 806: dim a as string
Line 807: dim line(500) as string
Line 808: dim q1, q2, i, Nlines as integer
Line 809: dim savesent as string
Line 810:
Line 811: contype = "text/plain; charset=windows-1252"
Line 812: xenc = "8bit"
Line 813: cid = ""
Line 814: cdisp = ""
Line 815: contype = ""
Line 816:
Line 817: i = 0
Line 818: do
Line 819: if FileStream.Peek=-1 then exit do
Line 820: a = FileStream.ReadLine
Line 821: if len(trim(a))=0 then exit do
Line 822: if (left(a, 1)=" ") or (asc(left(a, 1))=9) then
Line 823: line(i) = line(i) + " " + trim(replace(a, chr(9), " "))
Line 824: else
Line 825: i = i + 1
Line 826: line(i) = a
Line 827: end if
Line 828: loop
Line 829: Nlines = i
Line 830:
Line 831: 'for i=1 to Nlines
Line 832: ' Response.Write("Rh: " & str(i) & ": " & replace(line(i), "<", "<") & "<br>")
Line 833: 'next
Line 834:
Line 835:
Line 836: if Nlines = 0 then exit sub
Line 837:
Line 838: for i = 1 TO Nlines
Line 839: a = line(i)
Line 840: 'for all values of level....
Line 841: if lcase(left(a, 13))="content-type:" then
Line 842: if len(a)>14 then contype = right(a, len(a) - 13 - 1)
Line 843: q1 = instr(contype, "charset=")
Line 844: if q1>0 then globalenc = ucase(mid(contype, q1+8, 500))
Line 845: q1 = instr(globalenc, ";")
Line 846: if q1>0 then globalenc = left(globalenc, q1-1)
Line 847: if len(globalenc)>0 then
Line 848: globalenc = trim(replace(globalenc, """", ""))
Line 849: try
Line 850: Response.ContentEncoding = Encoding.GetEncoding(globalenc)
Line 851: 'Response.Write("<!-- *enc to: " & globalenc & "-->")
Line 852: catch ex as exception
Line 853: Response.Write("enc ex in readhdr. Globalenc: " & globalenc & " Ex: " & ex.message)
Line 854: globalenc = "WINDOWS-1252"
Line 855: Response.ContentEncoding = Encoding.GetEncoding(globalenc)
Line 856: 'Response.Write("<!--ex *enc to: " & globalenc & "-->")
Line 857: end try
Line 858: end if
Line 859: end if
Line 860: if lcase(left(a, 26))="content-transfer-encoding:" then
Line 861: if len(a)>27 then xenc = trim(mid(a, 27, 500))
Line 862: end if
Line 863: if lcase(left(a, 11))="content-id:" then
Line 864: if len(a)>12 then cid = trim(mid(a, 12, 500))
Line 865: if left(cid,1)="<" then cid = mid(cid, 2, len(cid)-2)
Line 866: end if
Line 867: if lcase(left(a, 20))="content-disposition:" then
Line 868: if len(a)>21 then cdisp = mid(a, 21, 500)
Line 869: end if
Line 870: if len(a)=0 then exit for
Line 871: next
Line 872:
Line 873: end sub
Line 874:
Line 875:
Line 876: #End ExternalSource
Line 877:
Line 878:
Line 879: #ExternalSource("E:\web\fer3com0\38talk\thumbinc.aspx",1)
Line 880:
Line 881:
Line 882: dim debugging as boolean = false
Line 883:
Line 884: '------------------------
Line 885: sub CreateThumb(filname as string)
Line 886: dim status, tag as string
Line 887: dim oddfil as string
Line 888: dim found1, found2 as boolean
Line 889:
Line 890: if debugging then Response.Write("DEBUGGING ACTIVE <br>")
Line 891:
Line 892: filname = lcase(filname)
Line 893: if left(filname,1)="/" then filname = mid(filname, 2, len(filname))
Line 894: if left(filname,4)="arc/" then filname = mid(filname, 5, len(filname))
Line 895: if left(filname,4)="arcx" then filname = mid(filname, 6, len(filname))
Line 896: if left(filname,4)="38ta" then filname = mid(filname, 8, len(filname))
Line 897:
Line 898: tag = right(filname, 4)
Line 899: if debugging then Response.Write(tag & "<br> ")
Line 900: if instr(".exe.zip", tag)>0 then
Line 901: status = "exe.zip"
Line 902: elseif instr(".htm.txt.obs.f90.vob.out.dat", tag)>0 then
Line 903: status = "web-- "
Line 904: GetGenericThumb(filname, 2)
Line 905: 'GetWebThumb(filname)
Line 906: elseif instr(".pdf.ps", tag)>0 then
Line 907: status = "samu "
Line 908: GetSamuThumb(filname, "")
Line 909: elseif instr(".odt.ods.odp.rtf.xls.ppt.doc.xlsx.pptx.docx", tag)>0 then
Line 910: status = "other "
Line 911: GetOtherThumb(filname, "")
Line 912: elseif instr(".tiff.jpg.jpeg.gif.png.bmp", tag)>0 then
Line 913: status = "image "
Line 914: CreateThumbImg(filname)
Line 915: elseif instr(".wav.mp3", tag)>0 then
Line 916: status = "audio "
Line 917: GetGenericThumb(filname, 1)
Line 918: else
Line 919: status = "image?"
Line 920: GetGenericThumb(filname, 0)
Line 921: end if
Line 922:
Line 923: dim OutStream as StreamWriter
Line 924: OutStream = File.AppendText(Server.MapPath("thumbs.txt"))
Line 925: OutStream.WriteLine(Now & " " & status & filname)
Line 926: OutStream.Close
Line 927:
Line 928: end sub
Line 929:
Line 930: sub CreateThumbImg(filname as string)
Line 931: dim scalefac, testwid, testht as single
Line 932: dim original as System.Drawing.Image
Line 933:
Line 934: try
Line 935: original = System.Drawing.Image.FromFile(Server.MapPath(filname))
Line 936: catch ex As Exception
Line 937: exit sub
Line 938: end try
Line 939:
Line 940: try
Line 941: scalefac = 1
Line 942: do
Line 943: testwid = original.Width * scalefac
Line 944: testht = original.Height * scalefac
Line 945: if (testwid<=300 and testht<=225) or scalefac<0.01 then exit do
Line 946: scalefac = scalefac * 0.9
Line 947: loop
Line 948: catch ex As Exception
Line 949: exit sub
Line 950: end try
Line 951:
Line 952: dim tn as new Bitmap(cint(original.Width*scalefac), cint(original.Height *scalefac))
Line 953: dim g As Graphics = Graphics.FromImage(tn)
Line 954:
Line 955: try
Line 956: g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBilinear
Line 957: g.DrawImage(original, new rectangle(0,0,tn.Width,tn.Height), 0, 0, original.Width, original.Height, GraphicsUnit.Pixel)
Line 958: g.Dispose()
Line 959: catch ex As Exception
Line 960: 'Application("tfile") = "EX3: " & ex.Message
Line 961: exit sub
Line 962: end try
Line 963:
Line 964: try
Line 965: 'tn now contains the thumbnail image.
Line 966: tn.Save(Server.MapPath(filname & ".thumb.jpg"), System.Drawing.Imaging.ImageFormat.jpeg)
Line 967: 'Application("tfile") = Server.MapPath(filname & ".thumb.jpg")
Line 968: catch ex As Exception
Line 969: 'Application("tfile") = "EX4: " & ex.Message
Line 970: exit sub
Line 971: end try
Line 972:
Line 973: end sub
Line 974:
Line 975:
Line 976:
Line 977: sub GetWebThumb(fil as string)
Line 978: 'Page2Images
Line 979: dim ferbase, filname as string
Line 980: dim found as boolean
Line 981: dim tn as Bitmap
Line 982:
Line 983: exit sub
Line 984:
Line 985: dim baseUri As New Uri("http://api.page2images.com/")
Line 986:
Line 987: ferbase = Server.MapPath(".")
Line 988: if instr(ferbase, "arcx")>0 then
Line 989: ferbase = "/arcx"
Line 990: elseif instr(ferbase, "38")>0 then
Line 991: ferbase = "/38talk"
Line 992: else
Line 993: ferbase = "/arc"
Line 994: end if
Line 995:
Line 996: if left(fil,1)<>"/" then fil = "/" & fil
Line 997: fil = ferbase & fil
Line 998:
Line 999: filname = Server.URLEncode("http://fer3.com" & fil)
Line 1000:
Line 1001: '/restfullink?p2i_url=TARGET_URL&p2i_key=YOUR_API_KEY&p2i_size=150x150
Line 1002:
Line 1003: dim a as string
Line 1004: a = "restfullink?p2i_url=" & filname & "&p2i_key=@@@" & "&p2i_size=300x225"
Line 1005: if debugging then
Line 1006: Response.Write(a & "<br>")
Line 1007: end if
Line 1008:
Line 1009: dim imgUri As New Uri(baseUri, a)
Line 1010: try
Line 1011: dim req As WebRequest = WebRequest.Create(imgUri)
Line 1012: dim res As WebResponse = req.GetResponse()
Line 1013: tn = Bitmap.FromStream(res.GetResponseStream)
Line 1014: res.Close
Line 1015: found = true
Line 1016: catch ex as exception
Line 1017: if debugging then
Line 1018: Response.Write("W1 " & ex.message)
Line 1019: end if
Line 1020: exit sub
Line 1021: end try
Line 1022:
Line 1023: try
Line 1024: 'tn now contains the thumbnail image.
Line 1025: tn.Save(Server.MapPath(filname & ".thumb.jpg"), System.Drawing.Imaging.ImageFormat.jpeg)
Line 1026: 'Application("tfile") = Server.MapPath(filname & ".thumb.jpg")
Line 1027: catch ex As Exception
Line 1028: 'Application("tfile") = "EX4: " & ex.Message
Line 1029: if debugging then
Line 1030: Response.Write("W2 " & ex.message)
Line 1031: end if
Line 1032: exit sub
Line 1033: end try
Line 1034:
Line 1035: end sub
Line 1036:
Line 1037: sub GetOtherThumb(fil as string, plist as string)
Line 1038: '******EMPTY******
Line 1039: 'FORMERLY worked with .pdf, .ppt (slow), .xls, .doc/docx, .zip (directory only)
Line 1040: end sub
Line 1041:
Line 1042: sub GetGenericThumb(fil as string, ftype as integer)
Line 1043: dim tempfil, ferbase0, ferbase as string
Line 1044:
Line 1045: ferbase = Server.MapPath(".")
Line 1046: ferbase0 = ferbase
Line 1047: if instr(ferbase, "arcx")>0 then
Line 1048: ferbase = "/arcx"
Line 1049: elseif instr(ferbase, "38")>0 then
Line 1050: ferbase = "/38talk"
Line 1051: else
Line 1052: ferbase = "/arc"
Line 1053: end if
Line 1054:
Line 1055: if left(fil,1)<>"/" then fil = "/" & fil
Line 1056: if not File.Exists(ferbase0 & fil) then exit sub
Line 1057:
Line 1058: fil = ferbase & fil
Line 1059: select case ftype
Line 1060: case 0
Line 1061: tempfil = "../generic.temp.jpg"
Line 1062: case 1
Line 1063: tempfil = "../audio.temp.jpg"
Line 1064: case 2
Line 1065: tempfil = "../text.temp.jpg"
Line 1066: end select
Line 1067:
Line 1068: File.Copy(Server.MapPath(tempfil), Server.MapPath(fil & ".thumb.jpg"), true)
Line 1069:
Line 1070: end sub
Line 1071:
Line 1072:
Line 1073: sub GetSamuThumb(fil as string, plist as string)
Line 1074: 'uses view.samurajdata.se for pdf and ps files
Line 1075:
Line 1076: dim checkpages, filnam as string
Line 1077: dim Nlist() as string
Line 1078: dim getpages() as string
Line 1079: dim i, j, N, inci, lowi, x, y, ht as integer
Line 1080: dim firstpage, found as boolean
Line 1081: dim ferbase0, ferbase as string
Line 1082:
Line 1083: 'plist is nulled out.
Line 1084: plist = ""
Line 1085:
Line 1086: dim baseUri As New Uri("http://view.samurajdata.se/")
Line 1087: ferbase = Server.MapPath(".")
Line 1088: ferbase0 = ferbase
Line 1089: if instr(ferbase, "arcx")>0 then
Line 1090: ferbase = "/arcx"
Line 1091: elseif instr(ferbase, "38")>0 then
Line 1092: ferbase = "/38talk"
Line 1093: else
Line 1094: ferbase = "/arc"
Line 1095: end if
Line 1096:
Line 1097: if left(fil,1)<>"/" then fil = "/" & fil
Line 1098: if not File.Exists(ferbase0 & fil) then
Line 1099: if debugging then Response.Write(fil & " does not exist yet.<br>")
Line 1100: exit sub
Line 1101: end if
Line 1102:
Line 1103: fil = ferbase & fil
Line 1104: dim fi as FileInfo = new FileInfo(Server.MapPath(fil))
Line 1105: if fi.Length>15000000 then
Line 1106: File.Copy(Server.MapPath("../pdf.temp.jpg"), Server.MapPath(fil & ".thumb.jpg"), true)
Line 1107: exit sub
Line 1108: end if
Line 1109:
Line 1110: if debugging then Response.Write(fil & "<br>")
Line 1111: filnam = Server.URLEncode("http://fer3.com" & fil)
Line 1112:
Line 1113: dim viewdata as string
Line 1114:
Line 1115: 'first pass: get id for view data
Line 1116: for i=1 to 1 'dummy loop
Line 1117: dim imgUri As New Uri(baseUri,"ps.php?url=" & filnam)
Line 1118: try
Line 1119: dim req As WebRequest = WebRequest.Create(imgUri)
Line 1120: dim res As WebResponse = req.GetResponse()
Line 1121: dim sr as new StreamReader(res.GetResponseStream())
Line 1122: viewdata = sr.ReadToEnd
Line 1123: res.Close
Line 1124: catch ex as exception
Line 1125: if debugging then Response.Write("Ex0:" & ex.Message)
Line 1126: exit sub
Line 1127: end try
Line 1128: next
Line 1129:
Line 1130: 'after first pass: viewdata is similar to:
Line 1131: ' <HTML><HEAD><TITLE>Online viewer</TITLE></HEAD>
Line 1132: ' <BODY onload="self.location=document.links[0]">
Line 1133: ' <PRE> <A HREF="psview.php?id=330e9b09&page=1">View document here</A>
Line 1134:
Line 1135: dim q0 as integer
Line 1136:
Line 1137: q0 = instr(viewdata, ".php?id=")
Line 1138: if q0=0 then
Line 1139: if debugging then Response.Write("q0 fail at php?id=")
Line 1140: if debugging then Response.Write(replace(viewdata, "<", "<"))
Line 1141: exit sub
Line 1142: end if
Line 1143: viewdata = mid(viewdata, q0+8, 999)
Line 1144: q0 = instr(viewdata, "&")
Line 1145: if q0=0 then
Line 1146: if debugging then Response.Write("q0 fail at amp")
Line 1147: if debugging then Response.Write(replace(viewdata, "<", "<"))
Line 1148: exit sub
Line 1149: end if
Line 1150: viewdata = left(viewdata, q0-1)
Line 1151:
Line 1152: dim samuid as string = viewdata
Line 1153: if debugging then
Line 1154: Response.Write("id: " & samuid)
Line 1155: Response.Write("<br>")
Line 1156: end if
Line 1157:
Line 1158:
Line 1159: 'second pass: get pagenum for view data
Line 1160: for i=1 to 1 'dummy loop
Line 1161: dim imgUri As New Uri(baseUri,"psview.php?id=" & samuid & "&page=1")
Line 1162: try
Line 1163: dim req As WebRequest = WebRequest.Create(imgUri)
Line 1164: dim res As WebResponse = req.GetResponse()
Line 1165: dim sr as new StreamReader(res.GetResponseStream())
Line 1166: viewdata = sr.ReadToEnd
Line 1167: res.Close
Line 1168: catch ex as exception
Line 1169: exit sub
Line 1170: end try
Line 1171: next
Line 1172:
Line 1173: q0 = instr(viewdata, "</A><BR><BR>")
Line 1174: if q0=0 then exit sub
Line 1175: viewdata = mid(viewdata, q0-4, 4)
Line 1176: q0 = instr(viewdata, ">")
Line 1177: if q0>0 then viewdata = mid(viewdata, q0+1, 4)
Line 1178:
Line 1179: if debugging then
Line 1180: Response.Write("pages: " & viewdata)
Line 1181: Response.Write("<br>")
Line 1182: end if
Line 1183:
Line 1184: N = viewdata
Line 1185:
Line 1186: if N<=1 then N = 5
Line 1187: 'get five (was six) pages evenly spaced btwn 1 and N
Line 1188: if N<5 then
Line 1189: inci = 1
Line 1190: lowi = 1
Line 1191: else
Line 1192: inci = N/5
Line 1193: lowi = inci/2
Line 1194: if lowi=0 then lowi = 1
Line 1195: end if
Line 1196: j = 0
Line 1197:
Line 1198: getpages = split("0,0,0,0,0", ",") ' for five pages
Line 1199: for i=lowi to N step inci
Line 1200: getpages(j) = i
Line 1201: j = j + 1
Line 1202: if j>ubound(getpages) then exit for
Line 1203: next
Line 1204:
Line 1205: dim fileImg(5) as System.Drawing.Image
Line 1206: dim fileImgx(5) as System.Drawing.Image
Line 1207:
Line 1208: j = -1
Line 1209: for i=0 to ubound(getpages)
Line 1210: 'scrape each page
Line 1211: ' pages are at urls like: http://view.samurajdata.se/rsc/e807f090/tmp23.gif for page 23 and id=e807f090
Line 1212: if getpages(i)=0 then exit for
Line 1213: j = j + 1
Line 1214: dim imgUri As New Uri(baseUri, "rsc/" & samuid & "/tmp" & getpages(i) & ".gif")
Line 1215: try
Line 1216: dim req As WebRequest = WebRequest.Create(imgUri)
Line 1217: dim res As WebResponse = req.GetResponse()
Line 1218: fileImg(j) = Bitmap.FromStream(res.GetResponseStream)
Line 1219: res.Close
Line 1220: catch ex as exception
Line 1221: j = j - 1
Line 1222: exit for
Line 1223: end try
Line 1224: next
Line 1225:
Line 1226: dim tn as Bitmap
Line 1227: dim g As Graphics
Line 1228: dim wid0 as integer
Line 1229: dim scalefac as single
Line 1230: wid0 = 200
Line 1231:
Line 1232: 'now reduce sizes:
Line 1233: for i=0 to j
Line 1234: scalefac = wid0 / fileImg(i).Width
Line 1235: dim tnx as new Bitmap(cint(fileImg(i).Width*scalefac), cint(fileImg(i).Height *scalefac))
Line 1236: g = Graphics.FromImage(tnx)
Line 1237:
Line 1238: try
Line 1239: g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBilinear
Line 1240: g.DrawImage(fileImg(i), new rectangle(0,0,tnx.Width,tnx.Height), 0, 0, fileImg(i).Width, fileImg(i).Height, GraphicsUnit.Pixel)
Line 1241: g.Dispose()
Line 1242: catch ex As Exception
Line 1243: exit sub
Line 1244: end try
Line 1245: fileImgx(i) = tnx
Line 1246: next
Line 1247:
Line 1248: if debugging then
Line 1249: Response.Write(scalefac)
Line 1250: Response.Write("<br>") '@1
Line 1251: end if
Line 1252:
Line 1253: wid0 = wid0 + 5
Line 1254: try
Line 1255: ht = fileImgx(0).Height
Line 1256: if j<=5 then
Line 1257: tn = new Bitmap(3 + wid0*(j+1), ht + 6)
Line 1258: else
Line 1259: tn = new Bitmap(3 + wid0*6, 2*ht + 10)
Line 1260: end if
Line 1261: catch ex as exception
Line 1262: if debugging then
Line 1263: Response.Write("EX2" & ex.Message)
Line 1264: end if
Line 1265: end try
Line 1266:
Line 1267: try
Line 1268: g = Graphics.FromImage(tn)
Line 1269: dim grayBrush as new SolidBrush(Color.LightGray)
Line 1270: g.FillRectangle(grayBrush, 0,0,tn.Width,tn.Height)
Line 1271: catch ex as exception
Line 1272: if debugging then
Line 1273: Response.Write("EX3" & ex.Message)
Line 1274: end if
Line 1275: end try
Line 1276:
Line 1277: try
Line 1278: x = 4
Line 1279: y = 2
Line 1280: for i=0 to j
Line 1281: 'assemble into a two-row, three-col panel of six images
Line 1282: g.DrawImage(fileImgx(i), x, y)
Line 1283: if debugging then
Line 1284: 'Response.Write(" drew img " & i & " at " & x & "," & y & "<br>" & " wid was " & fileImgx(i).Width & "<br>")
Line 1285: end if
Line 1286: x = x + wid0
Line 1287: if x+wid0/2>tn.Width then
Line 1288: x = 4
Line 1289: y = ht + 6
Line 1290: end if
Line 1291: next
Line 1292: catch ex as exception
Line 1293: if debugging then
Line 1294: Response.Write("EX1" & ex.Message)
Line 1295: end if
Line 1296: end try
Line 1297:
Line 1298: try
Line 1299: 'save that as filename.thumb.jpg
Line 1300: if debugging then
Line 1301: Response.Write("<br>" & Server.MapPath(fil & ".thumb.jpg"))
Line 1302: Response.Write("<br><img src='" & fil & ".thumb.jpg'><br>")
Line 1303: end if
Line 1304: tn.Save(Server.MapPath(fil & ".thumb.jpg"), System.Drawing.Imaging.ImageFormat.jpeg)
Line 1305: 'Application("tfile") = Server.MapPath(fil & ".thumb.jpg")
Line 1306: catch ex as exception
Line 1307: '
Line 1308: end try
Line 1309: end sub
Line 1310:
Line 1311:
Line 1312: #End ExternalSource
Line 1313:
Line 1314:
Line 1315: #ExternalSource("E:\web\fer3com0\38talk\m2coreFN.aspx",5)
Line 1316:
Line 1317: dim tline(300000), hline(300000) as string
Line 1318: dim aline(100) as string
Line 1319: dim level, Ntlines, Nhlines, Nalines as integer
Line 1320: dim sdata0, req0, msgid as string
Line 1321: dim FileStream as StreamReader
Line 1322: dim OutStream as StreamWriter
Line 1323: dim autoread, nomod, globalenc as string
Line 1324: dim debugm2 as boolean
Line 1325: dim baseurl, groupname as string
Line 1326: dim Res as new StringBuilder()
Line 1327:
Line 1328:
Line 1329: '------------------------
Line 1330: sub makediv(byref s as string)
Line 1331: s = replace(s,"<body", "<div")
Line 1332: s = replace(s,"</body", "</div")
Line 1333: end sub
Line 1334:
Line 1335: '------------------------
Line 1336: function getproperurl(id as string)
Line 1337: dim q1, idi, testidi, seeki as integer
Line 1338: dim a, ifil as string
Line 1339: dim aparts() as string
Line 1340: dim binr as BinaryReader
Line 1341:
Line 1342: TRY
Line 1343: idi = val(id)
Line 1344:
Line 1345: binr = new BinaryReader(File.Open(Server.MapPath("iglist.dat"), FileMode.Open, FileAccess.Read, FileShare.ReadWrite))
Line 1346: seeki = 4*idi
Line 1347: if seeki<0 or seeki>binr.BaseStream.Length then
Line 1348: return ""
Line 1349: end if
Line 1350: binr.BaseStream.Seek(seeki, SeekOrigin.Begin)
Line 1351: seeki = binr.ReadInt32 'std 4-byte long int.
Line 1352: binr.Close
Line 1353:
Line 1354: if instr(baseurl, "38")>0 then
Line 1355: ifil = "201301"
Line 1356: else
Line 1357: if idi>=137646 then
Line 1358: ifil = "201701"
Line 1359: elseif idi>=129880 then
Line 1360: ifil = "201501"
Line 1361: elseif idi>=121663 then
Line 1362: ifil = "201301"
Line 1363: elseif idi>=115085 then
Line 1364: ifil = "201101"
Line 1365: elseif idi>=106869 then
Line 1366: ifil = "200901"
Line 1367: elseif idi>=26984 then
Line 1368: ifil = "200601"
Line 1369: elseif idi>=13134 then
Line 1370: ifil = "200401"
Line 1371: else
Line 1372: ifil = "199501"
Line 1373: end if
Line 1374: end if
Line 1375:
Line 1376: binr = new BinaryReader(File.Open(Server.MapPath("i" & ifil & ".txt"), FileMode.Open, FileAccess.Read, FileShare.ReadWrite), Encoding.UTF8)
Line 1377: binr.BaseStream.Seek(seeki, SeekOrigin.Begin)
Line 1378: a = new string(binr.ReadChars(1000))
Line 1379: binr.Close
Line 1380:
Line 1381: q1 = instr(a, vbCR)
Line 1382: if q1>10 then
Line 1383: a = left(a, q1 - 1)
Line 1384: end if
Line 1385: 'Response.Write("<!-- getproperurl: " & idi & " " & ifil & ": " & a & " -->" )
Line 1386:
Line 1387: aparts = split(a, "|")
Line 1388: if ubound(aparts)>=8 then
Line 1389: testidi = val(aparts(0))
Line 1390: if testidi<>idi then
Line 1391: 'not found, should try next file, but for now just bail out
Line 1392: return ""
Line 1393: end if
Line 1394: end if
Line 1395:
Line 1396: return a
Line 1397:
Line 1398: CATCH ex as Exception
Line 1399: return ""
Line 1400: END TRY
Line 1401: end function
Line 1402:
Line 1403: '------------------------
Line 1404: sub anglebrax(byref a as string)
Line 1405: a = replace(a,"<","<")
Line 1406: a = replace(a,">",">")
Line 1407: a = replace(a,"I filter out messages with attachments or HTML.", "")
Line 1408: end sub
Line 1409:
Line 1410: '------------------------
Line 1411: function DrawControls(msgid as string) as string
Line 1412: dim i, inc as integer
Line 1413: dim a, msgidx, tag1, tag2, sub1, sub2 as string
Line 1414: dim founddec, foundinc as boolean
Line 1415: dim aparts() as string
Line 1416:
Line 1417: founddec = false
Line 1418: 'HACK for NavList msg #800:
Line 1419: if instr(groupname, "NavList")>0 then
Line 1420: if val(msgid)>801 and val(msgid)<930 then msgidx="801" else msgidx = msgid
Line 1421: else
Line 1422: msgidx = msgid
Line 1423: end if
Line 1424:
Line 1425: for i=1 to 10
Line 1426: tag1 = getproperurl(msgidx - i)
Line 1427: if len(tag1)>0 then
Line 1428: founddec = true
Line 1429: aparts = split(tag1, "|")
Line 1430: if ubound(aparts)>=8 then
Line 1431: sub1 = aparts(6) & ": " & aparts(1)
Line 1432: tag1 = aparts(8)
Line 1433: end if
Line 1434: exit for
Line 1435: end if
Line 1436: next
Line 1437:
Line 1438: foundinc = false
Line 1439: 'HACK for msg #800:
Line 1440: if instr(groupname, "NavList")>0 then
Line 1441: if val(msgid)<900 then msgidx="928" else msgidx = msgid
Line 1442: else
Line 1443: msgidx = msgid
Line 1444: end if
Line 1445:
Line 1446: for i=1 to 10
Line 1447: tag2 = getproperurl(msgidx + i)
Line 1448: if len(tag2)>0 then
Line 1449: foundinc = true
Line 1450: aparts = split(tag2, "|")
Line 1451: if ubound(aparts)>=8 then
Line 1452: sub2 = aparts(6) & ": " & aparts(1)
Line 1453: tag2 = aparts(8)
Line 1454: end if
Line 1455: exit for
Line 1456: end if
Line 1457: next
Line 1458:
Line 1459: if founddec then
Line 1460: a = "<a href='http://" & baseURL & "/m2.aspx/" & tag1 & "' rel='nofollow'><img border='0' src='http://" & baseurl & "/larrow.gif' title='" & sub1 & "'></a>"
Line 1461: else
Line 1462: a = "<img border='0' src='http://" & baseurl & "/glarrow.gif' title='No previous message'>"
Line 1463: end if
Line 1464: if foundinc then
Line 1465: a = a & "<a href='http://" & baseURL & "/m2.aspx/" & tag2 & "' rel='nofollow'><img border='0' src='http://" & baseurl & "/rarrow.gif' title='" & sub2 & "'></a>"
Line 1466: else
Line 1467: a = a & "<img border='0' src='http://" & baseurl & "/grarrow.gif' title='No more messages'>"
Line 1468: end if
Line 1469: 'modified:
Line 1470: 'a = a & "<img src='http://" & baseurl & "/spacer.gif'><a href='http://" & baseURL & "/m2.aspx?r=1&i=" & msgid & "' rel='nofollow'><img border='0' src='http://" & baseurl & "/replyicon.gif' title='Reply to this message' ></a>"
Line 1471: a = "<div class='m2controls'><table><tr><td><div class='m2leftright'>" & a & "</td><td><a href=''><div class='replybutton'>Reply</div></a></td></tr></table></div>"
Line 1472: DrawControls = a
Line 1473:
Line 1474: end function
Line 1475:
Line 1476: '--------------------------
Line 1477: function ReadBlock(contype as string, xenc as string, cid as string, cdisp as string, bdy as string) as boolean
Line 1478: dim attachline, fname, filename, filetag, a, maincontype, sqcid as string
Line 1479: dim line(200000) as string
Line 1480: dim jj, i, j, q1, q2, q3, chari, Nlines as integer
Line 1481: dim QPdecoded, wrotebin, attachnext as boolean
Line 1482: dim binarydata() As byte
Line 1483:
Line 1484: i = 0
Line 1485: j = 0
Line 1486: attachnext = false
Line 1487: contype = trim(lcase(contype))
Line 1488: xenc = trim(lcase(xenc))
Line 1489: cid = trim(lcase(cid))
Line 1490: cdisp = trim(lcase(cdisp))
Line 1491:
Line 1492: dim ms as new MemoryStream
Line 1493: dim binw as new BinaryWriter(ms)
Line 1494: dim binr as new BinaryReader(ms)
Line 1495:
Line 1496: wrotebin = false
Line 1497: QPdecoded = false
Line 1498:
Line 1499: do
Line 1500: if FileStream.Peek=-1 then
Line 1501: ReadBlock = true
Line 1502: exit do
Line 1503: end if
Line 1504: a = FileStream.ReadLine
Line 1505: i = i + 1
Line 1506: 'Response.Write(str(i) & ": " & replace(a, "<", "<") & "<br>")
Line 1507: if len(bdy)>0 and instr(a, "--" & bdy) then
Line 1508: if right(a,2)="--" then
Line 1509: ReadBlock = true
Line 1510: else
Line 1511: ReadBlock = false
Line 1512: end if
Line 1513: exit do
Line 1514: end if
Line 1515: a = rtrim(a)
Line 1516: if len(xenc)=0 or xenc="7bit" or xenc="8bit" or xenc="binary" then
Line 1517: j = j + 1
Line 1518: if j<ubound(line) then line(j) = a else line(j)="MESSAGE TRUNCATED: *m2.aspx."
Line 1519: elseif xenc="quoted-printable" then
Line 1520: if attachnext then
Line 1521: 'deal with "dot-stuffing":
Line 1522: if len(a)>2 then
Line 1523: if left(a,2)=".." then a = mid(a, 2, len(a))
Line 1524: end if
Line 1525: line(j) = line(j) + a
Line 1526: else
Line 1527: j = j + 1
Line 1528: if j<ubound(line) then line(j) = a else line(j)="MESSAGE TRUNCATED: *m2.aspx."
Line 1529: end if
Line 1530: if right(line(j),1)="=" then
Line 1531: attachnext = true
Line 1532: line(j) = left(line(j),len(line(j))-1)
Line 1533: else
Line 1534: attachnext = false
Line 1535: end if
Line 1536: elseif xenc="base64" then
Line 1537: if instr(contype, "text")>0 then
Line 1538: j = 1
Line 1539: if len(a)=0 and i>3 then
Line 1540: xenc = "" 'handles case where base64 is followed by plain text without a divider, e.g. a plain text footer.
Line 1541: else
Line 1542: if len(a)>0 and len(a)<=76 then
Line 1543: try
Line 1544: binarydata = System.Convert.FromBase64String(trim(a))
Line 1545: binw.Write(binarydata)
Line 1546: wrotebin = true
Line 1547: catch ex as Exception
Line 1548: xenc = ""
Line 1549: end try
Line 1550: else
Line 1551: xenc = ""
Line 1552: end if
Line 1553: end if
Line 1554: else
Line 1555: j = j + 1
Line 1556: if j<=ubound(line) then line(j) = a
Line 1557: end if
Line 1558:
Line 1559: end if
Line 1560: loop
Line 1561:
Line 1562: if wrotebin then
Line 1563: if len(globalenc)=0 then globalenc = "UTF-8"
Line 1564: ms.Seek(0, SeekOrigin.Begin)
Line 1565: binarydata = binr.ReadBytes(ms.Length)
Line 1566: line(1) = Encoding.GetEncoding(globalenc).GetString(binarydata)
Line 1567: end if
Line 1568: binw.Close
Line 1569: binr.Close
Line 1570: ms = nothing
Line 1571:
Line 1572: Nlines = j
Line 1573: if Nlines>ubound(line) then Nlines=ubound(line)
Line 1574:
Line 1575: if xenc="quoted-printable" then
Line 1576: for j=0 to Nlines
Line 1577: if len(line(j))>0 then line(j) = QPdecode("", line(j), false)
Line 1578: next
Line 1579: end if
Line 1580:
Line 1581: 'if it's base64 encoded, save it to a file...
Line 1582: if xenc="base64" and instr(contype, "/applefile")=0 then
Line 1583: 'get fname from cdisp or if not available from contype
Line 1584: fname = ""
Line 1585: q1 = instr(cdisp, "name=")
Line 1586: if q1>0 then
Line 1587: q2 = instr(q1+1, cdisp, ";")
Line 1588: if q2=0 then q2 = len(cdisp) + 1
Line 1589: fname = mid(cdisp, q1+5, q2-q1-5)
Line 1590: end if
Line 1591:
Line 1592: if len(fname)=0 then
Line 1593: q1 = instr(contype, "name=")
Line 1594: if q1>0 then
Line 1595: q2 = instr(q1+1, contype, ";")
Line 1596: if q2=0 then q2 = len(contype) + 1
Line 1597: fname = mid(contype, q1+5, q2-q1-5)
Line 1598: end if
Line 1599: end if
Line 1600:
Line 1601: if len(fname)>0 then
Line 1602: if left(fname,1)="""" then fname = mid(fname,2,len(fname)-2)
Line 1603: fname = msgid & "." & fname
Line 1604: do
Line 1605: q1 = instr(fname,"'")
Line 1606: if q1=0 then exit do
Line 1607: fname = left(fname, q1-1) & right(fname, len(fname)-q1)
Line 1608: loop
Line 1609: end if
Line 1610:
Line 1611: 'open file
Line 1612: try
Line 1613: filename = "img/"
Line 1614: if len(cid)>0 and len(fname)=0 then
Line 1615: 'replace @ with "-" and "." with "-" for content-ids:
Line 1616: cid = replace(cid, "@", "-")
Line 1617: cid = replace(cid, ".", "-")
Line 1618: cid = replace(cid, " ", "-")
Line 1619: filename = filename & msgid & "." & cid
Line 1620: elseif len(fname)>0 then
Line 1621: fname = hdrdecode(fname)
Line 1622: fname = replace(fname, "#", "_")
Line 1623: fname = replace(fname, " ", "-")
Line 1624: filename = filename & fname
Line 1625: 'add to tline() and hline()
Line 1626: if autoread="text" then
Line 1627: attachline = "Attached File: http://" & baseURL & "/" & filename
Line 1628: else
Line 1629: attachline = "<div style='float: left; margin: 0px 25px 50px 0px;'><b>File: </b><a class='togb' href='http://" & baseURL & "/" & filename & "'>"
Line 1630: if not File.Exists(Server.MapPath(filename & ".thumb.jpg")) then CreateThumb(filename)
Line 1631: if File.Exists(Server.MapPath(filename & ".thumb.jpg")) then
Line 1632: attachline = attachline & "<br><img src='http://" & baseurl & "/" & filename & ".thumb.jpg" & "' title='Click to enlarge.'></a><br>"
Line 1633: filetag = right(filename, 4)
Line 1634: attachline = attachline & "<a href='http://" & baseURL & "/" & filename & "'><img src='http://" & baseurl & "/images/dl-icon.png' title='Save this file.'></a>"
Line 1635: if instr(".odt.ods.odp.rtf.pdf.xls.ppt.doc.xlsx.pptx.docx", filetag)>0 then
Line 1636: attachline = attachline & " <a href='http://docs.google.com/viewer?url="
Line 1637: attachline = attachline & Server.URLEncode("http://" & baseURL & "/" & filename) & "'><img src='http://" & baseurl & "/images/vu-icon.png' title='View online.'></a><br>"
Line 1638: else
Line 1639: attachline = attachline & "<br>"
Line 1640: end if
Line 1641: else
Line 1642: attachline = attachline & fname & "</a><br>"
Line 1643: end if
Line 1644: attachline = attachline & "</div>"
Line 1645: end if
Line 1646: Nalines = Nalines + 1
Line 1647: if autoread<>"text" then
Line 1648: aline(Nalines) = attachline
Line 1649: else
Line 1650: aline(Nalines) = attachline & vbCRLF
Line 1651: end if
Line 1652: else
Line 1653: filename = "imgx/" & msgid & ".junk"
Line 1654: end if
Line 1655:
Line 1656: filename = Server.MapPath(filename)
Line 1657: catch ex as exception
Line 1658: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core xx1"))
Line 1659: end try
Line 1660:
Line 1661: if len(line(1))<=76 then 'XFER CHANGE
Line 1662: if not File.Exists(filename) then
Line 1663: if len(filename)>0 then
Line 1664: dim binWriter as new BinaryWriter(File.Open(filename, FileMode.Create))
Line 1665: for j=1 to Nlines
Line 1666: 'convert and save to file...
Line 1667: try
Line 1668: binarydata = System.Convert.FromBase64String(line(j))
Line 1669: binWriter.Write(binarydata)
Line 1670: catch ex as Exception
Line 1671: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core getproperurl xx2"))
Line 1672: 'nothing
Line 1673: 'Response.Write(str(j) & ": " & line(j) & "<br>") 'XFER CHANGE
Line 1674: 'Response.Write("ex<br>")
Line 1675: end try
Line 1676: next
Line 1677: binWriter.Close
Line 1678: end if
Line 1679: end if
Line 1680: end if
Line 1681: end if
Line 1682:
Line 1683: if len(contype)=0 then contype = "text/plain"
Line 1684: maincontype = contype
Line 1685: q1 = instr(maincontype, ";")
Line 1686: if q1>0 then maincontype = left(contype, q1-1)
Line 1687:
Line 1688: sqcid = "src=""cid:" 'len=9
Line 1689:
Line 1690: dim ihigh as integer = 0
Line 1691: for j=1 to Nlines
Line 1692: do
Line 1693: ihigh = ihigh + 1
Line 1694: if ihigh>25 then
Line 1695: Response.Write("Error: B25 ")
Line 1696: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core, error B25."))
Line 1697: exit do
Line 1698: end if
Line 1699: q1 = 0
Line 1700: q1 = instr(q1+1, lcase(line(j)), sqcid)
Line 1701: if q1=0 then exit do
Line 1702: line(j) = left(line(j), q1-1) & "src=""http://" & baseurl & "/feed.aspx?m2=1&cid=img/" & msgid & "." & right(line(j), len(line(j))-q1-8)
Line 1703: q1 = instr(q1+1, lcase(line(j)), "cid=")
Line 1704: q1 = instr(q1+1, lcase(line(j)), ".") 'to get past the "." after msgid
Line 1705: q2 = instr(q1+1, line(j), """")
Line 1706: 'replace @ and "." with "-" for content-ids:
Line 1707: dim qi as integer
Line 1708: dim linkstr, linkstr0 as string
Line 1709: linkstr0 = mid(line(j), q1+1, q2-q1-1)
Line 1710: 'Response.Write("<!-- " & linkstr0 & " -->")
Line 1711: linkstr = replace(linkstr0, "@", "-")
Line 1712: linkstr = replace(linkstr, ".", "-")
Line 1713: if linkstr<>linkstr0 then line(j) = replace(line(j), linkstr0, linkstr)
Line 1714: loop
Line 1715: ihigh = 0
Line 1716: do
Line 1717: ihigh = ihigh + 1
Line 1718: if ihigh>45 then
Line 1719: Response.Write("Error: B45a ")
Line 1720: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core, error B45a."))
Line 1721: exit do
Line 1722: end if
Line 1723: dim linkname, baselink1, baselink2, baselink3, baselink4 as string
Line 1724: dim qtest as integer
Line 1725: baselink1 = "Linked File: http://www." & baseurl & "/imgx/"
Line 1726: baselink2 = "Linked File: http://" & baseurl & "/imgx/"
Line 1727: q1 = instr(line(j), baselink1)
Line 1728: q2 = instr(line(j), baselink2)
Line 1729: if q1=0 and q2=0 then
Line 1730: exit do
Line 1731: else
Line 1732: try
Line 1733: if q2>=1 then
Line 1734: baselink1 = baselink2
Line 1735: q1 = q2
Line 1736: end if
Line 1737: q1 = instr(q1, line(j), "imgx/") + 5
Line 1738: q2 = len(line(j))+1
Line 1739: qtest = instr(q1, line(j), " ")
Line 1740: if qtest>0 and qtest<q2 then q2 = qtest
Line 1741: qtest = instr(q1, line(j), "<")
Line 1742: if qtest>0 and qtest<q2 then q2 = qtest
Line 1743: qtest = instr(q1, line(j), vbCR)
Line 1744: if qtest>0 and qtest<q2 then q2 = qtest
Line 1745: filename = trim(mid(line(j), q1, q2-q1))
Line 1746: qtest = instr(q1, line(j), vbLF)
Line 1747: if qtest>0 and qtest<q2 then q2 = qtest
Line 1748:
Line 1749: if autoread="text" then
Line 1750: attachline = "Attached File: http://" & baseURL & "/imgx/" & filename
Line 1751: else
Line 1752: attachline = "<div style='float: left; margin: 0px 25px 50px 0px;'><b>File: </b><br><a class='togb' href='http://" & baseURL & "/imgx/" & filename & "'>"
Line 1753: if not File.Exists(Server.MapPath("imgx/" & filename & ".thumb.jpg")) then CreateThumb("imgx/" & filename)
Line 1754: if File.Exists(Server.MapPath("imgx/" & filename & ".thumb.jpg")) then
Line 1755: attachline = attachline & "<img src='http://" & baseURL & "/imgx/" & filename & ".thumb.jpg" & "' title='Click to enlarge.'></a><br>"
Line 1756: filetag = right(filename, 4)
Line 1757: attachline = attachline & "<a href='http://" & baseURL & "/imgx/" & filename & "'><img src='http://" & baseurl & "/images/dl-icon.png' title='Save this file.'></a>"
Line 1758: if instr(".odt.ods.odp.rtf.pdf.xls.ppt.doc.xlsx.pptx.docx", filetag)>0 then
Line 1759: attachline = attachline & " <a href='http://docs.google.com/viewer?url="
Line 1760: attachline = attachline & Server.URLEncode("http://" & baseURL & "/imgx/" & filename) & "'><img src='http://" & baseurl & "/images/vu-icon.png' title='View online.'></a><br>"
Line 1761: else
Line 1762: attachline = attachline & "<br>"
Line 1763: end if
Line 1764: else
Line 1765: attachline = attachline & filename & "</a><br>"
Line 1766: end if
Line 1767: attachline = attachline & "</div>"
Line 1768: end if
Line 1769:
Line 1770: 'now make the .imgxlink file if it doesn't exist...
Line 1771: linkname = "img/" & msgid & "." & replace(filename, "imgx/", "") & ".imgxlink"
Line 1772: linkname = Server.MapPath(linkname)
Line 1773: if not File.Exists(linkname) then
Line 1774: 'create link file...
Line 1775: OutStream = File.AppendText(linkname)
Line 1776: OutStream.Write(".")
Line 1777: OutStream.Close
Line 1778: end if
Line 1779: 'it's one of the four...
Line 1780: 'Response.Write("b: " & baselink1 & filename & " a: " & attachline)
Line 1781: line(j) = replace(line(j), baselink1 & filename, attachline)
Line 1782: catch ex as exception
Line 1783: Response.Write("<!-- ex caught near linkname: " & ex.Message & " -->")
Line 1784: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core near linkname: " & ex.Message))
Line 1785: end try
Line 1786: end if
Line 1787: loop
Line 1788: next
Line 1789:
Line 1790: select case maincontype
Line 1791: case "message/rfc822"
Line 1792: filename = "img/" & msgid & ".fwd.emx"
Line 1793: if not File.Exists(Server.MapPath(filename)) then
Line 1794: OutStream = File.AppendText(Server.MapPath(filename))
Line 1795: for j=1 to Nlines
Line 1796: OutStream.WriteLine(line(j))
Line 1797: next
Line 1798: OutStream.Close
Line 1799: end if
Line 1800: if len(autoread)>0 then
Line 1801: attachline = "Forwarded message NOT included in this copy. Please see original on the message boards." & vbCRLF
Line 1802: else
Line 1803: attachline = "<b>Forwarded message: <hr><iframe id='fwdf' src='m2.aspx?i=" & msgid & "&fwd=" & filename & "' height='500' frameborder='0' width='100%' padding='0'></iframe>"
Line 1804: end if
Line 1805: Nalines = Nalines + 1
Line 1806: if autoread="text" then
Line 1807: aline(Nalines) = attachline & vbCRLF
Line 1808: else
Line 1809: aline(Nalines) = attachline & "<br>"
Line 1810: end if
Line 1811: case "text/plain", "text/text", "text/enhanced"
Line 1812: for j=1 to Nlines
Line 1813: Ntlines = Ntlines + 1
Line 1814: tline(Ntlines) = line(j)
Line 1815: next
Line 1816: case "text/html"
Line 1817: for j=1 to Nlines
Line 1818: Nhlines = Nhlines + 1
Line 1819: hline(Nhlines) = line(j)
Line 1820: next
Line 1821: end select
Line 1822: end function
Line 1823:
Line 1824: '-----------------------
Line 1825: sub ReadMultiBlock (bdy as string)
Line 1826: dim modstat, gotlast as boolean
Line 1827: dim i, q1, q2 as integer
Line 1828: dim a, contype, xenc, cid, cdisp as string
Line 1829:
Line 1830: level = level + 1
Line 1831:
Line 1832: q1 = instr(lcase(bdy), "boundary=")
Line 1833: if q1>0 then
Line 1834: q2 = instr(q1+11, bdy, ";")
Line 1835: if q2=0 then q2 = len(bdy) + 1
Line 1836: bdy = mid(bdy, q1 + 9, q2 - q1 - 9)
Line 1837: if instr(bdy, """")>0 then bdy = mid(bdy, 2, len(bdy)-2)
Line 1838: 'Response.Write("boundary: " & bdy)
Line 1839: end if
Line 1840:
Line 1841: if len(bdy)>0 then
Line 1842: for i=1 to 10
Line 1843: a = FileStream.ReadLine
Line 1844: if "--" + bdy = trim(a) then exit for
Line 1845: next
Line 1846: end if
Line 1847:
Line 1848: do
Line 1849: 'ReadMainHdr and ReadHdr now in ReadHdrinc.aspx...
Line 1850: if len(sdata0)=0 then
Line 1851: ReadMainHdr(sdata0, modstat, contype, xenc, cid, cdisp)
Line 1852: 'if len(xenc)>0 then
Line 1853: ' globalenc = xenc
Line 1854: ' try
Line 1855: ' Response.ContentEncoding = Encoding.GetEncoding(globalenc)
Line 1856: ' catch ex as exception
Line 1857: ' 'Response.Write("enc ex: " & ex.Message)
Line 1858: ' end try
Line 1859: 'end if
Line 1860: else
Line 1861: ReadHdr(contype, xenc, cid, cdisp)
Line 1862: 'if len(globalenc)=0 then
Line 1863: ' globalenc = xenc
Line 1864: ' try
Line 1865: ' Response.ContentEncoding = Encoding.GetEncoding(globalenc)
Line 1866: ' catch ex as exception
Line 1867: ' 'Response.Write("enc ex: " & ex.Message)
Line 1868: ' end try
Line 1869: 'end if
Line 1870: end if
Line 1871: if left(lcase(trim(contype)),9)="multipart" then
Line 1872: ReadMultiBlock(contype)
Line 1873: else
Line 1874: gotlast = ReadBlock(contype, xenc, cid, cdisp, bdy)
Line 1875: end if
Line 1876: loop until gotlast
Line 1877: level = level - 1
Line 1878:
Line 1879: end sub
Line 1880:
Line 1881: '-----------------------------------------------------
Line 1882: function m2coreFN(msgi as string, autostr as string, nomodstr as string, debugstr as string, fwdstr as string, ctrlstr as string) as string
Line 1883:
Line 1884: 'was Page_Load
Line 1885:
Line 1886: dim a, yymm, fil, filetag as string
Line 1887: dim controlhead, ipaddr, filname, contents as string
Line 1888: dim Nlines, i, j, q1, q2 as integer
Line 1889: dim altprocess, nodup, htmsg, replying as boolean
Line 1890: dim msgid0, filsize, atchlist, errmsg, boundary, contype, xenc, cid, cdisp as string
Line 1891: dim splits() as string
Line 1892: dim actsplit() as string
Line 1893: dim radname(50) as string
Line 1894: dim msgfile, getmsg as string
Line 1895: dim fileStreamReader as StreamReader
Line 1896: dim msgidi as integer
Line 1897: dim fwdfile as string
Line 1898: dim subject, subPlaceHolder, pathinfostr, properurl, datemth, mthnum as string
Line 1899: dim fromstr, realname, charset, datestr, substr as string 'moved from global decls.
Line 1900:
Line 1901: baseurl = Server.MapPath(".")
Line 1902: if instr(baseurl, "arcx")>0 then
Line 1903: baseurl = "fer3.com/arcx"
Line 1904: groupname = "NavListTEST"
Line 1905: elseif instr(baseurl, "38")>0 then
Line 1906: baseurl = "fer3.com/38Talk"
Line 1907: groupname = "38Talk"
Line 1908: elseif instr(baseurl, "arc")>0 then
Line 1909: baseurl = "fer3.com/arc"
Line 1910: groupname = "NavList"
Line 1911: else
Line 1912: Response.Write("Invalid directory.")
Line 1913: exit sub
Line 1914: end if
Line 1915:
Line 1916:
Line 1917: 'pathinfostr = Request.PathInfo [now FN arg]
Line 1918:
Line 1919: if len(pathinfostr)>1 then
Line 1920: Response.Write "[pathinfo found. exiting...]"
Line 1921: exit function
Line 1922: end if
Line 1923:
Line 1924: 'autoread = lcase(Request("auto")) [now FN arg]
Line 1925: autoread = lcase(autostr)
Line 1926:
Line 1927: 'nomod = lcase(Request("nomod")) [now FN arg]
Line 1928: nomod = lcase(nomodstr)
Line 1929:
Line 1930: htmsg = false
Line 1931:
Line 1932: 'default values for header entries:
Line 1933: contype = "text/plain"
Line 1934: xenc = "8bit" 'assume this in order to handle high codes in early text messages.
Line 1935: cid = ""
Line 1936: cdisp = ""
Line 1937: boundary = ""
Line 1938:
Line 1939: 'a = Request("debug")
Line 1940: a = debugstr
Line 1941: if len(a)>0 then debugm2 = true else debugm2 = false
Line 1942:
Line 1943: 'fwdfile = Request("fwd")
Line 1944: fwdfile = fwdstr
Line 1945:
Line 1946: if len(msgid)=0 then
Line 1947: 'msgid = Request("i")
Line 1948: msgid = msgi '[now FN arg]
Line 1949: msgid = right(trim(msgid), 6)
Line 1950: if val(msgid)>900000 then
Line 1951: msgid0 = "m" & msgid
Line 1952: elseif val(msgid)<100000 and val(msgid)>100 then
Line 1953: msgid0 = "w" & trim(str(val(msgid)))
Line 1954: elseif val(msgid)>100 and val(msgid)<200000 then
Line 1955: msgid0 = "g" & trim(str(val(msgid) - 100000))
Line 1956: else
Line 1957: Response.Write("m2core error: invalid msgid0.")
Line 1958: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core, invalid msgid0."))
Line 1959: exit sub
Line 1960: end if
Line 1961: end if
Line 1962:
Line 1963: 'modified. Need this:
Line 1964: do
Line 1965: if len(msgid)>=6 then exit do
Line 1966: msgid = "0" & msgid
Line 1967: loop
Line 1968:
Line 1969: if len(fwdfile)>0 then
Line 1970: yymm = "img"
Line 1971: else
Line 1972: try
Line 1973: msgidi = val(msgid)
Line 1974: catch
Line 1975: msgidi = 200000
Line 1976: end try
Line 1977: if msgidi>900000 then
Line 1978: yymm = "Moderated"
Line 1979: else
Line 1980: if instr(baseurl, "38")>0 then
Line 1981: yymm = "201301"
Line 1982: else
Line 1983: if msgidi>=137646 then
Line 1984: yymm = "201701"
Line 1985: elseif msgidi>=129880 then
Line 1986: yymm = "201501"
Line 1987: elseif msgidi>=121663 then
Line 1988: yymm = "201301"
Line 1989: elseif msgidi>=115085 then
Line 1990: yymm = "201101"
Line 1991: elseif msgidi>=106869 then
Line 1992: yymm = "200901"
Line 1993: elseif msgidi>=26984 then
Line 1994: yymm = "200601"
Line 1995: elseif msgidi>=13134 then
Line 1996: yymm = "200401"
Line 1997: else
Line 1998: yymm = "199501"
Line 1999: end if
Line 2000: end if
Line 2001: end if
Line 2002: end if
Line 2003:
Line 2004: 'modified:
Line 2005: replying = false
Line 2006:
Line 2007: if len(msgid)<2 then
Line 2008: Response.Write("m2core error: len msgid<2.")
Line 2009: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Error in NL m2core, len msgid."))
Line 2010: exit sub
Line 2011: end if
Line 2012:
Line 2013:
Line 2014: '--------------------------------------
Line 2015:
Line 2016: if len(fwdfile)>0 then
Line 2017: filname = Server.MapPath(fwdfile)
Line 2018: else
Line 2019: fil = trim(msgid) & ".emx"
Line 2020: filname = Server.MapPath(yymm & "/" & fil)
Line 2021: end if
Line 2022: if not File.Exists(filname) then
Line 2023: 'modified:
Line 2024: 'never redirect in m2core:
Line 2025: Response.Write("m2core error: Cannot find this message: " & fil & ".")
Line 2026: try
Line 2027: OutStream = File.AppendText(Server.MapPath("fnf.txt"))
Line 2028: OutStream.WriteLine("m2core could not find: " & fil & vbCRLF)
Line 2029: OutStream.Close
Line 2030: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core, fnf: " & fil))
Line 2031: catch ex as exception
Line 2032: end try
Line 2033: exit sub
Line 2034: end if
Line 2035:
Line 2036: try
Line 2037: FileStream = new StreamReader(filname) 'was: (filname, System.Text.Encoding.Default)
Line 2038: catch ex as exception
Line 2039: Response.Write("m2core error: could not process this message (1). Please try again in a few minutes. " & ex.message)
Line 2040: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception in NL m2core could not process message (1). ex:" & ex.message))
Line 2041: exit sub
Line 2042: end try
Line 2043:
Line 2044: 'process the message file...
Line 2045: sdata0 = ""
Line 2046: if autoread="hdr" then
Line 2047: try
Line 2048: dim modstat as boolean
Line 2049: ReadMainHdr(sdata0, modstat, contype, xenc, cid, cdisp)
Line 2050: sdata0 = msgid & replace(sdata0, "XXX1", msgid0)
Line 2051: if instr(sdata0, "|XXX2|")>0 then
Line 2052: 'need to get the most likely charset...
Line 2053: ' (this is a hack, but can't think of a better way right now)
Line 2054: charset = "U"
Line 2055: i = 0
Line 2056: do
Line 2057: if FileStream.Peek=-1 then exit do
Line 2058: 'check the next 50 lines of the file. There should be a charset tag in there...
Line 2059: if i>50 then exit do
Line 2060: a = FileStream.ReadLine
Line 2061: if len(a)>10 then
Line 2062: q1 = instr(a, "charset=")
Line 2063: if q1>0 then
Line 2064: charset = trim(mid(a, q1 + 8, 500))
Line 2065: q1 = instr(charset, ";")
Line 2066: if q1=0 then q1 = instr(charset, " ")
Line 2067: if q1>0 then charset = left(charset, q1 - 1)
Line 2068: charset = lcase(replace(charset, """", ""))
Line 2069: exit do
Line 2070: end if
Line 2071: end if
Line 2072: i = i + 1
Line 2073: loop
Line 2074: sdata0 = replace(sdata0, "XXX2", charset)
Line 2075: end if
Line 2076: Response.Write(sdata0)
Line 2077: exit sub
Line 2078: catch ex as exception
Line 2079: Response.Write("m2core error: auto=hdr, ex: " & ex.Message)
Line 2080: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Error in NL m2core auto hdr."))
Line 2081: exit sub
Line 2082: end try
Line 2083: else
Line 2084: try
Line 2085: ReadMultiBlock("")
Line 2086: catch ex as exception
Line 2087: Response.Write("m2core error: could not process this message (2). Please try again in a few minutes. " & ex.message)
Line 2088: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Exception NL m2core (2). " & filname & " ex:" & ex.message))
Line 2089: FileStream.Close
Line 2090: exit sub
Line 2091: end try
Line 2092: dim sparts() as string
Line 2093: sdata0 = msgid & replace(sdata0, "XXX1", msgid0)
Line 2094: sparts = split(sdata0, "|")
Line 2095: substr = sparts(1)
Line 2096: fromstr = sparts(2)
Line 2097: datestr = sparts(3)
Line 2098: realname = sparts(6)
Line 2099: charset = sparts(7)
Line 2100: end if
Line 2101: FileStream.Close()
Line 2102: if len(nomod)=0 then
Line 2103: 'modified:
Line 2104: if len(ctrlstr)>0 then 'was Request("controls")
Line 2105: controlhead = DrawControls(msgid)
Line 2106: Res.Append(controlhead)
Line 2107: end if
Line 2108:
Line 2109: 'add header lines
Line 2110: if autoread="text" then
Line 2111: Res.Append(substr & vbCRLF)
Line 2112: Res.Append("From: " & realname & vbCRLF)
Line 2113: Res.Append("Date: " & datestr & vbCRLF)
Line 2114: else
Line 2115: Res.Append("<big><b>" & substr & "</b></big><br>")
Line 2116: Res.Append("<b>From: </b>" & realname & "<br>")
Line 2117: Res.Append("<b>Date: </b>" & datestr & "<br>")
Line 2118: end if
Line 2119: end if
Line 2120:
Line 2121: if not replying and len(fwdfile)=0 and len(autoread)=0 then
Line 2122: controlhead = DrawControls(msgid)
Line 2123: Res.Append(controlhead)
Line 2124: end if
Line 2125:
Line 2126: if Nhlines>0 then htmsg=true
Line 2127: if htmsg and autoread<>"text" then
Line 2128: 'if instr(baseurl, "38")=0 then Res.Append("<tt style='font-size: 12px;'>")
Line 2129: Res.Append("<div style='overflow: auto; margin: 5px; font-size: 14px;'>")
Line 2130: for i=1 to Nhlines
Line 2131: makediv(hline(i))
Line 2132: clearats(hline(i))
Line 2133: hline(i) = replace(hline(i), "LunarDistance.com", "LD-DEADLINK-com")
Line 2134: hline(i) = replace(hline(i), "lunardistance.com", "ld-DEADLINK-com")
Line 2135: hline(i) = replace(hline(i), "irbs.com", "i-DEADLINK-com")
Line 2136: hline(i) = replace(hline(i), "IRBS.com", "I-DEADLINK-com")
Line 2137: if instr(hline(i), "offers.juno.com")>0 or instr(hline(i), "juno.com/freeemail")>0 then hline(i) = " " 'remove juno ads from J Wilson's posts
Line 2138: Res.Append(hline(i) & vbCRLF)
Line 2139: next
Line 2140: Res.Append("</div>")
Line 2141: 'if instr(baseurl, "38")=0 then Res.Append("</tt>")
Line 2142: else
Line 2143: if autoread="text" then
Line 2144: if len(nomod)=0 then Res.Append("---------------------------------------" & vbCRLF)
Line 2145: else
Line 2146: Res.Append("<p style='font-size: 10pt; font-family: ""Courier New"", Courier, monospace; white-space: pre;'><pre>") 'was <pre>
Line 2147: end if
Line 2148: for i=1 to Ntlines
Line 2149: clearats(tline(i))
Line 2150: tline(i) = replace(tline(i), "LunarDistance.com", "LD-DEADLINK-com")
Line 2151: tline(i) = replace(tline(i), "lunardistance.com", "ld-DEADLINK-com")
Line 2152: tline(i) = replace(tline(i), "irbs.com", "i-DEADLINK-com")
Line 2153: tline(i) = replace(tline(i), "IRBS.com", "I-DEADLINK-com")
Line 2154: if instr(tline(i), "offers.juno.com")>0 or instr(tline(i), "juno.com/freemail")>0 then tline(i) = " " 'remove juno ads from J Wilson's posts
Line 2155: if len(autoread)=0 and instr(tline(i), "File: ")=0 then anglebrax(tline(i))
Line 2156: if len(tline(i))>105 and len(nomod)=0 then breakline(tline(i)) 'WAS: and instr(tline(i), vbCR)>105
Line 2157: Res.Append(tline(i) & vbCRLF)
Line 2158: next
Line 2159: if autoread<>"text" then Res.Append("</p></pre>") 'was </pre> earlier 'july 10, 2011 was </p>, now both
Line 2160: end if
Line 2161: if Nalines>0 then
Line 2162: if autoread<>"text" then Res.Append("<p>")
Line 2163: 'Response.Write("HERE2")
Line 2164: for i=1 to Nalines
Line 2165: nodup = true
Line 2166: for j=i+1 to Nalines
Line 2167: 'null out duplicates
Line 2168: if aline(i)=aline(j) then nodup = false
Line 2169: next
Line 2170: if nodup then
Line 2171: clearats(aline(i))
Line 2172: 'if len(autoread)=0 then anglebrax(aline(i)) 'DONT USE HERE: ruins attached file links.
Line 2173: if len(aline(i))>105 then breakline(aline(i)) ' and instr(aline(i), vbCR)>105
Line 2174: Res.Append(aline(i) & vbCRLF)
Line 2175: end if
Line 2176: next
Line 2177: end if
Line 2178: if autoread="" or autoread="html" then Res.Append("</blockquote></blockquote></blockquote>")
Line 2179: if autoread="" then Res.Append("<hr>")
Line 2180:
Line 2181: 'last stage before writing out the page...
Line 2182:
Line 2183: if len(fwdfile)=0 and len(autoread)=0 then
Line 2184: if not replying then Res.Append(controlhead)
Line 2185: end if
Line 2186:
Line 2187: 'modified:
Line 2188: if len(ctrlstr)>0 then 'was Request...
Line 2189: Res.Append(controlhead)
Line 2190: end if
Line 2191:
Line 2192:
Line 2193: 'convert the string-builder string to a regular string:
Line 2194: dim RString as new string(Res.toString())
Line 2195:
Line 2196: if left(lcase(substr),3)<>"re:" then substr = "Re: " & substr 'add a Re if we don't have one
Line 2197: return RString
Line 2198:
Line 2199: end function
Line 2200:
Line 2201:
Line 2202: #End ExternalSource
Line 2203:
Line 2204:
Line 2205: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",11)
Line 2206:
Line 2207: dim resubj, sd0, groupname, groupdesc, baseurl, basehttp as string
Line 2208: dim startyear, thisyear, thismonth as integer
Line 2209: dim replying as boolean
Line 2210: dim pagetitle, SessionID as string
Line 2211:
Line 2212: '------------------------
Line 2213: function getproperurl(id as string)
Line 2214: dim q1, idi, testidi, seeki as integer
Line 2215: dim a, ifil as string
Line 2216: dim aparts() as string
Line 2217: dim binr as BinaryReader
Line 2218:
Line 2219: TRY
Line 2220: idi = val(id)
Line 2221:
Line 2222: binr = new BinaryReader(File.Open(Server.MapPath("iglist.dat"), FileMode.Open, FileAccess.Read, FileShare.ReadWrite))
Line 2223: seeki = 4*idi
Line 2224: if seeki<0 or seeki>binr.BaseStream.Length then
Line 2225: return ""
Line 2226: end if
Line 2227: binr.BaseStream.Seek(seeki, SeekOrigin.Begin)
Line 2228: seeki = binr.ReadInt32 'std 4-byte long int.
Line 2229: binr.Close
Line 2230:
Line 2231: if instr(baseurl, "38")>0 then
Line 2232: ifil = "201301"
Line 2233: else
Line 2234: if idi>=137646 then
Line 2235: ifil = "201701"
Line 2236: elseif idi>=129880 then
Line 2237: ifil = "201501"
Line 2238: elseif idi>=121663 then
Line 2239: ifil = "201301"
Line 2240: elseif idi>=115085 then
Line 2241: ifil = "201101"
Line 2242: elseif idi>=106869 then
Line 2243: ifil = "200901"
Line 2244: elseif idi>=26984 then
Line 2245: ifil = "200601"
Line 2246: elseif idi>=13134 then
Line 2247: ifil = "200401"
Line 2248: else
Line 2249: ifil = "199501"
Line 2250: end if
Line 2251: end if
Line 2252:
Line 2253: binr = new BinaryReader(File.Open(Server.MapPath("i" & ifil & ".txt"), FileMode.Open, FileAccess.Read, FileShare.ReadWrite), Encoding.UTF8)
Line 2254: binr.BaseStream.Seek(seeki, SeekOrigin.Begin)
Line 2255: a = new string(binr.ReadChars(1000))
Line 2256: binr.Close
Line 2257:
Line 2258: q1 = instr(a, vbCR)
Line 2259: if q1>10 then a = left(a, q1 - 1)
Line 2260:
Line 2261: aparts = split(a, "|")
Line 2262: if ubound(aparts)>=8 then
Line 2263: testidi = val(aparts(0))
Line 2264: if testidi<>idi then
Line 2265: 'not found, should try next file, but for now just bail out
Line 2266: return ""
Line 2267: end if
Line 2268: end if
Line 2269:
Line 2270: 'Response.Write("<!--getproperurl:" & a & "-->")
Line 2271: return a
Line 2272:
Line 2273: CATCH ex as Exception
Line 2274: if idi<val(Application("LastMax")) then
Line 2275: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("Ex in NL m2 (--not core) getproperurl, id: " & id))
Line 2276: end if
Line 2277: return ""
Line 2278: END TRY
Line 2279: end function
Line 2280: '-------------------
Line 2281:
Line 2282: sub Page_Load(sender as Object, e as EventArgs)
Line 2283: dim i as integer
Line 2284: dim a, filname, autoread, fwdfile, yymm as string
Line 2285: dim altprocess as boolean
Line 2286: dim R0 as string 'replaces Response.Write...
Line 2287:
Line 2288:
Line 2289: baseurl = Server.MapPath(".")
Line 2290: if instr(baseurl, "arcx")>0 then
Line 2291: baseurl = "fer3.com/arcx"
Line 2292: groupname = "NavListTEST"
Line 2293: groupdesc = "A (TEST) Community Devoted to the Preservation and Practice of Celestial Navigation and Other Methods of Traditional Position-Finding"
Line 2294: startyear = 1995
Line 2295: elseif instr(baseurl, "38")>0
Line 2296: baseurl = "fer3.com/38Talk"
Line 2297: groupname = "38Talk"
Line 2298: groupdesc = "A Forum for Discussions among Voyagers and Others related to the 38th Voyage of the Charles W. Morgan"
Line 2299: startyear = 2014 'does not change annually.
Line 2300: elseif instr(baseurl, "arc")>0
Line 2301: baseurl = "fer3.com/arc"
Line 2302: groupname = "NavList"
Line 2303: groupdesc = "A Community Devoted to the Preservation and Practice of Celestial Navigation and Other Methods of Traditional Position-Finding"
Line 2304: startyear = 1995
Line 2305: else
Line 2306: Response.Write("Invalid directory.")
Line 2307: exit sub
Line 2308: end if
Line 2309: basehttp = "./"
Line 2310: if len(Request.PathInfo)>1 then basehttp = "../"
Line 2311:
Line 2312: SessionID = System.Web.HttpContext.Current.Session.SessionID
Line 2313: 'Response.Write("<!-- " & SessionID & " -->")
Line 2314:
Line 2315: thisyear = DateTime.UTCNow.Year
Line 2316: thismonth = DateTime.UTCNow.Month
Line 2317:
Line 2318: a = ""
Line 2319: i = thisyear
Line 2320: do
Line 2321: if i<2010 then
Line 2322: a = a & "<li><a href='" & basehttp & "#archive'>All Years...</a></li>" & vbCRLF
Line 2323: exit do
Line 2324: end if
Line 2325: a = a & "<li><a href='" & basehttp & "sort2.aspx?y=" & trim(str(i)) & "'>" & trim(str(i)) & " All Posts</a></li>" & vbCRLF
Line 2326: i = i - 1
Line 2327: if i<startyear then exit do
Line 2328: loop
Line 2329: arclist.Text = a
Line 2330:
Line 2331: '---------------------------
Line 2332: 'code from earlier m2:
Line 2333: dim pathinfostr, msgid, msgid0 as string
Line 2334: dim msgidi, q1, q2 as integer
Line 2335: dim splits() as string
Line 2336:
Line 2337: pathinfostr = Request.PathInfo
Line 2338: if len(pathinfostr)>1 then
Line 2339: basehttp = "../"
Line 2340: pathinfostr = replace(pathinfostr,"/","")
Line 2341: q1 = instr(pathinfostr, "|")
Line 2342: if q1>0 then
Line 2343: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("NL m2 pathinfostr: " & pathinfostr))
Line 2344: q1 = instr(pathinfostr, "-g")
Line 2345: if q1=0 then q1 = instr(pathinfostr, "-w")
Line 2346: if q1>0 then pathinfostr = mid(pathinfostr, q1, 8)
Line 2347: q1 = instr(pathinfostr, "|")
Line 2348: if q1>0 then pathinfostr = left(pathinfostr, q1-1)
Line 2349: end if
Line 2350: splits = split(pathinfostr,"-")
Line 2351: msgid = splits(ubound(splits)) 'very last item must be msgid
Line 2352: msgid0 = msgid
Line 2353: if instr(msgid, "g")>0 then
Line 2354: msgid = replace(msgid, "g", "")
Line 2355: if val(msgid)>100 then
Line 2356: msgid = trim(str(100000 + val(msgid)))
Line 2357: else
Line 2358: msgid = 0
Line 2359: end if
Line 2360: end if
Line 2361: if instr(msgid, "m")>0 then
Line 2362: 'moderated
Line 2363: if testip() then
Line 2364: Response.Write("ipok")
Line 2365: msgid = replace(msgid, "m", "")
Line 2366: else
Line 2367: Response.Redirect("http://" & baseurl & "/m2.aspx")
Line 2368: end if
Line 2369: end if
Line 2370: msgid = replace(msgid, "w", "")
Line 2371: do
Line 2372: if len(msgid)>=6 then exit do
Line 2373: msgid = "0" & msgid
Line 2374: loop
Line 2375: msgid = right(msgid, 6)
Line 2376: end if
Line 2377:
Line 2378: if len(msgid)=0 then
Line 2379: msgid = Request("i")
Line 2380: msgid = right(trim(msgid), 6)
Line 2381: if val(msgid)>900000 then
Line 2382: 'can't look at these w.o. vip
Line 2383: if testip() then
Line 2384: Response.Write("ipok")
Line 2385: msgid0 = "m" & msgid
Line 2386: else
Line 2387: Response.Redirect("http://" & baseurl & "/m2.aspx")
Line 2388: end if
Line 2389: elseif val(msgid)<100000 then
Line 2390: msgid0 = "w" & trim(str(val(msgid)))
Line 2391: else
Line 2392: msgid0 = "g" & trim(str(val(msgid) - 100000))
Line 2393: end if
Line 2394: end if
Line 2395:
Line 2396: if len(fwdfile)>0 then
Line 2397: yymm = "img"
Line 2398: else
Line 2399: try
Line 2400: msgidi = val(msgid)
Line 2401: catch
Line 2402: msgidi = 200000
Line 2403: end try
Line 2404: if msgidi>900000 then
Line 2405: yymm = "Moderated"
Line 2406: else
Line 2407: if instr(baseurl, "38")>0 then
Line 2408: yymm = "201301"
Line 2409: else
Line 2410: if msgidi>=137646 then
Line 2411: yymm = "201701"
Line 2412: elseif msgidi>=129880 then
Line 2413: yymm = "201501"
Line 2414: elseif msgidi>=121663 then
Line 2415: yymm = "201301"
Line 2416: elseif msgidi>=115085 then
Line 2417: yymm = "201101"
Line 2418: elseif msgidi>=106869 then
Line 2419: yymm = "200901"
Line 2420: elseif msgidi>=26984 then
Line 2421: yymm = "200601"
Line 2422: elseif msgidi>=13134 then
Line 2423: yymm = "200401"
Line 2424: else
Line 2425: yymm = "199501"
Line 2426: end if
Line 2427: end if
Line 2428: end if
Line 2429: end if
Line 2430:
Line 2431: dim properurl as string
Line 2432:
Line 2433: replying=false
Line 2434: if Request("r")="1" then replying=true
Line 2435: if msgidi=0 and not replying then replying = true
Line 2436: if len(fwdfile)>0 or len(autoread)>0 then replying=false
Line 2437:
Line 2438: if not replying and len(fwdfile)=0 and len(autoread)=0 then
Line 2439: 'compare to proper URL and redirect if necessary
Line 2440: properurl = getproperurl(msgid)
Line 2441: if len(properurl)>0 then
Line 2442: splits = split(properurl, "|")
Line 2443: if ubound(splits)>=8 then
Line 2444: properurl = splits(8)
Line 2445: if len(properurl)>0 and (not HttpContext.Current.Request.Path.EndsWith(properurl, StringComparison.InvariantCultureIgnoreCase)) then Response.RedirectPermanent("http://" & baseurl & "/m2.aspx/" & properurl)
Line 2446: end if
Line 2447: else
Line 2448: if val(msgid)>999 and val(msgid)<900000 then
Line 2449: 'not bothering me anymore for low number cases...
Line 2450: 'Server.Execute("tw***.aspx?DM=1&a=" & Server.UrlEncode("m2 redirecting:" & msgid))
Line 2451: 'Response.Redirect("m2.aspx") '?i=" & trim(str(val(msgid) + 1)))
Line 2452: end if
Line 2453: end if
Line 2454: end if
Line 2455:
Line 2456: dim uUri as Uri
Line 2457: dim udata, enc as string
Line 2458: dim usplit() as string
Line 2459:
Line 2460: if msgidi>100 then 'change to >100 since no id's are lower.
Line 2461: 'update sd0 ...
Line 2462: 'try
Line 2463: ' uUri = new Uri("http://" & baseurl & "/m2core.aspx?i=" & msgidi & "&auto=hdr")
Line 2464: ' dim req as HttpWebRequest = HttpWebRequest.Create(uUri)
Line 2465: ' dim res as HttpWebResponse = req.GetResponse()
Line 2466: ' dim sr as new StreamReader(res.GetResponseStream())
Line 2467: ' udata = sr.ReadToEnd
Line 2468: ' res.close
Line 2469: 'catch ex as exception
Line 2470: ' udata = "Problem reading sd0: " & ex.Message & " Please try again in a few minutes."
Line 2471: 'end try
Line 2472:
Line 2473: 'NEW:
Line 2474: udata = m2coreFN(str(msgidi), "hdr", "", "", "", "")
Line 2475:
Line 2476: sd0 = udata
Line 2477: sd0 = replace(sd0, "groupid.fer3.com", lcase(groupname) & ".fer3.com")
Line 2478:
Line 2479: dim sdsplit() as string
Line 2480: sdsplit = split(sd0, "|")
Line 2481: if ubound(sdsplit)>7 then
Line 2482: enc = ucase(trim(sdsplit(7)))
Line 2483: resubj = sdsplit(1)
Line 2484: pagetitle = groupname & ": " & resubj & " (" & msgid & ")"
Line 2485: if left(lcase(resubj),3)<>"re:" then resubj = "Re: " & resubj
Line 2486: dim byt as byte() = System.Text.Encoding.UTF8.GetBytes(sd0)
Line 2487: 'convert the byte array to a Base64 string
Line 2488: sd0 = Convert.ToBase64String(byt)
Line 2489: else
Line 2490: sd0 = ""
Line 2491: pagetitle = groupname & " Message"
Line 2492: end if
Line 2493:
Line 2494: dim charsetlist as string
Line 2495: dim charsetarray() as string
Line 2496: charsetlist = "A,us-ascii,1,iso-8859-1,U,utf-8,w,windows-1252,2,iso-8859-15,3,iso-8859-7,X,windows-1250,1,iso8859-1,1,iso8859-1,4,iso-8859-2"
Line 2497:
Line 2498: if len(enc)=1 then
Line 2499: 'charsetlist = "A,us-ascii,1,iso-8859-1,U,utf-8,...
Line 2500: charsetarray = split(charsetlist, ",")
Line 2501: for i=0 to ubound(charsetarray) step 2
Line 2502: if enc=charsetarray(i) then
Line 2503: enc = charsetarray(i + 1)
Line 2504: exit for
Line 2505: end if
Line 2506: next
Line 2507: if len(enc)=1 then enc="WINDOWS-1252"
Line 2508: elseif len(enc)=0 then
Line 2509: enc = "WINDOWS-1252"
Line 2510: elseif instr("UTF-8;ISO-8859-*;WINDOWS-*;US-ASCII", left(enc,5))=0 then
Line 2511: enc = "WINDOWS-1252"
Line 2512: end if
Line 2513:
Line 2514: 'update m2main ...
Line 2515: 'try
Line 2516: 'uUri = new Uri("http://" & baseurl & "/m2core.aspx?i=" & msgidi & "&auto=html&controls=1")
Line 2517: 'dim req as HttpWebRequest = HttpWebRequest.Create(uUri)
Line 2518: 'dim res as HttpWebResponse = req.GetResponse()
Line 2519: 'dim rcvStream as stream = res.GetResponseStream()
Line 2520: 'dim encode as encoding = System.Text.Encoding.GetEncoding(enc) 'was utf-8
Line 2521: 'pipe the stream to a higher level stream reader with the required encoding format.
Line 2522: 'dim sr as new StreamReader(rcvStream, encode)
Line 2523: 'udata = sr.ReadToEnd()
Line 2524: 'res.close
Line 2525: 'sr.close
Line 2526: 'rcvStream.close
Line 2527: 'catch ex as exception
Line 2528: udata = "Problem reading m2main: " & ex.Message & " Please try again in a few minutes."
Line 2529: 'end try
Line 2530:
Line 2531: NEW:
Line 2532: udata = m2coreFN(str(msgidi), "html", "", "", "", "1")
Line 2533:
Line 2534: m2main.Text = udata
Line 2535: else
Line 2536: m2main.Text = ""
Line 2537: end if
Line 2538:
Line 2539: end sub
Line 2540: '---------------------------------------------------------------------------
Line 2541: ' END of aspx script
Line 2542: '---------------------------------------------------------------------------
Line 2543:
Line 2544:
Line 2545: #End ExternalSource
Line 2546:
Line 2547:
Line 2548: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2549: Public Sub New()
Line 2550: MyBase.New
Line 2551: Dim dependencies() As String
Line 2552: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/m2.aspx"
Line 2553: If (Global.ASP.m2_aspx.__initialized = false) Then
Line 2554: Global.ASP.m2_aspx.__stringResource = Me.ReadStringResource
Line 2555: dependencies = New String(5) {}
Line 2556: dependencies(0) = "~/m2.aspx"
Line 2557: dependencies(1) = "~/viptest.inc"
Line 2558: dependencies(2) = "~/m2coreFN.aspx"
Line 2559: dependencies(3) = "~/arcinc1x.aspx"
Line 2560: dependencies(4) = "~/ReadHdrinc.aspx"
Line 2561: dependencies(5) = "~/thumbinc.aspx"
Line 2562: Global.ASP.m2_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 2563: Global.ASP.m2_aspx.__initialized = true
Line 2564: End If
Line 2565: Me.Server.ScriptTimeout = 30000000
Line 2566: End Sub
Line 2567:
Line 2568: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 2569: Get
Line 2570: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 2571: End Get
Line 2572: End Property
Line 2573:
Line 2574: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 2575: Get
Line 2576: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 2577: End Get
Line 2578: End Property
Line 2579:
Line 2580: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2581: Private Function __BuildControlarclist() As Global.System.Web.UI.WebControls.Label
Line 2582: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 2583:
Line 2584: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",396)
Line 2585: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 2586:
Line 2587: #End ExternalSource
Line 2588: Me.arclist = __ctrl
Line 2589: __ctrl.ApplyStyleSheetSkin(Me)
Line 2590:
Line 2591: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",396)
Line 2592: __ctrl.ID = "arclist"
Line 2593:
Line 2594: #End ExternalSource
Line 2595: Return __ctrl
Line 2596: End Function
Line 2597:
Line 2598: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2599: Private Function __BuildControlm2main() As Global.System.Web.UI.WebControls.Label
Line 2600: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 2601:
Line 2602: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",506)
Line 2603: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 2604:
Line 2605: #End ExternalSource
Line 2606: Me.m2main = __ctrl
Line 2607: __ctrl.ApplyStyleSheetSkin(Me)
Line 2608:
Line 2609: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",506)
Line 2610: __ctrl.ID = "m2main"
Line 2611:
Line 2612: #End ExternalSource
Line 2613: Return __ctrl
Line 2614: End Function
Line 2615:
Line 2616: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2617: Private Sub __BuildControlTree(ByVal __ctrl As m2_aspx)
Line 2618:
Line 2619: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",1)
Line 2620: Me.InitializeCulture
Line 2621:
Line 2622: #End ExternalSource
Line 2623: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 2624:
Line 2625: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",1)
Line 2626: __ctrl1 = Me.__BuildControlarclist
Line 2627:
Line 2628: #End ExternalSource
Line 2629: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2630:
Line 2631: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",1)
Line 2632: __parser.AddParsedSubObject(__ctrl1)
Line 2633:
Line 2634: #End ExternalSource
Line 2635: Dim __ctrl2 As Global.System.Web.UI.WebControls.Label
Line 2636:
Line 2637: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",1)
Line 2638: __ctrl2 = Me.__BuildControlm2main
Line 2639:
Line 2640: #End ExternalSource
Line 2641:
Line 2642: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",1)
Line 2643: __parser.AddParsedSubObject(__ctrl2)
Line 2644:
Line 2645: #End ExternalSource
Line 2646: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 2647: End Sub
Line 2648:
Line 2649: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 2650: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <title>")
Line 2651:
Line 2652: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",354)
Line 2653: __w.Write(pagetitle)
Line 2654:
Line 2655:
Line 2656: #End ExternalSource
Line 2657: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" />"& _
Line 2658: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <link rel=""shortcut icon"" href=""")
Line 2659:
Line 2660: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",356)
Line 2661: __w.Write(basehttp)
Line 2662:
Line 2663:
Line 2664: #End ExternalSource
Line 2665: __w.Write("favicon.ico"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <link rel=""stylesheet"" type=""text/css"" href=""")
Line 2666:
Line 2667: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",357)
Line 2668: __w.Write(basehttp)
Line 2669:
Line 2670:
Line 2671: #End ExternalSource
Line 2672: __w.Write("css/main-fer3.css?x=0"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <link rel=""stylesheet"" type=""text/css"" href=""")
Line 2673:
Line 2674: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",358)
Line 2675: __w.Write(basehttp)
Line 2676:
Line 2677:
Line 2678: #End ExternalSource
Line 2679: __w.Write("css/dropdown.css""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <link rel=""stylesheet"" type=""text/css"" href=""")
Line 2680:
Line 2681: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",359)
Line 2682: __w.Write(basehttp)
Line 2683:
Line 2684:
Line 2685: #End ExternalSource
Line 2686: __w.Write("fileupload/css/fupstyle.css""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script> fer3combasehttp = """)
Line 2687:
Line 2688: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",360)
Line 2689: __w.Write(basehttp)
Line 2690:
Line 2691:
Line 2692: #End ExternalSource
Line 2693: __w.Write("""; </script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""")
Line 2694:
Line 2695: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",361)
Line 2696: __w.Write(basehttp)
Line 2697:
Line 2698:
Line 2699: #End ExternalSource
Line 2700: __w.Write("javascripts/jquery-1.11.1.min.js""></script> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""")
Line 2701:
Line 2702: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",362)
Line 2703: __w.Write(basehttp)
Line 2704:
Line 2705:
Line 2706: #End ExternalSource
Line 2707: __w.Write("javascripts/main1-fer3.js""></script> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""")
Line 2708:
Line 2709: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",363)
Line 2710: __w.Write(basehttp)
Line 2711:
Line 2712:
Line 2713: #End ExternalSource
Line 2714: __w.Write("javascripts/jquery.lightbox_me.js""></script> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- jQuery File Upload Dependenc"& _
Line 2715: "ies -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""")
Line 2716:
Line 2717: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",365)
Line 2718: __w.Write(basehttp)
Line 2719:
Line 2720:
Line 2721: #End ExternalSource
Line 2722: __w.Write("fileupload/js/jquery.ui.widget.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""")
Line 2723:
Line 2724: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",366)
Line 2725: __w.Write(basehttp)
Line 2726:
Line 2727:
Line 2728: #End ExternalSource
Line 2729: __w.Write("fileupload/js/jquery.iframe-transport.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""")
Line 2730:
Line 2731: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",367)
Line 2732: __w.Write(basehttp)
Line 2733:
Line 2734:
Line 2735: #End ExternalSource
Line 2736: __w.Write("fileupload/js/jquery.fileupload.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- main js for fileupload -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 2737: " <script src=""")
Line 2738:
Line 2739: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",369)
Line 2740: __w.Write(basehttp)
Line 2741:
Line 2742:
Line 2743: #End ExternalSource
Line 2744: __w.Write("fileupload/js/fupscript.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- ckeditor -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <script src=""")
Line 2745:
Line 2746: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",371)
Line 2747: __w.Write(basehttp)
Line 2748:
Line 2749:
Line 2750: #End ExternalSource
Line 2751: __w.Write("ckeditor/ckeditor.js""></script></head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""mainbox""><img id=""sx"& _
Line 2752: "1"" src=""")
Line 2753:
Line 2754: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",375)
Line 2755: __w.Write(basehttp)
Line 2756:
Line 2757:
Line 2758: #End ExternalSource
Line 2759: __w.Write("sx1.jpg"" alt=""Welcome to the ")
Line 2760:
Line 2761: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",375)
Line 2762: __w.Write(groupname)
Line 2763:
Line 2764:
Line 2765: #End ExternalSource
Line 2766: __w.Write(" Message Boards."" style=""float: left;""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<h1>")
Line 2767:
Line 2768: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",376)
Line 2769: __w.Write(groupname)
Line 2770:
Line 2771:
Line 2772: #End ExternalSource
Line 2773: __w.Write(":</h1><h2>")
Line 2774:
Line 2775: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",376)
Line 2776: __w.Write(groupdesc)
Line 2777:
Line 2778:
Line 2779: #End ExternalSource
Line 2780: __w.Write("</h2>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""menuclean"" style=""clear: left;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <ul class=""dropdown"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li"& _
Line 2781: "><a href='")
Line 2782:
Line 2783: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",379)
Line 2784: __w.Write(basehttp)
Line 2785:
Line 2786:
Line 2787: #End ExternalSource
Line 2788: __w.Write("'>Home</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href="""" onclick=""return false;"" class=""dir"">Tools</"& _
Line 2789: "a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href=""")
Line 2790:
Line 2791: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",383)
Line 2792: __w.Write(basehttp)
Line 2793:
Line 2794:
Line 2795: #End ExternalSource
Line 2796: __w.Write("m2.aspx"">Compose Message</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href="""" onclick=""return false;"" c"& _
Line 2797: "lass=""whatlink"">What is ")
Line 2798:
Line 2799: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",384)
Line 2800: __w.Write(groupname)
Line 2801:
Line 2802:
Line 2803: #End ExternalSource
Line 2804: __w.Write("?</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href="""" onclick=""return false;"" class=""joinlink"">Join ")
Line 2805:
Line 2806: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",385)
Line 2807: __w.Write(groupname)
Line 2808:
Line 2809:
Line 2810: #End ExternalSource
Line 2811: Me.WriteUTF8ResourceString(__w, 13316, 377, true)
Line 2812:
Line 2813: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",394)
Line 2814: __w.Write(basehttp)
Line 2815:
Line 2816:
Line 2817: #End ExternalSource
Line 2818: __w.Write("imgviewer.aspx?i=3000&N=20"">Images & Files</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href=""")
Line 2819:
Line 2820: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",395)
Line 2821: __w.Write(basehttp)
Line 2822:
Line 2823:
Line 2824: #End ExternalSource
Line 2825: __w.Write("sort2.aspx"">Current Posts</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 2826: parameterContainer.Controls(0).RenderControl(__w)
Line 2827: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li><a href="""" onclick=""return false;"" class=""inxlink"">Search</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 2828: " </ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 2829:
Line 2830: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",400)
Line 2831: if instr(groupname, "38")>0 then
Line 2832:
Line 2833: #End ExternalSource
Line 2834: Me.WriteUTF8ResourceString(__w, 13693, 715, true)
Line 2835:
Line 2836: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",412)
Line 2837: end if
Line 2838:
Line 2839: #End ExternalSource
Line 2840:
Line 2841: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",413)
Line 2842: if instr(groupname, "NavList")>0 then
Line 2843:
Line 2844: #End ExternalSource
Line 2845: Me.WriteUTF8ResourceString(__w, 14408, 1318, true)
Line 2846:
Line 2847: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",433)
Line 2848: end if
Line 2849:
Line 2850: #End ExternalSource
Line 2851: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </ul>"&Global.Microsoft.VisualBasic.ChrW(13)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div> <!-- menuclean -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""replyblock"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<form id=""reply-"& _
Line 2852: "form"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h3>Compose Your Message</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""sid"" va"& _
Line 2853: "lue=""")
Line 2854:
Line 2855: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",441)
Line 2856: __w.Write(SessionID)
Line 2857:
Line 2858:
Line 2859: #End ExternalSource
Line 2860: __w.Write(""">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""msghi"" id=""msghi"" value=""")
Line 2861:
Line 2862: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",442)
Line 2863: __w.Write(sd0)
Line 2864:
Line 2865:
Line 2866: #End ExternalSource
Line 2867: __w.Write("""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <label for=""msgsub"">Subject:</label>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input name"& _
Line 2868: "=""msgsub"" id=""msgsub"" placeholder=""Subject of your message"" type=""text"" tabindex"& _
Line 2869: "=""1"" ")
Line 2870:
Line 2871: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",445)
Line 2872: if len(resubj)>0 then
Line 2873:
Line 2874: #End ExternalSource
Line 2875: __w.Write(" value=""")
Line 2876:
Line 2877: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",445)
Line 2878: __w.Write(replace(resubj,"""","""))
Line 2879:
Line 2880:
Line 2881: #End ExternalSource
Line 2882: __w.Write(""" ")
Line 2883:
Line 2884: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",445)
Line 2885: end if
Line 2886:
Line 2887: #End ExternalSource
Line 2888: Me.WriteUTF8ResourceString(__w, 15726, 1221, false)
Line 2889:
Line 2890: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",473)
Line 2891: __w.Write(basehttp)
Line 2892:
Line 2893:
Line 2894: #End ExternalSource
Line 2895: Me.WriteUTF8ResourceString(__w, 16947, 723, true)
Line 2896:
Line 2897: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",490)
Line 2898: __w.Write(groupname)
Line 2899:
Line 2900:
Line 2901: #End ExternalSource
Line 2902: Me.WriteUTF8ResourceString(__w, 17670, 335, true)
Line 2903: parameterContainer.Controls(1).RenderControl(__w)
Line 2904: __w.Write(" <!-- loads from m2core in auto html mode -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div> <!-- mainbox -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 2905: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- POPUPS AND MODAL FORMS: SET TO DISPLAY NONE ;charset=utf-8 ?-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id="& _
Line 2906: """uploadmodal"" class=""modalform"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""""><img src=""")
Line 2907:
Line 2908: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",512)
Line 2909: __w.Write(basehttp)
Line 2910:
Line 2911:
Line 2912: #End ExternalSource
Line 2913: __w.Write("images/close-x.png"" style=""float: right;"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <form id=""upload"""& _
Line 2914: " method=""post"" action=""")
Line 2915:
Line 2916: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",513)
Line 2917: __w.Write(basehttp)
Line 2918:
Line 2919:
Line 2920: #End ExternalSource
Line 2921: __w.Write("upload.aspx"" enctype=""multipart/form-data"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""drop"" title=""Drop files"& _
Line 2922: " here"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a>Browse Files</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p><b>Drop Files</b></p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input"& _
Line 2923: " type=""file"" name=""upl"" multiple />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""sid"" value"& _
Line 2924: "=""")
Line 2925:
Line 2926: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",518)
Line 2927: __w.Write(SessionID)
Line 2928:
Line 2929:
Line 2930: #End ExternalSource
Line 2931: __w.Write(""">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- The file uploads will be shown here -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 2932: " </ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </form>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""msgmodal"" class=""modalform"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href="""""& _
Line 2933: "><img src=""")
Line 2934:
Line 2935: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",527)
Line 2936: __w.Write(basehttp)
Line 2937:
Line 2938:
Line 2939: #End ExternalSource
Line 2940: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h3>")
Line 2941:
Line 2942: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",528)
Line 2943: __w.Write(groupname)
Line 2944:
Line 2945:
Line 2946: #End ExternalSource
Line 2947: __w.Write("</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""hh""></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""returned""></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div i"& _
Line 2948: "d=""whatmodal"" class=""modalform"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""""><img src=""")
Line 2949:
Line 2950: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",534)
Line 2951: __w.Write(basehttp)
Line 2952:
Line 2953:
Line 2954: #End ExternalSource
Line 2955: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h3>What is ")
Line 2956:
Line 2957: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",535)
Line 2958: __w.Write(groupname)
Line 2959:
Line 2960:
Line 2961: #End ExternalSource
Line 2962: __w.Write("?</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""hh""></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""aboutgroup""></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div i"& _
Line 2963: "d=""joinmodal"" class=""modalform"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""""><img src=""")
Line 2964:
Line 2965: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",541)
Line 2966: __w.Write(basehttp)
Line 2967:
Line 2968:
Line 2969: #End ExternalSource
Line 2970: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h3>Join ")
Line 2971:
Line 2972: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",542)
Line 2973: __w.Write(groupname)
Line 2974:
Line 2975:
Line 2976: #End ExternalSource
Line 2977: Me.WriteUTF8ResourceString(__w, 18005, 903, true)
Line 2978:
Line 2979: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",565)
Line 2980: __w.Write(basehttp)
Line 2981:
Line 2982:
Line 2983: #End ExternalSource
Line 2984: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h3>Posting Code</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""hh"& _
Line 2985: """></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Enter the email address associated with your ")
Line 2986:
Line 2987: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",568)
Line 2988: __w.Write(groupname)
Line 2989:
Line 2990:
Line 2991: #End ExternalSource
Line 2992: Me.WriteUTF8ResourceString(__w, 18908, 436, true)
Line 2993:
Line 2994: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",581)
Line 2995: __w.Write(basehttp)
Line 2996:
Line 2997:
Line 2998: #End ExternalSource
Line 2999: Me.WriteUTF8ResourceString(__w, 19344, 526, true)
Line 3000:
Line 3001: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",597)
Line 3002: __w.Write(basehttp)
Line 3003:
Line 3004:
Line 3005: #End ExternalSource
Line 3006: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h3>Custom Index</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""hh"& _
Line 3007: """></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <form id=""inx"" method=""get"" action=""")
Line 3008:
Line 3009: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",600)
Line 3010: __w.Write(basehttp)
Line 3011:
Line 3012:
Line 3013: #End ExternalSource
Line 3014: Me.WriteUTF8ResourceString(__w, 19870, 728, true)
Line 3015:
Line 3016: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",617)
Line 3017: __w.Write(basehttp)
Line 3018:
Line 3019:
Line 3020: #End ExternalSource
Line 3021: Me.WriteUTF8ResourceString(__w, 20598, 261, true)
Line 3022:
Line 3023: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",621)
Line 3024: __w.Write(basehttp)
Line 3025:
Line 3026:
Line 3027: #End ExternalSource
Line 3028: __w.Write("images/ms-diglib.png""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""dx2"" class=""dxpopup"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 3029: " <a href=""""><img src=""")
Line 3030:
Line 3031: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",626)
Line 3032: __w.Write(basehttp)
Line 3033:
Line 3034:
Line 3035: #End ExternalSource
Line 3036: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""visitit""><a href=""http://ba"& _
Line 3037: "dc.nerc.ac.uk/data/corral/index.html"">Visit this site</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div clas"& _
Line 3038: "s=""viewbox"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""http://badc.nerc.ac.uk/data/corral/index.html""><img src"& _
Line 3039: "=""")
Line 3040:
Line 3041: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",630)
Line 3042: __w.Write(basehttp)
Line 3043:
Line 3044:
Line 3045: #End ExternalSource
Line 3046: __w.Write("images/corral.png""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""dx3"" class=""dxpopup"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a"& _
Line 3047: " href=""""><img src=""")
Line 3048:
Line 3049: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",635)
Line 3050: __w.Write(basehttp)
Line 3051:
Line 3052:
Line 3053: #End ExternalSource
Line 3054: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""visitit""><a href=""http://fe"& _
Line 3055: "r3.com/arc/navbooks2.html"">Visit this site</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""viewbox"""& _
Line 3056: ">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""http://fer3.com/arc/navbooks2.html""><img src=""")
Line 3057:
Line 3058: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",639)
Line 3059: __w.Write(basehttp)
Line 3060:
Line 3061:
Line 3062: #End ExternalSource
Line 3063: __w.Write("images/navbooks.png""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""dx4"" class=""dxpopup"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 3064: "<a href=""""><img src=""")
Line 3065:
Line 3066: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",644)
Line 3067: __w.Write(basehttp)
Line 3068:
Line 3069:
Line 3070: #End ExternalSource
Line 3071: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""visitit""><a href=""http://ce"& _
Line 3072: "lestaire.com/"">Visit this site</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""viewbox"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href"& _
Line 3073: "=""http://celestaire.com/""><img src=""")
Line 3074:
Line 3075: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",648)
Line 3076: __w.Write(basehttp)
Line 3077:
Line 3078:
Line 3079: #End ExternalSource
Line 3080: __w.Write("images/celestaire.png""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""dx5"" class=""dxpopup"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 3081: " <a href=""""><img src=""")
Line 3082:
Line 3083: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",653)
Line 3084: __w.Write(basehttp)
Line 3085:
Line 3086:
Line 3087: #End ExternalSource
Line 3088: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""visitit""><a href=""http://se"& _
Line 3089: "xtantbook.com/"">Visit this site</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""viewbox"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a hre"& _
Line 3090: "f=""http://sextantbook.com/""><img src=""")
Line 3091:
Line 3092: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",657)
Line 3093: __w.Write(basehttp)
Line 3094:
Line 3095:
Line 3096: #End ExternalSource
Line 3097: __w.Write("images/morrisblog.png""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""dx6"" class=""dxpopup"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 3098: " <a href=""""><img src=""")
Line 3099:
Line 3100: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",662)
Line 3101: __w.Write(basehttp)
Line 3102:
Line 3103:
Line 3104: #End ExternalSource
Line 3105: __w.Write("images/close-x.png"" class=""close""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""visitit""><a href=""http://Re"& _
Line 3106: "edNavigation.com/"">Visit this site</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""viewbox"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a "& _
Line 3107: "href=""http://ReedNavigation.com/""><img src=""")
Line 3108:
Line 3109: #ExternalSource("E:\web\fer3com0\38talk\m2.aspx",666)
Line 3110: __w.Write(basehttp)
Line 3111:
Line 3112:
Line 3113: #End ExternalSource
Line 3114: __w.Write("images/reednav.png""></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body></html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3115: End Sub
Line 3116:
Line 3117: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3118: Protected Overrides Sub FrameworkInitialize()
Line 3119: MyBase.FrameworkInitialize
Line 3120: Me.SetStringResourcePointer(Global.ASP.m2_aspx.__stringResource, 0)
Line 3121: Me.__BuildControlTree(Me)
Line 3122: Me.AddWrappedFileDependencies(Global.ASP.m2_aspx.__fileDependencies)
Line 3123: End Sub
Line 3124:
Line 3125: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3126: Public Overrides Function GetTypeHashCode() As Integer
Line 3127: Return -538012290
Line 3128: End Function
Line 3129:
Line 3130: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3131: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 3132: MyBase.ProcessRequest(context)
Line 3133: End Sub
Line 3134: End Class
Line 3135: End Namespace
Line 3136:
|