register.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

    Response.Write ( "function CharacterSetChecks(type, fResult)" & Chr ( 13 ) ) '581
    Response.Write ( "{" & Chr ( 13 ) ) '582
    Response.Write ( "this.type = type;" & Chr ( 13 ) ) '583
    Response.Write ( "this.fResult = fResult;" & Chr ( 13 ) ) '584
    Response.Write ( "}" & Chr ( 13 ) ) '585
    Response.Write ( "function isctype(character, type, nDebugLevel)" & Chr ( 13 ) ) '586
    Response.Write ( "{" & Chr ( 13 ) ) '587
    Response.Write ( "var fResult = false;" & Chr ( 13 ) ) '588
    Response.Write ( "switch(type)" & Chr ( 13 ) ) '589
    Response.Write ( "{" & Chr ( 13 ) ) '590
    Response.Write ( "case kCapitalLetter:" & Chr ( 13 ) ) '591
    Response.Write ( "if((character >= 'A') && (character <= 'Z'))" & Chr ( 13 ) ) '592
    Response.Write ( "{" & Chr ( 13 ) ) '593
    Response.Write ( "fResult = true;" & Chr ( 13 ) ) '594
    Response.Write ( "}" & Chr ( 13 ) ) '595
    Response.Write ( "break;" & Chr ( 13 ) ) '596
    Response.Write ( "case kSmallLetter:" & Chr ( 13 ) ) '597
    Response.Write ( "if ((character >= 'a') && (character <= 'z'))" & Chr ( 13 ) ) '598
    Response.Write ( "{" & Chr ( 13 ) ) '599
    Response.Write ( "fResult = true;" & Chr ( 13 ) ) '600
    Response.Write ( "}" & Chr ( 13 ) ) '601
    Response.Write ( "break;" & Chr ( 13 ) ) '602
    Response.Write ( "case kDigit:" & Chr ( 13 ) ) '603
    Response.Write ( "if ((character >= '0') && (character <= '9'))" & Chr ( 13 ) ) '604
    Response.Write ( "{" & Chr ( 13 ) ) '605
    Response.Write ( "fResult = true;" & Chr ( 13 ) ) '606
    Response.Write ( "}" & Chr ( 13 ) ) '607
    Response.Write ( "break;" & Chr ( 13 ) ) '608
    Response.Write ( "case kPunctuation:" & Chr ( 13 ) ) '609
    Response.Write ( "if (""!@#$%^&*()_+-='\"";:[{]}\|.>,</?`~"".indexOf(character) >= 0)" & Chr ( 13 ) ) '610
    Response.Write ( "{" & Chr ( 13 ) ) '611
    Response.Write ( "fResult = true;" & Chr ( 13 ) ) '612
    Response.Write ( "}" & Chr ( 13 ) ) '613
    Response.Write ( "break;" & Chr ( 13 ) ) '614
    Response.Write ( "case kAlpha:" & Chr ( 13 ) ) '615
    Response.Write ( "if (isctype(character, kCapitalLetter) || isctype(character, kSmallLetter))" & Chr ( 13 ) ) '616
    Response.Write ( "{" & Chr ( 13 ) ) '617
    Response.Write ( "fResult = true;" & Chr ( 13 ) ) '618
    Response.Write ( "}" & Chr ( 13 ) ) '619
    Response.Write ( "break;" & Chr ( 13 ) ) '620
    Response.Write ( "default:" & Chr ( 13 ) ) '621
    Response.Write ( "break;" & Chr ( 13 ) ) '622
    Response.Write ( "}" & Chr ( 13 ) ) '623
    Response.Write ( "return fResult;" & Chr ( 13 ) ) '624
    Response.Write ( "}" & Chr ( 13 ) ) '625
    Response.Write ( "function CanonicalizeWord(strWord, similarityMap, fLettersOnly)" & Chr ( 13 ) ) '626
    Response.Write ( "{" & Chr ( 13 ) ) '627
    Response.Write ( "var canonicalCounterpart = kNoCanonicalCounterpart;" & Chr ( 13 ) ) '628
    Response.Write ( "var strCanonicalizedWord = """";" & Chr ( 13 ) ) '629
    Response.Write ( "var nStringLength = 0;" & Chr ( 13 ) ) '630
    Response.Write ( "if ((strWord != null) && (strWord.length > 0))" & Chr ( 13 ) ) '631
    Response.Write ( "{" & Chr ( 13 ) ) '632
    Response.Write ( "strCanonicalizedWord = strWord;" & Chr ( 13 ) ) '633
    Response.Write ( "strCanonicalizedWord = strCanonicalizedWord.toLowerCase();" & Chr ( 13 ) ) '634
    Response.Write ( "if (similarityMap.GetCount() > 0)" & Chr ( 13 ) ) '635
    Response.Write ( "{" & Chr ( 13 ) ) '636
    Response.Write ( "nStringLength = strCanonicalizedWord.length;" & Chr ( 13 ) ) '637
    Response.Write ( "for(var index = 0; index < nStringLength; index++)" & Chr ( 13 ) ) '638
    Response.Write ( "{" & Chr ( 13 ) ) '639
    Response.Write ( "if (fLettersOnly && !isctype(strCanonicalizedWord.charAt(index), kSmallLetter, kDebugTraceLevelSuperDetail))" & Chr ( 13 ) ) '640
    Response.Write ( "{" & Chr ( 13 ) ) '641
    Response.Write ( "continue;" & Chr ( 13 ) ) '642
    Response.Write ( "}" & Chr ( 13 ) ) '643
    Response.Write ( "canonicalCounterpart = similarityMap.Lookup(strCanonicalizedWord.charAt(index));" & Chr ( 13 ) ) '644
    Response.Write ( "if (canonicalCounterpart != kNoCanonicalCounterpart)" & Chr ( 13 ) ) '645
    Response.Write ( "{" & Chr ( 13 ) ) '646
    Response.Write ( "strCanonicalizedWord = strCanonicalizedWord.substring(0, index) + canonicalCounterpart +" & Chr ( 13 ) ) '647
    Response.Write ( "strCanonicalizedWord.substring(index + 1, nStringLength);" & Chr ( 13 ) ) '648
    Response.Write ( "}" & Chr ( 13 ) ) '649
    Response.Write ( "}" & Chr ( 13 ) ) '650
    Response.Write ( "}" & Chr ( 13 ) ) '651
    Response.Write ( "}" & Chr ( 13 ) ) '652
    Response.Write ( "return strCanonicalizedWord;" & Chr ( 13 ) ) '653
    Response.Write ( "}" & Chr ( 13 ) ) '654
    Response.Write ( "function IsLongEnough(strWord, nAtLeastThisLong)" & Chr ( 13 ) ) '655
    Response.Write ( "{" & Chr ( 13 ) ) '656
    Response.Write ( "if ((strWord == null) || isNaN(nAtLeastThisLong))" & Chr ( 13 ) ) '657
    Response.Write ( "{" & Chr ( 13 ) ) '658
    Response.Write ( "return false;" & Chr ( 13 ) ) '659
    Response.Write ( "}" & Chr ( 13 ) ) '660
    Response.Write ( "else if (strWord.length < nAtLeastThisLong)" & Chr ( 13 ) ) '661
    Response.Write ( "{" & Chr ( 13 ) ) '662
    Response.Write ( "return false;" & Chr ( 13 ) ) '663
    Response.Write ( "}" & Chr ( 13 ) ) '664
    Response.Write ( "return true;" & Chr ( 13 ) ) '665
    Response.Write ( "}" & Chr ( 13 ) ) '666
    Response.Write ( "function SpansEnoughCharacterSets(strWord, nAtLeastThisMany)" & Chr ( 13 ) ) '667
    Response.Write ( "{" & Chr ( 13 ) ) '668
    Response.Write ( "var nCharSets = 0;" & Chr ( 13 ) ) '669
    Response.Write ( "var characterSetChecks = new Array(" & Chr ( 13 ) ) '670
    Response.Write ( "new CharacterSetChecks(kCapitalLetter, false)," & Chr ( 13 ) ) '671
    Response.Write ( "new CharacterSetChecks(kSmallLetter, false)," & Chr ( 13 ) ) '672
    Response.Write ( "new CharacterSetChecks(kDigit, false)," & Chr ( 13 ) ) '673
    Response.Write ( "new CharacterSetChecks(kPunctuation, false)" & Chr ( 13 ) ) '674
    Response.Write ( ");" & Chr ( 13 ) ) '675
    Response.Write ( "if ((strWord == null) || isNaN(nAtLeastThisMany))" & Chr ( 13 ) ) '676
    Response.Write ( "{" & Chr ( 13 ) ) '677
    Response.Write ( "return false;" & Chr ( 13 ) ) '678
    Response.Write ( "}" & Chr ( 13 ) ) '679
    Response.Write ( "for(var index = 0; index < strWord.length; index++)" & Chr ( 13 ) ) '680
    Response.Write ( "{" & Chr ( 13 ) ) '681
    Response.Write ( "for(var nCharSet = 0; nCharSet < characterSetChecks.length;nCharSet++)" & Chr ( 13 ) ) '682
    Response.Write ( "{" & Chr ( 13 ) ) '683
    Response.Write ( "if (!characterSetChecks[nCharSet].fResult && isctype(strWord.charAt(index), characterSetChecks[nCharSet].type, kDebugTraceLevelAll))" & Chr ( 13 ) ) '684
    Response.Write ( "{" & Chr ( 13 ) ) '685
    Response.Write ( "characterSetChecks[nCharSet].fResult = true;" & Chr ( 13 ) ) '686
    Response.Write ( "break;" & Chr ( 13 ) ) '687
    Response.Write ( "}" & Chr ( 13 ) ) '688
    Response.Write ( "}" & Chr ( 13 ) ) '689
    Response.Write ( "}" & Chr ( 13 ) ) '690
    Response.Write ( "for(var nCharSet = 0; nCharSet < characterSetChecks.length;nCharSet++)" & Chr ( 13 ) ) '691
    Response.Write ( "{" & Chr ( 13 ) ) '692
    Response.Write ( "if (characterSetChecks[nCharSet].fResult)" & Chr ( 13 ) ) '693
    Response.Write ( "{" & Chr ( 13 ) ) '694
    Response.Write ( "nCharSets++;" & Chr ( 13 ) ) '695
    Response.Write ( "}" & Chr ( 13 ) ) '696
    Response.Write ( "}" & Chr ( 13 ) ) '697
    Response.Write ( "if (nCharSets < nAtLeastThisMany)" & Chr ( 13 ) ) '698
    Response.Write ( "{" & Chr ( 13 ) ) '699
    Response.Write ( "return false;" & Chr ( 13 ) ) '700
    Response.Write ( "}" & Chr ( 13 ) ) '701
    Response.Write ( "return true;" & Chr ( 13 ) ) '702
    Response.Write ( "}" & Chr ( 13 ) ) '703
    Response.Write ( "function FoundInDictionary(strWord, similarityMap, dictionary)" & Chr ( 13 ) ) '704
    Response.Write ( "{" & Chr ( 13 ) ) '705
    Response.Write ( "var strCanonicalizedWord = """";" & Chr ( 13 ) ) '706
    Response.Write ( "if((strWord == null) || (similarityMap == null) || (dictionary == null))" & Chr ( 13 ) ) '707
    Response.Write ( "{" & Chr ( 13 ) ) '708
    Response.Write ( "return true;" & Chr ( 13 ) ) '709
    Response.Write ( "}" & Chr ( 13 ) ) '710
    Response.Write ( "strCanonicalizedWord = CanonicalizeWord(strWord, similarityMap, kCanonicalizeLettersOnly);" & Chr ( 13 ) ) '711
    Response.Write ( "if (dictionary.Lookup(strCanonicalizedWord))" & Chr ( 13 ) ) '712
    Response.Write ( "{" & Chr ( 13 ) ) '713
    Response.Write ( "return true;" & Chr ( 13 ) ) '714
    Response.Write ( "}" & Chr ( 13 ) ) '715
    Response.Write ( "return false;" & Chr ( 13 ) ) '716
    Response.Write ( "}" & Chr ( 13 ) ) '717
    Response.Write ( "function IsCloseVariationOfAWordInDictionary(strWord, threshold, similarityMap, dictionary)" & Chr ( 13 ) ) '718
    Response.Write ( "{" & Chr ( 13 ) ) '719
    Response.Write ( "var strCanonicalizedWord = """";" & Chr ( 13 ) ) '720
    Response.Write ( "var nMinimumMeaningfulMatchLength = 0;" & Chr ( 13 ) ) '721
    Response.Write ( "if((strWord == null) || isNaN(threshold) || (similarityMap == null) || (dictionary == null))" & Chr ( 13 ) ) '722
    Response.Write ( "{" & Chr ( 13 ) ) '723
    Response.Write ( "return true;" & Chr ( 13 ) ) '724
    Response.Write ( "}" & Chr ( 13 ) ) '725
    Response.Write ( "strCanonicalizedWord = CanonicalizeWord(strWord, similarityMap, kCananicalizeEverything);" & Chr ( 13 ) ) '726
    Response.Write ( "nMinimumMeaningfulMatchLength = Math.floor((threshold) * strCanonicalizedWord.length);" & Chr ( 13 ) ) '727
    Response.Write ( "for (var nSubStringLength = strCanonicalizedWord.length; nSubStringLength >= nMinimumMeaningfulMatchLength; nSubStringLength--)" & Chr ( 13 ) ) '728
    Response.Write ( "{" & Chr ( 13 ) ) '729
    Response.Write ( "for(var nSubStringStart = 0; (nSubStringStart + nMinimumMeaningfulMatchLength) < strCanonicalizedWord.length; nSubStringStart++)" & Chr ( 13 ) ) '730
    Response.Write ( "{" & Chr ( 13 ) ) '731
    Response.Write ( "var strSubWord = strCanonicalizedWord.substr(nSubStringStart, nSubStringLength);" & Chr ( 13 ) ) '732
    Response.Write ( "if (dictionary.Lookup(strSubWord))" & Chr ( 13 ) ) '733
    Response.Write ( "{" & Chr ( 13 ) ) '734
    Response.Write ( "return true;" & Chr ( 13 ) ) '735
    Response.Write ( "}" & Chr ( 13 ) ) '736
    Response.Write ( "}" & Chr ( 13 ) ) '737
    Response.Write ( "}" & Chr ( 13 ) ) '738
    Response.Write ( "return false;" & Chr ( 13 ) ) '739
    Response.Write ( "}" & Chr ( 13 ) ) '740
    Response.Write ( "function Init()" & Chr ( 13 ) ) '741
    Response.Write ( "{" & Chr ( 13 ) ) '742
    Response.Write ( "gSimilarityMap.Add('3', 'e');" & Chr ( 13 ) ) '743
    Response.Write ( "gSimilarityMap.Add('x', 'k');" & Chr ( 13 ) ) '744
    Response.Write ( "gSimilarityMap.Add('5', 's');" & Chr ( 13 ) ) '745
    Response.Write ( "gSimilarityMap.Add('$', 's');" & Chr ( 13 ) ) '746
    Response.Write ( "gSimilarityMap.Add('6', 'g');" & Chr ( 13 ) ) '747
    Response.Write ( "gSimilarityMap.Add('7', 't');" & Chr ( 13 ) ) '748
    Response.Write ( "gSimilarityMap.Add('8', 'b');" & Chr ( 13 ) ) '749
    Response.Write ( "gSimilar