register.aspx.vb

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

    Response.Write ( "" & Chr ( 9 ) & "if (!out_upwd2()){chk=false}" & Chr ( 13 ) ) '409
    Response.Write ( "" & Chr ( 9 ) & "if (!out_question()){chk=false}" & Chr ( 13 ) ) '410
    Response.Write ( "" & Chr ( 9 ) & "if (!out_an()){chk=false}" & Chr ( 13 ) ) '411
    Response.Write ( "" & Chr ( 9 ) & "if (!out_email()){chk=false}" & Chr ( 13 ) ) '412
    Response.Write ( "" & Chr ( 9 ) & "if (!out_passregtext()){chk=false}" & Chr ( 13 ) ) '413
    Response.Write ( "" & Chr ( 9 ) & "if (!pro_city()){chk=false}" & Chr ( 13 ) ) '414
    Response.Write ( "" & Chr ( 9 ) & "if(chk){" & Chr ( 13 ) ) '415
    Response.Write ( "" & Chr ( 9 ) & "document.all.form1.submit();" & Chr ( 13 ) ) '416
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '417
    Response.Write ( "}" & Chr ( 13 ) ) '418
    Response.Write ( "function sl(st){" & Chr ( 13 ) ) '419
    Response.Write ( "" & Chr ( 9 ) & "sl1=st.length;" & Chr ( 13 ) ) '420
    Response.Write ( "" & Chr ( 9 ) & "strLen=0;" & Chr ( 13 ) ) '421
    Response.Write ( "" & Chr ( 9 ) & "for(i=0;i<sl1;i++){" & Chr ( 13 ) ) '422
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if(st.charCodeAt(i)>255) strLen+=2;" & Chr ( 13 ) ) '423
    Response.Write ( "" & Chr ( 9 ) & " else strLen++;" & Chr ( 13 ) ) '424
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '425
    Response.Write ( "" & Chr ( 9 ) & "return strLen;" & Chr ( 13 ) ) '426
    Response.Write ( "}" & Chr ( 13 ) ) '427
    Response.Write ( "-->" & Chr ( 13 ) ) '428
    Response.Write ( "</script>" & Chr ( 13 ) ) '429
    Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '430
    Response.Write ( "function GEId(id){return document.getElementById(id);}" & Chr ( 13 ) ) '431
    Response.Write ( "function DispPwdStrength(iN,sHL){" & Chr ( 13 ) ) '432
    Response.Write ( "" & Chr ( 9 ) & "if(iN>3){ iN=3;}" & Chr ( 13 ) ) '433
    Response.Write ( "" & Chr ( 9 ) & "for(var i=1;i<4;i++){" & Chr ( 13 ) ) '434
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var sHCR=""ftbbs_pws0"";" & Chr ( 13 ) ) '435
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if(i<=iN){ sHCR=sHL;}" & Chr ( 13 ) ) '436
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if(iN>0){" & Chr ( 13 ) ) '437
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "GEId(""idSM""+i).className=sHCR;" & Chr ( 13 ) ) '438
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '439
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "//GEId(""idSMT""+i).className=""ftbbs_pwfont2"";" & Chr ( 13 ) ) '440
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if (iN>0){" & Chr ( 13 ) ) '441
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "if (i<=iN){" & Chr ( 13 ) ) '442
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "GEId(""idSMT""+i).style.display=((i==iN)?""inline"":""none"");" & Chr ( 13 ) ) '443
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '444
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '445
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "else{" & Chr ( 13 ) ) '446
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "GEId(""idSMT""+i).style.display=((i==iN)?""none"":""inline"");" & Chr ( 13 ) ) '447
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '448
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '449
    Response.Write ( "}" & Chr ( 13 ) ) '450
    Response.Write ( "/*密码强度 来自.Net Passport注册站*/" & Chr ( 13 ) ) '451
    Response.Write ( "function EvalPwdStrength(sP){" & Chr ( 13 ) ) '452
    Response.Write ( "" & Chr ( 9 ) & "if(ClientSideStrongPassword(sP,gSimilarityMap,gDictionary)){" & Chr ( 13 ) ) '453
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "DispPwdStrength(3,'ftbbs_pws3');" & Chr ( 13 ) ) '454
    Response.Write ( "" & Chr ( 9 ) & "}else if(ClientSideMediumPassword(sP,gSimilarityMap,gDictionary)){" & Chr ( 13 ) ) '455
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "DispPwdStrength(2,'ftbbs_pws2');" & Chr ( 13 ) ) '456
    Response.Write ( "" & Chr ( 9 ) & "}else if(ClientSideWeakPassword(sP,gSimilarityMap,gDictionary)){" & Chr ( 13 ) ) '457
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "DispPwdStrength(1,'ftbbs_pws1');" & Chr ( 13 ) ) '458
    Response.Write ( "" & Chr ( 9 ) & "}else{" & Chr ( 13 ) ) '459
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "DispPwdStrength(0,'ftbbs_pws0');" & Chr ( 13 ) ) '460
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '461
    Response.Write ( "}" & Chr ( 13 ) ) '462
    Response.Write ( "var kNoCanonicalCounterpart = 0;" & Chr ( 13 ) ) '463
    Response.Write ( "var kCapitalLetter = 0;" & Chr ( 13 ) ) '464
    Response.Write ( "var kSmallLetter = 1;" & Chr ( 13 ) ) '465
    Response.Write ( "var kDigit = 2;" & Chr ( 13 ) ) '466
    Response.Write ( "var kPunctuation = 3;" & Chr ( 13 ) ) '467
    Response.Write ( "var kAlpha =  4;" & Chr ( 13 ) ) '468
    Response.Write ( "var kCanonicalizeLettersOnly = true;" & Chr ( 13 ) ) '469
    Response.Write ( "var kCananicalizeEverything = false;" & Chr ( 13 ) ) '470
    Response.Write ( "var gDebugOutput = null;" & Chr ( 13 ) ) '471
    Response.Write ( "var kDebugTraceLevelNone = 0;" & Chr ( 13 ) ) '472
    Response.Write ( "var kDebugTraceLevelSuperDetail = 120;" & Chr ( 13 ) ) '473
    Response.Write ( "var kDebugTraceLevelRealDetail = 100;" & Chr ( 13 ) ) '474
    Response.Write ( "var kDebugTraceLevelAll = 80;" & Chr ( 13 ) ) '475
    Response.Write ( "var kDebugTraceLevelMost = 60;" & Chr ( 13 ) ) '476
    Response.Write ( "var kDebugTraceLevelFew = 40;" & Chr ( 13 ) ) '477
    Response.Write ( "var kDebugTraceLevelRare = 20;" & Chr ( 13 ) ) '478
    Response.Write ( "var gDebugTraceLevel = kDebugTraceLevelNone;" & Chr ( 13 ) ) '479
    Response.Write ( "function DebugPrint()" & Chr ( 13 ) ) '480
    Response.Write ( "{" & Chr ( 13 ) ) '481
    Response.Write ( "var string = """";" & Chr ( 13 ) ) '482
    Response.Write ( "if (gDebugTraceLevel && gDebugOutput &&" & Chr ( 13 ) ) '483
    Response.Write ( "DebugPrint.arguments && (DebugPrint.arguments.length > 1) && (DebugPrint.arguments[0] <= gDebugTraceLevel))" & Chr ( 13 ) ) '484
    Response.Write ( "{" & Chr ( 13 ) ) '485
    Response.Write ( "for(var index = 1; index < DebugPrint.arguments.length; index++)" & Chr ( 13 ) ) '486
    Response.Write ( "{" & Chr ( 13 ) ) '487
    Response.Write ( "string += DebugPrint.arguments[index] + "" "";" & Chr ( 13 ) ) '488
    Response.Write ( "}" & Chr ( 13 ) ) '489
    Response.Write ( "string += ""<br>\n"";" & Chr ( 13 ) ) '490
    Response.Write ( "gDebugOutput(string);" & Chr ( 13 ) ) '491
    Response.Write ( "}" & Chr ( 13 ) ) '492
    Response.Write ( "}" & Chr ( 13 ) ) '493
    Response.Write ( "function CSimilarityMap()" & Chr ( 13 ) ) '494
    Response.Write ( "{" & Chr ( 13 ) ) '495
    Response.Write ( "this.m_elements = """";" & Chr ( 13 ) ) '496
    Response.Write ( "this.m_canonicalCounterparts = """";" & Chr ( 13 ) ) '497
    Response.Write ( "}" & Chr ( 13 ) ) '498
    Response.Write ( "function SimilarityMap_Add(element, canonicalCounterpart)" & Chr ( 13 ) ) '499
    Response.Write ( "{" & Chr ( 13 ) ) '500
    Response.Write ( "this.m_elements += element;" & Chr ( 13 ) ) '501
    Response.Write ( "this.m_canonicalCounterparts += canonicalCounterpart;" & Chr ( 13 ) ) '502
    Response.Write ( "}" & Chr ( 13 ) ) '503
    Response.Write ( "function SimilarityMap_Lookup(element)" & Chr ( 13 ) ) '504
    Response.Write ( "{" & Chr ( 13 ) ) '505
    Response.Write ( "var canonicalCounterpart = kNoCanonicalCounterpart;" & Chr ( 13 ) ) '506
    Response.Write ( "var index = this.m_elements.indexOf(element);" & Chr ( 13 ) ) '507
    Response.Write ( "if (index >= 0)" & Chr ( 13 ) ) '508
    Response.Write ( "{" & Chr ( 13 ) ) '509
    Response.Write ( "canonicalCounterpart = this.m_canonicalCounterparts.charAt(index);" & Chr ( 13 ) ) '510
    Response.Write ( "}" & Chr ( 13 ) ) '511
    Response.Write ( "else" & Chr ( 13 ) ) '512
    Response.Write ( "{" & Chr ( 13 ) ) '513
    Response.Write ( "}" & Chr ( 13 ) ) '514
    Response.Write ( "return canonicalCounterpart;" & Chr ( 13 ) ) '515
    Response.Write ( "}" & Chr ( 13 ) ) '516
    Response.Write ( "function SimilarityMap_GetCount()" & Chr ( 13 ) ) '517
    Response.Write ( "{" & Chr ( 13 ) ) '518
    Response.Write ( "return this.m_elements.length;" & Chr ( 13 ) ) '519
    Response.Write ( "}" & Chr ( 13 ) ) '520
    Response.Write ( "CSimilarityMap.prototype.Add = SimilarityMap_Add;" & Chr ( 13 ) ) '521
    Response.Write ( "CSimilarityMap.prototype.Lookup = SimilarityMap_Lookup;" & Chr ( 13 ) ) '522
    Response.Write ( "CSimilarityMap.prototype.GetCount = SimilarityMap_GetCount;" & Chr ( 13 ) ) '523
    Response.Write ( "function CDictionaryEntry(length, wordList)" & Chr ( 13 ) ) '524
    Response.Write ( "{" & Chr ( 13 ) ) '525
    Response.Write ( "this.m_length = length;" & Chr ( 13 ) ) '526
    Response.Write ( "this.m_wordList = wordList;" & Chr ( 13 ) ) '527
    Response.Write ( "}" & Chr ( 13 ) ) '528
    Response.Write ( "function DictionaryEntry_Lookup(strWord)" & Chr ( 13 ) ) '529
    Response.Write ( "{" & Chr ( 13 ) ) '530
    Response.Write ( "var fFound = false;" & Chr ( 13 ) ) '531
    Response.Write ( "if (strWord.length == this.m_length)" & Chr ( 13 ) ) '532
    Response.Write ( "{" & Chr ( 13 ) ) '533
    Response.Write ( "var nFirst = 0;" & Chr ( 13 ) ) '534
    Response.Write ( "var nLast = this.m_wordList.length - 1;" & Chr ( 13 ) ) '535
    Response.Write ( "while( nFirst <= nLast )" & Chr ( 13 ) ) '536
    Response.Write ( "{" & Chr ( 13 ) ) '537
    Response.Write ( "var nCurrent = Math.floor((nFirst + nLast)/2);" & Chr ( 13 ) ) '538
    Response.Write ( "if( strWord == this.m_wordList[nCurrent])" & Chr ( 13 ) ) '539
    Response.Write ( "{" & Chr ( 13 ) ) '540
    Response.Write ( "fFound = true;" & Chr ( 13 ) ) '541
    Response.Write ( "break;" & Chr ( 13 ) ) '542
    Response.Write ( "}" & Chr ( 13 ) ) '543
    Response.Write ( "else if ( strWord > this.m_wordList[nCurrent])" & Chr ( 13 ) ) '544
    Response.Write ( "{" & Chr ( 13 ) ) '545
    Response.Write ( "nLast = nCurrent - 1;" & Chr ( 13 ) ) '546
    Response.Write ( "}" & Chr ( 13 ) ) '547
    Response.Write ( "else" & Chr ( 13 ) ) '548
    Response.Write ( "{" & Chr ( 13 ) ) '549
    Response.Write ( "nFirst = nCurrent + 1;" & Chr ( 13 ) ) '550
    Response.Write ( "}" & Chr ( 13 ) ) '551
    Response.Write ( "}" & Chr ( 13 ) ) '552
    Response.Write ( "}" & Chr ( 13 ) ) '553
    Response.Write ( "return fFound;" & Chr ( 13 ) ) '554
    Response.Write ( "}" & Chr ( 13 ) ) '555
    Response.Write ( "CDictionaryEntry.prototype.Lookup = DictionaryEntry_Lookup;" & Chr ( 13 ) ) '556
    Response.Write ( "function CDictionary()" & Chr ( 13 ) ) '557
    Response.Write ( "{" & Chr ( 13 ) ) '558
    Response.Write ( "this.m_entries = new Array()" & Chr ( 13 ) ) '559
    Response.Write ( "}" & Chr ( 13 ) ) '560
    Response.Write ( "function Dictionary_Lookup(strWord)" & Chr ( 13 ) ) '561
    Response.Write ( "{" & Chr ( 13 ) ) '562
    Response.Write ( "for (var index = 0; index < this.m_entries.length; index++)" & Chr ( 13 ) ) '563
    Response.Write ( "{" & Chr ( 13 ) ) '564
    Response.Write ( "if (this.m_entries[index].Lookup(strWord))" & Chr ( 13 ) ) '565
    Response.Write ( "{" & Chr ( 13 ) ) '566
    Response.Write ( "return true;" & Chr ( 13 ) ) '567
    Response.Write ( "}" & Chr ( 13 ) ) '568
    Response.Write ( "}" & Chr ( 13 ) ) '569
    Response.Write ( "}" & Chr ( 13 ) ) '570
    Response.Write ( "function Dictionary_Add(length, wordList)" & Chr ( 13 ) ) '571
    Response.Write ( "{" & Chr ( 13 ) ) '572
    Response.Write ( "var iL=this.m_entries.length;" & Chr ( 13 ) ) '573
    Response.Write ( "var cD=new CDictionaryEntry(length, wordList)" & Chr ( 13 ) ) '574
    Response.Write ( "this.m_entries[iL]=cD;" & Chr ( 13 ) ) '575
    Response.Write ( "}" & Chr ( 13 ) ) '576
    Response.Write ( "CDictionary.prototype.Lookup = Dictionary_Lookup;" & Chr ( 13 ) ) '577
    Response.Write ( "CDictionary.prototype.Add = Dictionary_Add;" & Chr ( 13 ) ) '578
    Response.Write ( "var gSimilarityMap = new CSimilarityMap();" & Chr ( 13 ) ) '579
    Response.Write ( "var gDictionary = new CDictionary();" & Chr ( 13 ) ) '580